Forum TI-Planet.org

Slt j'ai opté pour les tutoriaux basic learn pour le moment pour apprendre le ti - basic mais j'ai un problème lors d'une leçon sur les boucles on à pour but de faire déplacer une étoile sur l'ecran texte on obtien t donc le code suivant mais ca ne marche pas l'étoile reste figée au milieu de l'ecran texte :

Code: Select all

:ClrHome
:5-Y:8-X
:Lbl 0
:Y-B:X-A
:getKey-K
:If K=24:X-1-X
:If K=25:Y-1-Y
:If K=26:X+1-X
:If K=34:Y+1-Y
:Output(B,A," ")
:Output(Y,X,"*")
:If K45
:Goto 0

je ne sais pas d'ou vient le probleme j'ai verifié et je ne trouve pas la seule chose qui me parait possible est que jai des sauts de ligne et mon code n'est pas d'un bloc il est comme ceci sur la calculette :

Code: Select all

:ClrHome
:5-Y:8-X
:Lbl 0
:Y-B:X-A
:getKey-K
:If K=24:X-1-X
:If K=25:Y-1-Y
:If K=26:X+1-X
:If K=34:Y+1-Y
:Output(B,A," ")

:Output(Y,X,"*")

:If K45
:Goto 0

merci d'avance

pour qu'il marche il a fallu que je replace par le signe différent .merci

Lbl...Goto est très lent ! Remplace plutôt par While...End

Code: Select all

:ClrHome
:While K=/45 (=/ : différent de)
:5-A:8-B
:getKey-K
:If K=24 or K=25 or K=26 or K=34
:Output(A,B," ")
:If K=24:A-1-A
:If K=25:B-1-B
:If K=26:A+1-A
:If K=34:B+1-B
:Output(A,B,"*")
:End