STRIG: Difference between revisions

From QB64 Phoenix Edition Wiki
Jump to navigation Jump to search
m (QBasic capitalisation)
Tag: visualeditor-switched
No edit summary
Line 11: Line 11:


''Description:''
''Description:''
* Function returns -1 when a button event(even functions) has occurred or a button is pressed(odd functions).  
* Function returns -1 when a button event(even functions) has occurred or a button is pressed(odd functions).
* STRIG will not read keyboard or mouse buttons detected by [[_DEVICES]].
* STRIG will not read keyboard or mouse buttons detected by [[_DEVICES]].
* The ''device number'' must be used with more than 2 devices. Use device 1 function numbers for just one joystick.
* The ''device number'' must be used with more than 2 devices. Use device 1 function numbers for just one joystick.
Line 20: Line 20:
   STRIG(2) = -1  'lower button 1 on device 2 pressed since last STRIG(2) read
   STRIG(2) = -1  'lower button 1 on device 2 pressed since last STRIG(2) read
   STRIG(3) = -1  'lower button 1 on device 2 currently pressed
   STRIG(3) = -1  'lower button 1 on device 2 currently pressed
   '''STRIG(4) = -1  'upper button 2 on device 1 pressed since last STRIG(4) read'''  
   '''STRIG(4) = -1  'upper button 2 on device 1 pressed since last STRIG(4) read'''
   '''STRIG(5) = -1  'upper button 2 on device 1 currently pressed'''
   '''STRIG(5) = -1  'upper button 2 on device 1 currently pressed'''
   STRIG(6) = -1  'upper button 2 on device 2 pressed since last STRIG(6) read
   STRIG(6) = -1  'upper button 2 on device 2 pressed since last STRIG(6) read
   STRIG(7) = -1  'upper button 2 on device 2 currently pressed (maximum in QBasic)
   STRIG(7) = -1  'upper button 2 on device 2 currently pressed (maximum in QBasic)
   '''STRIG(8) = -1  'button 3 on device 1 pressed since last STRIG(8) read'''  'QB64 only
   '''STRIG(8) = -1  'button 3 on device 1 pressed since last STRIG(8) read'''  'QB64 only
   '''STRIG(9) = -1  'button 3 on device 1 currently pressed'''          
   '''STRIG(9) = -1  'button 3 on device 1 currently pressed'''
   STRIG(10) = -1 'button 3 on device 2 pressed since last STRIG(10) read 'QB64 only
   STRIG(10) = -1 'button 3 on device 2 pressed since last STRIG(10) read 'QB64 only
   STRIG(11) = -1 'button 3 on device 2 currently pressed
   STRIG(11) = -1 'button 3 on device 2 currently pressed
Line 33: Line 33:
{{WhiteStart}}'''STRIG(0, 3): STRIG(1, 3): STRIG(4, 3): STRIG(5, 3): STRIG(8, 3): STRIG(9, 3) 'device 3 {odd)'''
{{WhiteStart}}'''STRIG(0, 3): STRIG(1, 3): STRIG(4, 3): STRIG(5, 3): STRIG(8, 3): STRIG(9, 3) 'device 3 {odd)'''
STRIG(2, 4): STRIG(3, 4): STRIG(6, 4): STRIG(7, 4): STRIG(10, 4): STRIG(11, 4) 'device 4 (even)
STRIG(2, 4): STRIG(3, 4): STRIG(6, 4): STRIG(7, 4): STRIG(10, 4): STRIG(11, 4) 'device 4 (even)
{{WhiteEnd}}  
{{WhiteEnd}}
:Odd devices use 0, 1, 4, 5, 8 and 9 and Even devices use 2, 3, 6, 7, 10 and 11 as first parameters with device number following.
:Odd devices use 0, 1, 4, 5, 8 and 9 and Even devices use 2, 3, 6, 7, 10 and 11 as first parameters with device number following.
* '''There will not be an error if you try to read too many device axis or buttons!'''
* '''There will not be an error if you try to read too many device axis or buttons!'''
Line 39: Line 39:


''Example:'' Displays the input from 3 joysticks, all with dual sticks and 3 buttons.
''Example:'' Displays the input from 3 joysticks, all with dual sticks and 3 buttons.
{{CodeStart}} '' ''
{{CodeStart}}
{{Cl|DO}}: {{Cl|_LIMIT}} 10
{{Cl|DO}}: {{Cl|_LIMIT}} 10


   {{Cl|LOCATE}} 1, 1
   {{Cl|LOCATE}} 1, 1
   {{Cl|PRINT}} "JOY1: {{Cl|STICK}}"; {{Cl|STICK}}(0); {{Cl|STICK}}(1); {{Cl|STICK}}(0, 2); {{Cl|STICK}}(1, 2);_  
   {{Cl|PRINT}} "JOY1: {{Cl|STICK}}"; {{Cl|STICK}}(0); {{Cl|STICK}}(1); {{Cl|STICK}}(0, 2); {{Cl|STICK}}(1, 2);_
   "STRIG"; {{Cl|STRIG}}(0); {{Cl|STRIG}}(1); {{Cl|STRIG}}(4); {{Cl|STRIG}}(5); {{Cl|STRIG}}(8); {{Cl|STRIG}}(9)
   "STRIG"; {{Cl|STRIG}}(0); {{Cl|STRIG}}(1); {{Cl|STRIG}}(4); {{Cl|STRIG}}(5); {{Cl|STRIG}}(8); {{Cl|STRIG}}(9)


   {{Cl|PRINT}} "JOY2: {{Cl|STICK}}"; {{Cl|STICK}}(2); {{Cl|STICK}}(3); {{Cl|STICK}}(2, 2); {{Cl|STICK}}(3, 2);_  
   {{Cl|PRINT}} "JOY2: {{Cl|STICK}}"; {{Cl|STICK}}(2); {{Cl|STICK}}(3); {{Cl|STICK}}(2, 2); {{Cl|STICK}}(3, 2);_
   "STRIG"; {{Cl|STRIG}}(2); {{Cl|STRIG}}(3); {{Cl|STRIG}}(6); {{Cl|STRIG}}(7); {{Cl|STRIG}}(10); {{Cl|STRIG}}(11)
   "STRIG"; {{Cl|STRIG}}(2); {{Cl|STRIG}}(3); {{Cl|STRIG}}(6); {{Cl|STRIG}}(7); {{Cl|STRIG}}(10); {{Cl|STRIG}}(11)


   {{Cl|PRINT}} "JOY3: {{Cl|STICK}}"; {{Cl|STICK}}(4); {{Cl|STICK}}(5); {{Cl|STICK}}(4, 2); {{Cl|STICK}}(5, 2);_  
   {{Cl|PRINT}} "JOY3: {{Cl|STICK}}"; {{Cl|STICK}}(4); {{Cl|STICK}}(5); {{Cl|STICK}}(4, 2); {{Cl|STICK}}(5, 2);_
   "STRIG"; {{Cl|STRIG}}(0, 3); {{Cl|STRIG}}(1, 3); {{Cl|STRIG}}(4, 3); {{Cl|STRIG}}(5, 3); {{Cl|STRIG}}(8, 3); {{Cl|STRIG}}(9, 3)
   "STRIG"; {{Cl|STRIG}}(0, 3); {{Cl|STRIG}}(1, 3); {{Cl|STRIG}}(4, 3); {{Cl|STRIG}}(5, 3); {{Cl|STRIG}}(8, 3); {{Cl|STRIG}}(9, 3)
   
 
{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} > "" '' ''
{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} > ""
{{CodeEnd}}
{{CodeEnd}}
:''Explanation:'' Notice the extra '''QB64 only''' parameters used to cater for the 2nd stick and the buttons of the 3rd joystick.
:''Explanation:'' Notice the extra '''QB64 only''' parameters used to cater for the 2nd stick and the buttons of the 3rd joystick.




''See also:''  
''See also:''
* [[STRIG(n)]] {{text|(statement)}}
* [[STRIG(n)]] {{text|(statement)}}
* [[ON STRIG(n)]], [[STICK]]
* [[ON STRIG(n)]], [[STICK]]

