Keyboard scancodes: Difference between revisions

From QB64 Phoenix Edition Wiki
Jump to navigation Jump to search
m (Protected "Keyboard scancodes" ([Edit=Allow only autoconfirmed users] (indefinite) [Move=Allow only autoconfirmed users] (indefinite)))
No edit summary
 
(13 intermediate revisions by the same user not shown)
Line 3: Line 3:




==INKEY$ Codes==
== INKEY$ Codes ==
* [[INKEY$]] returns a [[STRING]] [[ASCII]] character or a function key two byte string. [[ASC]] converts to code. Use: '''{{text|key$ <nowiki>=</nowiki> INKEY$|green}}'''
* [[INKEY$]] returns a [[STRING]] [[ASCII]] character or a function key two byte string. [[ASC (function)|ASC]] converts to code. Use: '''{{Text|key$ <nowiki>=</nowiki> INKEY$|green}}'''
* Key presses are read consecutively from the keyboard buffer which will retain a [[SLEEP]] key press.
* Key presses are read consecutively from the keyboard buffer which will retain a [[SLEEP]] key press.


{{WhiteStart}}'                                '''ASCII Keyboard Codes'''
{{FixedStart}}'                                '''ASCII Keyboard Codes'''
'
'
'''' Esc  F1  F2  F3  F4  F5  F6  F7  F8  F9  F10  F11  F12  Sys ScL Pause'''                
' ''' Esc  F1  F2  F3  F4  F5  F6  F7  F8  F9  F10  F11  F12  Sys ScL Pause'''
' 27 +59 +60 +61 +62 +63 +64 +65 +66 +67 +68  +133 +134  -  -    -
'   27 +59 +60 +61 +62 +63 +64 +65 +66 +67 +68  +133 +134  -  -    -
'''' `~  1!  2@  3#  4$  5%  6^  7&  8*  9(  0) -_ =+ BkSp  Ins Hme PUp  NumL  /  *    -'''  
' ''' `~  1!  2@  3#  4$  5%  6^  7&  8*  9(  0) -_ =+ BkSp  Ins Hme PUp  NumL  /  *    -'''
' 126 33  64  35  36  37  94  38  42  40  41 95 43  8    +82 +71 +73    -    47  42  45
' 126 33  64  35  36  37  94  38  42  40  41 95 43  8    +82 +71 +73    -    47  42  45
'''  96 49  50  51  52  53  54  55  56  57  48 45 61''
' ''  96 49  50  51  52  53  54  55  56  57  48 45 61''
'''' Tab Q  W  E  R  T  Y  U  I  O  P  [{  ]}  \|  Del End PDn  7Hme 8/▲  9PU  + '''
' ''' Tab Q  W  E  R  T  Y  U  I  O  P  [{  ]}  \|  Del End PDn  7Hme 8/▲  9PU  + '''
' 9  81  87  69  82  84  89  85  73  79  80 123 125 124  +83 +79 +81  +71  +72  +73  43
'   9  81  87  69  82  84  89  85  73  79  80 123 125 124  +83 +79 +81  +71  +72  +73  43
'''    113 119 101 114 116 121 117 105 111 112  91  93  92                55  56  57 ''
' ''    113 119 101 114 116 121 117 105 111 112  91  93  92                55  56  57 ''
'''' CapL  A  S  D  F  G  H  J  K  L  ;:  '" Enter                4/◄-  5  6/-►
' ''' CapL  A  S  D  F  G  H  J  K  L  ;:  '" Enter                4/◄-  5  6/-►
'   -  65  83  68  70  71  72  74  75  76  58  34  13                  +75  +76  +77  '''E'''
'   -  65  83  68  70  71  72  74  75  76  58  34  13                  +75  +76  +77  '''E'''
'''      97 115 100 102 103 104 106 107 108  59  39                      52  53  54 '' '''n'''                                  
' ''      97 115 100 102 103 104 106 107 108  59  39                      52  53  54 '' '''n'''
'''' Shift  Z  X  C  V  B  N  M  ,<  .>  /?    Shift      ▲        1End 2/▼  3PD  t'''
' ''' Shift  Z  X  C  V  B  N  M  ,<  .>  /?    Shift      ▲        1End 2/▼  3PD  t'''
'   *    90  88  67  86  66  78  77  60  62  63      *        +72      +79  +80  +81  '''e'''
'   *    90  88  67  86  66  78  77  60  62  63      *        +72      +79  +80  +81  '''e'''
'''      122 120  99 118  98 110 109  44  46  47                          49  50  51 '' '''r'''
' ''      122 120  99 118  98 110 109  44  46  47                          49  50  51 '' '''r'''
'''' Ctrl Win Alt      Spacebar          Alt Win Menu Ctrl  ◄-  ▼  -►  0Ins    .Del '''
' ''' Ctrl Win Alt      Spacebar          Alt Win Menu Ctrl  ◄-  ▼  -►  0Ins    .Del '''
' *    -  *          32              *  -  -    *    +75 +80 +77  +82      +83  13  
'   *    -  *          32              *  -  -    *    +75 +80 +77  +82      +83  13
'                                                                   ''    48        46''
'                                                                   ''    48        46''
'
'
' '''    ''Italics'' = LCase/NumLock On  [[INKEY$#Two_Byte_Combinations|* = 2 byte combo only]],  + = 2 Byte: CHR$(0) + CHR$(code)'''
' '''    ''Italics'' = LCase/NumLock On  [[INKEY$#Two_Byte_Combinations|* = 2 byte combo only]],  + = 2 Byte: CHR$(0) + CHR$(code)'''
'
'
{{WhiteEnd}}
{{FixedEnd}}


<center>GO TO: [[Keyboard_scancodes#INP_Scan_Codes|Scan Codes]],  
<center>GO TO: [[Keyboard scancodes#INP_Scan_Codes|Scan Codes]],
[[Keyboard_scancodes#ON_KEY_Events|ON KEY]],  [[Keyboard_scancodes#KEYHIT_and_KEYDOWN_Codes|_KEYHIT]], [[Keyboard_scancodes#DEVICES_Button|_DEVICES]], [[Keyboard_scancodes#Windows_Virtual_Codes|Windows Virtual]]</center>
[[Keyboard scancodes#ON_KEY_Events|ON KEY]],  [[Keyboard scancodes#KEYHIT_and_KEYDOWN_Codes|_KEYHIT]], [[Keyboard scancodes#DEVICES_Button|_DEVICES]], [[Keyboard scancodes#Windows_Virtual_Codes|Windows Virtual]]</center>


==INP and _CINP Scan Codes==
 
== INP and _CINP Scan Codes ==
* [[_CINP]] can be used in [[$CONSOLE]] Windows to read individual key presses.
* [[_CINP]] can be used in [[$CONSOLE]] Windows to read individual key presses.
* [[INP]]([[&H]]60) returns multiple [[INTEGER]] press and release codes as keys are used. Use: '''{{text|code% <nowiki>=</nowiki> INP(96)|green}}'''
* [[INP]]([[&H]]60) returns multiple [[INTEGER]] press and release codes as keys are used. Use: '''{{Text|code% <nowiki>=</nowiki> INP(96)|green}}'''
* To clear the keyboard buffer, use the [[INKEY$]] function before or after the [[INP]] read to avoid buffer overflows and beeps.        
* To clear the keyboard buffer, use the [[INKEY$]] function before or after the [[INP]] read to avoid buffer overflows and beeps.
* Keys are assigned only one code irregardless of case or Lock mode with release codes being the press  code + 128.
* Keys are assigned only one code irregardless of case or Lock mode with release codes being the press  code + 128.


{{WhiteStart}}'                            '''Extended Keyboard Press Scancodes'''
{{FixedStart}}'                            '''Extended Keyboard Press Scancodes'''
'
'
'''' Esc  F1 F2 F3 F4 F5 F6 F7 F8 F9 F10  F11 F12  SysReq ScrL Pause'''                
' '''Esc  F1 F2 F3 F4 F5 F6 F7 F8 F9 F10  F11 F12  SysReq ScrL Pause'''
'   1  59 60 61 62 63 64 65 66 67 68  87  88    0    70    29
' 1  59 60 61 62 63 64 65 66 67 68  87  88    0    70    29
' '''`~  1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ BkSpc  Insert Home PgUp  NumL  /    *    -'''  
' '''`~  1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ BkSpc  Insert Home PgUp  NumL  /    *    -'''
'   41 2  3  4  5  6  7  8  9  10 11 12 13  14    82    71    73    69    53    55  74
' 41 2  3  4  5  6  7  8  9  10 11 12 13  14    82    71    73    69    53    55  74
' '''Tab  Q  W  E  R  T  Y  U  I  O  P  [{ ]} \|    Delete End  PgDn  7/Home 8/▲  9/PU  + '''
' '''Tab  Q  W  E  R  T  Y  U  I  O  P  [{ ]} \|    Delete End  PgDn  7/Home 8/▲  9/PU  + '''
'   15  16 17 18 19 20 21 22 23 24 25 26 27 43    83    79    81    71    72    73  78
' 15  16 17 18 19 20 21 22 23 24 25 26 27 43    83    79    81    71    72    73  78
' '''CapL  A  S  D  F  G  H  J  K  L  ;: '"  Enter                    4/◄-  5    6/-►  E'''
' '''CapL  A  S  D  F  G  H  J  K  L  ;: '"  Enter                    4/◄-  5    6/-►  E'''
'   58  30 31 32 33 34 35 36 37 38 39 40  28                        75    76    77  '''n'''
' 58  30 31 32 33 34 35 36 37 38 39 40  28                        75    76    77  '''n'''
' '''Shift  Z  X  C  V  B  N  M  ,< .> /?    Shift        ▲          1/End  2/▼  3/PD  t'''
' '''Shift  Z  X  C  V  B  N  M  ,< .> /?    Shift        ▲          1/End  2/▼  3/PD  t'''
'   42    44 45 46 47 48 49 50 51 52 53    54          72          79    80    81  '''e'''
' 42    44 45 46 47 48 49 50 51 52 53    54          72          79    80    81  '''e'''
' '''Ctrl Win Alt    Spacebar    Alt Win Menu Ctrl    ◄-  ▼  -►      0/Insert    ./Del r'''
' '''Ctrl Win Alt    Spacebar    Alt Win Menu Ctrl    ◄-  ▼  -►      0/Insert    ./Del r'''
'   29  {{text|91|purple}}  56        57      56  {{text|92  93|purple}}  29      75  80  77      82          83  28  
' 29  {{Text|91|purple}}  56        57      56  {{Text|92  93|purple}}  29      75  80  77      82          83  28
'
'
'   {{text|QB64 codes only!|purple}} '''Release codes = Press code + 128. Pause/Break may lock code returns.'''
' {{Text|QB64 codes only!|purple}} '''Release codes = Press code + 128. Pause/Break may lock code returns.'''
'
'
{{WhiteEnd}}
{{FixedEnd}}


<center>[http://www.quadibloc.com/comp/scan.htm Keyboard Scan Codes]........... [http://www.win.tue.nl/~aeb/linux/kbd/scancodes.html Other Keyboards]</center>
<center>[http://www.quadibloc.com/comp/scan.htm Keyboard Scan Codes]........... [http://www.win.tue.nl/~aeb/linux/kbd/scancodes.html Other Keyboards]</center>




<center>GO TO:[[Keyboard_scancodes#INKEY.24_Codes|INKEY$]], [[Keyboard_scancodes#ON_KEY_Events|ON KEY]], [[Keyboard_scancodes#KEYHIT_and_KEYDOWN_Codes|_KEYHIT]], [[Keyboard_scancodes#DEVICES_Button|_DEVICES]], [[Keyboard_scancodes#Windows_Virtual_Codes|Windows Virtual]]</center>
<center>GO TO:[[Keyboard scancodes#INKEY$_Codes|INKEY$]], [[Keyboard scancodes#ON_KEY_Events|ON KEY]], [[Keyboard scancodes#KEYHIT_and_KEYDOWN_Codes|_KEYHIT]], [[Keyboard scancodes#DEVICES_Button|_DEVICES]], [[Keyboard scancodes#Windows_Virtual_Codes|Windows Virtual]]</center>
 


==ON KEY Events==
== ON KEY Events ==


* Assign user defined Soft Key or key combination numbers 15 to 29 with: '''{{text|[[KEY n]]umber, CHR$({{text|keyflag|purple}}) + CHR$(scancode)|green}}'''
* Assign user defined Soft Key or key combination numbers 15 to 29 with: '''{{Text|[[KEY n]]umber, CHR$({{Text|keyflag|purple}}) + CHR$(scancode)|green}}'''
* Combo Key flags: {{text|<nowiki>0 = none, LShift = 1, RShift = 2, LCtrl = 4, LAlt = 8, NumLock = 32, CapsLock = 64</nowiki>|purple}}, {{text|Extended keys <nowiki>=</nowiki> 128|blue}}
* Combo Key flags: {{Text|<nowiki>0 = none, LShift = 1, RShift = 2, LCtrl = 4, LAlt = 8, NumLock = 32, CapsLock = 64</nowiki>|purple}}, {{Text|Extended keys <nowiki>=</nowiki> 128|blue}}
* {{text|Red|red}} KEY numbers {{text|1 to 14, 30 or 31|red}} assign predefined one key events using: '''[[ON KEY(n)|ON KEY]]({{text|number|red}}) [[GOSUB]] {{text|subname|green}}'''
* {{Text|Red|red}} KEY numbers {{Text|1 to 14, 30 or 31|red}} assign predefined one key events using: '''[[ON KEY(n)|ON KEY]]({{Text|number|red}}) [[GOSUB]] {{Text|subname|green}}'''


{{WhiteStart}}'                          '''Soft Key Scan Code Values'''
{{FixedStart}}'                          '''Soft Key Scan Code Values'''
'
'
'       {{text|1  2  3  4  5  6  7  8  9  10  30  31                      Predefined Keys|red}}
'     {{Text|1  2  3  4  5  6  7  8  9  10  30  31                      Predefined Keys|red}}
'''' Esc  F1 F2 F3 F4 F5 F6 F7 F8 F9 F10  F11 F12  SysReq ScrL Pause'''                
' '''Esc  F1 F2 F3 F4 F5 F6 F7 F8 F9 F10  F11 F12  SysReq ScrL Pause'''
'   1  59 60 61 62 63 64 65 66 67 68  87  88    --    70    29          
' 1  59 60 61 62 63 64 65 66 67 68  87  88    --    70    29
' '''`~  1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ BkSpc  Insert Home PgUp  NumL  /    *    -'''  
' '''`~  1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ BkSpc  Insert Home PgUp  NumL  /    *    -'''
'   41 2  3  4  5  6  7  8  9  10 11 12 13  14    {{text|82    71    73|blue}}    {{text|32|purple}}/69  {{text|53|blue}}    55  74
' 41 2  3  4  5  6  7  8  9  10 11 12 13  14    {{Text|82    71    73|blue}}    {{Text|32|purple}}/69  {{Text|53|blue}}    55  74
' '''Tab  Q  W  E  R  T  Y  U  I  O  P  [{ ]} \|    Delete End  PgDn  7/Home 8/▲  9/PU  + '''
' '''Tab  Q  W  E  R  T  Y  U  I  O  P  [{ ]} \|    Delete End  PgDn  7/Home 8/▲  9/PU  + '''
'   15  16 17 18 19 20 21 22 23 24 25 26 27 43    {{text|83    79    81|blue}}    71  {{text|11|red}}/72  73  78
' 15  16 17 18 19 20 21 22 23 24 25 26 27 43    {{Text|83    79    81|blue}}    71  {{Text|11|red}}/72  73  78
' '''CapL  A  S  D  F  G  H  J  K  L  ;: '"  Enter                    4/◄-  5    6/-►  E'''
' '''CapL  A  S  D  F  G  H  J  K  L  ;: '"  Enter                    4/◄-  5    6/-►  E'''
' {{text|64|purple}}/58 30 31 32 33 34 35 36 37 38 39 40  28                      {{text|12|red}}/75  76  {{text|13|red}}/77 '''n'''
' {{Text|64|purple}}/58 30 31 32 33 34 35 36 37 38 39 40  28                      {{Text|12|red}}/75  76  {{Text|13|red}}/77 '''n'''
' '''Shift  Z  X  C  V  B  N  M  ,< .> /?    Shift        ▲          1/End  2/▼  3/PD  t'''
' '''Shift  Z  X  C  V  B  N  M  ,< .> /?    Shift        ▲          1/End  2/▼  3/PD  t'''
' {{text|1|purple}}/42  44 45 46 47 48 49 50 51 52 53    {{text|2|purple}}/54          {{text|72|blue}}          79  {{text|14|red}}/80  81  '''e'''
' {{Text|1|purple}}/42  44 45 46 47 48 49 50 51 52 53    {{Text|2|purple}}/54          {{Text|72|blue}}          79  {{Text|14|red}}/80  81  '''e'''
' '''Ctrl Win Alt    Spacebar    Alt Win Menu Ctrl    ◄-  ▼  -►      0/Insert    ./Del r'''
' '''Ctrl Win Alt    Spacebar    Alt Win Menu Ctrl    ◄-  ▼  -►      0/Insert    ./Del r'''
' {{text|4|purple}}/29  {{text|91|orange}} {{text|8|purple}}/56      57      {{text|56|blue}}  {{text|92  93|orange}}  {{text|29      75  80  77|blue}}      82          83  {{text|28|blue}}  
' {{Text|4|purple}}/29  {{Text|91|orange}} {{Text|8|purple}}/56      57      {{Text|56|blue}}  {{Text|92  93|orange}}  {{Text|29      75  80  77|blue}}      82          83  {{Text|28|blue}}
'
'
'   '''Keyflag:''' {{text|Function(0, 1, 2, 4, 8, 32, 64)|purple}}, {{text|Extended(128)|blue}} '''Scan Code: '''1-88, {{text|QB64 only(91-93)|orange}}
' '''Keyflag:''' {{Text|Function(0, 1, 2, 4, 8, 32, 64)|purple}}, {{Text|Extended(128)|blue}} '''Scan Code: '''1-88, {{Text|QB64 only(91-93)|orange}}
'
'
'        Reserved and function key combinations can be made using the scan code instead.
'        Reserved and function key combinations can be made using the scan code instead.
'            Add function and/or extended flag values for more key combinations.
'            Add function and/or extended flag values for more key combinations.
{{WhiteEnd}}
{{FixedEnd}}
 
<center>GO TO:[[Keyboard scancodes#INKEY$_Codes|INKEY$]], [[Keyboard scancodes#INP_Scan_Codes|Scan Codes]], [[Keyboard scancodes#KEYHIT_and_KEYDOWN_Codes|_KEYHIT]], [[Keyboard scancodes#DEVICES_Button|_DEVICES]], [[Keyboard scancodes#Windows_Virtual_Codes|Windows Virtual]]</center>


<center>GO TO:[[Keyboard_scancodes#INKEY.24_Codes|INKEY$]], [[Keyboard_scancodes#INP_Scan_Codes|Scan Codes]], [[Keyboard_scancodes#KEYHIT_and_KEYDOWN_Codes|_KEYHIT]], [[Keyboard_scancodes#DEVICES_Button|_DEVICES]], [[Keyboard_scancodes#Windows_Virtual_Codes|Windows Virtual]]</center>


==KEYHIT and KEYDOWN Codes==
== KEYHIT and KEYDOWN Codes ==
* [[_KEYHIT]] returns multiple [[LONG]] press and negative release codes as keys are used. Use: '''{{text|code& <nowiki>=</nowiki> _KEYHIT|green}}'''
* [[_KEYHIT]] returns multiple [[LONG]] press and negative release codes as keys are used. Use: '''{{Text|code& <nowiki>=</nowiki> _KEYHIT|green}}'''
* [[_KEYDOWN]] returns -1 when a specified key code value is pressed or 0. Use: '''{{text|status% <nowiki>=</nowiki> _KEYDOWN(code&)|green}}'''
* [[_KEYDOWN]] returns -1 when a specified key code value is pressed or 0. Use: '''{{Text|status% <nowiki>=</nowiki> _KEYDOWN(code&)|green}}'''
* [[_KEYCLEAR]] clears the keyboard buffer memory instantly without a [[LOOP|loop]].
* [[_KEYCLEAR]] clears the keyboard buffer memory instantly without a [[LOOP|loop]].


{{WhiteStart}}'                            '''QB64 _KEYHIT and _KEYDOWN Values'''
{{FixedStart}}'                            '''QB64 _KEYHIT and _KEYDOWN Values'''
'
'
''''Esc  F1    F2    F3    F4    F5    F6    F7    F8    F9    F10  F11  F12  Sys  ScL Pause'''                
' '''Esc  F1    F2    F3    F4    F5    F6    F7    F8    F9    F10  F11  F12  Sys  ScL Pause'''
' 27 15104 15360 15616 15872 16128 16384 16640 16896 17152 17408 34048 34304 +316 +302 +019
' 27 15104 15360 15616 15872 16128 16384 16640 16896 17152 17408 34048 34304 +316 +302 +019
''''`~  1!  2@  3#  4$  5%  6^  7&  8*  9(  0) -_ =+ BkSp  Ins  Hme  PUp  NumL  /    *    -'''  
' '''`~  1!  2@  3#  4$  5%  6^  7&  8*  9(  0) -_ =+ BkSp  Ins  Hme  PUp  NumL  /    *    -'''
'126 33  64  35  36  37  94  38  42  40  41 95 43  8  20992 18176 18688 +300  47    42  45
' 126 33  64  35  36  37  94  38  42  40  41 95 43  8  20992 18176 18688 +300  47    42  45
''' 96 49  50  51  52  53  54  55  56  57  48 45 61''
' '' 96 49  50  51  52  53  54  55  56  57  48 45 61''
''''Tab Q  W  E  R  T  Y  U  I  O  P  [{  ]}  \|  Del  End  PDn  7Hme  8/▲  9PU  + '''
' '''Tab Q  W  E  R  T  Y  U  I  O  P  [{  ]}  \|  Del  End  PDn  7Hme  8/▲  9PU  + '''
' 9  81  87  69  82  84  89  85  73  79  80 123 125 124 21248 20224 20736 18176 18432 18688 43
' 9  81  87  69  82  84  89  85  73  79  80 123 125 124 21248 20224 20736 18176 18432 18688 43
'''  113 119 101 114 116 121 117 105 111 112  91  93  92                    55    56    57 ''
' ''  113 119 101 114 116 121 117 105 111 112  91  93  92                    55    56    57 ''
''''CapL  A  S  D  F  G  H  J  K  L  ;:  '" Enter                  4/◄-  5    6/-►
' '''CapL  A  S  D  F  G  H  J  K  L  ;:  '" Enter                  4/◄-  5    6/-►
'+301  65  83  68  70  71  72  74  75  76  58  34  13                    19200 19456 19712  '''E'''
' +301  65  83  68  70  71  72  74  75  76  58  34  13                    19200 19456 19712  '''E'''
'''      97 115 100 102 103 104 106 107 108  59  39                        52    53    54 ''  '''n'''                                  
' ''      97 115 100 102 103 104 106 107 108  59  39                        52    53    54 ''  '''n'''
''''Shift  Z  X  C  V  B  N  M  ,<  .>  /?    Shift      ▲          1End  2/▼  3PD  t'''
' '''Shift  Z  X  C  V  B  N  M  ,<  .>  /?    Shift      ▲          1End  2/▼  3PD  t'''
'+304  90  88  67  86  66  78  77  60  62  63    +303      18432        20224 20480 20736  '''e'''
' +304  90  88  67  86  66  78  77  60  62  63    +303      18432        20224 20480 20736  '''e'''
'''      122 120  99 118  98 110 109  44  46  47                            49    50    51 ''  '''r'''
' ''      122 120  99 118  98 110 109  44  46  47                            49    50    51 ''  '''r'''
''''Ctrl  Win  Alt    Spacebar      Alt  Win  Menu  Ctrl  ◄-  ▼  -►      0Ins        .Del '''
' '''Ctrl  Win  Alt    Spacebar      Alt  Win  Menu  Ctrl  ◄-  ▼  -►      0Ins        .Del '''
'+306  +311 +308      32        +307 +312 +319  +305 19200 20480 19712  20992      21248 13  
' +306  +311 +308      32        +307 +312 +319  +305 19200 20480 19712  20992      21248 13
'                                                                     ''    48          46''
'                                                                     ''    48          46''
'     '''    Lower value = LCase/NumLock On __________________ + = add 100000 '''
'     '''    Lower value = LCase/NumLock On __________________ + = add 100000 '''
{{WhiteEnd}}
{{FixedEnd}}


<center>GO TO: [[Keyboard_scancodes#INKEY.24_Codes|INKEY$]], [[Keyboard_scancodes#INP_Scan_Codes|Scan Codes]], [[Keyboard_scancodes#ON_KEY_Events|ON KEY]], [[Keyboard_scancodes#DEVICES_Button|_DEVICES]], [[Keyboard_scancodes#Windows_Virtual_Codes|Windows Virtual]]</center>
<center>GO TO: [[Keyboard scancodes#INKEY$_Codes|INKEY$]], [[Keyboard scancodes#INP_Scan_Codes|Scan Codes]], [[Keyboard scancodes#ON_KEY_Events|ON KEY]], [[Keyboard scancodes#DEVICES_Button|_DEVICES]], [[Keyboard scancodes#Windows_Virtual_Codes|Windows Virtual]]</center>


: Most keys use [[ASCII]] key code values. Function key code values can be calculated using the [[INKEY$]], two byte values with [[CVI]].
: Most keys use [[ASCII]] key code values. Function key code values can be calculated using the [[INKEY$]], two byte values with [[CVI]].
<center>Example: '''{{text|status <nowiki>=</nowiki> _KEYDOWN(CVI(CHR$(0) + "P"))|green}}'''</center>
<center>Example: '''{{Text|status <nowiki>=</nowiki> _KEYDOWN(CVI(CHR$(0) + "P"))|green}}'''</center>


<center>[[INKEY$#Two_Byte_Combinations|For Ctrl, Alt, Shift Key Combinations see Two Byte Codes]]</center>
<center>[[INKEY$#Two_Byte_Combinations|For Ctrl, Alt, Shift Key Combinations see Two Byte Codes]]</center>


==[[DEVICES]] Button==
 
== [[DEVICES]] Button ==


* [[_LASTBUTTON]](1) keyboards will normally return 512 buttons. One button is read per loop through all numbers.
* [[_LASTBUTTON]](1) keyboards will normally return 512 buttons. One button is read per loop through all numbers.
Line 135: Line 139:




{{WhiteStart}}'                              '''Keyboard Device 1 Button Numbers'''
{{FixedStart}}'                              '''Keyboard Device 1 Button Numbers'''
'
'
'''' Esc F1  F2  F3  F4  F5  F6  F7  F8  F9  F10  F11 F12      SysReq ScrL Pause'''                
' '''Esc F1  F2  F3  F4  F5  F6  F7  F8  F9  F10  F11 F12      SysReq ScrL Pause'''
' 177 436 433 434 439 440 437 438 395 396 393  394 399      402  392  ---
' 177 436 433 434 439 440 437 438 395 396 393  394 399      402  392  ---
' '''`~  1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  -_  =+ BkSpc  Insert Home PgUp  NumL    /    *    -'''  
' '''`~  1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  -_  =+ BkSpc  Insert Home PgUp  NumL    /    *    -'''
' 246 155 156 153 154 159 160 157 158 147 134 135 151 174    447  448  446  386    417  418  423
' 246 155 156 153 154 159 160 157 158 147 134 135 151 174    447  448  446  386    417  418  423
' '''Tab  Q  W  E  R  T  Y  U  I  O  P  [{  ]}  \|  Delete End  PgDn  7/Home 8/▲  9/PU  + '''
' '''Tab  Q  W  E  R  T  Y  U  I  O  P  [{  ]}  \|  Delete End  PgDn  7/Home 8/▲  9/PU  + '''
' 163 219 221 207 220 218 211 223 195 197 198 241 247 242    213  445  435  429    430  419  424
' 163 219 221 207 220 218 211 223 195 197 198 241 247 242    213  445  435  429    430  419  424
' '''CapL  A  S  D  F  G  H  J  K  L  ;:  '"  Enter                    4/◄-    5  6/-►  E'''
' '''CapL  A  S  D  F  G  H  J  K  L  ;:  '"  Enter                    4/◄-    5  6/-►  E'''
' 391  203 217 202 208 205 206 196 193 194  145 141  167                      426    431  432  '''n'''
' 391  203 217 202 208 205 206 196 193 194  145 141  167                      426    431  432  '''n'''
' '''Shift  Z  X  C  V  B  N  M  ,<  .>  /?      Shift          ▲          1/End  2/▼  3/PD  t'''
' '''Shift  Z  X  C  V  B  N  M  ,<  .>  /?      Shift          ▲          1/End  2/▼  3/PD  t'''
' 390  212 222 201 224 204 200 199 130 136 133      389          443        427    428  432  '''e'''
' 390  212 222 201 224 204 200 199 130 136 133      389          443        427    428  432  '''e'''
' '''Ctrl Win  Alt    Spacebar    Alt  Win  Menu Ctrl            ◄-    ▼    -►    0/Insert    ./Del r'''
' '''Ctrl Win  Alt    Spacebar    Alt  Win  Menu Ctrl            ◄-    ▼    -►    0/Insert    ./Del r'''
' 412  413  410      182      409  414  405  411            442  444  441    86        420  421  
' 412  413  410      182      409  414  405  411            442  444  441    86        420  421
'
'
'                       '''Mouse Device 2 buttons: Left = 1, Middle = 2, Right = 3'''
'                       '''Mouse Device 2 buttons: Left = 1, Middle = 2, Right = 3'''
{{WhiteEnd}}
{{FixedEnd}}
 


<center>GO TO: [[Keyboard scancodes#INKEY$_Codes|INKEY$]], [[Keyboard scancodes#INP_Scan_Codes|Scan Codes]], [[Keyboard scancodes#ON_KEY_Events|ON KEY]], [[Keyboard scancodes#KEYHIT_and_KEYDOWN_Codes|_KEYHIT]],
[[Keyboard scancodes#Windows_Virtual_Codes|Windows Virtual]]</center>


<center>GO TO: [[Keyboard_scancodes#INKEY.24_Codes|INKEY$]], [[Keyboard_scancodes#INP_Scan_Codes|Scan Codes]], [[Keyboard_scancodes#ON_KEY_Events|ON KEY]], [[Keyboard_scancodes#KEYHIT_and_KEYDOWN_Codes|_KEYHIT]],
[[Keyboard_scancodes#Windows_Virtual_Codes|Windows Virtual]]</center>


==Windows Virtual Codes==
== Windows Virtual Codes ==


* Virtual key code status can be read '''independently of program focus in Windows'''. Not available in Linux or Mac systems.
* Virtual key code status can be read '''independently of program focus in Windows'''. Not available in Linux or macOS systems.
* Use: '''{{text|status <nowiki>=</nowiki> GetKeyState%(code%)|green}}''' or '''{{text|GetAsyncKeyState%(code&)|green}}''' or with '''{{text|keybd_event|green}}''' in [[Windows_Libraries#Hot_Keys_.28maximize.29|DECLARE LIBRARY]] "User32".
* Use: '''{{Text|status <nowiki>=</nowiki> GetKeyState%(code%)|green}}''' or '''{{Text|GetAsyncKeyState%(code&)|green}}''' or with '''{{Text|keybd_event|green}}''' in [[Windows Libraries#Hot_Keys_(maximize)|DECLARE LIBRARY]] "User32".




{{WhiteStart}}'                                  '''Virtual KeyState Codes'''
{{FixedStart}}'                                  '''Virtual KeyState Codes'''
'
'
'''' Esc  F1  F2  F3  F4  F5  F6  F7  F8  F9  F10  F11 F12  Sys ScL Pause'''                
' ''' Esc  F1  F2  F3  F4  F5  F6  F7  F8  F9  F10  F11 F12  Sys ScL Pause'''
' 27  112 113 114 115 116 117 118 119 120 121  122 123  44  145 19
' 27  112 113 114 115 116 117 118 119 120 121  122 123  44  145 19
'''' `~  1!  2@  3#  4$  5%  6^  7&  8* 9(  0) -_  =+  BkS  Ins Hme PUp  NumL  /  *    -'''  
' ''' `~  1!  2@  3#  4$  5%  6^  7&  8* 9(  0) -_  =+  BkS  Ins Hme PUp  NumL  /  *    -'''
' 192 49  50  51  52  53  54  55  56  57 48 189 187  8    45  36  33    144  111  106 109
' 192 49  50  51  52  53  54  55  56  57 48 189 187  8    45  36  33    144  111  106 109
'''' Tab Q  W  E  R  T  Y  U  I  O  P  [{  ]}  \|  Del End PDn  7Hme 8/▲  9PU  +'''
' ''' Tab Q  W  E  R  T  Y  U  I  O  P  [{  ]}  \|  Del End PDn  7Hme 8/▲  9PU  +'''
' 9  81  87  69  82  84  89  85  73  79  80 219 221 120  46  35  34    103  104  105 107
'   9  81  87  69  82  84  89  85  73  79  80 219 221 120  46  35  34    103  104  105 107
'''' CapL  A  S  D  F  G  H  J  K  L  ;:  '" Enter                4/◄-  5  6/-► E'''
' ''' CapL  A  S  D  F  G  H  J  K  L  ;:  '" Enter                4/◄-  5  6/-► E'''
' 20  65  83  68  70  71  72  74  75  76 186 222  13                  100  101  102  '''n'''                                                                                                                        
'   20  65  83  68  70  71  72  74  75  76 186 222  13                  100  101  102  '''n'''
'''' Shift  Z  X  C  V  B  N  M  ,<  .>  /?    Shift      ▲        1End 2/▼  3PD  t'''
' ''' Shift  Z  X  C  V  B  N  M  ,<  .>  /?    Shift      ▲        1End 2/▼  3PD  t'''
' 16/160 90  88  67  86  66  78  77 188  190 191  16/161      38      97  98  99  '''e'''                                                                                      
' 16/160 90  88  67  86  66  78  77 188  190 191  16/161      38      97  98  99  '''e'''
'''' Ctrl  Win  Alt      Spacebar      Alt Win Menu Ctrl  ◄-  ▼  -►  0Ins    .Del  r'''
' ''' Ctrl  Win  Alt      Spacebar      Alt Win Menu Ctrl  ◄-  ▼  -►  0Ins    .Del  r'''
' 17/162 91  18/164        32        18/165 92  93 17/163  37  40  39  96        110  13
' 17/162 91  18/164        32        18/165 92  93 17/163  37  40  39  96        110  13
'
'
'     Num Lock On values shown. Off values same as functions and arrows, 5 = code 12.
'     Num Lock On values shown. Off values same as functions and arrows, 5 = code 12.
'
'
'  '''Mouse click returns: LB = 1, RB = 2, MB = 4, etc. [http://msdn.microsoft.com/en-us/library/windows/desktop/dd375731(v=vs.85).aspx Special keys] may also work.'''
'  '''Mouse click returns: LB = 1, RB = 2, MB = 4, etc. [http://msdn.microsoft.com/en-us/library/windows/desktop/dd375731(v=vs.85).aspx Special keys] may also work.'''
{{WhiteEnd}}
{{FixedEnd}}
 


<center>GO TO: [[Keyboard scancodes#INKEY$_Codes|INKEY$]], [[Keyboard scancodes#INP_Scan_Codes|Scan Codes]], [[Keyboard scancodes#ON_KEY_Events|ON KEY]], [[Keyboard scancodes#KEYHIT_and_KEYDOWN_Codes|_KEYHIT]], [[Keyboard scancodes#DEVICES_Button|_DEVICES]], </center>


<center>GO TO: [[Keyboard_scancodes#INKEY.24_Codes|INKEY$]], [[Keyboard_scancodes#INP_Scan_Codes|Scan Codes]], [[Keyboard_scancodes#ON_KEY_Events|ON KEY]], [[Keyboard_scancodes#KEYHIT_and_KEYDOWN_Codes|_KEYHIT]], [[Keyboard_scancodes#DEVICES_Button|_DEVICES]], </center>


==Example Code==
{{PageExamples}}
''Example 1:'' An [[INP]] Function that retrieves multiple scancodes (allows 2 players and diagonal moves). Function includes it's own array.
''Example 1:'' An [[INP]] Function that retrieves multiple scancodes (allows 2 players and diagonal moves). Function includes it's own array.


{{CodeStart}} '' ''
{{CodeStart}}
{{Cl|CLS}}
{{Cl|CLS}}
x = 40: px = x
x = 40: px = x
Line 203: Line 209:
     {{Cl|LOCATE}} 2, 15: {{Cl|PRINT}} " UP "
     {{Cl|LOCATE}} 2, 15: {{Cl|PRINT}} " UP "
     {{Cl|IF...THEN|IF}} y > 1 {{Cl|THEN}} y = y - 1
     {{Cl|IF...THEN|IF}} y > 1 {{Cl|THEN}} y = y - 1
   {{Cl|ELSE}} {{Cl|LOCATE}} 2, 15: {{Cl|PRINT}} "----"  
   {{Cl|ELSE}} {{Cl|LOCATE}} 2, 15: {{Cl|PRINT}} "----"
   {{Cl|END IF}}
   {{Cl|END IF}}
   {{Cl|IF...THEN|IF}} ScanKey%(31) {{Cl|THEN}} 'S key
   {{Cl|IF...THEN|IF}} ScanKey%(31) {{Cl|THEN}} 'S key
     {{Cl|LOCATE}} 6, 15: {{Cl|PRINT}} "DOWN"
     {{Cl|LOCATE}} 6, 15: {{Cl|PRINT}} "DOWN"
     {{Cl|IF...THEN|IF}} y < 25 {{Cl|THEN}} y = y + 1
     {{Cl|IF...THEN|IF}} y < 25 {{Cl|THEN}} y = y + 1
   {{Cl|ELSE}} {{Cl|LOCATE}} 6, 15: {{Cl|PRINT}} "----"  
   {{Cl|ELSE}} {{Cl|LOCATE}} 6, 15: {{Cl|PRINT}} "----"
   {{Cl|END IF}}
   {{Cl|END IF}}
   {{Cl|IF...THEN|IF}} ScanKey%(30) {{Cl|THEN}} 'A key
   {{Cl|IF...THEN|IF}} ScanKey%(30) {{Cl|THEN}} 'A key
     {{Cl|LOCATE}} 4, 12: {{Cl|PRINT}} "LEFT"
     {{Cl|LOCATE}} 4, 12: {{Cl|PRINT}} "LEFT"
     {{Cl|IF...THEN|IF}} x > 1 {{Cl|THEN}} x = x - 1
     {{Cl|IF...THEN|IF}} x > 1 {{Cl|THEN}} x = x - 1
   {{Cl|ELSE}} {{Cl|LOCATE}} 4, 12: {{Cl|PRINT}} "----"  
   {{Cl|ELSE}} {{Cl|LOCATE}} 4, 12: {{Cl|PRINT}} "----"
   {{Cl|END IF}}
   {{Cl|END IF}}
   {{Cl|IF...THEN|IF}} ScanKey%(32) {{Cl|THEN}} 'D key
   {{Cl|IF...THEN|IF}} ScanKey%(32) {{Cl|THEN}} 'D key
     {{Cl|LOCATE}} 4, 18: {{Cl|PRINT}} "RIGHT"
     {{Cl|LOCATE}} 4, 18: {{Cl|PRINT}} "RIGHT"
     {{Cl|IF...THEN|IF}} x < 80 {{Cl|THEN}} x = x + 1
     {{Cl|IF...THEN|IF}} x < 80 {{Cl|THEN}} x = x + 1
   {{Cl|ELSE}} {{Cl|LOCATE}} 4, 18: {{Cl|PRINT}} "---- "  
   {{Cl|ELSE}} {{Cl|LOCATE}} 4, 18: {{Cl|PRINT}} "---- "
   {{Cl|END IF}}
   {{Cl|END IF}}
   {{Cl|IF...THEN|IF}} ScanKey%(72) {{Cl|THEN}} 'up arrow
   {{Cl|IF...THEN|IF}} ScanKey%(72) {{Cl|THEN}} 'up arrow
     {{Cl|LOCATE}} 2, 55: {{Cl|PRINT}} " UP "  
     {{Cl|LOCATE}} 2, 55: {{Cl|PRINT}} " UP "
     {{Cl|IF...THEN|IF}} yy > 1 {{Cl|THEN}} yy = yy - 1
     {{Cl|IF...THEN|IF}} yy > 1 {{Cl|THEN}} yy = yy - 1
   {{Cl|ELSE}} {{Cl|LOCATE}} 2, 55: {{Cl|PRINT}} "----"  
   {{Cl|ELSE}} {{Cl|LOCATE}} 2, 55: {{Cl|PRINT}} "----"
   {{Cl|END IF}}
   {{Cl|END IF}}
   {{Cl|IF...THEN|IF}} ScanKey%(80) {{Cl|THEN}} 'down arrow
   {{Cl|IF...THEN|IF}} ScanKey%(80) {{Cl|THEN}} 'down arrow
     {{Cl|LOCATE}} 6, 55: {{Cl|PRINT}} "DOWN"
     {{Cl|LOCATE}} 6, 55: {{Cl|PRINT}} "DOWN"
     {{Cl|IF...THEN|IF}} yy < 25 {{Cl|THEN}} yy = yy + 1
     {{Cl|IF...THEN|IF}} yy < 25 {{Cl|THEN}} yy = yy + 1
   {{Cl|ELSE}} {{Cl|LOCATE}} 6, 55: {{Cl|PRINT}} "----"  
   {{Cl|ELSE}} {{Cl|LOCATE}} 6, 55: {{Cl|PRINT}} "----"
   {{Cl|END IF}}
   {{Cl|END IF}}
   {{Cl|IF...THEN|IF}} ScanKey%(75) {{Cl|THEN}} 'left arrow
   {{Cl|IF...THEN|IF}} ScanKey%(75) {{Cl|THEN}} 'left arrow
     {{Cl|LOCATE}} 4, 52: {{Cl|PRINT}} "LEFT"  
     {{Cl|LOCATE}} 4, 52: {{Cl|PRINT}} "LEFT"
     {{Cl|IF...THEN|IF}} xx > 1 {{Cl|THEN}} xx = xx - 1
     {{Cl|IF...THEN|IF}} xx > 1 {{Cl|THEN}} xx = xx - 1
   {{Cl|ELSE}} {{Cl|LOCATE}} 4, 52: {{Cl|PRINT}} "----"  
   {{Cl|ELSE}} {{Cl|LOCATE}} 4, 52: {{Cl|PRINT}} "----"
   {{Cl|END IF}}
   {{Cl|END IF}}
   {{Cl|IF...THEN|IF}} ScanKey%(77) {{Cl|THEN}} 'right arrow
   {{Cl|IF...THEN|IF}} ScanKey%(77) {{Cl|THEN}} 'right arrow
     {{Cl|LOCATE}} 4, 58: {{Cl|PRINT}} "RIGHT"  
     {{Cl|LOCATE}} 4, 58: {{Cl|PRINT}} "RIGHT"
     {{Cl|IF...THEN|IF}} xx < 80 {{Cl|THEN}} xx = xx + 1
     {{Cl|IF...THEN|IF}} xx < 80 {{Cl|THEN}} xx = xx + 1
   {{Cl|ELSE}} {{Cl|LOCATE}} 4, 58: {{Cl|PRINT}} "---- "  
   {{Cl|ELSE}} {{Cl|LOCATE}} 4, 58: {{Cl|PRINT}} "---- "
   {{Cl|END IF}}
   {{Cl|END IF}}
   {{Cl|LOCATE}} py, px: {{Cl|PRINT}} {{Cl|SPACE$}}(1);  'erase sprite at previous position
   {{Cl|LOCATE}} py, px: {{Cl|PRINT}} {{Cl|SPACE$}}(1);  'erase sprite at previous position
Line 261: Line 267:


{{Cl|SUB}} Delay (dlay!) 'optional QBasic delay
{{Cl|SUB}} Delay (dlay!) 'optional QBasic delay
start! = {{Cl|TIMER}}
start! = {{Cl|TIMER (function)|TIMER}}
{{Cl|DO...LOOP|DO}} {{Cl|WHILE}} start! + dlay! >= {{Cl|TIMER}}
{{Cl|DO...LOOP|DO}} {{Cl|WHILE}} start! + dlay! >= {{Cl|TIMER (function)|TIMER}}
   {{Cl|IF...THEN|IF}} start! > {{Cl|TIMER}} {{Cl|THEN}} start! = start! - 86400
   {{Cl|IF...THEN|IF}} start! > {{Cl|TIMER (function)|TIMER}} {{Cl|THEN}} start! = start! - 86400
{{Cl|LOOP}}
{{Cl|LOOP}}
{{Cl|END SUB}} '' ''
{{Cl|END SUB}}
{{CodeEnd}}
{{CodeEnd}}
{{OutputStart}}    
{{OutputStart}}
                 UP                                      UP
                 UP                                      UP


             ----  RIGHT                            LEFT  ----
             ----  RIGHT                            LEFT  ----


               ----                                    ----  
               ----                                    ----


             W A S D                                ARROW PAD
             W A S D                                ARROW PAD
Line 280: Line 286:




                                       {{text|☺|#00FF00}}
                                       {{Text|☺|#00FF00}}
                                       {{text|☻|#FF0000}}  
                                       {{Text|☻|#FF0000}}
{{OutputEnd}}
{{OutputEnd}}
{{small|Adapted from Code by Cyperium.}}
{{Small|Adapted from Code by Cyperium.}}
:''Explanation:'' Displays multiple arrow key presses to move a game character diagonally or allows 2 players to press keys at once. Each keypress is placed into a [[STATIC]] array inside of the ScanKey function. When a key is pressed, the corresponding code index in the array is changed to -1 or True. When a key is released, the scancode returned is over 128 so AND 128 becomes True and the XOR 128 index value is changed to 0. XOR causes 128 to be subtracted from the release code index value which is then changed to 0 (False) from -1. As the main program loop reads the array each of the IF statements look to see if that code is -1. When a statement is True, it prints the appropriate key(s). The example moves two [[ASCII]] sprites. '''Note:''' [[INKEY$]] can be removed from the function if it is used elsewhere to help clear the key buffer.  
:''Explanation:'' Displays multiple arrow key presses to move a game character diagonally or allows 2 players to press keys at once. Each keypress is placed into a [[STATIC]] array inside of the ScanKey function. When a key is pressed, the corresponding code index in the array is changed to -1 or True. When a key is released, the scancode returned is over 128 so AND 128 becomes True and the XOR 128 index value is changed to 0. XOR causes 128 to be subtracted from the release code index value which is then changed to 0 (False) from -1. As the main program loop reads the array each of the IF statements look to see if that code is -1. When a statement is True, it prints the appropriate key(s). The example moves two [[ASCII]] sprites. '''Note:''' [[INKEY$]] can be removed from the function if it is used elsewhere to help clear the key buffer.


<center>'''The Scankey Function array can be cleared by sending 0 as the ''scancode%'' or press the ''Print Scrn/SysReq'' key.'''</center>
<center>'''The Scankey Function array can be cleared by sending 0 as the ''scancode%'' or press the ''Print Scrn/SysReq'' key.'''</center>
Line 290: Line 296:


''Example 2:'' How to get Control, Alt and shift key entries from a user using [[PEEK]] in QB64 or QBasic:
''Example 2:'' How to get Control, Alt and shift key entries from a user using [[PEEK]] in QB64 or QBasic:
{{CodeStart}} '' ''
{{CodeStart}}
DO
DO
     {{Cl|_LIMIT}} 50
     {{Cl|_LIMIT}} 50
Line 304: Line 310:
     {{Cl|END IF}}
     {{Cl|END IF}}
     x$ = {{Cl|INKEY$}} 'clear keyboard buffer to prevent beeping
     x$ = {{Cl|INKEY$}} 'clear keyboard buffer to prevent beeping
     {{Cl|IF...THEN|IF}} x$ <> "" {{Cl|THEN}} {{Cl|PRINT}} {{Cl|ASC}}(x$)  'read other keypress {{Cl|ASCII}} codes
     {{Cl|IF...THEN|IF}} x$ <> "" {{Cl|THEN}} {{Cl|PRINT}} {{Cl|ASC (function)|ASC}}(x$)  'read other keypress {{Cl|ASCII}} codes
{{Cl|LOOP}} {{Cl|UNTIL}} x$ = {{Cl|CHR$}}(27) 'Escape key exit
{{Cl|LOOP}} {{Cl|UNTIL}} x$ = {{Cl|CHR$}}(27) 'Escape key exit
{{CodeEnd}} {{small|Derived from code by eoredson}}
{{CodeEnd}}
{{Small|Derived from code by eoredson}}
: Note: Each key must be read individually or sequentially. For combinations use the QB64 [[_KEYDOWN]] function.
: Note: Each key must be read individually or sequentially. For combinations use the QB64 [[_KEYDOWN]] function.


Line 312: Line 319:
<p style="text-align: center">([[#toc|Return to Table of Contents]])</p>
<p style="text-align: center">([[#toc|Return to Table of Contents]])</p>


==Reference==


''See also:''
{{PageSeeAlso}}
* [[INKEY$]], [[ASCII]], [[ASC]]  
* [[INKEY$]], [[ASCII]], [[ASC (function)]]
* [[_KEYHIT]], [[_KEYDOWN]], [[_KEYCLEAR]]
* [[_KEYHIT]], [[_KEYDOWN]], [[_KEYCLEAR]]
* [[ON KEY(n)]], [[KEY(n)]], [[KEY]],  
* [[ON KEY(n)]], [[KEY(n)]], [[KEY]],
* [[INP]], [[Scancodes]] {{text|(examples)}}
* [[INP]], [[Scancodes]] {{Text|(examples)}}
* [[Windows_Libraries#Hot_Keys_.28maximize.29|Windows hot keys]]
* [[Windows Libraries#Hot_Keys_(maximize)|Windows hot keys]]
* [http://www.howtogeek.com/236462/which-key-on-a-mac-keyboard-corresponds-to-the-symbol/ Mac keyboard Symbols]
* [http://www.howtogeek.com/236462/which-key-on-a-mac-keyboard-corresponds-to-the-symbol/ Mac keyboard Symbols]


{{PageNavigation}}
 
{{PageReferences}}

Latest revision as of 13:18, 19 November 2024

  • Keyboards with Alt Gr key: _KEYHIT may return both Alt(100307) and Ctrl(100306) codes when that key is pressed or released.
  • Linux with foreign keyboards: SHELL _HIDE "setxkbmap us" will setup a keyboard to read US Scancodes.


INKEY$ Codes

  • INKEY$ returns a STRING ASCII character or a function key two byte string. ASC converts to code. Use: key$ = INKEY$
  • Key presses are read consecutively from the keyboard buffer which will retain a SLEEP key press.
'                                ASCII Keyboard Codes
'
'  Esc  F1  F2  F3  F4  F5  F6  F7  F8  F9  F10  F11  F12  Sys ScL Pause
'   27 +59 +60 +61 +62 +63 +64 +65 +66 +67 +68  +133 +134   -   -    -
'  `~  1!  2@  3#  4$  5%  6^  7&  8*  9(  0) -_ =+ BkSp   Ins Hme PUp   NumL  /   *    -
'  126 33  64  35  36  37  94  38  42  40  41 95 43   8    +82 +71 +73    -    47  42   45
'   96 49  50  51  52  53  54  55  56  57  48 45 61
'  Tab Q   W   E   R   T   Y   U   I   O   P  [{  ]}  \|   Del End PDn   7Hme 8/▲  9PU  + 
'   9  81  87  69  82  84  89  85  73  79  80 123 125 124  +83 +79 +81   +71  +72  +73  43
'     113 119 101 114 116 121 117 105 111 112  91  93  92                 55   56   57 
'  CapL  A   S   D   F   G   H   J   K   L   ;:  '" Enter                4/◄-  5   6/-►
'    -   65  83  68  70  71  72  74  75  76  58  34  13                  +75  +76  +77  E
'        97 115 100 102 103 104 106 107 108  59  39                       52   53   54  n
'  Shift  Z   X   C   V   B   N   M   ,<  .>  /?    Shift       ▲        1End 2/▼  3PD  t
'    *    90  88  67  86  66  78  77  60  62  63      *        +72       +79  +80  +81  e
'        122 120  99 118  98 110 109  44  46  47                          49   50   51  r
'  Ctrl Win Alt       Spacebar          Alt Win Menu Ctrl   ◄-  ▼   -►   0Ins     .Del 
'   *    -   *           32              *   -   -    *    +75 +80 +77   +82       +83  13
'                                                                         48        46
'
'     Italics = LCase/NumLock On  * = 2 byte combo only,  + = 2 Byte: CHR$(0) + CHR$(code)
'
GO TO: Scan Codes, ON KEY, _KEYHIT, _DEVICES, Windows Virtual


