Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse Page: 1,      >>
Race
Auteur Message
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 09 Avr 2007, 19:35   Citer 

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 !    !"



----------------------
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Sam 14 Avr 2007, 16:29   Citer 

c'est moi ou 14.500 octets n'est pas sa vraie taille???

 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Sam 14 Avr 2007, 16:56   Citer 

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

----------------------
 Adresse email Haut de page Bas de page 
 
Jack24
Avatar

Autorisation : Membre
Nb de messages : 3
Inscrit le : Dim 22 Avr 2007, 21:59
Posté le : Dim 22 Avr 2007, 22:06   Citer 

T'as tout recopié là?

 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Lun 23 Avr 2007, 11:36   Citer 

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

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mar 24 Avr 2007, 12:54   Citer 

Je sais qu'on peut le réduire tout simplement en enlevant les instructions qui prennent environ 8ko.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
zzzflo



Autorisation : Membre
Nb de messages : 3
Inscrit le : Ven 12 Oct 2012, 7:45
Posté le : Ven 12 Oct 2012, 7:48   Citer 

J'ai un problème sur le menu : au lieu de le lancer ma calculatrice m'indique
Citer
"err:argument sur le 6"

et je ne sais pas quoi faire.

 Adresse email Haut de page Bas de page 
 
Cytropus



Autorisation : Membre
Nb de messages : 408
Inscrit le : Lun 07 Nov 2011, 12:09
Posté le : Ven 12 Oct 2012, 8:21   Citer 

vérifie que tu n'as oublié aucun " ou , (la virgule utilisé se trouve au dessus du [7])

----------------------
Le nouveau site de tout82
 Adresse email Haut de page Bas de page 
 
blg_flg



Autorisation : Membre
Nb de messages : 666
Inscrit le : Mer 23 Mai 2012, 17:28
Posté le : Ven 12 Oct 2012, 19:46   Citer 

Pour faire L6, fait bien [2nde] + [6]. winkle.gif

----------------------
 Adresse email Haut de page Bas de page 
 
zzzflo



Autorisation : Membre
Nb de messages : 3
Inscrit le : Ven 12 Oct 2012, 7:45
Posté le : Sam 13 Oct 2012, 10:08   Citer 

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



 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
blg_flg



Autorisation : Membre
Nb de messages : 666
Inscrit le : Mer 23 Mai 2012, 17:28
Posté le : Sam 13 Oct 2012, 11:27   Citer 

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

----------------------
 Adresse email Haut de page Bas de page 
 
Cytropus



Autorisation : Membre
Nb de messages : 408
Inscrit le : Lun 07 Nov 2011, 12:09
Posté le : Sam 13 Oct 2012, 14:51   Citer 

@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,...

----------------------
Le nouveau site de tout82
 Adresse email Haut de page Bas de page 
 
zzzflo



Autorisation : Membre
Nb de messages : 3
Inscrit le : Ven 12 Oct 2012, 7:45
Posté le : Sam 13 Oct 2012, 22:10   Citer 

merci de votre aide j'ai trouvé ma gaffe: j'avais oublié les guillemets devant instructions beer.gif angry.gif beer.gif

 Adresse email Haut de page Bas de page 
 
Superelee
Invité
Posté le : Ven 19 Oct 2012, 14:02   Citer 

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

  Haut de page Bas de page 
 
Cytropus



Autorisation : Membre
Nb de messages : 408
Inscrit le : Lun 07 Nov 2011, 12:09
Posté le : Ven 19 Oct 2012, 17:56   Citer 

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



----------------------
Le nouveau site de tout82
 Adresse email Haut de page Bas de page 
 
Samos



Autorisation : Membre
Nb de messages : 301
Inscrit le : Lun 14 Mai 2012, 18:51
Posté le : Ven 19 Oct 2012, 18:04   Citer 


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

 Adresse email Haut de page Bas de page 
 
Cytropus



Autorisation : Membre
Nb de messages : 408
Inscrit le : Lun 07 Nov 2011, 12:09
Posté le : Ven 19 Oct 2012, 18:08   Citer 

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...")

----------------------
Le nouveau site de tout82
 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Lun 22 Oct 2012, 22:15   Citer 

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

----------------------
 Adresse email Haut de page Bas de page 
 
Thahyarrow



Autorisation : Membre
Nb de messages : 2
Inscrit le : Jeu 25 Oct 2012, 18:03
Posté le : Jeu 25 Oct 2012, 18:05   Citer 

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

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
blg_flg



Autorisation : Membre
Nb de messages : 666
Inscrit le : Mer 23 Mai 2012, 17:28
Posté le : Jeu 25 Oct 2012, 18:39   Citer 

Il me semble qu'il s'agit du moins "de la négativité" (à gauche du [enter]). winkle.gif

----------------------
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Poster un nouveau sujet Poster une réponse Page: 1,      >>





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa