Mouvement de l'utilisateurs

Regarder des objets se déplacer sur l’écran, sans aucun contrôle sur eux, devient assez vite lassant.

MOVE.BAS est le premier d'une série de programmes qui placent le contrôle des mouvements entre les mains de l'utilisateur.

 Bien que ce soit très simple, les techniques permettant le contrôle de l'utilisateur se retrouvent dans les programmes plus avancés présentés plus tard.

Exécutez MOVE.BAS, et on vous présentera une boîte noire, à l'intérieur de laquelle se trouve un trapèze marron.

Vous pouvez déplacer le trapèze dans huit directions, toutes définies par le pavé numérique (par exemple, 9 déplace le trapèze en diagonale vers le haut et vers la droite, 4 strictement vers la gauche, et ainsi de suite) ; aventurez-vous trop près des limites de la boîte et vous serez stoppé net dans votre élan.

Appuyer sur E quitte le programme.

Une variable INKEY$ s'occupe de l'interactivité, tandis que plusieurs instructions DRAW garantissent que lorsque le trapèze bouge, il ne laisse pas de traces visibles derrière lui (voir lignes 100 et 110).

MOVE.BAS est une simple démo de graphiques avec contrôle utilisateur. Son code peut (et servira) de tremplin vers des programmes plus complexes.

MOVE.BAS

10 SCREEN 7:COLOR 7,7:CLS:COLOR 8
15 X=120:Y=110
20 PSET(30,0):DRAW"F40 D120 G40 E40 R180 F40 H40 U120 E40 G40 L180
30 PSET(X,Y),4:DRAW"E10 R30 F10 L50
40 I$=INKEY$:IF I$="" THEN GOTO 40
50 PSET(X,Y),7:DRAW"E10 R30 F10 L50
60 IF I$="6" THEN X=X+5
70 IF I$="4" THEN X=X-5
80 IF I$="8" THEN Y=Y-5
90 IF I$="2" THEN Y=Y+5
91 IF I$="7" THEN Y=Y-5:X=X-5
92 IF I$="1" THEN X=X-5:Y=Y+5
93 IF I$="9" THEN Y=Y-5:X=X+5
94 IF I$="3" THEN X=X+5:Y=Y+5
95 IF I$="E" THEN END
96 IF I$="e" THEN END
100 PSET(X,Y),4:DRAW"E10 R30 F10 L50
110 PSET(X,Y),7:DRAW"E10 R30 F10 L50
115 IF X>180 THEN X=X-5:SOUND 37,1
120 IF X<85 THEN X=X+5:SOUND 37,1
125 IF Y<65 THEN Y=Y+5:SOUND 37,1
130 IF Y>145 THEN Y=Y-5:SOUND 37,1
190 GOTO 30