Programme sous TI 83+Fermé

Question

Bonjour, Je debute dans la programmation et je commence par ma calculette,la TI83+
Je suis en train de me programmer un snake et je voudrais avoir un conseil:
Lorsque je fais ce code pour un deplacement vers le bas:
Lbl25
Repeat K!=25
getkey->K
Clearscreen
A-1->A
If A=0
A+7=A// pour que le curseur passe de l'autre coté de l'ecran
output(A,B,"O"
output(Z,Y,"X" // avec Z et Y deux nombres aleatoires pour le X a manger par le O
End


Je suis obligé de retaper a chaque fois sur la fleche du bas pour qu'il avance.
J'ai essayé d'enlever le Getkey mais alors aucun moyen de sortir de la boucle.
Merci d'avance
PS : Je n'ai pas mi le debut du code qui est correct et trop long a ecrire.
Lbl 25 est le mini programme pour faire descendre mon O



Configuration: Windows 7 / Firefox 3.6.12

TI83programeur · Answer

Alors? personne ne peut m'aider?

homer__simpsons · Answer

Desolé pour la reponse tardive...
J'ai programmé un snake et voici ce que j'utilise pour le faire bouger

:Repeat 0                            //Repeter a l'infini
:Getkey
:If Rep:Rep->z                   //Si Getkey est different de 0 donc que l'utilisateur a
                                             Appuyé sur une touche: alors on enregistre sa dans Z
:B-(Z=24)+(Z=26)->B
:A-(Z=25)+(Z=34)->A
:End


Le plus intriguant doit etre ca:

:B-(Z=24)+(Z=26)->B
:A-(Z=25)+(Z=34)->A

Ceci est pour allebeger mon code ca revient a ecrire:

If Z=24
Then
B-1->B
End
If Z=26
Then
B+1->B
End
If Z=25
Then
A-1->A
End
If Z=34
Then
A+1->B
End


Soit deux ligne au lieu de 16

j'espere avoir ete utile!

Programme sous TI 83+

2 réponses

Discussions similaires

Newsletters