INP and _CINP Scan Codes

  • _CINP can be used in $CONSOLE Windows to read individual key presses.
  • INP(&H60) returns multiple INTEGER press and release codes as keys are used. Use: code% = INP(96)
  • To clear the keyboard buffer, use the INKEY$ function before or after the INP read to avoid buffer overflows and beeps.
  • Keys are assigned only one code irregardless of case or Lock mode with release codes being the press code + 128.
'                            Extended Keyboard Press Scancodes
'
' Esc  F1 F2 F3 F4 F5 F6 F7 F8 F9 F10  F11 F12   SysReq ScrL Pause
'  1   59 60 61 62 63 64 65 66 67 68   87  88     0     70    29
' `~  1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ BkSpc  Insert Home PgUp   NumL   /     *    -
'  41 2  3  4  5  6  7  8  9  10 11 12 13  14     82    71    73     69    53    55   74
' Tab  Q  W  E  R  T  Y  U  I  O  P  [{ ]} \|    Delete End  PgDn   7/Home 8/▲  9/PU  + 
'  15  16 17 18 19 20 21 22 23 24 25 26 27 43     83    79    81     71    72    73   78
' CapL  A  S  D  F  G  H  J  K  L  ;: '"  Enter                     4/◄-   5    6/-►  E
'  58   30 31 32 33 34 35 36 37 38 39 40   28                        75    76    77   n
' Shift  Z  X  C  V  B  N  M  ,< .> /?    Shift         ▲           1/End  2/▼  3/PD  t
'  42    44 45 46 47 48 49 50 51 52 53     54           72           79    80    81   e
' Ctrl Win Alt    Spacebar    Alt Win Menu Ctrl     ◄-  ▼   -►      0/Insert    ./Del r
'  29  91  56        57       56  92   93  29       75  80  77       82          83   28
'
'  QB64 codes only! Release codes = Press code + 128. Pause/Break may lock code returns.
'
Keyboard Scan Codes........... Other Keyboards


GO TO:INKEY$, ON KEY, _KEYHIT, _DEVICES, Windows Virtual


ON KEY Events

  • Assign user defined Soft Key or key combination numbers 15 to 29 with: KEY number, CHR$(keyflag) + CHR$(scancode)
  • Combo Key flags: 0 = none, LShift = 1, RShift = 2, LCtrl = 4, LAlt = 8, NumLock = 32, CapsLock = 64, Extended keys = 128
  • Red KEY numbers 1 to 14, 30 or 31 assign predefined one key events using: ON KEY(number) GOSUB subname
'                           Soft Key Scan Code Values
'
'      1  2  3  4  5  6  7  8  9  10   30  31                       Predefined Keys
' Esc  F1 F2 F3 F4 F5 F6 F7 F8 F9 F10  F11 F12   SysReq ScrL Pause
'  1   59 60 61 62 63 64 65 66 67 68   87  88     --    70    29
' `~  1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ BkSpc  Insert Home PgUp   NumL   /     *    -
'  41 2  3  4  5  6  7  8  9  10 11 12 13  14     82    71    73    32/69  53    55   74
' Tab  Q  W  E  R  T  Y  U  I  O  P  [{ ]} \|    Delete End  PgDn   7/Home 8/▲  9/PU  + 
'  15  16 17 18 19 20 21 22 23 24 25 26 27 43     83    79    81     71   11/72  73   78
' CapL  A  S  D  F  G  H  J  K  L  ;: '"  Enter                     4/◄-   5    6/-►  E
' 64/58 30 31 32 33 34 35 36 37 38 39 40   28                       12/75  76   13/77 n
' Shift  Z  X  C  V  B  N  M  ,< .> /?    Shift         ▲           1/End  2/▼  3/PD  t
' 1/42   44 45 46 47 48 49 50 51 52 53    2/54          72           79   14/80  81   e
' Ctrl Win Alt    Spacebar    Alt Win Menu Ctrl     ◄-  ▼   -►      0/Insert    ./Del r
' 4/29  91 8/56      57       56  92   93  29       75  80  77       82          83   28
'
'  Keyflag: Function(0, 1, 2, 4, 8, 32, 64), Extended(128) Scan Code: 1-88, QB64 only(91-93)
'
'        Reserved and function key combinations can be made using the scan code instead.
'             Add function and/or extended flag values for more key combinations.
GO TO:INKEY$, Scan Codes, _KEYHIT, _DEVICES, Windows Virtual


