Declare Function Stick ( ByVal axis As Integer ) As Integer

result = Stick( axis )

axis

Возвращает число от 1 до 200 для определенной axis, в противном случае ноль (0), если устройство не прилагается.

Stick будет извлекать положение оси для первой и второй осей на первом и втором игровых устройствах. axis должен быть числом от 0 до 3, имеющий следующие значения:



Stick(0) сначала должна быть вызвана для получения позиции для других осей.

'' Компилировать с опцией -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

• Доступно только в диалекте -lang qb.
  
  

• Нет
  
  

• GetJoystick
  
• Strig