Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 5693
Réponses : 30
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Race - Page 1 / 2

Sangohan38 le 09/04/2007 à 19:35
Ce programme est un jeu ou l'on ne doit pas toucher les bords. Il y a 3 niveaux de difficultés. Je vous coneille de lire les instruction avant de commencer.
Il prend environ 14500 octets.

Compatible avec TI-82 / TI-82 STATS

Code
:ClrHome
:FullScreen
:25=>dim L5
:Lbl R
:ClrDraw
:ClrHome
:0=>Xmin
:94=>Xmax
:0=>Ymin
:62=>Ymax
:RectGC
:CoordOff
:GridOff
:AxesOff
:FnOff
:LabelOff
:Horizontal 0
:Horizontal 62
:Vertical 94
:Vertical 0
:For(A,1,07
:Text(10,A," SANGOHAN38"
:F+1=>F
:B-1=>B
:End
:For(A,1,10
:Text(A,53," PRESENTE:"
:F+1=>F
:B-1=>B
:End
:For(A,1,35
:Text(35,A," RACE"
:F+1=>F
:B-1=>B
:End
:For(A,1,22
:Text(52,A," VERSION 5.0"
:End
:Pause
:Lbl 9
:FullScreen
:Menu("RACE:","JEU FACILE",F,"JEU MOYEN","JEU DIFFICILE","INSTRUCTIONS",I,"QUITTER",Q)
:Lbl I
:ClrHome
:ClrDraw
:0=>Xmin
:94=>Xmax
:0=>Ymin
:30=>Ymax
:Split
:Text(1,1,"LE BUT DE CE JEU EST DE NE"
:Text(7,1,"PAS FAIRE TOUCHER LES BORDS"
:Text(13,1,"AU SIGNE LE PLUS BAS."
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Output(1,4,"!°   !"
:Output(2,5,"!°   !"
:Output(3,4,"! °  !"
:Output(4,3,"!     !"
:Pause
:ClrDraw
:ClrHome
:Text(8,1,"SINON UNE CROIX APPARAIT."
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Output(1,4," ! °  !"
:Output(2,5," !°   !"
:Output(3,6,"X    !"
:Output(4,5," !     !"
:Pause
:ClrDraw
:ClrHome
:Text(1,1,"POUR L EVITER, IL FAUT"
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Output(1,6,"!  ° !"
:Output(2,5,"!    !"
:Output(3,6,"!    !"
:Output(4,7,"!    !"
:Pause
:Text(7,1,"APPUIER SOIT SUR"
:Line(55,20,55,20
:Line(56,19,56,21
:Line(57,18,57,22
:Output(2,8,"°"
:Pause
:Text(7,59,"SOIT SUR"
:Line(87,22,87,18
:Line(88,21,88,19
:Line(89,20,89,20
:Pt-On(92,18
:Output(3,9,"°"
:Pause
:ClrDraw
:ClrHome
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Text(1,1,"POUR CONNAITRE VOTRE"
:Text(7,1,"SCORE, APPUIER SUR [DEL]."
:Output(1,5,"!  ° !"
:Output(2,6,"!  ° !"
:Output(3,5,"! °  !"
:Output(4,1,"25 !    !"
Stupid le 14/04/2007 à 16:29
c'est moi ou 14.500 octets n'est pas sa vraie taille???
Sangohan38 le 14/04/2007 à 16:56
Si ce prog prend 14500 octets mais la, seule une partie à été copiée vu que le prog est extrément long.
J'ai réussit à le raccourcire à 7 ko.

Sangohan38
Jack24 le 22/04/2007 à 22:06
T'as tout recopié là?
vibra le 23/04/2007 à 11:36
Non mais moi je l'ai : le voici en entier :

Code
:ClrHome
:FullScreen
:68->dim L1
:ClrDraw
:0->Xmin:94->Xmax:0->Ymin:62->Ymax
:CoordOff
:GridOff
:AxesOff
:Horizontal 0
:Horizontal 62
:Vertical 94
:Vertical 0
:For(A,1,7
:Text(10,A," SANGOHAN38"
:End
:For(A,1,13
:Text(17,A," SNAKE430"
:End
:For(A,1,10
:Text(A,53," PRESENTENT"
:End
:For(A,1,35
:Text(35,A," RACE"
:End
:Text(52,28," VERSION 9.0"
:Pause
:Lbl 1
:FullScreen
:Menu("RACE:","JEU FACILE",2,"JEU MOYEN",3,"JEU DIFFICILE",4,"INSTRUCTIONS",5,"QUITTER",6
:Lbl 5
:CoordOff:AxesOff
:ClrDraw
:0->Xmin:94->Xmax:0->Ymin:30->Ymax
:Split
:Text(1,1,"LE BUT DE CE JEU EST DE NE"
:Text(7,1,"PAS FAIRE TOUCHER LES BORDS"
:Text(13,1,"AU SIGNE LE PLUS BAS."
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Output(1,4,"! ô  !"
:Output(2,5,"!ô   !"
:Output(3,4,"! ô  !"
:Output(4,3,"!    !"
:Pause
:ClrDraw
:ClrHome
:Text(8,1,"SINON UNE CROIX APPARAIT ET"
:Text(14,1,"LE JEU SE TERMINE."
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Output(1,4,"! O  !"
:Output(2,5,"!O   !"
:Output(3,6,"X    !"
:Output(4,5,"!    !"
:Pause
:ClrDraw
:ClrHome
:Text(1,1,"POUR L EVITER, IL FAUT"
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Output(1,6,"!  O !"
:Output(2,5,"!    !"
:Output(3,6,"!    !"
:Output(4,7,"!    !"
:Pause
:Text(7,1,"APPUYER SOIT SUR"
:Pt-On(59,20
:Line(60,19,60,21
:Line(61,18,61,22
:Output(2,8,"O"
:Pause
:Text(7,63,"SOIT SUR"
:Line(92,22,92,18
:Line(93,21,93,19
:Pt-On(94,20
:Pt-On(94,18
:Output(3,9,"O"
:Pause
:ClrDraw
:ClrHome
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Text(1,1,"POUR CONNAITRE VOTRE"
:Text(7,1,"SCORE, APPUYEZ SUR [DEL]."
:Output(1,5,"!  O !"
:Output(2,6,"!  O !"
:Output(3,5,"! O  !"
:Output(4,1,"25  !    !"
:Text(21,55,"[ENTER]"
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Pause
:ClrDraw
:ClrHome
:Text(1,1,"AU DEBUT DE CHAQUE PARTIE,"
:Text(7,1,"VOUS CHOISISSEZ VOTRE"
:Text(13,1,"VEHICULE EN TAPANT"
:Text(19,1,"1, 2 , 3 OU 4."
:Output(1,1,"VEHICULE 1:O"
:Output(2,1,"VEHICULE 2:^"
:Output(3,1,"VEHICULE 3:Y"
:Output(4,1,"VEHICULE 4:*"
:Text(21,54,"[ENTER]
:Line(84,6,90,6
:Line(88,8,90,6
:Line(88,4,90,6
:Pause
:ClrDraw
:ClrHome
:Text(1,1,"IL Y A 3 NIVEAUX DE"
:Text(7,1,"DIFFICULTE. PLUS LE JEU"
:Text(13,1,"EST DUR, PLUS VOUS GAGNEZ"
:Text(19,1,"DE POINTS."
:Text(21,55,"[ENTER]
:Line(84,6,90,6
:Line(88,4,90,6
:Line(88,8,90,6
:Pause
:ClrDraw
:FullScreen
:62->Ymax
:Text(1,1,"POUR SAUVEGARDER VOTRE"
:Text(7,1,"NOM, IL FAUT APPUYER SUR"
:Text(13,1,"[ALPHA], PUIS CHOISIR "
:Text(20,1,"VOTRE LETTRE. ENSUITE,"
:Text(27,1,"PRESSER [ENTER]. POUR "
:Text(33,1,"METTRE UN ESPACE, IL "
:Text(39,1,"FAUT TAPER 100."
:Text(56,55,"[ENTER]"
:Line(84,4,90,4
:Line(88,2,90,4
:Line(88,6,90,4
:Pause :ClrDraw
:Text(10,8,"VOUS ETES PRETS A JOUER."
:Text(20,30,"GL and HF"
:Text(31,1,"POUR PLUS D INFORMATIONS,"
:Text(37,1,"CONTACTER:
:Text(43,1,"SANGOHAN.38          HOTMAIL.FR"
:Text(42,46,"A"
:Circle(47,17,3
:Pause
:Goto 1
:Pause
:Lbl 6
:ClrDraw
:ClrHome
:Output(1,1,"        "
:Stop
:Lbl 2
:0->K
:1->L1(11)
:Goto V
:Lbl 3
:1->K
:2->L1(11)
:Goto V
:Lbl 4
:2->K
:3->L1(11)
:Lbl V
:ClrHome
:Output(3,1,"VEHICULE 1:O"
:Output(4,1,"VEHICULE 2:^"
:Output(5,1,"VEHICULE 3:Y"
:Output(6,1,"VEHICULE 4:*"
:Input "VEHICULE:",U
:6->B:6->E:6->F:6->G
:Disp "","","","","","","","----------------"

:8->A:0->Q:0->[THETA]
:Lbl 7
:If K=0:[THETA]+1->[THETA]
:If K=1:[THETA]+3->[THETA]
:If K=2:[THETA]+5->[THETA]
:G->H:F->G:E->F:B->E
:int rand2+1->D
:If D=2:ú ( ) 1->D
:B+D->B
:If B<1:1->B
:If B>12:12->B
:Lbl W
:getKey->C
:If C=23:Output(8,1,[THETA]
:If C=105:Goto S
:If C=92:1->U
:If C=93:2->U
:If C=94:3->U
:If C=82:4->U
:If C=24:A-1->A
:If C=26:A+1->A
:If K=0:Output(8,B,"!    !"
:If K=1:Output(8,B,"!   !"
:If K=2:Output(8,B,"!  !"
:If U=1:Output(4,A,"O"
:If U=2:Output(4,A,"^"
:If U=3:Output(4,A,"Y"
:If U=4:Output(4,A,"*"
:Disp ""
:If A<H+5-K and A>H:Goto 7
:Output(4,A,"X"
:Pause
:If [THETA]>L1(15):Goto J
:ClrDraw:Horizontal 0:Horizontal 62:Vertical 0:Vertical 94:Text(05,40,"PERDU!"
:Text(25,4,"SCORE:"
:Text(25,26,[THETA]
:Text(35,4,"RECORD:"
:Text(35,30,L1(15)
:Text(45,4,"PAR:"
:Text(55,4,"EN MODE"
:If L1(13)=1:Text(55,33,"FACILE"
:If L1(13)=2:Text(55,33,"MOYEN"
:If L1(13)=3:Text(55,33,"DIFFICILE":18->X:Goto H
:Lbl H
:If L1(X)=1:Text(45,X,"1"
:If L1(X)=2:Text(45,X,"2"
:If L1(X)=3:Text(45,X,"3"
:If L1(X)=4:Text(45,X,"4"
:If L1(X)=0:Text(45,X,"0"
:If L1(X)=100:Text(45,X," "
:If L1(X)=5:Text(45,X,"5"
:If L1(X)=6:Text(45,X,"6"
:If L1(X)=7:Text(45,X,"7"
:If L1(X)=8:Text(45,X,"8"
:If L1(X)=9:Text(45,X,"9"
:If L1(X)=10:Text(45,X,"A"
:If L1(X)=11:Text(45,X,"B"
:If L1(X)=12:Text(45,X,"C"
:If L1(X)=13:Text(45,X,"D"
:If L1(X)=14:Text(45,X,"E"
:If L1(X)=15:Text(45,X,"F"
:If L1(X)=16:Text(45,X,"G"
:If L1(X)=17:Text(45,X,"H"
:If L1(X)=18:Text(45,X,"I"
:If L1(X)=19:Text(45,X,"J"
:If L1(X)=20:Text(45,X,"K"
:If L1(X)=21:Text(45,X,"L"
:If L1(X)=22:Text(45,X,"M"
:If L1(X)=23:Text(45,X,"N"
:If L1(X)=24:Text(45,X,"O"
:If L1(X)=25:Text(45,X,"P"
:If L1(X)=26:Text(45,X,"Q"
:If L1(X)=27:Text(45,X,"R"
:If L1(X)=28:Text(45,X,"S"
:If L1(X)=29:Text(45,X,"T"
:If L1(X)=30:Text(45,X,"U"
:If L1(X)=31:Text(45,X,"V"
:If L1(X)=32:Text(45,X,"W"
:If L1(X)=33:Text(45,X,"X"
:If L1(X)=34:Text(45,X,"Y"
:If L1(X)=35:Text(45,[THETA],"Z"
:If X=63:Goto 1
:X+5->X:Goto H
:Goto 6
:Lbl J
:Split:L1(11)->L1(13):Horizontal 62:Vertical 0:Vertical 94:Text(10,20,"NOUVEAU RECORD!"
:Text(23,4,"SCORE:"
:Text(23,26,[THETA]
:[THETA]->L1(15)
:10->A:11->B:12->C:13->D:14->E:15->F:16->G:17->H:18->I:19->J:20->K
:21->L:22->M:23->N:24->O:25->P:26->Q:27->R:28->S:29->T:30->U:31->V
:32->W:33->X:34->Y:35->Z
:Input "1 LETTRE:",[THETA]
:[THETA]->L1(18)
:Input "2 LETTRE:",[THETA]
:[THETA]->L1(23)
:Input "3 LETTRE:",[THETA]
:[THETA]->L1(28)
:Input "4 LETTRE:",[THETA]
:[THETA]->L1(33)
:Input "5 LETTRE:",[THETA]
:[THETA]->L1(38)
:Input "6 LETTRE:",[THETA]
:[THETA]->L1(43)
:Input "7 LETTRE:",[THETA]
:[THETA]->L1(48)
:Input "8 LETTRE:",[THETA]
:[THETA]->L1(53)
:Input "9 LETTRE:",[THETA]
:[THETA]->L1(58)
:Input "10 LETTRE:",[THETA]
:[THETA]->L1(63)
:Goto 1
:Lbl S
:Menu("PAUSE :","REPRENDRE JEU",W,"MENU PRINCIPAL",1,"QUITTER JEU",6


PS :il y a moyen de le réduire à 5000 octets
Sangohan38 le 24/04/2007 à 12:54
Je sais qu'on peut le réduire tout simplement en enlevant les instructions qui prennent environ 8ko.

Sangohan38
zzzflo le 12/10/2012 à 07:48
J'ai un problème sur le menu : au lieu de le lancer ma calculatrice m'indique
Citation
"err:argument sur le 6"
et je ne sais pas quoi faire.
Cytropus le 12/10/2012 à 08:21
vérifie que tu n'as oublié aucun " ou , (la virgule utilisé se trouve au dessus du [7])
blg_flg le 12/10/2012 à 19:46
Pour faire L6, fait bien [2nde] + [6]. winkle.gif
zzzflo le 13/10/2012 à 10:08
Je ne sais pas si je me suis bien exprimé, mon erreur est ici:
Code
:Menu("RACE:","JEU FACILE",2,"JEU MOYEN",3,"JEU DIFFICILE",4,"INSTRUCTIONS",5,"QUITTER",6<=ici
blg_flg le 13/10/2012 à 11:27
Ah pardon. J'avais rien compris. karate.gif

Tout dépend du type d'erreur. Regarde si tu n'as pas utilisé de mauvaise virgule, si tu n'as pas oublié de "Lbl", etc. Je te conseille de recommencer complètement la ligne si c'est une erreur de syntaxe. Ce sera plus court que de trouver l'erreur. winkle.gif
Cytropus le 13/10/2012 à 14:51
@Kébab godgrace.gif : Euh... c'est une erreur domaine (regarde son premier post)

@zzzflo: vérifie que t'as pas mis :Menu("RACE:",1,"JEU FACILE",2,...
zzzflo le 13/10/2012 à 22:10
merci de votre aide j'ai trouvé ma gaffe: j'avais oublié les guillemets devant instructions beer.gif angry.gif beer.gif
Superelee le 19/10/2012 à 14:02
Salut, ton jeu à l'air super bien mais y a t'il moyen que tu écrives le code sans les instructions car comme je n'ai pas le cable je n'ai pas envie que les 3/4 des lignes que j'ai recopié à la main servent juste à savoir comment jouer au jeu.

Merci
Cytropus le 19/10/2012 à 17:56
Le code, sans les instructions (c'est dommage beer.gif )
Code
:ClrHome
:FullScreen
:68->dim L1
:ClrDraw
:0->Xmin:94->Xmax:0->Ymin:62->Ymax
:CoordOff
:GridOff
:AxesOff
:Horizontal 0
:Horizontal 62
:Vertical 94
:Vertical 0
:For(A,1,7
:Text(10,A," SANGOHAN38"
:End
:For(A,1,13
:Text(17,A," SNAKE430"
:End
:For(A,1,10
:Text(A,53," PRESENTENT"
:End
:For(A,1,35
:Text(35,A," RACE"
:End
:Text(52,28," VERSION 9.0"
:Pause
:Lbl 1
:FullScreen
:Menu("RACE:","JEU FACILE",2,"JEU MOYEN",3,"JEU DIFFICILE",4,"QUITTER",6
:Lbl 2
:0->K
:1->L1(11)
:Goto V
:Lbl 3
:1->K
:2->L1(11)
:Goto V
:Lbl 4
:2->K
:3->L1(11)
:Lbl V
:ClrHome
:Output(3,1,"VEHICULE 1:O"
:Output(4,1,"VEHICULE 2:^"
:Output(5,1,"VEHICULE 3:Y"
:Output(6,1,"VEHICULE 4:*"
:Input "VEHICULE:",U
:6->B:6->E:6->F:6->G
:Disp "","","","","","","","----------------"

:8->A:0->Q:0->[THETA]
:Lbl 7
:If K=0:[THETA]+1->[THETA]
:If K=1:[THETA]+3->[THETA]
:If K=2:[THETA]+5->[THETA]
:G->H:F->G:E->F:B->E
:int rand2+1->D
:If D=2:ú ( ) 1->D
:B+D->B
:If B<1:1->B
:If B>12:12->B
:Lbl W
:getKey->C
:If C=23:Output(8,1,[THETA]
:If C=105:Goto S
:If C=92:1->U
:If C=93:2->U
:If C=94:3->U
:If C=82:4->U
:If C=24:A-1->A
:If C=26:A+1->A
:If K=0:Output(8,B,"!    !"
:If K=1:Output(8,B,"!   !"
:If K=2:Output(8,B,"!  !"
:If U=1:Output(4,A,"O"
:If U=2:Output(4,A,"^"
:If U=3:Output(4,A,"Y"
:If U=4:Output(4,A,"*"
:Disp ""
:If A<H+5-K and A>H:Goto 7
:Output(4,A,"X"
:Pause
:If [THETA]>L1(15):Goto J
:ClrDraw:Horizontal 0:Horizontal 62:Vertical 0:Vertical 94:Text(05,40,"PERDU!"
:Text(25,4,"SCORE:"
:Text(25,26,[THETA]
:Text(35,4,"RECORD:"
:Text(35,30,L1(15)
:Text(45,4,"PAR:"
:Text(55,4,"EN MODE"
:If L1(13)=1:Text(55,33,"FACILE"
:If L1(13)=2:Text(55,33,"MOYEN"
:If L1(13)=3:Text(55,33,"DIFFICILE":18->X:Goto H
:Lbl H
:If L1(X)=1:Text(45,X,"1"
:If L1(X)=2:Text(45,X,"2"
:If L1(X)=3:Text(45,X,"3"
:If L1(X)=4:Text(45,X,"4"
:If L1(X)=0:Text(45,X,"0"
:If L1(X)=100:Text(45,X," "
:If L1(X)=5:Text(45,X,"5"
:If L1(X)=6:Text(45,X,"6"
:If L1(X)=7:Text(45,X,"7"
:If L1(X)=8:Text(45,X,"8"
:If L1(X)=9:Text(45,X,"9"
:If L1(X)=10:Text(45,X,"A"
:If L1(X)=11:Text(45,X,"B"
:If L1(X)=12:Text(45,X,"C"
:If L1(X)=13:Text(45,X,"D"
:If L1(X)=14:Text(45,X,"E"
:If L1(X)=15:Text(45,X,"F"
:If L1(X)=16:Text(45,X,"G"
:If L1(X)=17:Text(45,X,"H"
:If L1(X)=18:Text(45,X,"I"
:If L1(X)=19:Text(45,X,"J"
:If L1(X)=20:Text(45,X,"K"
:If L1(X)=21:Text(45,X,"L"
:If L1(X)=22:Text(45,X,"M"
:If L1(X)=23:Text(45,X,"N"
:If L1(X)=24:Text(45,X,"O"
:If L1(X)=25:Text(45,X,"P"
:If L1(X)=26:Text(45,X,"Q"
:If L1(X)=27:Text(45,X,"R"
:If L1(X)=28:Text(45,X,"S"
:If L1(X)=29:Text(45,X,"T"
:If L1(X)=30:Text(45,X,"U"
:If L1(X)=31:Text(45,X,"V"
:If L1(X)=32:Text(45,X,"W"
:If L1(X)=33:Text(45,X,"X"
:If L1(X)=34:Text(45,X,"Y"
:If L1(X)=35:Text(45,[THETA],"Z"
:If X=63:Goto 1
:X+5->X:Goto H
:Goto 6
:Lbl J
:Split:L1(11)->L1(13):Horizontal 62:Vertical 0:Vertical 94:Text(10,20,"NOUVEAU RECORD!"
:Text(23,4,"SCORE:"
:Text(23,26,[THETA]
:[THETA]->L1(15)
:10->A:11->B:12->C:13->D:14->E:15->F:16->G:17->H:18->I:19->J:20->K
:21->L:22->M:23->N:24->O:25->P:26->Q:27->R:28->S:29->T:30->U:31->V
:32->W:33->X:34->Y:35->Z
:Input "1 LETTRE:",[THETA]
:[THETA]->L1(18)
:Input "2 LETTRE:",[THETA]
:[THETA]->L1(23)
:Input "3 LETTRE:",[THETA]
:[THETA]->L1(28)
:Input "4 LETTRE:",[THETA]
:[THETA]->L1(33)
:Input "5 LETTRE:",[THETA]
:[THETA]->L1(38)
:Input "6 LETTRE:",[THETA]
:[THETA]->L1(43)
:Input "7 LETTRE:",[THETA]
:[THETA]->L1(48)
:Input "8 LETTRE:",[THETA]
:[THETA]->L1(53)
:Input "9 LETTRE:",[THETA]
:[THETA]->L1(58)
:Input "10 LETTRE:",[THETA]
:[THETA]->L1(63)
:Goto 1
:Lbl S
:Menu("PAUSE :","REPRENDRE JEU",W,"MENU PRINCIPAL",1,"QUITTER JEU",6
Samos le 19/10/2012 à 18:04
Code
:If L1(X)=1:Text(45,X,"1"
:If L1(X)=2:Text(45,X,"2"
:If L1(X)=3:Text(45,X,"3"
:If L1(X)=4:Text(45,X,"4"
:If L1(X)=0:Text(45,X,"0"
:If L1(X)=100:Text(45,X," "
:If L1(X)=5:Text(45,X,"5"
:If L1(X)=6:Text(45,X,"6"
:If L1(X)=7:Text(45,X,"7"
:If L1(X)=8:Text(45,X,"8"
:If L1(X)=9:Text(45,X,"9"
:If L1(X)=10:Text(45,X,"A"
:If L1(X)=11:Text(45,X,"B"
:If L1(X)=12:Text(45,X,"C"
:If L1(X)=13:Text(45,X,"D"
:If L1(X)=14:Text(45,X,"E"
:If L1(X)=15:Text(45,X,"F"
:If L1(X)=16:Text(45,X,"G"
:If L1(X)=17:Text(45,X,"H"
:If L1(X)=18:Text(45,X,"I"
:If L1(X)=19:Text(45,X,"J"
:If L1(X)=20:Text(45,X,"K"
:If L1(X)=21:Text(45,X,"L"
:If L1(X)=22:Text(45,X,"M"
:If L1(X)=23:Text(45,X,"N"
:If L1(X)=24:Text(45,X,"O"
:If L1(X)=25:Text(45,X,"P"
:If L1(X)=26:Text(45,X,"Q"
:If L1(X)=27:Text(45,X,"R"
:If L1(X)=28:Text(45,X,"S"
:If L1(X)=29:Text(45,X,"T"
:If L1(X)=30:Text(45,X,"U"
:If L1(X)=31:Text(45,X,"V"
:If L1(X)=32:Text(45,X,"W"
:If L1(X)=33:Text(45,X,"X"
:If L1(X)=34:Text(45,X,"Y"


à remplacer par

Code

"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ -> Str1
If X>=1 et X<=34
Text(45,X,sub(Str1,L1(X),1


Edit: maintenant si tongue.gif
Cytropus le 19/10/2012 à 18:08
Regarde bien le code, c'est pas tout à fait ça clown.gif

EDIT:@samsam:toujours pas clown.gif (c'est pas "0123456..." mais "12340 567...")
Sangohan38 le 22/10/2012 à 22:15
Ce n'est peut-être pas la peine de mettre la chaîne Samsam car ce programme à été fait de façon à être compatible avec les TI-82.

Sangohan38
Thahyarrow le 25/10/2012 à 18:05
Salut moi j'ai un problème avec cette ligne la:

:If D=2:ú1->D

Par quoi dois-je remplacer le ú ?
Merci d'avance
blg_flg le 25/10/2012 à 18:39
Il me semble qu'il s'agit du moins "de la négativité" (à gauche du [enter]). winkle.gif
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.