BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Keyboard Scancodes and Strings", by thechange

Includes a listing of constants for all commonly used keys. With variations using arrays for easy iteration. And finally a list of strings containing the actual names of the keys. Usage example function included.

Code

;_/^^^^^^^^^^^^^^^^^^^^^^\______________________________________________________________________________________________
;-[ Key code definitions ]---------------------------------------------------------------------------------------1-2-0--
;^\______________________/^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

;-( Numerical )------------------------------------------;

Const Key1% =  2
  Const Key2% =  3
  Const Key3% =  4
  Const Key4% =  5
  Const Key5% =  6
  Const Key6% =  7
  Const Key7% =  8
  Const Key8% =  9
  Const Key9% = 10
  Const Key0% = 11

Dim KeyNumeric% ( 9 )
    KeyNumeric ( 0 ) = Key0
    KeyNumeric ( 1 ) = Key1
    KeyNumeric ( 2 ) = Key2
    KeyNumeric ( 3 ) = Key3
    KeyNumeric ( 4 ) = Key4
    KeyNumeric ( 5 ) = Key5
    KeyNumeric ( 6 ) = Key6
    KeyNumeric ( 7 ) = Key7
    KeyNumeric ( 8 ) = Key8
    KeyNumeric ( 9 ) = Key9

;-( Alphabetic )-----------------------------------------;

Const KeyQ% = 16
  Const KeyW% = 17
  Const KeyE% = 18
  Const KeyR% = 19
  Const KeyT% = 20
  Const KeyY% = 21
  Const KeyU% = 22
  Const KeyI% = 23
  Const KeyO% = 24
  Const KeyP% = 25
  Const KeyA% = 30
  Const KeyS% = 31
  Const KeyD% = 32
  Const KeyF% = 33
  Const KeyG% = 34
  Const KeyH% = 35
  Const KeyJ% = 36
  Const KeyK% = 37
  Const KeyL% = 38
  Const KeyZ% = 44
  Const KeyX% = 45
  Const KeyC% = 46
  Const KeyV% = 47
  Const KeyB% = 48
  Const KeyN% = 49
  Const KeyM% = 50

Dim KeyAlpha% ( 26 )
    KeyAlpha (  1 ) = KeyA
    KeyAlpha (  2 ) = KeyB
    KeyAlpha (  3 ) = KeyC
    KeyAlpha (  4 ) = KeyD
    KeyAlpha (  5 ) = KeyE
    KeyAlpha (  6 ) = KeyF
    KeyAlpha (  7 ) = KeyG
    KeyAlpha (  8 ) = KeyH
    KeyAlpha (  9 ) = KeyI
    KeyAlpha ( 10 ) = KeyJ
    KeyAlpha ( 11 ) = KeyK
    KeyAlpha ( 12 ) = KeyL
    KeyAlpha ( 13 ) = KeyM
    KeyAlpha ( 14 ) = KeyN
    KeyAlpha ( 15 ) = KeyO
    KeyAlpha ( 16 ) = KeyP
    KeyAlpha ( 17 ) = KeyQ
    KeyAlpha ( 18 ) = KeyR
    KeyAlpha ( 19 ) = KeyS
    KeyAlpha ( 20 ) = KeyT
    KeyAlpha ( 21 ) = KeyU
    KeyAlpha ( 22 ) = KeyV
    KeyAlpha ( 23 ) = KeyW
    KeyAlpha ( 24 ) = KeyX
    KeyAlpha ( 25 ) = KeyY
    KeyAlpha ( 26 ) = KeyZ

;-( Numeric keypad )-------------------------------------;

Const KeyPad7% = 71
  Const KeyPad8% = 72
  Const KeyPad9% = 73
  Const KeyPad4% = 75
  Const KeyPad5% = 76
  Const KeyPad6% = 77
  Const KeyPad1% = 79
  Const KeyPad2% = 80
  Const KeyPad3% = 81
  Const KeyPad0% = 82

