Stick
Reads axis position from attached gaming devices
Syntax
`
Declare Function Stick ( ByVal axis As Long ) As Long
`
Usage
`
result = Stick( axis )
`
Parameters
`axis`
the axis number to query for position
Return Value
Returns a number between 1 and 200 for specified `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. `axis` must be a number between 0 and 3 having the following meaning:

Axis | Returns
0 | X position of gaming device A
1 | Y position of gaming device A when STICK(0) was called
2 | X position of gaming device B when STICK(0) was called
3 | Y position of gaming device B when STICK(0) was called

`Stick(0)` must first be called to obtain the positions for the other axes.
Example
`
'' Compile with -lang qb
'$lang: "qb"
Screen 12
Do
Locate 1, 1
Print "Joystick A-X position : "; Stick(0); " "
Print "Joystick A-Y position : "; Stick(1); " "
Print "Joystick B-X position : "; Stick(2); " "
Print "Joystick B-Y position : "; Stick(3); " "
Print
Print "Button A1 was pressed : "; Strig(0); " "
Print "Button A1 is pressed : "; Strig(1); " "
Print "Button B1 was pressed : "; Strig(2); " "
Print "Button B1 is pressed : "; Strig(3); " "
Print "Button A2 was pressed : "; Strig(4); " "
Print "Button A2 is pressed : "; Strig(5); " "
Print "Button B2 was pressed : "; Strig(6); " "
Print "Button B2 is pressed : "; Strig(7); " "
Print
Print "Press ESC to Quit"
If Inkey$ = Chr$(27) Then
Exit Do
End If
Sleep 1
Loop
`
Dialect Differences

- Only available in the -lang qb dialect.

Differences from QB

- None

See also

- `GetJoystick`
- `Strig`