Revision as of 02:47, 23 January 2023

The STRIG function returns button press True or False status of game port (&H201) or USB joystick control device(s).


Syntax

IF STRIG(button_function%) THEN ...


QB64

Syntax

IF STRIG(button_function%[, device_number%]) THEN ...


Description:

  • Function returns -1 when a button event(even functions) has occurred or a button is pressed(odd functions).
  • STRIG will not read keyboard or mouse buttons detected by _DEVICES.
  • The device number must be used with more than 2 devices. Use device 1 function numbers for just one joystick.
  • QB64 can read many buttons from many devices and allows the use of devices with more than 2 buttons.
  • Returns True(-1) or False(0) button press values for 2 devices. Each leading STRIG checks for missed button press events:

Template:WhiteStart STRIG(0) = -1 'lower button 1 on device 1 pressed since last STRIG(0) read 

 STRIG(1) = -1  'lower button 1 on device 1 currently pressed
 STRIG(2) = -1  'lower button 1 on device 2 pressed since last STRIG(2) read
 STRIG(3) = -1  'lower button 1 on device 2 currently pressed
 STRIG(4) = -1  'upper button 2 on device 1 pressed since last STRIG(4) read
 STRIG(5) = -1  'upper button 2 on device 1 currently pressed
 STRIG(6) = -1  'upper button 2 on device 2 pressed since last STRIG(6) read
 STRIG(7) = -1  'upper button 2 on device 2 currently pressed (maximum in QBasic)
 STRIG(8) = -1  'button 3 on device 1 pressed since last STRIG(8) read  'QB64 only
 STRIG(9) = -1  'button 3 on device 1 currently pressed
 STRIG(10) = -1 'button 3 on device 2 pressed since last STRIG(10) read 'QB64 only
 STRIG(11) = -1 'button 3 on device 2 currently pressed

Template:WhiteEnd

  • STRIG(0), STRIG(2), STRIG(4), STRIG(6), STRIG(8), STRIG(10) are used to monitor any presses that might have been missed.
  • QB64 allows more than two controllers by using the second parameter as the stick number and the odd or even STRIG values:

Template:WhiteStartSTRIG(0, 3): STRIG(1, 3): STRIG(4, 3): STRIG(5, 3): STRIG(8, 3): STRIG(9, 3) 'device 3 {odd) STRIG(2, 4): STRIG(3, 4): STRIG(6, 4): STRIG(7, 4): STRIG(10, 4): STRIG(11, 4) 'device 4 (even) Template:WhiteEnd

Odd devices use 0, 1, 4, 5, 8 and 9 and Even devices use 2, 3, 6, 7, 10 and 11 as first parameters with device number following.
  • There will not be an error if you try to read too many device axis or buttons!


Example: Displays the input from 3 joysticks, all with dual sticks and 3 buttons. 

DO: _LIMIT 10

  LOCATE 1, 1
  PRINT "JOY1: STICK"; STICK(0); STICK(1); STICK(0, 2); STICK(1, 2);_
  "STRIG"; STRIG(0); STRIG(1); STRIG(4); STRIG(5); STRIG(8); STRIG(9)

  PRINT "JOY2: STICK"; STICK(2); STICK(3); STICK(2, 2); STICK(3, 2);_
  "STRIG"; STRIG(2); STRIG(3); STRIG(6); STRIG(7); STRIG(10); STRIG(11)

  PRINT "JOY3: STICK"; STICK(4); STICK(5); STICK(4, 2); STICK(5, 2);_
  "STRIG"; STRIG(0, 3); STRIG(1, 3); STRIG(4, 3); STRIG(5, 3); STRIG(8, 3); STRIG(9, 3)

LOOP UNTIL INKEY$ > ""
Explanation: Notice the extra QB64 only parameters used to cater for the 2nd stick and the buttons of the 3rd joystick.


See also:


Navigation:
Main Page with Articles and Tutorials
Keyword Reference - Alphabetical
Keyword Reference - By usage
Report a broken link
Retrieved from "https://qb64phoenix.com/qb64wiki/index.php?title=STRIG&oldid=6273"