- Code: Tout sélectionner
: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: Tout sélectionner
: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