STRIG

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgStrig
• 最后更新: 2016-03-13

---

从连接的游戏设备读取按钮状态

语法

declare function Strig ( byval button as long ) as long

用法

result = Strig( button )

参数

button

要查询状态的按钮

返回值

返回 -1（按下）或 0（未按下）以指示所请求 button 的状态。

说明

Strig 将检索第一和第二个游戏设备上第一和第二个按钮的按钮状态。button 必须是 0 到 7 之间的数字，含义如下：

按钮	返回的状态
0	自调用 STICK(0) 以来游戏设备 A 的第一个按钮已被按下
1	游戏设备 A 的第一个按钮正在被按下
2	自调用 STICK(0) 以来游戏设备 B 的第一个按钮已被按下
3	游戏设备 B 的第一个按钮正在被按下
4	自调用 STICK(0) 以来游戏设备 A 的第二个按钮已被按下
5	游戏设备 A 的第二个按钮正在被按下
6	自调用 STICK(0) 以来游戏设备 B 的第二个按钮已被按下
7	游戏设备 B 的第二个按钮正在被按下

调用 Stick(0) 将重置 button 等于 0、2、4 或 6 时返回的状态。

示例

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

方言差异

• 仅在 -lang qb 方言中可用。

与QB的区别

• 无

参见

• Getjoystick
• Stick

返回 目录