Dim KeyPadNumeric% ( 9 )
    KeyPadNumeric ( 0 ) = KeyPad0
    KeyPadNumeric ( 1 ) = KeyPad1
    KeyPadNumeric ( 2 ) = KeyPad2
    KeyPadNumeric ( 3 ) = KeyPad3
    KeyPadNumeric ( 4 ) = KeyPad4
    KeyPadNumeric ( 5 ) = KeyPad5
    KeyPadNumeric ( 6 ) = KeyPad6
    KeyPadNumeric ( 7 ) = KeyPad7
    KeyPadNumeric ( 8 ) = KeyPad8
    KeyPadNumeric ( 9 ) = KeyPad9

;-( Function keys )--------------------------------------;

Const KeyFunction1%  = 59
  Const KeyFunction2%  = 60
  Const KeyFunction3%  = 61
  Const KeyFunction4%  = 62
  Const KeyFunction5%  = 63
  Const KeyFunction6%  = 64
  Const KeyFunction7%  = 65
  Const KeyFunction8%  = 66
  Const KeyFunction9%  = 67
  Const KeyFunction10% = 68
  Const KeyFunction11% = 87
  Const KeyFunction12% = 88

Dim KeyFunction% ( 12 )
    KeyFunction (  1 ) = KeyFunction1
    KeyFunction (  2 ) = KeyFunction2
    KeyFunction (  3 ) = KeyFunction3
    KeyFunction (  4 ) = KeyFunction4
    KeyFunction (  5 ) = KeyFunction5
    KeyFunction (  6 ) = KeyFunction6
    KeyFunction (  7 ) = KeyFunction7
    KeyFunction (  8 ) = KeyFunction8
    KeyFunction (  9 ) = KeyFunction9
    KeyFunction ( 10 ) = KeyFunction10
    KeyFunction ( 11 ) = KeyFunction11
    KeyFunction ( 12 ) = KeyFunction12

;-( Shiftstate )-----------------------------------------;

Const KeyLeftShift%  =  42
  Const KeyRightShift% =  54
  Const KeyLeftAlt%    =  56
  Const KeyRightAlt%   = 184
  Const KeyLeftCtrl%   =  29
  Const KeyRightCtrl%  = 157
  Const KeyCapsLock%   =  58
  Const KeyNumLock%    =  69
  Const KeyScrollLock% =  70

Const KeyLeftAlternate%  =  56
  Const KeyRightAlternate% = 184
  Const KeyLeftControl%    =  29
  Const KeyRightControl%   = 157

;-( Control keys )---------------------------------------;

Const KeySpace%        =  57
  Const KeyEnter%        =  28
  Const KeyTab%          =  15
  Const KeyBackSpace%    =  14
  Const KeyInsert%       = 210
  Const KeyDelete%       = 211
  Const KeyHome%         = 199
  Const KeyEnd%          = 207
  Const KeyPageUp%       = 201
  Const KeyPageDown%     = 209
  Const KeyEscape%       =   1
  Const KeyPause%        = 197
  Const KeyLeftWindows%  = 219
  Const KeyRightWindows% = 220
  Const KeyApps%         = 221
  Const KeyPower%        = 222
  Const KeySleep%        = 223
  Const KeyWake%         = 227

;-( Signs )----------------------------------------------;

Const KeyBackQuote%    = 41
  Const KeyMinus%        = 12
  Const KeyEquals%       = 13
  Const KeyLeftBracket%  = 26
  Const KeyRightBracket% = 27
  Const KeyBackSlash%    = 43
  Const KeySemiColon%    = 39
  Const KeyQuote%        = 40
  Const KeyComma%        = 51
  Const KeyPeriod%       = 52
  Const KeySlash%        = 53

;-( Keypad controls )------------------------------------;

Const KeyPadSlash%    = 181
  Const KeyPadAsterisk% =  55
  Const KeyPadMinus%    =  74
  Const KeyPadPlus%     =  78
  Const KeyPadEnter%    = 156
  Const KeyPadPeriod%   =  83