KEYHIT and KEYDOWN Codes

  • _KEYHIT returns multiple LONG press and negative release codes as keys are used. Use: code& = _KEYHIT
  • _KEYDOWN returns -1 when a specified key code value is pressed or 0. Use: status% = _KEYDOWN(code&)
  • _KEYCLEAR clears the keyboard buffer memory instantly without a loop.
'                            QB64 _KEYHIT and _KEYDOWN Values
'
' Esc  F1    F2    F3    F4    F5    F6    F7    F8    F9    F10   F11   F12   Sys  ScL Pause
'  27 15104 15360 15616 15872 16128 16384 16640 16896 17152 17408 34048 34304 +316 +302 +019
' `~  1!  2@  3#  4$  5%  6^  7&  8*  9(  0) -_ =+ BkSp   Ins   Hme   PUp   NumL   /     *    -
' 126 33  64  35  36  37  94  38  42  40  41 95 43   8   20992 18176 18688 +300   47    42   45
'  96 49  50  51  52  53  54  55  56  57  48 45 61
' Tab Q   W   E   R   T   Y   U   I   O   P  [{  ]}  \|   Del   End   PDn   7Hme  8/▲   9PU   + 
'  9  81  87  69  82  84  89  85  73  79  80 123 125 124 21248 20224 20736 18176 18432 18688 43
'    113 119 101 114 116 121 117 105 111 112  91  93  92                    55    56    57 
' CapL   A   S   D   F   G   H   J   K   L   ;:  '" Enter                   4/◄-   5    6/-►
' +301   65  83  68  70  71  72  74  75  76  58  34  13                    19200 19456 19712  E
'        97 115 100 102 103 104 106 107 108  59  39                         52    53    54    n
' Shift   Z   X   C   V   B   N   M   ,<  .>  /?    Shift       ▲           1End  2/▼   3PD   t
' +304   90  88  67  86  66  78  77  60  62  63    +303       18432        20224 20480 20736  e
'       122 120  99 118  98 110 109  44  46  47                             49    50    51    r
' Ctrl   Win  Alt     Spacebar      Alt  Win  Menu  Ctrl   ◄-   ▼   -►      0Ins        .Del 
' +306  +311 +308       32         +307 +312 +319  +305 19200 20480 19712  20992       21248 13
'                                                                           48          46
'          Lower value = LCase/NumLock On __________________ + = add 100000
GO TO: INKEY$, Scan Codes, ON KEY, _DEVICES, Windows Virtual
Most keys use ASCII key code values. Function key code values can be calculated using the INKEY$, two byte values with CVI.
Example: status = _KEYDOWN(CVI(CHR$(0) + "P"))
For Ctrl, Alt, Shift Key Combinations see Two Byte Codes


