mirror of
https://github.com/QB64Official/qb64.git
synced 2024-08-31 10:00:16 +00:00
69 lines
2.3 KiB
Text
69 lines
2.3 KiB
Text
|
The '''ON STRIG(n)''' statement is an event procedure that directs program flow upon the press of a specified joystick button.
|
||
|
|
||
|
|
||
|
{{PageSyntax}}
|
||
|
:: ON STRIG(''button_function'') GOSUB {linenumber|linelabel}
|
||
|
|
||
|
|
||
|
QB64 {{PageSyntax}}
|
||
|
|
||
|
:: ON STRIG(''button_function''[, ''joystick_number'']) {GOSUB {linelabel|linenumber}|sub-procedure}
|
||
|
|
||
|
|
||
|
* In '''QB64''' the value can be any button function number with any number of joysticks. See [[STRIG]] and [[STICK]] for parameters.
|
||
|
* In Qbasic, value of ''n'' can be a number from 0 to 3 only as it can only monitor 2 joystick buttons and 2 joysticks.
|
||
|
* There are two ''button functions'' for each button. The even numbered function is always the event of any press since last read.
|
||
|
* The statement sends the procedure to a line number, [[SUB]] or [[GOSUB]] procedure or line number when a button event occurs.
|
||
|
|
||
|
|
||
|
''Example 1:'' Reading a STRIG event to do something in a [[GOSUB]] procedure.
|
||
|
{{CodeStart}} '' ''
|
||
|
{{Cl|ON STRIG(n)|ON STRIG}}(0) {{Cl|GOSUB}} 10
|
||
|
{{Cl|STRIG(n)|STRIG}}(0)ON
|
||
|
|
||
|
{{Cl|DO...LOOP|DO}}
|
||
|
{{Cl|PRINT}} ".";
|
||
|
{{Cl|_LIMIT}} 30
|
||
|
{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> ""
|
||
|
{{Cl|END}}
|
||
|
|
||
|
10
|
||
|
a$ = "[STRIG 0 EVENT]"
|
||
|
{{Cl|FOR...NEXT|FOR}} x = 1 {{Cl|TO}} {{Cl|LEN}}(a$)
|
||
|
{{Cl|PRINT}} {{Cl|MID$}}(a$, x, 1);
|
||
|
{{Cl|_DELAY}} 0.02
|
||
|
{{Cl|NEXT}}
|
||
|
{{Cl|RETURN}} '' ''
|
||
|
{{CodeEnd}}
|
||
|
|
||
|
|
||
|
''Example 2:'' Displays any number of game pad or joystick device button presses.
|
||
|
{{CodeStart}}
|
||
|
{{Cl|FOR...NEXT|FOR}} j = 1 {{Cl|TO}} 256
|
||
|
{{Cl|FOR...NEXT|FOR}} b = 1 {{Cl|TO}} 256
|
||
|
{{Cl|ON STRIG(n)|ON STRIG}}((b - 1) * 4, j) JoyButton (j - 1) * 256 + b - 1
|
||
|
{{Cl|NEXT}}
|
||
|
{{Cl|NEXT}}
|
||
|
{{Cl|STRIG(n)|STRIG}} ON
|
||
|
|
||
|
{{Cl|DO...LOOP|DO}}
|
||
|
{{Cl|PRINT}} ".";
|
||
|
{{Cl|_LIMIT}} 30
|
||
|
{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} <> ""
|
||
|
{{Cl|END}}
|
||
|
|
||
|
{{Cl|SUB}} JoyButton (js {{Cl|AS}} {{Cl|LONG}})
|
||
|
{{Cl|PRINT}} "Joystick #"; js \ 256 + 1; "button #"; (js {{Cl|AND (boolean)|AND}} 255) + 1; "pressed!"
|
||
|
{{Cl|END SUB}} '' ''
|
||
|
{{CodeEnd}}
|
||
|
:''Explanation:'' Up to 256 controllers can be used in QB64 with many buttons to read.
|
||
|
|
||
|
|
||
|
''See also:''
|
||
|
* [[STRIG ]], [[STICK]] {{text|(functions)}}
|
||
|
* [[STRIG(n)]] {{text|(statement)}}
|
||
|
* [[_DEVICES]], [[_DEVICE$]], [[_LASTBUTTON]]
|
||
|
* [http://en.wikipedia.org/wiki/Analog_stick Single and Dual Stick Controllers]
|
||
|
|
||
|
|
||
|
{{PageNavigation}}
|