Forum TI-Planet.org

J'aimerais juste savoir qu'elle commande entrer pour pouvoir déplacer un point partout sur l'écran merci

Il faut t'aider de getkey() pour du basic z80

neuronix wrote:Il faut t'aider de getkey() pour du basic z80

Oui bien sur mais j'aimerais savoir si qqn pouvais me donner un exemple de code

Voilà un exemple (pas des plus optimisé):

Code: Select all

ClrDraw
DelVar XDelVarYDelVarK
While not(K
PxlOn(X,Y
getKey()->K
If K:PxlOff(X,Y
X+(K=26 and X<94)-(K=24 and X>0)->X
Y+(K=34 and Y<62)-(K=25 and Y>0)->Y
End

Merci mais j'ai trouvé mais merci bcp

De rien et bonne chance pour la suite

Merci

neuronix wrote:Voilà un exemple (pas des plus optimisé):

Code: Select all

ClrDraw
DelVar XDelVarYDelVarK
While not(K
PxlOn(X,Y
getKey()->K
If K:PxlOff(X,Y
X+(K=26 and X<94)-(K=24 and X>0)->X
Y+(K=34 and Y<62)-(K=25 and Y>0)->Y
End

Mais celui la ne marche qu'une fois c'est à dire que le pixel ne peux que bouger d'un pixel

Au lieu de "while not(k" met "while 1"

Ok merci mais j'avais une autre question

-- Inutile de faire deux posts pour ça --

Est ce que l'on peut rajouter des des pixels qui sortiraient du point sous la pression d'un bouton ? (style pistolet?)