DEVICES Button

  • _LASTBUTTON(1) keyboards will normally return 512 buttons. One button is read per loop through all numbers.
  • _BUTTONCHANGE(number) returns -1 when pressed, 1 when released and 0 when there is no event since the last read.
  • _BUTTON(number) returns -1 when a button is pressed and 0 when released.


'                              Keyboard Device 1 Button Numbers
'
' Esc F1  F2  F3  F4  F5  F6  F7  F8  F9  F10  F11 F12      SysReq ScrL Pause
' 177 436 433 434 439 440 437 438 395 396 393  394 399       402   392   ---
' `~  1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  -_  =+ BkSpc  Insert Home PgUp   NumL    /    *    -
' 246 155 156 153 154 159 160 157 158 147 134 135 151 174    447   448   446   386    417  418  423
' Tab  Q   W   E   R   T   Y   U   I   O   P   [{  ]}  \|   Delete End  PgDn   7/Home 8/▲  9/PU  + 
' 163 219 221 207 220 218 211 223 195 197 198 241 247 242    213   445   435   429    430  419  424
' CapL  A   S   D   F   G   H   J   K   L   ;:  '"   Enter                     4/◄-    5   6/-►  E
' 391  203 217 202 208 205 206 196 193 194  145 141   167                      426    431  432   n
' Shift  Z   X   C   V   B   N   M  ,<  .>  /?       Shift          ▲          1/End  2/▼  3/PD  t
' 390   212 222 201 224 204 200 199 130 136 133       389          443         427    428  432   e
' Ctrl Win  Alt    Spacebar    Alt  Win  Menu Ctrl            ◄-    ▼    -►    0/Insert    ./Del r
' 412  413  410      182       409  414  405  411             442  444   441    86         420  421
'
'                       Mouse Device 2 buttons: Left = 1, Middle = 2, Right = 3