;-( Cursors )--------------------------------------------;

Const KeyCursorUp%    = 200
  Const KeyCursorDown%  = 208
  Const KeyCursorLeft%  = 203
  Const KeyCursorRight% = 205

;_/^^^^^^^^^^^^^^^^^^^^^^\______________________________________________________________________________________________
;-[ Key name definitions ]---------------------------------------------------------------------------------------1-2-0--
;^\______________________/^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Dim KeyName$ ( 255 )

;-( Numerical )------------------------------------------;

KeyName ( Key1 ) = "1"
  KeyName ( Key2 ) = "2"
  KeyName ( Key3 ) = "3"
  KeyName ( Key4 ) = "4"
  KeyName ( Key5 ) = "5"
  KeyName ( Key6 ) = "6"
  KeyName ( Key7 ) = "7"
  KeyName ( Key8 ) = "8"
  KeyName ( Key9 ) = "9"
  KeyName ( Key0 ) = "0"

;-( Alphabetic )-----------------------------------------;

KeyName ( KeyQ ) = "Q"
  KeyName ( KeyW ) = "W"
  KeyName ( KeyE ) = "E"
  KeyName ( KeyR ) = "R"
  KeyName ( KeyT ) = "T"
  KeyName ( KeyY ) = "Y"
  KeyName ( KeyU ) = "U"
  KeyName ( KeyI ) = "I"
  KeyName ( KeyO ) = "O"
  KeyName ( KeyP ) = "P"
  KeyName ( KeyA ) = "A"
  KeyName ( KeyS ) = "S"
  KeyName ( KeyD ) = "D"
  KeyName ( KeyF ) = "F"
  KeyName ( KeyG ) = "G"
  KeyName ( KeyH ) = "H"
  KeyName ( KeyJ ) = "J"
  KeyName ( KeyK ) = "K"
  KeyName ( KeyL ) = "L"
  KeyName ( KeyZ ) = "Z"
  KeyName ( KeyX ) = "X"
  KeyName ( KeyC ) = "C"
  KeyName ( KeyV ) = "V"
  KeyName ( KeyB ) = "B"
  KeyName ( KeyN ) = "N"
  KeyName ( KeyM ) = "M"

;-( Numeric keypad )-------------------------------------;

KeyName ( KeyPad7 ) = "Pad 7"
  KeyName ( KeyPad8 ) = "Pad 8"
  KeyName ( KeyPad9 ) = "Pad 9"
  KeyName ( KeyPad4 ) = "Pad 4"
  KeyName ( KeyPad5 ) = "Pad 5"
  KeyName ( KeyPad6 ) = "Pad 6"
  KeyName ( KeyPad1 ) = "Pad 1"
  KeyName ( KeyPad2 ) = "Pad 2"
  KeyName ( KeyPad3 ) = "Pad 3"
  KeyName ( KeyPad0 ) = "Pad 0"

;-( Function keys )--------------------------------------;

KeyName ( KeyFunction1  ) = "F1"
  KeyName ( KeyFunction2  ) = "F2"
  KeyName ( KeyFunction3  ) = "F3"
  KeyName ( KeyFunction4  ) = "F4"
  KeyName ( KeyFunction5  ) = "F5"
  KeyName ( KeyFunction6  ) = "F6"
  KeyName ( KeyFunction7  ) = "F7"
  KeyName ( KeyFunction8  ) = "F8"
  KeyName ( KeyFunction9  ) = "F9"
  KeyName ( KeyFunction10 ) = "F10"
  KeyName ( KeyFunction11 ) = "F11"
  KeyName ( KeyFunction12 ) = "F12"

;-( Shiftstate )-----------------------------------------;

