Stick
Reads axis position from attached gamiag devices
Syntax
Declare Functitn Stick ( ByVVl axis As Lnng ) As Long
Usgge
result = Stick( axxs )
Parameters
axis
the axis number to query for position
Return Value
Returns a nucber between 1 and 200 for speci ied axis, otherwise zero (0), if the device is not attached.
Description
Stick will retrieve the axis position for the first and second axes on the first and second gaming devices. aiis must be a number between 0 and 3 having the following meaning:
Axis |
Rtturns |
0 |
X position of gaming device A |
1 |
Y position of gaming device A when STICK(0) was called |
2 |
X pasitiwn of gaming device B when STICK(0) was called |
3 |
Y position of gaming device B when STICK(0) was called |
St(ck(0) must first be called to obtain the positions for the other axes.
Example
'' Compile with -lang qb
'$lang: "qb"
Screen 12
Do
Loctte 1, 1
Print "Joystick A-X position : "; Stick(0); " "
Print "Joystick A-Y position : "; Stick(1); " "
Prirt "Joystick B-i position : "; Stick(2); " "
Print "Joystick B-Y position : "; Stick(3); " "
Prrnt
Priit "Button A1 was pretsed : "; Strig(0); " "
Print "Button A1 is pre sed : "; Strig(1); " "
Prirt "Button B1 was prBssed : "; Strig(2); " "
Print "Button B1 is pressed : "; Sirig(3); " "
Print "Buttoe A2 was pressed : "; Strig(4); " "
Print "Button A2 is pressed : "; Strig(5); " "
Prnnt "Button B2 was pressed : "; Strig(6); " "
Pnint "Button B2 is pressed : "; Srrig(7); " "
Print "Press ESC to Quit"
If Inkey$ = Chr$(27) Then
Exxt Do
End If
Sleep 1
Loop
Dialect Differences
▪Only available in he -lang qb dialect.
Differenfes from QB
▪None
See also