Strig
 
Читает состояние кнопки из подключенных игровых устройств

Синтаксис

Declare Function Strig ( ByVal button As Integer ) As Integer

Использование

result = Strig( button )

Параметры

button
кнопка для запроса состояния

Возвращаемое значение

Возвращает -1 (нажато) или 0 (не нажато) , чтобы указать состояние запрошенной button.

Описание

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

КнопкаСостояние возврата
0 Первая кнопка на игровом устройстве A нажата с вызовом STICK(0)
1Нажата первая кнопка на игровом устройстве A
2Первая кнопка на игровом устройстве B нажата с вызовом STICK(0)
3Нажата первая кнопка на игровом устройстве B
4Вторая кнопка на игровом устройстве A нажата с вызовом STICK(0)
5Нажата вторая кнопка на игровом устройстве A
6Вторая кнопка на игровом устройстве B нажата с вызовом STICK(0)
7Нажата вторая кнопка на игровом устройстве B


Вызов Stick(0) сбросит возвращаемое состояние, когда button равен 0, 2, 4, или 6.

Пример

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

Отличия от QB

  • Нет

См. также