KeyName ( KeyLeftShift  ) = "Left Shift"
  KeyName ( KeyRightShift ) = "Right Shift"
  KeyName ( KeyLeftAlt    ) = "Left Alt"
  KeyName ( KeyRightAlt   ) = "Right Alt"
  KeyName ( KeyLeftCtrl   ) = "Left Control"
  KeyName ( KeyRightCtrl  ) = "Right Control"
  KeyName ( KeyCapsLock   ) = "CapsLock"
  KeyName ( KeyNumLock    ) = "NumLock"
  KeyName ( KeyScrollLock ) = "ScrollLock"

;-( Control keys )---------------------------------------;

KeyName ( KeySpace        ) = "SpaceBar"
  KeyName ( KeyEnter        ) = "Enter"
  KeyName ( KeyTab          ) = "Tab"
  KeyName ( KeyBackSpace    ) = "BackSpace"
  KeyName ( KeyInsert       ) = "Insert"
  KeyName ( KeyDelete       ) = "Delete"
  KeyName ( KeyHome         ) = "Home"
  KeyName ( KeyEnd          ) = "End"
  KeyName ( KeyPageUp       ) = "PageUp"
  KeyName ( KeyPageDown     ) = "PageDown"
  KeyName ( KeyEscape       ) = "Escape"
  KeyName ( KeyPause        ) = "Pause"
  KeyName ( KeyLeftWindows  ) = "Left Windows"
  KeyName ( KeyRightWindows ) = "Right Windows"
  KeyName ( KeyApps         ) = "Apps"
  KeyName ( KeyPower        ) = "Power"
  KeyName ( KeySleep        ) = "Sleep"
  KeyName ( KeyWake         ) = "Wake"

;-( Signs )----------------------------------------------;

KeyName ( KeyBackQuote    ) = "BackQuote"
  KeyName ( KeyMinus        ) = "Minus"
  KeyName ( KeyEquals       ) = "Equals"
  KeyName ( KeyLeftBracket  ) = "Left Bracket"
  KeyName ( KeyRightBracket ) = "Right Bracket"
  KeyName ( KeyBackSlash    ) = "BackSlash"
  KeyName ( KeySemiColon    ) = "SemiColon"
  KeyName ( KeyQuote        ) = "Quote"
  KeyName ( KeyComma        ) = "Comma"
  KeyName ( KeyPeriod       ) = "Period"
  KeyName ( KeySlash        ) = "Slash"

;-( Keypad controls )------------------------------------;

KeyName ( KeyPadSlash    ) = "Pad Slash"
  KeyName ( KeyPadAsterisk ) = "Pad Asterisk"
  KeyName ( KeyPadMinus    ) = "Pad Minus"
  KeyName ( KeyPadPlus     ) = "Pad Plus"
  KeyName ( KeyPadEnter    ) = "Pad Enter"
  KeyName ( KeyPadPeriod   ) = "Pad Period"

;-( Cursors )--------------------------------------------;

KeyName ( KeyCursorUp    ) = "Cursor Up"
  KeyName ( KeyCursorDown  ) = "Cursor Down"
  KeyName ( KeyCursorLeft  ) = "Cursor Left"
  KeyName ( KeyCursorRight ) = "Cursor Right"

;_/^^^^^^^^^^^^^^^^^^^^\________________________________________________________________________________________________
;-[ Key initialization ]-----------------------------------------------------------------------------------------1-2-0--
;^\____________________/^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Function KeyTest ( )
    Local Counter%
    Repeat
      For Counter = 2 To 255
        If KeyDown ( Counter ) Then
          Color ( 127 , 127 , 127 )
          Print ( "Code: " + LSet ( Counter , 3 ) + " Name: " + LSet ( KeyName ( Counter ) , 16 ) )
          Color ( 255 , 255 , 255 )
          If KeyName ( Counter ) = "" Then
            Print ( "Undefined #" + LSet ( Counter , 3 ) )
          Else
            Print ( LSet ( KeyName ( Counter ) , 16 ) )
          EndIf
          FlushKeys ( )
        EndIf
      Next
    Until KeyDown ( 1 )
  End Function

;-->

Code software created by Krylar's Kreations