Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Aide à la programmation -> Problème : Snake

Problème : Snake
Auteur	Message
pixises Invité	Posté le : Lun 01 Fév 2010, 22:02
	Bonjour, J'ai trouvé sur un site internet le programme ci-dessous et je l'ai rentré dans ma calculette Ti-82 stats.fr. Je le lance, je vais dans 1:PLAY et là, ERR : ETIQUETTE. Seule possibilité quitter. Pouvez-vous m'aider à résoudre ce problème s'il-vous plait :ClrHome :Menu("MOFROG","PLAY",M,"INSTRUCTIONS",Z,"QUIT",R) :Lbl R :ClrHome :Stop :Lbl Z :ClrHome :Disp "USE THE ARROW" :Disp "KEYS TO MOVE THE" :Disp "O LOOKING THING." :Pause :ClrHome :Disp "HIT THE Ä. DONT" :Disp "RUN INTO YERSELF" :Disp "AND DONT HIT THE" :Disp "EDGE OF THE" :Disp "SCREEN." :Pause :ClrHome :Disp "" :Disp "ENTER PAUSES IT." :Pause :Lbl M :ClrHome :6üN : : : : : : : :Lbl 8 : : : :99üdim L… :99üdim L† :{16,8}üdim [E] :Fill(0,[E] :1ü[E](15,8 :1ü[E](16,8 :0üL :1üO :2üN :2üY :1üH :0üV :1üX :XüL…(O :YüL†(O :ClrHome :getKeyüA :Goto 4 :Lbl 1 :getKeyüA :If Aø0 :Then :If A=105 :Goto 0 :If (A<27)(A>23 :Then :ú(A=25)üV :A-25üH :End :If A=34 :Then :0üH :1üV :End :End :H+XüX :V+YüY :If (X=0)+(X=17)+(Y=0)+(Y=9 :Goto 5 :If [E](X,Y :Goto 5 :Output(Y,X,"O" :1ü[E](X,Y :XüL…(N :YüL†(N :N+1-99(N=99)üN :If (X=F)(Y=G :Goto 4 :L…(O)üI :L†(O)üJ :0ü[E](I,J :Output(J,I," " +1-99(O=99)üO :Goto 1 :Lbl 4 :int (rand16+1)üF :int (rand8+1)üG :If [E](F,G :Goto 4 :L+1üL :Output(8,15,int (L/10 :Output(8,16,L-int (L/10)10 :Output(G,F,"Ä") : :Goto 1 :Lbl 5 :X-HüX :Y-VüY :If L=1 :Then :úHüH :úVüV :Goto 1 :End :For(A,1,9 :Y-AüF :Y+AüG :If Y>A :Output(F,X,"" :If Y+A<9 :Output(G,X,"" :If Xù2A :Output(Y,X-2A+1,"" :If X+2A<18 :Output(Y,X+2A-1,"" :If (Y>A)(X-A>0 :Output(F,X-A,"" :If (Y>A)(X+A<17 :Output(F,X+A,"" :If (G<9)(X>A :Output(G,X-A,"" :If (G<9)(X+A<17 :Output(G,X+A,"*" :End :ClrHome :If L÷29 :Then :Output(2,5,"COME ON!" :Output(4,2,"ONLY" :Output(4,7,L :Output(4,10,"POINTS?" :Output(7,5,"PRACTICE!") :Pause :End :If L>29 and L<49 :Then :Disp "GOOD WORK!" :Pause :ClrHome : :End :If Lù45 and L<59 :Then :ClrHome :Disp "YOURE GETTING" :Disp "PRETTY GOOD!" :Pause :ClrHome :Disp "KEEP TRYING," :Pause :Disp "YOURE ALMOST GOD" :Pause :ClrHome :End :If Lù60 and L<150 :Then :ClrHome :Pause :Disp "YOU WON!" :Pause :Disp "CONSIDERING...." :Pause :ClrHome :Disp "I GUESS YOU WONT" :Disp "GET MUCH HIGHER." :Pause :ClrHome :Disp " I CONSIDER YOU" :Disp " GOD" :Pause :ClrHome :Disp "" :Disp "" :Disp " THE" :Disp " END" :Pause :ClrHome :Stop :Goto 8 :Lbl 0 :Output(G,F," " :Output(4,4,"[ PAUSE ]" :Output(6,2,"PRESS 5 TO END" :0üA :While A=0 :getKeyüA :End :If A=83 :Then :ClrHome :Stop :End :For(J,4,6,2 :Output(J,2," " :For(I,2,15 :If [E](I,J :Output(J,I,"O" :End :End :Output(G,F,"Ä" :Goto 1


pixises Invité	Posté le : Lun 01 Fév 2010, 22:08
	Finalement c'est bon, l'erreur venait de moi. Mais j'ai un nouveau problème : le programme se lance correctement, le snake attarque le premier pi puis... plus rien. Si j'arrète le jeu je suis reportée à cette ligne : :0ü[E](I,J :Output(J,I," " +1-99(O=99)üO :Goto 1 :Lbl 4 :int (rand16+1)üF :int (rand8+1)üG :If [E](F,G :Goto 4 :L+1üL :Output(8,15,int (L/10 :Output(8,16,L-int (L/10)*10


Rézus Autorisation : Membre Nb de messages : 853 Inscrit le : Sam 20 Jui 2009, 20:35	Posté le : Lun 01 Fév 2010, 22:10
	Il faut que tu regardes pour chaque goto si il y a bien le lbl correspondant dans le programme(c'est à dire pour goto 1 si il ya le lbl 1) .Je crois qu'il manque le lbl 0.

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Aide à la programmation -> Problème : Snake

Flux RSS