GO TO: INKEY$, Scan Codes, ON KEY, _KEYHIT, Windows Virtual


Windows Virtual Codes

  • Virtual key code status can be read independently of program focus in Windows. Not available in Linux or macOS systems.
  • Use: status = GetKeyState%(code%) or GetAsyncKeyState%(code&) or with keybd_event in DECLARE LIBRARY "User32".


'                                  Virtual KeyState Codes
'
'  Esc  F1  F2  F3  F4  F5  F6  F7  F8  F9  F10  F11 F12   Sys ScL Pause
'  27   112 113 114 115 116 117 118 119 120 121  122 123   44  145 19
'  `~  1!  2@  3#  4$  5%  6^  7&  8* 9(  0) -_  =+  BkS   Ins Hme PUp   NumL  /   *    -
'  192 49  50  51  52  53  54  55  56  57 48 189 187  8    45  36  33    144  111  106 109
'  Tab Q   W   E   R   T   Y   U   I   O   P  [{  ]}  \|   Del End PDn   7Hme 8/▲  9PU  +
'   9  81  87  69  82  84  89  85  73  79  80 219 221 120  46  35  34    103  104  105 107
'  CapL  A   S   D   F   G   H   J   K   L   ;:  '" Enter                4/◄-  5   6/-► E
'   20   65  83  68  70  71  72  74  75  76 186 222  13                  100  101  102  n
'  Shift  Z   X   C   V   B   N   M   ,<  .>  /?    Shift       ▲        1End 2/▼  3PD  t
'  16/160 90  88  67  86  66  78  77 188  190 191   16/161      38       97   98   99   e
'  Ctrl   Win   Alt       Spacebar      Alt Win Menu Ctrl   ◄-  ▼   -►   0Ins     .Del  r
'  17/162 91  18/164        32        18/165 92  93 17/163  37  40  39   96        110  13
'
'      Num Lock On values shown. Off values same as functions and arrows, 5 = code 12.
'
'  Mouse click returns: LB = 1, RB = 2, MB = 4, etc. Special keys may also work.


