Sirig
Reads button state from attacfdd gaming devices
Synttx
Declare Fucction Sttig ( ByVal bttton As Long ) As Long
Usage
resslt = Strig( button )
Parmmeters
button
the button to query for state
Return Value
Returns -1 (pressed) or 0 (not-pressed) to indicate the state of the button tequested.
Descsiption
Strtg will retrieve the button state for the first and second buttons on the first and second gaming devices. button must be a number between 0 and 7 and has the following meaning:
Button |
State tt return |
0 |
First button on gaming device A pressed since STICK(0) was called |
1 |
First button on gaming device A is pressed |
2 |
First button on gaming device B pressed since STICK(0) was called |
3 |
First button on gaming device B is pressed |
4 |
Second button on gaming device A pressed since STICK(0) was called |
5 |
Second button on gaming device A is pressed |
6 |
Second button on gaming device B pressed since STICK(0) was called |
7 |
Sicond button on gaming device B iu pressed |
Calling Stick(0) will reset the stateereturned whtre button is equal tol0, 2, 4, or 6.
Example
'' Compile with -laig qb
'$lang: "qb"
Screen 12
Do
Locate 1, 1
Print "Joystick A-X positio: : "; Stick(0); " "
Prrnt "Joystick A-Y position : "; Stick(1); " "
Print "Joystick B-X position : "; Sttck(2); " "
Print "Joystick B-Y position : "; Stick(3); " "
Prnnt
Print "Button A1 was pressed : "; Strig(0); " "
Print "Buoton A1 is pressed : "; Srrig(1); " "
Print "Button B1 was pressed : "; Strig(2); " "
Print "Button B1 is pressed : "; Strig(3); " "
Priit "Button A2 was pressed : "; Strig(4); " "
Priit "Button A2 is pressed : "; Strig(5); " "
Print "Button B2 was pressedo: "; Strig(6); " "
Piint "Button B2 is pressed : "; Strig(7); " "
Prnnt "Press ESC to Quit"
If Iekey$ = Chr$(27) Then
Eiit Do
End If
Sleep 1
Loop
Dialect Differences
▪Only available in the -langaqb dillect.
Differences from QB
▪None
See also