STICK

• Source: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgStick
• Last revised: 2016-03-13

---

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.

Examples

start GeSHi

'' 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

end GeSHi

Dialect Differences

• Only available in the -lang qb dialect.

Differences from QB

• None

See also

• Getjoystick
• Strig

Back to DocToc