mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 11:40:38 +00:00
75 lines
2.4 KiB
Plaintext
75 lines
2.4 KiB
Plaintext
The [[ON STRIG(n)]] statement is an event procedure that directs program flow upon the press of a specified joystick button.
|
|
|
|
|
|
{{PageSyntax}}
|
|
: '''ON STRIG'''({{Parameter|buttonFunction}}) [[GOSUB]] {{{Parameter|lineNumber}}|{{Parameter|lineLabel}}}
|
|
|
|
: '''ON STRIG'''({{Parameter|buttonFunction}}[, {{Parameter|joystickNumber}}]) {[[GOSUB]] {{{Parameter|lineNumber}}|{{Parameter|lineLabel}}} | [[SUB]]procedure}
|
|
|
|
|
|
* In '''QB64''' the value can be any button function number with any number of joysticks. See [[STRIG]] and [[STICK]] for parameters.
|
|
* There are two {{Parameter|buttonFunction}} 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, line label or [[SUB]] procedure when a button event occurs.
|
|
|
|
|
|
==QBasic/QuickBASIC==
|
|
* In QBasic, value of ''n'' could only be a number from 0 to 3 only as it could only monitor 2 joystick buttons and 2 joysticks.
|
|
|
|
|
|
{{PageExamples}}
|
|
''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.
|
|
|
|
|
|
{{PageSeeAlso}}
|
|
* [[STRIG ]], [[STICK]] {{text|(functions)}}
|
|
* [[STRIG(n)]] {{text|(statement)}}
|
|
* [[_DEVICES]], [[_DEVICE$]], [[_LASTBUTTON]]
|
|
|
|
|
|
===External links===
|
|
* [http://en.wikipedia.org/wiki/Analog_stick Single and Dual Stick Controllers]
|
|
|
|
|
|
{{PageNavigation}}
|
|
<
|