| |
|
Posté le 20-10-2012 à 13:30 | #
|
ViewWindow 1,127,0,1,63,0
10->A
10->B
0->I
0->J
Do
Get key->G
If I+J!=0
Then PlotOff A,B
A+I->A
B+J->B
PlotOn A,B
0->I
0->J
IfEnd
G=27 And A<127=>1->I
G=28 And B<63=>1->J
G=38 And A>1=>-1->I
G=37 And B>1=>-1->J
LpWhile 1
Ca évite le clignotement et mets à jour l'écran que quand on bouge.
@Deegan : C'est moins performant, et surtout moins propre.
EDIT : grilled |
|
| |
|
Posté le 20-10-2012 à 13:30 | #
|
Merci à tous 
Javierxd tu peux me dire comment on fait le "AND" ca serait vraiment sympa |
|
| |
|
Posté le 20-10-2012 à 15:17 | #
|
| appui sur le bouton "OPTN" > trouve le menu "Logic" et dedans tu as "and" "or" "not" |
|
| |
|
Posté le 20-10-2012 à 19:11 | #
|
| Ok merci pour vos explications c'est vrai que finalement les While c'est pas plus mal c’est plus facile pour sortir de la boucle merci bien |
|
| |
|
Posté le 22-10-2012 à 18:38 | #
|
Salut !
Voici une version sur optimisée et plus performante 
ViewWindow 1,127,0,1,63,0
10->X
10->Y
Do
Do:Getkey
LpWhile Not Ans
PlotOff X,Y
X+(Ans=27 And X<127)-(Ans=38 And X>1)->X
Y+(Ans=28 And Y<63)-(Ans=37 And Y>1)->Y
PlotOn X,Y
LpWhile 1
Une condition vraie renvoie 1, une fausse 0.
Je met une boucle au début pour éviter un clignotement lorsque l'on appuie sur aucune touche |
|
| |
|
Posté le 23-10-2012 à 20:15 | #
|
| Pas bête 4think ! |
|
| |
|
Posté le 23-10-2012 à 21:13 | #
|
| très bon code, 4think, très optimisé. |
|
| |
|
Posté le 23-10-2012 à 21:41 | #
|
Merci
J'ai chopé l'astuce sur une revue de prog de zx 81
Quand on a une G100 on est obligé de connaitre des trucs aussi chelous  |
|
| |
|
Posté le 23-10-2012 à 21:54 | #
|
j'utilisait aussi cette astuce dans mon programme du concours... mais juste pour économiser de la place  (j'aime pas avoir trois ligne de code juste pour afficher une barre d'option qui change de place) |
|
| |
|
Posté le 24-10-2012 à 21:27 | #
|
| Pour gagner encore 2 octets, tu supprimes les dernières parenthèses avant le -> |
|