GO TO: INKEY$, Scan Codes, ON KEY, _KEYHIT, _DEVICES,


Examples

Example 1: An INP Function that retrieves multiple scancodes (allows 2 players and diagonal moves). Function includes it's own array. 

CLS
x = 40: px = x
y = 20: py = y
xx = 41: pxx = xx
yy = 21: pyy = yy

DO ' program or game loop
  _LIMIT 20  ' Delay .05 'in QBasic
  COLOR 15
  LOCATE 8, 14: PRINT "W A S D": LOCATE 8, 52: PRINT "ARROW PAD"
  IF ScanKey%(17) THEN 'W key
    LOCATE 2, 15: PRINT " UP "
    IF y > 1 THEN y = y - 1
  ELSE LOCATE 2, 15: PRINT "----"
  END IF
  IF ScanKey%(31) THEN 'S key
    LOCATE 6, 15: PRINT "DOWN"
    IF y < 25 THEN y = y + 1
  ELSE LOCATE 6, 15: PRINT "----"
  END IF
  IF ScanKey%(30) THEN 'A key
    LOCATE 4, 12: PRINT "LEFT"
    IF x > 1 THEN x = x - 1
  ELSE LOCATE 4, 12: PRINT "----"
  END IF
  IF ScanKey%(32) THEN 'D key
    LOCATE 4, 18: PRINT "RIGHT"
    IF x < 80 THEN x = x + 1
  ELSE LOCATE 4, 18: PRINT "---- "
  END IF
  IF ScanKey%(72) THEN 'up arrow
    LOCATE 2, 55: PRINT " UP "
    IF yy > 1 THEN yy = yy - 1
  ELSE LOCATE 2, 55: PRINT "----"
  END IF
  IF ScanKey%(80) THEN 'down arrow
    LOCATE 6, 55: PRINT "DOWN"
    IF yy < 25 THEN yy = yy + 1
  ELSE LOCATE 6, 55: PRINT "----"
  END IF
  IF ScanKey%(75) THEN 'left arrow
    LOCATE 4, 52: PRINT "LEFT"
    IF xx > 1 THEN xx = xx - 1
  ELSE LOCATE 4, 52: PRINT "----"
  END IF
  IF ScanKey%(77) THEN 'right arrow
    LOCATE 4, 58: PRINT "RIGHT"
    IF xx < 80 THEN xx = xx + 1
  ELSE LOCATE 4, 58: PRINT "---- "
  END IF
  LOCATE py, px: PRINT SPACE$(1);  'erase sprite at previous position
  LOCATE pyy, pxx: PRINT SPACE$(1);
  COLOR 10: LOCATE y, x: PRINT CHR$(1); 'place sprite at new position
  COLOR 12: LOCATE yy, xx: PRINT CHR$(2);
  px = x: py = y: pxx = xx: pyy = yy
