Test de joystick

GW-Basic, utilisé par PC-Basic, Exemple de programmation

PC-BASIC

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

 

 

 

 

 

 

 

Recherche personnalisée