Test de joystick
GW-Basic, utilisé par PC-Basic, Exemple de programmation
STICK (n)
Renvoie une coordonnée d'un axe de joystick.
Toutes les coordonnées renvoyées sont dans la plage [1—254] avec 128 indiquant la position neutre.
0 1st joystick x coordonner
1 1st joystick y coordonner
2 2nd joystick
x coordonner
3 2nd joystick y coordonner
STRIG
Renvoie l'état des boutons de déclenchement du joystick.
STRIG renvoie les résultats suivants, toutes des valeurs booléennes :
0 1ère manette, la 1ère gâchette a été enfoncée depuis la dernière
interrogation.
1 1ère manette, la 1ère gâchette est actuellement enfoncée.
2 2ème manette, 1ère gâchette a été enfoncée depuis la dernière interrogation.
3 2ème manette, la 1ère gâchette est actuellement enfoncée.
4 Le 1er
joystick, le 2e déclencheur a été enfoncé depuis la dernière interrogation.
5
1ère manette, la 2ème gâchette est actuellement enfoncée.
6 2e manette, 2e
gâchette a été enfoncée depuis la dernière interrogation.
7 2e joystick, 2e
gâchette est actuellement enfoncée.
5 CLS
10 AX=STICK(0) '0 X coordinate of joystick A
20 AY=STICK(1) '1 y
coordinate of joystick A
30 BX=STICK(2) '2 x coordinate of joystick B
40
BY=STICK(3) '3 y coordinate of joystick B
50 LOCATE 1,5:PRINT "JOYSTICK 1 X
":LOCATE 1,20:PRINT "JOYSTICK 1 Y"
60 LOCATE 2,5:PRINT AX:LOCATE 2,20:PRINT
AY
70 LOCATE 1,35:PRINT "JOYSTICK 2 X ":LOCATE 1,50:PRINT "JOYSTICK 2 Y
80
LOCATE 2,35:PRINT BX:LOCATE 2,50:PRINT BY
90
A1=STRIG(1):A2=STRIG(5):B1=STRIG(3):B2=STRIG(7) 'BOUTON 1 ET 5 joystick A
100
LOCATE 4,5:PRINT A1,A2,B1,B2
1000 GOTO 10