LOOP UNTIL ScanKey%(1)
zerocodes% = ScanKey%(0) 'reset all array values to zero for next part of program
END

FUNCTION ScanKey% (scancode%)
STATIC Ready%, keyflags%() 'retain values on procedure exit
IF NOT Ready% THEN REDIM keyflags%(0 TO 127): Ready% = -1 'create array on first use
i% = INP(&H60) 'read keyboard states
IF (i% AND 128) THEN keyflags%(i% XOR 128) = 0
IF (i% AND 128) = 0 THEN keyflags%(i%) = -1
K$ = INKEY$ 'clears the key from buffer to prevent beeps
ScanKey% = keyflags%(scancode%)
IF scancode% = 0 THEN Ready% = 0 'a zero scancode value clears all previous key presses with a REDIM
END FUNCTION

SUB Delay (dlay!) 'optional QBasic delay
start! = TIMER
DO WHILE start! + dlay! >= TIMER
  IF start! > TIMER THEN start! = start! - 86400
LOOP
END SUB

                UP                                      UP

            ----  RIGHT                             LEFT  ----

               ----                                    ----

             W A S D                                ARROW PAD





                                      ☺
                                       ☻
Adapted from Code by Cyperium.
Explanation: Displays multiple arrow key presses to move a game character diagonally or allows 2 players to press keys at once. Each keypress is placed into a STATIC array inside of the ScanKey function. When a key is pressed, the corresponding code index in the array is changed to -1 or True. When a key is released, the scancode returned is over 128 so AND 128 becomes True and the XOR 128 index value is changed to 0. XOR causes 128 to be subtracted from the release code index value which is then changed to 0 (False) from -1. As the main program loop reads the array each of the IF statements look to see if that code is -1. When a statement is True, it prints the appropriate key(s). The example moves two ASCII sprites. Note: INKEY$ can be removed from the function if it is used elsewhere to help clear the key buffer.
The Scankey Function array can be cleared by sending 0 as the scancode% or press the Print Scrn/SysReq key.


Example 2: How to get Control, Alt and shift key entries from a user using PEEK in QB64 or QBasic: 

DO
    _LIMIT 50
    DEF SEG = &H40  'set memory segment to read
    ShiftFlag = PEEK(&H17)  'read keyboard function keys
    DEF SEG
    IF ShiftFlag <> x THEN  'find key not previously read
        x = ShiftFlag  'read a new keypress
        IF (ShiftFlag AND 1) = 1 THEN PRINT "rightshift"
        IF (ShiftFlag AND 2) = 2 THEN PRINT "leftshift"
        IF (ShiftFlag AND 4) = 4 THEN PRINT "ctrl"
        IF (ShiftFlag AND 8) = 8 THEN PRINT "alt"
    END IF
    x$ = INKEY$ 'clear keyboard buffer to prevent beeping
    IF x$ <> "" THEN PRINT ASC(x$)  'read other keypress ASCII codes
LOOP UNTIL x$ = CHR$(27) 'Escape key exit
Derived from code by eoredson
Note: Each key must be read individually or sequentially. For combinations use the QB64 _KEYDOWN function.


(Return to Table of Contents)


See also


QB64 Programming References

Wiki Pages
Main Page with Articles and Tutorials
QB64 specific keywords (alphabetical)
Original QBasic keywords (alphabetical)
QB64 OpenGL keywords (alphabetical)
Keywords by Usage
Got a question about something?
Frequently Asked Questions about QB64
QB64 Phoenix Edition Community Forum
Links to other QBasic Sites:
Pete's QBasic Forum
Pete's QBasic Downloads
Retrieved from "https://qb64phoenix.com/qb64wiki/index.php?title=Keyboard_scancodes&oldid=9235"