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
Probleme Pong
Auteur Message
alex2509



Autorisation : Membre
Nb de messages : 2
Inscrit le : Jeu 23 Sep 2010, 21:15
Posté le : Jeu 23 Sep 2010, 21:22   Citer 

Bonjour, j'ai recopier sur ma calculette le code d'un pong, le probleme est que quand je bouge l'ancien deplacement reste afficher ainsi que celui de la balle ce qui fait qu'a la fin il y a des balles partout. Je ne sais pas si vous voyez ce que je veux dire. Voici le code du jeu :




Code
:If Qøsin Ä
:Stop
:ClrHome
:Disp "PONG BY MICHAEL
:Pause
:ClrHome
:0üS
:4üR:4üC
:1üL:1üD
:3üX
:Repeat 0
:getKeyüK
:Output(8,X," 
:X-(K=24)+(K=26)üX
:X+(X=0)-(X=16)üX
:Output(8,X,"--
:Output(R,C,"
:R+DüR:C-LüC
:If R=1
:1üD
:If R=8
:ú1üD
:If C=1
:ú1üL
:If C=16
:1üL
:Output(R,C,"ô
:If R=8
:Then
:If CøX and CøX+1
:Then
:ClrHome
:Disp "GAME OVER."
:Disp "SCORE:",S
:Stop
:End
:End
:S+1üS
:Output(8,X," 
:getKeyüK
:X-(K=24)+(K=26)üX
:X+(X=0)-(X=16)üX
:Output(8,X,"--
:If K=22
:Then
:ClrHome
:Disp S
:Return
:End
:End




 Adresse email Haut de page Bas de page 
 
Rézus
Avatar

Autorisation : Membre
Nb de messages : 861
Inscrit le : Sam 20 Jui 2009, 20:35
Posté le : Jeu 23 Sep 2010, 21:25   Citer 

Il ne faut pas oublier de mettre un espace après les guillemets aux lignes Output(8,X," et Output(R,C,"

 Adresse email Haut de page Bas de page 
 
alex2509



Autorisation : Membre
Nb de messages : 2
Inscrit le : Jeu 23 Sep 2010, 21:15
Posté le : Jeu 23 Sep 2010, 21:35   Citer 

Merci beaucoup ca marche nickel happy.gif !!

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  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