Print Page - Programmable Keyboard Input

Title: Programmable Keyboard Input
Post by: SMcNeill on December 29, 2019, 12:06:32 am

As you guys probably know from my posts in the last few days, I haven't been very happy with the performance of QB64's input routines. None of them seem to work 100% as they should -- _KEYHIT, INKEY$, _DEVICES, INP(&H60)...

I was working up a patch for the problem, but then Tempodi asked a rather poignant question: "Will this patch work for other keyboards, or just yours?"

And, to be honest, I don't really know. I've got several PCs around here, but I'm a 100% English speaking idiot... None of my keyboards support extra characters, or international letters, or AltGr keys, or anything all fancy pancy like that...

So, I thought about it for a moment, and then I decided, "What we really need is a command similar to _MAPUNICODE to use with keyboard input, and not just displaying fonts properly on the screen."

And thus, I've came up with this little concept (which is still a work-in-progress, but since I'm going to bed here in a few moments, I thought I'd go ahead and share to see if anybody notices any issues with the process):

Code: QB64: [Select]

DECLARE LIBRARY 'function is already used by QB64 so "User32" is not required
    FUNCTION GetKeyState% (BYVAL vkey AS LONG)
END DECLARE
 
 
TYPE KeyboardInfo_Type
    Index AS LONG
    KeyCodeReturn AS LONG
    ASCII AS STRING
    Modifiers AS LONG
    Repeat AS _FLOAT
    LastHit AS _FLOAT
    Down AS INTEGER
END TYPE
DIM SHARED Keys(1000) AS KeyboardInfo_Type
CONST NONE = 0, KEY_CTRL = 1, KEY_SHIFT = 2, KEY_ALT = 4, ALTGR = 8, CASECHANGE = 16, TOGGLE = 32
 
DIM l AS _UNSIGNED LONG
l = -128
PRINT HEX$(l)
 
SetNextKey 1, 100001, "LMB", NONE, 0.2 'Left Mouse Button
SetNextKey 2, 100002, "RMB", NONE, 0.2 'Right Mouse Button
SetNextKey 3, 900001, "CANCEL", NONE, 0.2 'VK_Cancel
SetNextKey 4, 100003, "MMB", NONE, 0.2 'Middle Mouse Button
SetNextKey 5, 100004, "MB4", NONE, 0.2 'Mouse Button 4
SetNextKey 6, 100005, "MB5", NONE, 0.2 'Mouse Button 5
SetNextKey 7, 0, "UNDEFINED", NONE, 0 'Undefined
SetNextKey 8, 8, CHR$(8), NONE, 0.2 'BackSpace
SetNextKey 9, 9, CHR$(9), NONE, 0.2 'Tab
SetNextKey 10, 0, "RESERVED", NONE, 0 'Reserved
SetNextKey 11, 0, "RESERVED", NONE, 0 'Reserved
SetNextKey 12, 900002, "CLEAR", NONE, 0.2 'Clear
SetNextKey 13, 13, CHR$(13), NONE, 0.2 'Enter
SetNextKey 14, 0, "UNDEFINED", NONE, 0 'Undefined
SetNextKey 15, 0, "UNDEFINED", NONE, 0 'Undefined
SetNextKey 16, 100016, "SHIFT", TOGGLE, 0 'Shift (Notice I set it to simple toddle and report UP/DOWN results for us)
SetNextKey 17, 100017, "CTRL", TOGGLE, 0 'Ctrl   (Same)
SetNextKey 18, 100018, "ALT", TOGGLE, 0 'Alt     (Same)
SetNextKey 19, 100019, "PAUSE", NONE, 0 'Pause
SetNextKey 20, 100301, "CAPS", TOGGLE, 0 'Caps Lock
SetNextKey 21, 900021, "VK_HANGUL", NONE, 0 'VK_Hangul
SetNextKey 22, 0, "UNDEFINED", NONE, 0 'Undefined
SetNextKey 23, 900023, "VK_JUNJA", NONE, 0 'VK_Junja
SetNextKey 24, 900024, "VK_FINAL", NONE, 0 'VK_Final
SetNextKey 25, 900026, "VK_HANJA/VK_KANJI", NONE, 0 'VK_HANGA and VK_Kanji
SetNextKey 26, 0, "UNDEFINED", NONE, 0 'Undefined
SetNextKey 27, 27, CHR$(27), NONE, 0.2 'ESC
SetNextKey 28, 900028, "VK_CONVERT", NONE, 0 'VK_Convert
SetNextKey 29, 900029, "VK_NONCONVERT", NONE, 0 'VK_NonConvery
SetNextKey 30, 900030, "VK_ACCEPT", NONE, 0 'VK_Accept
SetNextKey 31, 900031, "VK_MODECHANGE", NONE, 0 'VK_ModeChange
SetNextKey 32, 32, " ", NONE, 0.2 'Space
SetNextKey 33, 18688, CHR$(0) + CHR$(73), NONE, 0.2 'Page Up
SetNextKey 34, 20736, CHR$(0) + CHR$(81), NONE, 0.2 'Page Down
SetNextKey 35, 20224, CHR$(0) + CHR$(79), NONE, 0.2 'END
SetNextKey 36, 18176, CHR$(0) + CHR$(71), NONE, 0.2 'HOME
SetNextKey 37, 19200, CHR$(0) + CHR$(75), NONE, 0.2 'Left Arrow
SetNextKey 38, 18432, CHR$(0) + CHR$(72), NONE, 0.2 'Up Arrow
SetNextKey 39, 19712, CHR$(0) + CHR$(77), NONE, 0.2 'Right Arrow
SetNextKey 40, 20480, CHR$(0) + CHR$(80), NONE, 0.2 'Down Arrow
SetNextKey 41, 900041, "VK_SELECT", NONE, 0 'VK_SELECT
SetNextKey 42, 900042, "VK_PRINT", NONE, 0 'VK_PRINT
SetNextKey 43, 900043, "VK_EXECUTE", NONE, 0 'VK_EXECUTE
SetNextKey 44, 900044, "VK_SNAPSHOT", NONE, 0 'VK_SNAPSHOT
SetNextKey 45, 20992, CHR$(0) + CHR$(82), NONE, 0 'INS
SetNextKey 46, 21248, CHR$(0) + CHR$(83), NONE, 0 'DEL
SetNextKey 47, 900047, "VK_HELP", NONE, 0 'VK_HELP
 
 
SetNextKey 48, 48, "0", NONE, 0.2 '0
SetNextKey 49, 49, "1", NONE, 0.2 '1
SetNextKey 50, 50, "2", NONE, 0.2 '2
SetNextKey 51, 51, "3", NONE, 0.2 '3
SetNextKey 52, 52, "4", NONE, 0.2 '4
SetNextKey 53, 53, "5", NONE, 0.2 '5
SetNextKey 54, 54, "6", NONE, 0.2 '6
SetNextKey 55, 55, "7", NONE, 0.2 '7
SetNextKey 56, 56, "8", NONE, 0.2 '8
SetNextKey 57, 57, "9", NONE, 0.2 '9
 
SetNextKey 48, 41, ")", KEY_SHIFT, 0.2 '0
SetNextKey 49, 33, "!", KEY_SHIFT, 0.2 '1
SetNextKey 50, 64, "@", KEY_SHIFT, 0.2 '2
SetNextKey 51, 35, "#", KEY_SHIFT, 0.2 '3
SetNextKey 52, 36, "$", KEY_SHIFT, 0.2 '4
SetNextKey 53, 37, "%", KEY_SHIFT, 0.2 '5
SetNextKey 54, 94, "^", KEY_SHIFT, 0.2 '6
SetNextKey 55, 38, "&", KEY_SHIFT, 0.2 '7
SetNextKey 56, 42, "*", KEY_SHIFT, 0.2 '8
SetNextKey 57, 40, "(", KEY_SHIFT, 0.2 '9
 
SetNextKey 58, 0, "UNDEFINED", NONE, 0 'Undefined
SetNextKey 59, 0, "UNDEFINED", NONE, 0 'Undefined
SetNextKey 60, 0, "UNDEFINED", NONE, 0 'Undefined
SetNextKey 61, 0, "UNDEFINED", NONE, 0 'Undefined
SetNextKey 62, 0, "UNDEFINED", NONE, 0 'Undefined
SetNextKey 63, 0, "UNDEFINED", NONE, 0 'Undefined
SetNextKey 64, 0, "UNDEFINED", NONE, 0 'Undefined
 
SetNextKey 65, 65, "A", CASECHANGE + KEY_SHIFT, 0.2 'A
SetNextKey 66, 66, "B", CASECHANGE + KEY_SHIFT, 0.2 'B
SetNextKey 67, 67, "C", CASECHANGE + KEY_SHIFT, 0.2 'C
SetNextKey 68, 68, "D", CASECHANGE + KEY_SHIFT, 0.2 'D
SetNextKey 69, 69, "E", CASECHANGE + KEY_SHIFT, 0.2 'E
SetNextKey 70, 70, "F", CASECHANGE + KEY_SHIFT, 0.2 'F
SetNextKey 71, 71, "G", CASECHANGE + KEY_SHIFT, 0.2 'G
SetNextKey 72, 72, "H", CASECHANGE + KEY_SHIFT, 0.2 'H
SetNextKey 73, 73, "I", CASECHANGE + KEY_SHIFT, 0.2 'I
SetNextKey 74, 74, "J", CASECHANGE + KEY_SHIFT, 0.2 'J
SetNextKey 75, 75, "K", CASECHANGE + KEY_SHIFT, 0.2 'K
SetNextKey 76, 76, "L", CASECHANGE + KEY_SHIFT, 0.2 'L
SetNextKey 77, 77, "M", CASECHANGE + KEY_SHIFT, 0.2 'M
SetNextKey 78, 78, "N", CASECHANGE + KEY_SHIFT, 0.2 'N
SetNextKey 79, 79, "O", CASECHANGE + KEY_SHIFT, 0.2 'O
SetNextKey 80, 80, "P", CASECHANGE + KEY_SHIFT, 0.2 'P
SetNextKey 81, 81, "Q", CASECHANGE + KEY_SHIFT, 0.2 'Q
SetNextKey 82, 82, "R", CASECHANGE + KEY_SHIFT, 0.2 'R
SetNextKey 83, 83, "S", CASECHANGE + KEY_SHIFT, 0.2 'S
SetNextKey 84, 84, "T", CASECHANGE + KEY_SHIFT, 0.2 'T
SetNextKey 81, 85, "U", CASECHANGE + KEY_SHIFT, 0.2 'U
SetNextKey 81, 86, "V", CASECHANGE + KEY_SHIFT, 0.2 'V
SetNextKey 82, 87, "W", CASECHANGE + KEY_SHIFT, 0.2 'W
SetNextKey 83, 88, "X", CASECHANGE + KEY_SHIFT, 0.2 'X
SetNextKey 84, 89, "Y", CASECHANGE + KEY_SHIFT, 0.2 'Y
SetNextKey 81, 90, "Z", CASECHANGE + KEY_SHIFT, 0.2 'Z
 
SetNextKey 65, 97, "a", CASECHANGE, 0.2 'a
SetNextKey 66, 98, "b", CASECHANGE, 0.2 'b
SetNextKey 67, 99, "c", CASECHANGE, 0.2 'c
SetNextKey 68, 100, "d", CASECHANGE, 0.2 'd
SetNextKey 69, 101, "e", CASECHANGE, 0.2 'e
SetNextKey 70, 102, "f", CASECHANGE, 0.2 'f
SetNextKey 71, 103, "g", CASECHANGE, 0.2 'g
SetNextKey 72, 104, "h", CASECHANGE, 0.2 'h
SetNextKey 73, 105, "i", CASECHANGE, 0.2 'i
SetNextKey 74, 106, "j", CASECHANGE, 0.2 'j
SetNextKey 75, 107, "k", CASECHANGE, 0.2 'k
SetNextKey 76, 108, "l", CASECHANGE, 0.2 'l
SetNextKey 77, 109, "m", CASECHANGE, 0.2 'm
SetNextKey 78, 110, "n", CASECHANGE, 0.2 'n
SetNextKey 79, 111, "o", CASECHANGE, 0.2 'o
SetNextKey 80, 112, "p", CASECHANGE, 0.2 'p
SetNextKey 81, 113, "q", CASECHANGE, 0.2 'q
SetNextKey 82, 114, "r", CASECHANGE, 0.2 'r
SetNextKey 83, 115, "s", CASECHANGE, 0.2 's
SetNextKey 84, 116, "t", CASECHANGE, 0.2 't
SetNextKey 81, 117, "u", CASECHANGE, 0.2 'u
SetNextKey 81, 118, "v", CASECHANGE, 0.2 'v
SetNextKey 82, 119, "w", CASECHANGE, 0.2 'w
SetNextKey 83, 120, "x", CASECHANGE, 0.2 'x
SetNextKey 84, 121, "y", CASECHANGE, 0.2 'y
SetNextKey 81, 122, "z", CASECHANGE, 0.2 'z
 
 
COLOR 15, 2
DO
    k = GetKeyHit(s$)
    IF k <> 0 THEN PRINT k, s$
 
    _LIMIT 30
LOOP
 
 
FUNCTION GetKeyHit (s$)
    IF _WINDOWHASFOCUS THEN
        FOR i = 0 TO 1000
            SELECT CASE Keys(i).Index
                CASE 0: r = 0
                CASE ELSE: r = GetKeyState(Keys(i).Index)
            END SELECT
 
            IF r AND &H8000 THEN 'the key is down
 
                IF Keys(16).Down THEN CaseShift = -1 ELSE CaseShift = 0
                IF Keys(i).Modifiers AND CASECHANGE THEN
                    IF _CAPSLOCK THEN CaseShift = NOT CaseShift
                END IF
 
                IF Keys(i).Down = 0 THEN
                    IF CaseShift = 0 THEN 'If shift is down
                        IF (Keys(i).Modifiers AND KEY_SHIFT) = 0 THEN 'and we have a shift-modifer for out key
                            GetKeyHit = Keys(i).KeyCodeReturn 'return it's value
                            s$ = Keys(i).ASCII
                            Keys(i).Down = -1
                            Keys(i).LastHit = TIMER + Keys(i).Repeat
                        END IF
                    ELSE 'shift is up
                        IF (Keys(i).Modifiers AND KEY_SHIFT) THEN
                            GetKeyHit = Keys(i).KeyCodeReturn
                            s$ = Keys(i).ASCII
                            Keys(i).Down = -1
                            Keys(i).LastHit = TIMER + Keys(i).Repeat
                        END IF
                    END IF
 
                ELSE
                    'if the key is already down, we check to see if the repeat time has passed and then repeat the down call
                    IF TIMER <= Keys(i).LastHit THEN
                        GetKeyHit = 0
                    ELSE
                        IF (Keys(i).Modifiers AND TOGGLE) = 0 THEN Keys(i).Down = 0
                    END IF
                END IF
            ELSE
                IF Keys(i).Down THEN
                    GetKeyHit = -Keys(i).KeyCodeReturn
                    Keys(i).Down = 0
                    Keys(i).LastHit = 0
                END IF
            END IF
        NEXT
 
    END IF
END SUB
 
 
SUB SetNextKey (Index AS LONG, KeyCodeReturn AS LONG, ASCII AS STRING, Modifiers AS LONG, Repeat AS _FLOAT)
    STATIC Which AS INTEGER
    Which = Which + 1
    Keys(Which).Index = Index
    Keys(Which).KeyCodeReturn = KeyCodeReturn
    Keys(Which).ASCII = ASCII
    Keys(Which).Modifiers = Modifiers
    Keys(Which).Repeat = Repeat
    Keys(Which).LastHit = 0
END SUB
 
SUB SetKey (Which AS LONG, Index AS LONG, KeyCodeReturn AS LONG, ASCII AS STRING, Modifiers AS LONG, Repeat AS _FLOAT)
    Keys(Which).Index = Index
    Keys(Which).KeyCodeReturn = KeyCodeReturn
    Keys(Which).ASCII = ASCII
    Keys(Which).Modifiers = Modifiers
    Keys(Which).Repeat = Repeat
END SUB
 

This skips every QB64 key command completely and goes directly back to the source for our input handling: GetKeyState from the windows library. Using this command, I can get any keystate that Windows recognizes from my keyboard (and anyone else's keyboard, that is hooked up, for that matter) -- and it recognizes a TON of keys which none of our current input methods handle.

The list of keys which the routine can recognize is here, for anyone who is interested: https://docs.microsoft.com/en-us/windows/win32/inputdev/virtual-key-codes

Now this basically only tells us two things about a key -- is it up, or is it down? It doesn't tell the difference between "A" or "a", It doesn't care if CAPSLOCK is active, or not. It just tells us if the physical key itself is up or down.

And then, we have to process and return the proper values ourselves -- which is what the routines I'm working up here does for us.

Right now, I only have about half of the keycodes entered into the program, but I'll get around to the rest of them tomorrow. At that point, I'll have a program which works on my computer, with my keyboard (and probably anyone else's who uses a US keyboard). If Rho or Tempodi notice that the routine is giving them incorrect results for certain key combinations, then all they'll need to do is remap those keys to return the proper results they desire.

Feel free to test it out and see if there's any changes you guys would make with things, or any suggestions you might have for improvements. I think once I get this sorted out, I'll be able to work up a nice customizable input routine that should be flexible enough to work with any keyboard layout. (And even find other, extended, keys such as Play, Stop, ect for video/music control.)

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on December 29, 2019, 07:43:33 am

An update which should have all the US keys properly mapped for use:

Code: QB64: [Select]

DECLARE LIBRARY 'function is already used by QB64 so "User32" is not required
    FUNCTION GetKeyState% (BYVAL vkey AS LONG)
END DECLARE
 
 
TYPE KeyboardInfo_Type
    Index AS LONG
    KeyCodeReturn AS LONG
    ASCII AS STRING
    Modifiers AS LONG
    Repeat AS _FLOAT
    LastHit AS _FLOAT
    Down AS INTEGER
END TYPE
DIM SHARED Keys(1000) AS KeyboardInfo_Type
CONST NONE = 0, KEY_CTRL = 1, KEY_NO_CTRL = 2
CONST KEY_SHIFT = 4, KEY_NO_SHIFT = 8, KEY_ALT = 16, KEY_NO_ALT = 32
CONST KEY_ALTGR = 64, CASECHANGE = 128, TOGGLE = 256
 
Set_US_Keys
 
 
COLOR 15, 2
_CONTROLCHR OFF
DO
    k = GetKeyHit(s$)
    IF k <> 0 THEN PRINT k, s$
 
    _LIMIT 30
LOOP UNTIL k = 27 'escape
 
 
FUNCTION GetKeyHit (s$)
    IF _WINDOWHASFOCUS THEN
        FOR i = 0 TO 1000
            SELECT CASE Keys(i).Index
                CASE 0: r = 0
                CASE ELSE: r = GetKeyState(Keys(i).Index)
            END SELECT
 
            IF r AND &H8000 THEN 'the key is down
                IF Keys(16).Down THEN CaseShift = -1 ELSE CaseShift = 0
                IF Keys(i).Modifiers AND CASECHANGE THEN
                    IF _CAPSLOCK THEN CaseShift = NOT CaseShift
                END IF
 
                IF Keys(i).Down = 0 THEN 'If the key state is recorded as up
                    checkkeys:
                    IF (Keys(i).Modifiers AND KEY_SHIFT) THEN 'we have a shift modifier on the key
                        IF CaseShift THEN 'and shift is down
                            Keys(i).LastHit = TIMER + Keys(i).Repeat 'and record when we hit it for repeat purposes
                            GetKeyHit = Keys(i).KeyCodeReturn: s$ = Keys(i).ASCII
                            Keys(i).Down = -1 'record it as being down
                        END IF
                    ELSEIF (Keys(i).Modifiers AND KEY_NO_SHIFT) THEN 'we have a no shift modifier on the key
                        IF CaseShift = 0 THEN
                            Keys(i).LastHit = TIMER + Keys(i).Repeat 'and record when we hit it for repeat purposes
                            GetKeyHit = Keys(i).KeyCodeReturn: s$ = Keys(i).ASCII
                            Keys(i).Down = -1 'record it as being down
                        END IF
                    ELSE 'we have a NONE modifier on the key
                        Keys(i).LastHit = TIMER + Keys(i).Repeat 'and record when we hit it for repeat purposes
                        GetKeyHit = Keys(i).KeyCodeReturn: s$ = Keys(i).ASCII
                        Keys(i).Down = -1 'record it as being down
                    END IF
                ELSE 'the keystate has been recorded as being down
                    IF TIMER <= Keys(i).LastHit THEN 'unless the repeat time has passed
                        GetKeyHit = 0 'we don't report the key as being active
                    ELSE 'if the repeat time has passed...
                        IF (Keys(i).Modifiers AND TOGGLE) = 0 THEN GOTO checkkeys 'then recheck to see if the key is still down
                    END IF
                END IF
            ELSE 'the key is up
                IF Keys(i).Down THEN 'and the keys were reported as being down
                    GetKeyHit = -Keys(i).KeyCodeReturn 'so report the key release
                    Keys(i).Down = 0 'and record the key as being up now
                    Keys(i).LastHit = 0 'and we can say it's last hit (in regards to repeating itself) is now done.
                END IF
            END IF
        NEXT
 
    END IF
END SUB
 
 
SUB SetNextKey (Index AS LONG, KeyCodeReturn AS LONG, ASCII AS STRING, Modifiers AS LONG, Repeat AS _FLOAT)
    STATIC Which AS INTEGER
    Which = Which + 1
    Keys(Which).Index = Index
    Keys(Which).KeyCodeReturn = KeyCodeReturn
    Keys(Which).ASCII = ASCII
    Keys(Which).Modifiers = Modifiers
    Keys(Which).Repeat = Repeat
    Keys(Which).LastHit = 0
END SUB
 
SUB SetKey (Which AS LONG, Index AS LONG, KeyCodeReturn AS LONG, ASCII AS STRING, Modifiers AS LONG, Repeat AS _FLOAT)
    Keys(Which).Index = Index
    Keys(Which).KeyCodeReturn = KeyCodeReturn
    Keys(Which).ASCII = ASCII
    Keys(Which).Modifiers = Modifiers
    Keys(Which).Repeat = Repeat
END SUB
 
SUB Set_US_Keys
    SetNextKey 1, 100001, "LMB", NONE, 0.2 'Left Mouse Button
    SetNextKey 2, 100002, "RMB", NONE, 0.2 'Right Mouse Button
    SetNextKey 3, 900001, "CANCEL", NONE, 0.2 'VK_Cancel
    SetNextKey 4, 100003, "MMB", NONE, 0.2 'Middle Mouse Button
    SetNextKey 5, 100004, "MB4", NONE, 0.2 'Mouse Button 4
    SetNextKey 6, 100005, "MB5", NONE, 0.2 'Mouse Button 5
    SetNextKey 7, 900007, "UNDEFINED", NONE, 0 'Undefined
    SetNextKey 8, 8, CHR$(8), NONE, 0.2 'BackSpace
    SetNextKey 9, 9, CHR$(9), NONE, 0.2 'Tab
    SetNextKey 10, 900010, "RESERVED", NONE, 0 'Reserved
    SetNextKey 11, 900011, "RESERVED", NONE, 0 'Reserved
    SetNextKey 12, 19456, CHR$(0) + CHR$(76), NONE, 0.2 'Clear
    SetNextKey 13, 13, CHR$(13), NONE, 0.2 'Enter
    SetNextKey 14, 900014, "UNDEFINED", NONE, 0 'Undefined
    SetNextKey 15, 900015, "UNDEFINED", NONE, 0 'Undefined
    SetNextKey 16, 100016, "SHIFT", TOGGLE, 0 'Shift (Notice I set it to simple toddle and report UP/DOWN results for us)
    SetNextKey 17, 100017, "CTRL", TOGGLE, 0 'Ctrl   (Same)
    SetNextKey 18, 100018, "ALT", TOGGLE, 0 'Alt     (Same)
    SetNextKey 19, 100019, "PAUSE", NONE, 0 'Pause
    SetNextKey 20, 100301, "CAPS", TOGGLE, 0 'Caps Lock
    SetNextKey 21, 900021, "VK_HANGUL", NONE, 0 'VK_Hangul
    SetNextKey 22, 900022, "UNDEFINED", NONE, 0 'Undefined
    SetNextKey 23, 900023, "VK_JUNJA", NONE, 0 'VK_Junja
    SetNextKey 24, 900024, "VK_FINAL", NONE, 0 'VK_Final
    SetNextKey 25, 900025, "VK_HANJA/VK_KANJI", NONE, 0 'VK_HANGA and VK_Kanji
    SetNextKey 26, 900026, "UNDEFINED", NONE, 0 'Undefined
    SetNextKey 27, 27, CHR$(27), NONE, 0.2 'ESC
    SetNextKey 28, 900028, "VK_CONVERT", NONE, 0 'VK_Convert
    SetNextKey 29, 900029, "VK_NONCONVERT", NONE, 0 'VK_NonConvery
    SetNextKey 30, 900030, "VK_ACCEPT", NONE, 0 'VK_Accept
    SetNextKey 31, 900031, "VK_MODECHANGE", NONE, 0 'VK_ModeChange
    SetNextKey 32, 32, " ", NONE, 0.2 'Space
    SetNextKey 33, 18688, CHR$(0) + CHR$(73), NONE, 0.2 'Page Up
    SetNextKey 34, 20736, CHR$(0) + CHR$(81), NONE, 0.2 'Page Down
    SetNextKey 35, 20224, CHR$(0) + CHR$(79), NONE, 0.2 'END
    SetNextKey 36, 18176, CHR$(0) + CHR$(71), NONE, 0.2 'HOME
    SetNextKey 37, 19200, CHR$(0) + CHR$(75), NONE, 0.2 'Left Arrow
    SetNextKey 38, 18432, CHR$(0) + CHR$(72), NONE, 0.2 'Up Arrow
    SetNextKey 39, 19712, CHR$(0) + CHR$(77), NONE, 0.2 'Right Arrow
    SetNextKey 40, 20480, CHR$(0) + CHR$(80), NONE, 0.2 'Down Arrow
    SetNextKey 41, 900041, "VK_SELECT", NONE, 0 'VK_SELECT
    SetNextKey 42, 900042, "VK_PRINT", NONE, 0 'VK_PRINT
    SetNextKey 43, 900043, "VK_EXECUTE", NONE, 0 'VK_EXECUTE
    SetNextKey 44, 900044, "VK_SNAPSHOT", NONE, 0 'VK_SNAPSHOT
    SetNextKey 45, 20992, CHR$(0) + CHR$(82), NONE, 0 'INS
    SetNextKey 46, 21248, CHR$(0) + CHR$(83), NONE, 0 'DEL
    SetNextKey 47, 900047, "VK_HELP", NONE, 0 'VK_HELP
 
 
    SetNextKey 48, 48, "0", KEY_NO_SHIFT, 0.2 '0
    SetNextKey 49, 49, "1", KEY_NO_SHIFT, 0.2 '1
    SetNextKey 50, 50, "2", KEY_NO_SHIFT, 0.2 '2
    SetNextKey 51, 51, "3", KEY_NO_SHIFT, 0.2 '3
    SetNextKey 52, 52, "4", KEY_NO_SHIFT, 0.2 '4
    SetNextKey 53, 53, "5", KEY_NO_SHIFT, 0.2 '5
    SetNextKey 54, 54, "6", KEY_NO_SHIFT, 0.2 '6
    SetNextKey 55, 55, "7", KEY_NO_SHIFT, 0.2 '7
    SetNextKey 56, 56, "8", KEY_NO_SHIFT, 0.2 '8
    SetNextKey 57, 57, "9", KEY_NO_SHIFT, 0.2 '9
 
    SetNextKey 48, 41, ")", KEY_SHIFT, 0.2 '0
    SetNextKey 49, 33, "!", KEY_SHIFT, 0.2 '1
    SetNextKey 50, 64, "@", KEY_SHIFT, 0.2 '2
    SetNextKey 51, 35, "#", KEY_SHIFT, 0.2 '3
    SetNextKey 52, 36, "$", KEY_SHIFT, 0.2 '4
    SetNextKey 53, 37, "%", KEY_SHIFT, 0.2 '5
    SetNextKey 54, 94, "^", KEY_SHIFT, 0.2 '6
    SetNextKey 55, 38, "&", KEY_SHIFT, 0.2 '7
    SetNextKey 56, 42, "*", KEY_SHIFT, 0.2 '8
    SetNextKey 57, 40, "(", KEY_SHIFT, 0.2 '9
 
    SetNextKey 58, 900058, "UNDEFINED", NONE, 0 'Undefined
    SetNextKey 59, 900059, "UNDEFINED", NONE, 0 'Undefined
    SetNextKey 60, 900060, "UNDEFINED", NONE, 0 'Undefined
    SetNextKey 61, 900061, "UNDEFINED", NONE, 0 'Undefined
    SetNextKey 62, 900062, "UNDEFINED", NONE, 0 'Undefined
    SetNextKey 63, 900063, "UNDEFINED", NONE, 0 'Undefined
    SetNextKey 64, 900064, "UNDEFINED", NONE, 0 'Undefined
 
    SetNextKey 65, 65, "A", CASECHANGE + KEY_SHIFT, 0.2 'A
    SetNextKey 66, 66, "B", CASECHANGE + KEY_SHIFT, 0.2 'B
    SetNextKey 67, 67, "C", CASECHANGE + KEY_SHIFT, 0.2 'C
    SetNextKey 68, 68, "D", CASECHANGE + KEY_SHIFT, 0.2 'D
    SetNextKey 69, 69, "E", CASECHANGE + KEY_SHIFT, 0.2 'E
    SetNextKey 70, 70, "F", CASECHANGE + KEY_SHIFT, 0.2 'F
    SetNextKey 71, 71, "G", CASECHANGE + KEY_SHIFT, 0.2 'G
    SetNextKey 72, 72, "H", CASECHANGE + KEY_SHIFT, 0.2 'H
    SetNextKey 73, 73, "I", CASECHANGE + KEY_SHIFT, 0.2 'I
    SetNextKey 74, 74, "J", CASECHANGE + KEY_SHIFT, 0.2 'J
    SetNextKey 75, 75, "K", CASECHANGE + KEY_SHIFT, 0.2 'K
    SetNextKey 76, 76, "L", CASECHANGE + KEY_SHIFT, 0.2 'L
    SetNextKey 77, 77, "M", CASECHANGE + KEY_SHIFT, 0.2 'M
    SetNextKey 78, 78, "N", CASECHANGE + KEY_SHIFT, 0.2 'N
    SetNextKey 79, 79, "O", CASECHANGE + KEY_SHIFT, 0.2 'O
    SetNextKey 80, 80, "P", CASECHANGE + KEY_SHIFT, 0.2 'P
    SetNextKey 81, 81, "Q", CASECHANGE + KEY_SHIFT, 0.2 'Q
    SetNextKey 82, 82, "R", CASECHANGE + KEY_SHIFT, 0.2 'R
    SetNextKey 83, 83, "S", CASECHANGE + KEY_SHIFT, 0.2 'S
    SetNextKey 84, 84, "T", CASECHANGE + KEY_SHIFT, 0.2 'T
    SetNextKey 85, 85, "U", CASECHANGE + KEY_SHIFT, 0.2 'U
    SetNextKey 86, 86, "V", CASECHANGE + KEY_SHIFT, 0.2 'V
    SetNextKey 87, 87, "W", CASECHANGE + KEY_SHIFT, 0.2 'W
    SetNextKey 88, 88, "X", CASECHANGE + KEY_SHIFT, 0.2 'X
    SetNextKey 89, 89, "Y", CASECHANGE + KEY_SHIFT, 0.2 'Y
    SetNextKey 90, 90, "Z", CASECHANGE + KEY_SHIFT, 0.2 'Z
 
    SetNextKey 65, 97, "a", CASECHANGE + KEY_NO_SHIFT, 0.2 'a
    SetNextKey 66, 98, "b", CASECHANGE + KEY_NO_SHIFT, 0.2 'b
    SetNextKey 67, 99, "c", CASECHANGE + KEY_NO_SHIFT, 0.2 'c
    SetNextKey 68, 100, "d", CASECHANGE + KEY_NO_SHIFT, 0.2 'd
    SetNextKey 69, 101, "e", CASECHANGE + KEY_NO_SHIFT, 0.2 'e
    SetNextKey 70, 102, "f", CASECHANGE + KEY_NO_SHIFT, 0.2 'f
    SetNextKey 71, 103, "g", CASECHANGE + KEY_NO_SHIFT, 0.2 'g
    SetNextKey 72, 104, "h", CASECHANGE + KEY_NO_SHIFT, 0.2 'h
    SetNextKey 73, 105, "i", CASECHANGE + KEY_NO_SHIFT, 0.2 'i
    SetNextKey 74, 106, "j", CASECHANGE + KEY_NO_SHIFT, 0.2 'j
    SetNextKey 75, 107, "k", CASECHANGE + KEY_NO_SHIFT, 0.2 'k
    SetNextKey 76, 108, "l", CASECHANGE + KEY_NO_SHIFT, 0.2 'l
    SetNextKey 77, 109, "m", CASECHANGE + KEY_NO_SHIFT, 0.2 'm
    SetNextKey 78, 110, "n", CASECHANGE + KEY_NO_SHIFT, 0.2 'n
    SetNextKey 79, 111, "o", CASECHANGE + KEY_NO_SHIFT, 0.2 'o
    SetNextKey 80, 112, "p", CASECHANGE + KEY_NO_SHIFT, 0.2 'p
    SetNextKey 81, 113, "q", CASECHANGE + KEY_NO_SHIFT, 0.2 'q
    SetNextKey 82, 114, "r", CASECHANGE + KEY_NO_SHIFT, 0.2 'r
    SetNextKey 83, 115, "s", CASECHANGE + KEY_NO_SHIFT, 0.2 's
    SetNextKey 84, 116, "t", CASECHANGE + KEY_NO_SHIFT, 0.2 't
    SetNextKey 85, 117, "u", CASECHANGE + KEY_NO_SHIFT, 0.2 'u
    SetNextKey 86, 118, "v", CASECHANGE + KEY_NO_SHIFT, 0.2 'v
    SetNextKey 87, 119, "w", CASECHANGE + KEY_NO_SHIFT, 0.2 'w
    SetNextKey 88, 120, "x", CASECHANGE + KEY_NO_SHIFT, 0.2 'x
    SetNextKey 89, 121, "y", CASECHANGE + KEY_NO_SHIFT, 0.2 'y
    SetNextKey 90, 122, "z", CASECHANGE + KEY_NO_SHIFT, 0.2 'z
 
    SetNextKey 91, 100311, "VK_LWIN", TOGGLE, 0.2 'Left WIN
    SetNextKey 92, 100312, "VK_RWIN", TOGGLE, 0.2 'Right WIN
    SetNextKey 93, 100319, "VK_APPS", TOGGLE, 0.2 'Applications Key  (Menu key)
    SetNextKey 94, 900094, "RESERVED", NONE, 0 'Reserved
    SetNextKey 95, 900095, "VK_SLEEP", NONE, 0.2 'VK_SLEEP
 
    SetNextKey 96, 48, "0", NONE, 0.2 'Numpad 0
    SetNextKey 97, 49, "1", NONE, 0.2 'Numpad 1
    SetNextKey 98, 50, "2", NONE, 0.2 'Numpad 2
    SetNextKey 99, 51, "3", NONE, 0.2 'Numpad 3
    SetNextKey 100, 52, "4", NONE, 0.2 'Numpad 4
    SetNextKey 101, 53, "5", NONE, 0.2 'Numpad 5
    SetNextKey 102, 54, "6", NONE, 0.2 'Numpad 6
    SetNextKey 103, 55, "7", NONE, 0.2 'Numpad 7
    SetNextKey 104, 56, "8", NONE, 0.2 'Numpad 8
    SetNextKey 105, 57, "9", NONE, 0.2 'Numpad 9
 
    SetNextKey 106, 42, "*", NONE, 0.2 'Muliply
    SetNextKey 107, 43, "+", NONE, 0.2 'Add
    SetNextKey 108, 900108, "VK_SEPARATOR", NONE, 0.2 'VK_SEPARATOR (Whatever the hell that is)
    SetNextKey 109, 51, "-", NONE, 0.2 'Subtract
    SetNextKey 110, 52, ".", NONE, 0.2 'Decimal
    SetNextKey 111, 53, "/", NONE, 0.2 'Divide
 
    SetNextKey 112, 15104, CHR$(0) + CHR$(59), NONE, 0.2 'F1
    SetNextKey 113, 15360, CHR$(0) + CHR$(60), NONE, 0.2 'F2
    SetNextKey 114, 15616, CHR$(0) + CHR$(61), NONE, 0.2 'F3
    SetNextKey 115, 15872, CHR$(0) + CHR$(62), NONE, 0.2 'F4
    SetNextKey 116, 16128, CHR$(0) + CHR$(63), NONE, 0.2 'F5
    SetNextKey 117, 16384, CHR$(0) + CHR$(64), NONE, 0.2 'F6
    SetNextKey 118, 16640, CHR$(0) + CHR$(65), NONE, 0.2 'F7
    SetNextKey 119, 16896, CHR$(0) + CHR$(66), NONE, 0.2 'F8
    SetNextKey 120, 17152, CHR$(0) + CHR$(67), NONE, 0.2 'F9
    SetNextKey 121, 17408, CHR$(0) + CHR$(68), NONE, 0.2 'F10
    SetNextKey 122, 34048, CHR$(0) + CHR$(133), NONE, 0.2 'F11
    SetNextKey 123, 34304, CHR$(0) + CHR$(134), NONE, 0.2 'F12
    SetNextKey 124, 900124, "F13", NONE, 0.2 'F13
    SetNextKey 125, 900125, "F14", NONE, 0.2 'F14
    SetNextKey 126, 900126, "F15", NONE, 0.2 'F15
    SetNextKey 127, 900127, "F16", NONE, 0.2 'F16
    SetNextKey 128, 900128, "F17", NONE, 0.2 'F17
    SetNextKey 129, 900129, "F18", NONE, 0.2 'F18
    SetNextKey 130, 900130, "F19", NONE, 0.2 'F19
    SetNextKey 131, 900131, "F20", NONE, 0.2 'F20
    SetNextKey 132, 900132, "F21", NONE, 0.2 'F21
    SetNextKey 133, 900133, "F22", NONE, 0.2 'F22
    SetNextKey 134, 900134, "F23", NONE, 0.2 'F23
    SetNextKey 135, 900135, "F24", NONE, 0.2 'F24
 
    FOR i = 136 TO 143
        SetNextKey i, 900000 + i, "UNASSIGNED", NONE, 0 'Unassigned
    NEXT
 
    SetNextKey 144, 100300, "VK_NUMLOCK", TOGGLE, 0.2 'NUM LOCK
    SetNextKey 145, 100302, "VK_SCROLL", TOGGLE, 0.2 'SCROLL LOCK
 
    SetNextKey 146, 900146, "OEM SPECIFIC", NONE, 0 'OEM SPECIFIC
    SetNextKey 147, 900147, "OEM SPECIFIC", NONE, 0 'OEM SPECIFIC
    SetNextKey 148, 900148, "OEM SPECIFIC", NONE, 0 'OEM SPECIFIC
    SetNextKey 149, 900149, "OEM SPECIFIC", NONE, 0 'OEM SPECIFIC
    SetNextKey 150, 900150, "OEM SPECIFIC", NONE, 0 'OEM SPECIFIC
 
    FOR i = 151 TO 159
        SetNextKey i, 900000 + i, "UNASSIGNED", NONE, 0 'Unassigned
    NEXT
 
    SetNextKey 160, 100304, "VK_LSHIFT", TOGGLE, 0.2 'Left SHIFT
    SetNextKey 161, 100303, "VK_RSHIFT", TOGGLE, 0.2 'Right SHIFT
    SetNextKey 162, 100306, "VK_LCONTROL", TOGGLE, 0.2 'Left CONTROL
    SetNextKey 163, 100305, "VK_RCONTROL", TOGGLE, 0.2 'Right CONTROL
    SetNextKey 164, 100308, "VK_LMENU", TOGGLE, 0.2 'Left Alt (Why does MS document these as Menu keys??)
    SetNextKey 165, 100309, "VK_RMENU", TOGGLE, 0.2 'Right Alt
 
    SetNextKey 166, 900166, "BK_BROWSER_BACK", NONE, 0.2 'Browser back
    SetNextKey 167, 900167, "BK_BROWSER_FORWARD", NONE, 0.2 'Browser forwar
    SetNextKey 168, 900168, "BK_BROWSER_REFRESH", NONE, 0.2 'Browser refresh
    SetNextKey 169, 900169, "BK_BROWSER_STOP", NONE, 0.2 'Browser stop
    SetNextKey 170, 900170, "BK_BROWSER_SEARCH", NONE, 0.2 'Browser search
    SetNextKey 171, 900171, "BK_BROWSER_FAVORITES", NONE, 0.2 'Browser favorites
    SetNextKey 172, 900172, "BK_BROWSER_HOME", NONE, 0.2 'Browser home
    SetNextKey 173, 900173, "BK_VOLUME_MUTE", NONE, 0.2 'Mute
    SetNextKey 174, 900174, "BK_VOLUME_DOWN", NONE, 0.2 'Vol Down
    SetNextKey 175, 900175, "BK_VOLUME_UP", NONE, 0.2 'Vol Up
    SetNextKey 176, 900176, "VK_MEDIA_NEXT_TRACK", NONE, 0.2 'Media Next
    SetNextKey 177, 900177, "VK_MEDIA_PREV_TRACK", NONE, 0.2 'Media Prev
    SetNextKey 178, 900178, "VK_MEDIA_STOP", NONE, 0.2 'Media Stop
    SetNextKey 179, 900179, "VK_MEDIA_PLAY_PAUSE", NONE, 0.2 'Media Play/Pause
    SetNextKey 180, 900180, "VK_LAUNCH_MAIL", NONE, 0.2 'Launch Mail
    SetNextKey 181, 900181, "VK_LAUNCH_MEDIA_SELECT", NONE, 0.2 'Launch Media Select
    SetNextKey 182, 900182, "VK_LAUNCH_APP1", NONE, 0.2 'Launch App1
    SetNextKey 183, 900183, "VK_LAUNCH_APP1", NONE, 0.2 'Launch App2
 
    SetNextKey 184, 900184, "RESERVED", NONE, 0 'Reserved
    SetNextKey 185, 900185, "RESERVED", NONE, 0 'Reserved
 
    SetNextKey 186, 59, ";", KEY_NO_SHIFT, 0.2 'US STANDARD ;:
    SetNextKey 186, 58, ":", KEY_SHIFT, 0.2 'US STANDARD ;:
    SetNextKey 187, 61, "=", KEY_NO_SHIFT, 0.2 '=
    SetNextKey 187, 43, "+", KEY_SHIFT, 0.2 '+
    SetNextKey 188, 44, ",", KEY_NO_SHIFT, 0.2 ',
    SetNextKey 188, 60, "<", KEY_SHIFT, 0.2 ',
    SetNextKey 189, 45, "-", KEY_NO_SHIFT, 0.2 '-
    SetNextKey 189, 95, "_", KEY_SHIFT, 0.2 '-
    SetNextKey 190, 46, ".", KEY_NO_SHIFT, 0.2 '.
    SetNextKey 190, 62, ">", KEY_SHIFT, 0.2 '.
    SetNextKey 191, 47, "/", KEY_NO_SHIFT, 0.2 'US STANDARD /?
    SetNextKey 191, 63, "?", KEY_SHIFT, 0.2 'US STANDARD ?
    SetNextKey 192, 96, "`", KEY_NO_SHIFT, 0.2 'US STANARD `
    SetNextKey 192, 126, "~", KEY_SHIFT, 0.2 'US STANDARD ~
 
    FOR i = 193 TO 215
        SetNextKey i, 900000 + i, "RESERVED", NONE, 0 'Reserved
    NEXT
    FOR i = 216 TO 218
        SetNextKey i, 900000 + i, "UNASSIGNED", NONE, 0 'Unassigned
    NEXT
 
    SetNextKey 219, 91, "[", KEY_NO_SHIFT, 0.2 'US STANDARD [
    SetNextKey 219, 123, "{", KEY_SHIFT, 0.2 'US STANDARD {
    SetNextKey 220, 92, "\", KEY_NO_SHIFT, 0.2 'US STANDARD \
    SetNextKey 220, 124, "|", KEY_SHIFT, 0.2 'US STANDARD |
    SetNextKey 221, 93, "]", KEY_NO_SHIFT, 0.2 'US STANDARD ]
    SetNextKey 221, 125, "}", KEY_SHIFT, 0.2 'US STANDARD }
    SetNextKey 222, 39, "'", KEY_NO_SHIFT, 0.2 'US STANDARD '
    SetNextKey 222, 34, CHR$(34), KEY_SHIFT, 0.2 'US STANDARD "
 
    SetNextKey 223, 900223, "VK_OEM_8", NONE, 0 'OEM SPECIFIC
    SetNextKey 224, 900224, "RESERVED", NONE, 0 'Reserved
    SetNextKey 225, 900225, "OEM SPECIFIC", NONE, 0 'OEM SPECIFIC
    SetNextKey 226, 900226, "VK_OEM_102", NONE, 0 'Either the Angle Bracket key, or Backslash on RT 102-key keyboard
    SetNextKey 227, 900227, "OEM SPECIFIC", NONE, 0 'OEM SPECIFIC
    SetNextKey 228, 900228, "OEM SPECIFIC", NONE, 0 'OEM SPECIFIC
 
    SetNextKey 229, 900229, "VK_PROCESS", NONE, 0 'IME PROCESS key (whatever that is)
    SetNextKey 230, 900230, "OEM SPECIFIC", NONE, 0 'OEM SPECIFIC
    SetNextKey 231, 900231, "VK_PACKET", NONE, 0 'Used to pass UNICODE characters (however that works)
 
    SetNextKey 232, 900232, "UNASSIGNED", NONE, 0 'Unassigned
    FOR i = 233 TO 245
        SetNextKey i, 900000 + i, "OEM SPECIFIC", NONE, 0 'OEM SPECIFIC
    NEXT
 
    SetNextKey 246, 900246, "VK_ATTN", NONE, 0 'VK_ATTN
    SetNextKey 247, 900247, "VK_CRSEL", NONE, 0 'VK_CRSEL
    SetNextKey 248, 900248, "VK_EXSEL", NONE, 0 'VK_EXSEL
    SetNextKey 249, 900249, "VK_EREOF", NONE, 0 'VK_EREOF
    SetNextKey 250, 900250, "VK_PLAY", NONE, 0 'VK_PLAY
    SetNextKey 251, 900251, "VK_ZOOM", NONE, 0 'VK_ZOOM
    SetNextKey 252, 900252, "RESERVED", NONE, 0 'RESERVED
    SetNextKey 253, 900253, "VK_PA1", NONE, 0 'VK_PA1
    SetNextKey 254, 900254, "VK_OEM_CLEAR", NONE, 0 'VK_OEM_CLEAR
END SUB

Initial testing seems to show that this works as intended for me, giving both KEYHIT and INKEY$ type character returns. Of course, there's a lot of keys that this thing can detect that _KEYHIT was never actually designed to return values for (such as some of the browser buttons, or media buttons that several newer keyboards have), so I had to design my own keyhit codes for those keys.. The simple standard I came up with is just 900000 + the windows code for the key, so some keys may come up with those code for unusual keyboards.

In the end, I figure it's best to report a key being hit, no matter what it is, if we can report it, than it is to just ignore it! Someone can always remap it's output values later for whatever their needs might be, if they want to, if we can detect it! ;)

It might not be an idea solution for code which one needs to share globally, (at least not unless somebody can configure various language packs to work with different layouts, like we have different map_unicode pages), but it'll allow users to customize the scan code settings and adjust them to their keyboard/needs. :)

Title: Re: Programmable Keyboard Input
Post by: TempodiBasic on December 29, 2019, 09:49:53 am

Great work !

1. I must run it in DEVelopment version the latest that today I have downloaded from QB64 webpage.
2. I find that it is ok for US keyboard and that both with external USB keyboard both with normal keyboard of the notebook it is ok and it shows the key like an US keyboard while using them into any windows application they work as IT keyboard (also if the USB keyboard is not just IT for key that it shows).
So each one can define the right key symbol for the different keys copying and modding the Set_US_Keys SUB.

I must stress that also mouse Lbutton Rbutton and Mbutton are ok while Mousewheel is not catched, I don't know if it must be captured but this thing can be useful to get out the instruction of keyboard and mouse already standing in QB64.

My keyboard has only F12 keys, I cannot test the other Fkeys. Moreover PrintScreen don't give a feedback to have been pressed so Scroll Lock while Break close this your application!
And you make the magic about Windows Keys (right and left) and AppKey, now you can get their status also if then the focus pass to the OS that activate the OS menu .

If I am able to install the latest dev version in my Ubuntu emulator I can test it also there.

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on December 29, 2019, 10:31:43 am

For whatever reason, there’s no code for the mousewheel, so I can’t retrieve that information with this. However, you can now get the 4th and 5th mouse buttons back (if your mouse has the extra ones, as mine does). I also find it nice that one could easily use it as an extra way to exit a SLEEP-style routine with it reporting a mouse click as a key event. ;)

There’s a lot of keys that it checks for, that I simply have to assume work without testing, as I don’t have them on my keyboard. The media buttons work which I have, but I don’t have any of the extended F-keys, browser buttons, or quick-launch buttons to test it.

As for PrintScreen, I’ll double check and make certain I didn’t skip/mislabel it somewhere, and see if I can sort out why it’s not giving any feedback, and I’ll report back on it later. ;)

And I can save you the testing on Ubuntu; it won’t work there. GetKeyState is a Windows library routine and thus not available for Mac/Linux.

Thank you for testing it, so far! I didn’t even realize it required the Development build to work properly (I think it’s the _CAPSLOCK command which we’re missing). I have to admit, I’m anxiously looking forward to the next stable version being released soon, just so all the new commands will be available for everyone to test and utilize from now on. ;)

Title: Re: Programmable Keyboard Input
Post by: RhoSigma on December 29, 2019, 10:53:41 am

Testing in progress ... trying to add a suitable Set_DE_Keys() sub ...

Probably this function could be used to autoselect the right Set_??_Keys() sub, once a few more int'l users have provided the respective SUBs for their keyboards (https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getkeyboardlayout)

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on December 29, 2019, 12:13:47 pm

Quote from: RhoSigma on December 29, 2019, 10:53:41 am

Testing in progress ... trying to add a suitable Set_DE_Keys() sub ...

Probably this function could be used to autoselect the right Set_??_Keys() sub, once a few more int'l users have provided the respective SUBs for their keyboards (https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-getkeyboardlayout)

After getting it up and going the first time, I'm now attempting to simplify the data structure and the process behind things to make it a little easier for others to work with. Take a quick look and see if this format might be a little simpler to deal with (as long as you keep auto-formatting disabled so it spaces itself properly.)

Code: [Select]

'   Index   Unmodified      Ctrl      Shift       Alt         AltGr           Repeat
DATA   1,    900001,         0,         0,         0,           0,        0.2
DATA   2,    900002,         0,         0,         0,           0,        0.2
DATA   3,    900003,         0,         0,         0,           0,        0.2
DATA   4,    900004,         0,         0,         0,           0,        0.2
DATA   5,    900005,         0,         0,         0,           0,        0.2
DATA   6,    900006,         0,         0,         0,           0,        0.2
DATA   7,    900007,         0,         0,         0,           0,        0.2
DATA   8,         9,         0,         0,         0,           0,        0.2
DATA   9,         9,         0,         0,         0,           0,        0.2
DATA  10,    900010,         0,         0,         0,           0,        0.2
DATA  11,    900011,         0,         0,         0,           0,        0.2
DATA  12,     19456,         0,         0,         0,           0,        0.2
DATA  13,        13,         0,         0,         0,           0,        0.2
DATA  14,    900014,         0,         0,         0,           0,        0.2
DATA  15,    900015,         0,         0,         0,           0,        0.2
DATA  16,    100016,         0,         0,         0,           0,         -1
DATA  17,    100017,         0,         0,         0,           0,         -1
DATA  18,    100018,         0,         0,         0,           0,         -1
DATA  19,    100019,         0,         0,         0,           0,        0.2
DATA  20,    100301,         0,         0,         0,           0,         -1
DATA  21,    900021,         0,         0,         0,           0,        0.2
DATA  22,    900022,         0,         0,         0,           0,        0.2
DATA  23,    900023,         0,         0,         0,           0,        0.2
DATA  24,    900024,         0,         0,         0,           0,        0.2
DATA  25,    900025,         0,         0,         0,           0,        0.2
'   Index   Unmodified      Ctrl      Shift       Alt         AltGr           Repeat
DATA  26,    900026,         0,         0,         0,           0,        0.2
DATA  27,        27,         0,         0,         0,           0,        0.2
DATA  28,    900028,         0,         0,         0,           0,        0.2
DATA  29,    900029,         0,         0,         0,           0,        0.2
DATA  30,    900030,         0,         0,         0,           0,        0.2
DATA  31,    900031,         0,         0,         0,           0,        0.2
DATA  32,        32,         0,         0,         0,           0,        0.2
DATA  33,     18688,         0,         0,         0,           0,        0.2
DATA  34,     20736,         0,         0,         0,           0,        0.2
DATA  35,     20224,         0,         0,         0,           0,        0.2
DATA  36,     18176,         0,         0,         0,           0,        0.2
DATA  37,     19200,         0,         0,         0,           0,        0.2
DATA  38,     18432,         0,         0,         0,           0,        0.2
DATA  39,     19712,         0,         0,         0,           0,        0.2
DATA  40,     20480,         0,         0,         0,           0,        0.2
DATA  41,    900041,         0,         0,         0,           0,         -1
DATA  42,    900042,         0,         0,         0,           0,         -1
DATA  43,    900043,         0,         0,         0,           0,         -1
DATA  44,    900044,         0,         0,         0,           0,         -1
DATA  45,     20992,         0,         0,         0,           0,        0.2
DATA  46,     21248,         0,         0,         0,           0,        0.2
DATA  47,    900047,         0,         0,         0,           0,        0.2
DATA  48,        48,         0,        41,         0,           0,        0.2 '0
DATA  49,        49,         0,        33,         0,           0,        0.2 '1
DATA  50,        50,         0,        64,         0,           0,        0.2 '2
'   Index   Unmodified      Ctrl      Shift       Alt         AltGr           Repeat
DATA  51,        51,         0,        35,         0,           0,        0.2 '3
DATA  52,        52,         0,        36,         0,           0,        0.2 '4
DATA  53,        53,         0,        37,         0,           0,        0.2 '5
DATA  54,        54,         0,        94,         0,           0,        0.2 '6
DATA  55,        55,         0,        38,         0,           0,        0.2 '7
DATA  56,        56,         0,        42,         0,           0,        0.2 '8
DATA  57,        57,         0,        40,         0,           0,        0.2 '9
DATA  58,    900058,         0,         0,         0,           0,        0.2 'Undefined
DATA  59,    900059,         0,         0,         0,           0,        0.2 'Undefined
DATA  60,    900060,         0,         0,         0,           0,        0.2 'Undefined
DATA  61,    900061,         0,         0,         0,           0,        0.2 'Undefined
DATA  62,    900062,         0,         0,         0,           0,        0.2 'Undefined
DATA  63,    900063,         0,         0,         0,           0,        0.2 'Undefined
DATA  64,    900064,         0,         0,         0,           0,        0.2 'Undefined
DATA  65,        65,         0,        97,         0,           0,        0.2 'a
DATA  66,        66,         0,        98,         0,           0,        0.2 'b
DATA  67,        67,         0,        99,         0,           0,        0.2 'c
DATA  68,        68,         0,       100,         0,           0,        0.2 'd
DATA  69,        69,         0,       101,         0,           0,        0.2 'e
DATA  70,        70,         0,       102,         0,           0,        0.2 'f
DATA  71,        71,         0,       103,         0,           0,        0.2 'g
DATA  72,        72,         0,       104,         0,           0,        0.2 'h
DATA  73,        73,         0,       105,         0,           0,        0.2 'i
DATA  74,        74,         0,       106,         0,           0,        0.2 'j
DATA  75,        75,         0,       107,         0,           0,        0.2 'k
'   Index   Unmodified      Ctrl      Shift       Alt         AltGr           Repeat
DATA  76,        76,         0,       108,         0,           0,        0.2 'l
DATA  77,        77,         0,       109,         0,           0,        0.2 'm
DATA  78,        78,         0,       110,         0,           0,        0.2 'n
DATA  79,        79,         0,       111,         0,           0,        0.2 'o
DATA  80,        80,         0,       112,         0,           0,        0.2 'p
DATA  81,        81,         0,       113,         0,           0,        0.2 'q
DATA  82,        82,         0,       114,         0,           0,        0.2 'r
DATA  83,        83,         0,       115,         0,           0,        0.2 's
DATA  84,        84,         0,       116,         0,           0,        0.2 't
DATA  85,        85,         0,       117,         0,           0,        0.2 'u
DATA  86,        86,         0,       118,         0,           0,        0.2 'v
DATA  87,        87,         0,       119,         0,           0,        0.2 'w
DATA  88,        88,         0,       120,         0,           0,        0.2 'x
DATA  89,        89,         0,       121,         0,           0,        0.2 'y
DATA  90,        90,         0,       122,         0,           0,        0.2 'z
DATA  91,    100311,         0,         0,         0,           0,        0.2 'Left WIN
DATA  92,    100312,         0,         0,         0,           0,        0.2 'Right WIN
DATA  93,    100319,         0,         0,         0,           0,        0.2 'Applications (Menu)
DATA  94,    900094,         0,         0,         0,           0,        0.2 'Reserved
DATA  95,    900095,         0,         0,         0,           0,        0.2 'VK_SLEEP
DATA  96,        48,         0,         0,         0,           0,        0.2 'Numpad 0
DATA  97,        49,         0,         0,         0,           0,        0.2 'Numpad 1
DATA  98,        50,         0,         0,         0,           0,        0.2 'Numpad 2
DATA  99,        51,         0,         0,         0,           0,        0.2 'Numpad 3
DATA 100,        52,         0,         0,         0,           0,        0.2 'Numpad 4
'   Index   Unmodified      Ctrl      Shift       Alt         AltGr           Repeat
DATA 101,        53,         0,         0,         0,           0,        0.2 'Numpad 5
DATA 102,        54,         0,         0,         0,           0,        0.2 'Numpad 6
DATA 103,        55,         0,         0,         0,           0,        0.2 'Numpad 7
DATA 104,        56,         0,         0,         0,           0,        0.2 'Numpad 8
DATA 105,        57,         0,         0,         0,           0,        0.2 'Numpad 9
DATA 106,        42,         0,         0,         0,           0,        0.2 'Numpad *
DATA 107,        43,         0,         0,         0,           0,        0.2 'Numpad +
DATA 108,    900108,         0,         0,         0,           0,        0.2 'VK_SEPARATOR
DATA 109,        51,         0,         0,         0,           0,        0.2 'Numpad -
DATA 110,        52,         0,         0,         0,           0,        0.2 'Numpad .
DATA 111,        53,         0,         0,         0,           0,        0.2 'Numpad /
DATA 112,     15104,         0,         0,         0,           0,        0.2 'F1
DATA 113,     15360,         0,         0,         0,           0,        0.2 'F2
DATA 114,     15616,         0,         0,         0,           0,        0.2 'F3
DATA 115,     15872,         0,         0,         0,           0,        0.2 'F4
DATA 116,     16128,         0,         0,         0,           0,        0.2 'F5
DATA 117,     16384,         0,         0,         0,           0,        0.2 'F6
DATA 118,     16640,         0,         0,         0,           0,        0.2 'F7
DATA 119,     16896,         0,         0,         0,           0,        0.2 'F8
DATA 120,     17152,         0,         0,         0,           0,        0.2 'F9
DATA 121,     17408,         0,         0,         0,           0,        0.2 'F10
DATA 122,     34048,         0,         0,         0,           0,        0.2 'F11
DATA 123,     34304,         0,         0,         0,           0,        0.2 'F12
DATA 124,    900124,         0,         0,         0,           0,        0.2 'F13
DATA 125,    900125,         0,         0,         0,           0,        0.2 'F14
'   Index   Unmodified      Ctrl      Shift       Alt         AltGr           Repeat
DATA 126,    900126,         0,         0,         0,           0,        0.2 'F15
DATA 127,    900127,         0,         0,         0,           0,        0.2 'F16
DATA 128,    900128,         0,         0,         0,           0,        0.2 'F17
DATA 129,    900129,         0,         0,         0,           0,        0.2 'F18
DATA 130,    900130,         0,         0,         0,           0,        0.2 'F19
DATA 131,    900131,         0,         0,         0,           0,        0.2 'F20
DATA 132,    900132,         0,         0,         0,           0,        0.2 'F21
DATA 133,    900133,         0,         0,         0,           0,        0.2 'F22
DATA 134,    900134,         0,         0,         0,           0,        0.2 'F23
DATA 135,    900135,         0,         0,         0,           0,        0.2 'F24
DATA 136,    900136,         0,         0,         0,           0,        0.2 'Unassigned
DATA 137,    900137,         0,         0,         0,           0,        0.2 'Unassigned
DATA 138,    900138,         0,         0,         0,           0,        0.2 'Unassigned
DATA 139,    900139,         0,         0,         0,           0,        0.2 'Unassigned
DATA 140,    900140,         0,         0,         0,           0,        0.2 'Unassigned
DATA 141,    900141,         0,         0,         0,           0,        0.2 'Unassigned
DATA 142,    900142,         0,         0,         0,           0,        0.2 'Unassigned
DATA 143,    900143,         0,         0,         0,           0,        0.2 'Unassigned
DATA 144,    100300,         0,         0,         0,           0,        0.2 'NUM LOCK
DATA 145,    100302,         0,         0,         0,           0,        0.2 'SCROLL LOCK
DATA 146,    900146,         0,         0,         0,           0,        0.2 'OEM SPECIFIC
DATA 147,    900147,         0,         0,         0,           0,        0.2 'OEM SPECIFIC
DATA 148,    900148,         0,         0,         0,           0,        0.2 'OEM SPECIFIC
DATA 149,    900149,         0,         0,         0,           0,        0.2 'OEM SPECIFIC
DATA 150,    900150,         0,         0,         0,           0,        0.2 'OEM SPECIFIC
'   Index   Unmodified      Ctrl      Shift       Alt         AltGr           Repeat
DATA 151,    900151,         0,         0,         0,           0,        0.2 'Unassigned
DATA 152,    900152,         0,         0,         0,           0,        0.2 'Unassigned
DATA 153,    900153,         0,         0,         0,           0,        0.2 'Unassigned
DATA 154,    900154,         0,         0,         0,           0,        0.2 'Unassigned
DATA 155,    900155,         0,         0,         0,           0,        0.2 'Unassigned
DATA 156,    900156,         0,         0,         0,           0,        0.2 'Unassigned
DATA 157,    900157,         0,         0,         0,           0,        0.2 'Unassigned
DATA 158,    900158,         0,         0,         0,           0,        0.2 'Unassigned
DATA 159,    900159,         0,         0,         0,           0,        0.2 'Unassigned
DATA 160,    100304,         0,         0,         0,           0,        0.2 'Left Shift
DATA 161,    100303,         0,         0,         0,           0,        0.2 'Right Shift
DATA 162,    100306,         0,         0,         0,           0,        0.2 'Left Control
DATA 163,    100305,         0,         0,         0,           0,        0.2 'Right Control
DATA 164,    100308,         0,         0,         0,           0,        0.2 'Left Alt
DATA 165,    100309,         0,         0,         0,           0,        0.2 'Right Alt
DATA 166,    900166,         0,         0,         0,           0,        0.2 'Browser back
DATA 167,    900167,         0,         0,         0,           0,        0.2 'Browser forward
DATA 168,    900168,         0,         0,         0,           0,        0.2 'Browser refresh
DATA 169,    900169,         0,         0,         0,           0,        0.2 'Browser stop
DATA 170,    900170,         0,         0,         0,           0,        0.2 'Browser search
DATA 171,    900171,         0,         0,         0,           0,        0.2 'Browser favorites
DATA 172,    900172,         0,         0,         0,           0,        0.2 'Browser home
DATA 173,    900173,         0,         0,         0,           0,        0.2 'Mute
DATA 174,    900174,         0,         0,         0,           0,        0.2 'Vol Down
DATA 175,    900175,         0,         0,         0,           0,        0.2 'Vol Up
'   Index   Unmodified      Ctrl      Shift       Alt         AltGr           Repeat
DATA 176,    900176,         0,         0,         0,           0,        0.2 'Media Next
DATA 177,    900177,         0,         0,         0,           0,        0.2 'Media prev
DATA 178,    900178,         0,         0,         0,           0,        0.2 'Media stop
DATA 179,    900179,         0,         0,         0,           0,        0.2 'Media Play/Pause
DATA 180,    900180,         0,         0,         0,           0,        0.2 'Launch mail
DATA 181,    900181,         0,         0,         0,           0,        0.2 'Launch media select
DATA 182,    900182,         0,         0,         0,           0,        0.2 'Launch app1
DATA 183,    900183,         0,         0,         0,           0,        0.2 'Launch app2

The idea here is to simplify the data structure down to where it'd read one windows code for us, and then return the proper result based on the various keyboard states which we might have/want.

Take the letter A for an example:

DATA 65, 65, 0, 97, 0, 0, 0.2 'a

That first 65 is the windows key which GetKeyState looks at, which normally corresponds with "A".
The next 64 would be the normal QB64 _KEYHIT return code (if possible to use).
Next would be the ASCII code of any character which we might want to map to CTRL-A. (Such as CHR$(1), for people who like those old-style mappings.)
The 97 is the ASCII code which we'd return if SHIFT was held down. (Shift-A, in this case.) It's the lowercase"a".
Same for ALT-A, if we want to map a character to it, and AltGr-A, in case we want to map a return character to it.
The last value is the repeat timer, for how quickly we repeat the key if we keep it held down.

I'm still working on converting my old data into the new format, but I think it'll end up being a little more intuitive for others to use and build upon. Just like MapUnicode, we can eventually get a collection of data statements and then someone can insert those into their code and just RESTORE us_keyboard_codes, or RESTORE DE_keyboard_codes, as needed.

Give me another day or so, and I'll see about giving you guys a working version of the more simplified stuff to build upon; until then, consider what I've got here so far to be more of a working proof-of-concept of what I'm hoping to accomplish with the final, finished version. ;)

Title: Re: Programmable Keyboard Input
Post by: TempodiBasic on December 29, 2019, 05:22:45 pm

Hi Steve
thanks for tip for Ubuntu...
it lasts to who use in professional manner Linux to give a feedback showing a similar OS function in Ubuntu or in Debian or others.

A question:
in your structure how do you manage CAPSLOCK and NUMLOCK to distinguish between A and a or 7 and Home?

Quote

' Index Unmodified Ctrl Shift Alt AltGr Repeat

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on December 29, 2019, 06:40:41 pm

Quote from: TempodiBasic on December 29, 2019, 05:22:45 pm

Hi Steve
thanks for tip for Ubuntu...
it lasts to who use in professional manner Linux to give a feedback showing a similar OS function in Ubuntu or in Debian or others.

A question:
in your structure how do you manage CAPSLOCK and NUMLOCK to distinguish between A and a or 7 and Home?

One important thing I’ve noticed; the only characters affected by CAPSLOCK are A-Z, and they always hold code values 65-90 and 97-122, regardless of how other buttons might move, or be mapped differently.

Since that Index is constant, theres no need to ask the user for which characters are affected by CAPSLOCK — we already know. ;)

As for NUMLOCK, Windows itself distinguishes between the 7 and Home, or 6 and right arrow for us. We don’t have to check those values at all!

So the way it’s being handled in my new format is:

CAPSLOCK — internally, by windows GetScanKey Index.
NUMSLOCK — not at all, as Windows does this distinction for us. ;)

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on December 29, 2019, 09:21:46 pm

My overhauled system, which might be easier for others to use and adjust for their own needs now:

Code: QB64: [Select]

DECLARE LIBRARY 'function is already used by QB64 so "User32" is not required
    FUNCTION GetKeyState% (BYVAL vkey AS LONG)
END DECLARE
 
TYPE KeyboardInfo_Type
    Index AS LONG
    ASCII AS LONG
    Ctrl AS LONG
    Shift AS LONG
    Alt AS LONG
    AltGr AS LONG
    Repeat AS _FLOAT
    LastHit AS _FLOAT
    Down AS LONG
END TYPE
 
DIM SHARED Keys(254) AS KeyboardInfo_Type
Init_KeyCodes
Remap_KeyCode 65, 65, 1, 97, 160, 142, 0.2: 'a
 
_CONTROLCHR OFF
DO
    k = KeyHit
    IF k <> 0 THEN
        PRINT k;
        IF ABS(k) < 256 THEN PRINT CHR$(34); CHR$(ABS(k)); CHR$(34) ELSE PRINT
    END IF
 
    _LIMIT 30
LOOP UNTIL k = 27 'escape
 
 
FUNCTION KeyHit&
    STATIC ReturnCount AS INTEGER
    STATIC ReturnValues(30) AS LONG
    IF Keys(1).Index = 0 THEN Init_KeyCodes 'if someone forgets to put the init routine in their code, be certain to initialize the codes before attempting to use them.
 
 
    IF ReturnCount > 0 THEN 'If we generated a cue of values last pass, clear those up first, before getting new values.
        'The only time we really see this is when we hit a shift, ctrl, alt key, usually.
        KeyHit = ReturnValues(1)
        FOR i = 1 TO ReturnCount - 1
            ReturnValues(i) = ReturnValues(i + 1)
        NEXT
        ReturnCount = ReturnCount - 1
        EXIT FUNCTION
    END IF
 
    IF Keys(16).Down THEN Shift = -1 ELSE Shift = 0
    IF Keys(17).Down THEN Ctrl = -1 ELSE Ctrl = 0
    IF Keys(18).Down THEN Alt = -1 ELSE Alt = 0
    IF Ctrl AND Alt THEN AltGr = -1 ELSE AltGr = 0
 
    IF _WINDOWHASFOCUS THEN
        FOR i = 1 TO 254
 
            r = GetKeyState(Keys(i).Index) AND &H8000
 
            IF r THEN 'the key is down
 
 
                IF Keys(i).LastHit THEN
                    IF ExtendedTimer > Keys(i).LastHit THEN
                        ReturnCount = ReturnCount + 1 'add one to the return buffer
                        ReturnValues(ReturnCount) = Keys(i).Down 'and put the existing value back in the buffer, as a key repeat
                    END IF
                ELSE
 
                    IF Keys(i).Down = 0 THEN 'the key was up on the last pass.
                        IF AltGr <> 0 AND Keys(i).AltGr <> 0 THEN 'return the altgr value
                            Keys(i).Down = Keys(i).AltGr
                        ELSEIF Shift <> 0 AND Keys(i).Shift <> 0 THEN 'return the shift value
                            Keys(i).Down = Keys(i).Shift
                            IF _CAPSLOCK = 0 THEN 'caps lock basically reverses the behavior of the shift key with the letters A-Z and a-z
                                SELECT CASE i
                                    CASE 65 TO 90, 97 TO 122: Keys(i).Down = Keys(i).ASCII
                                END SELECT
                            END IF
                        ELSEIF (Ctrl <> 0) AND (Keys(i).Ctrl <> 0) THEN 'return the ctrl value
                            Keys(i).Down = Keys(i).Ctrl
                        ELSEIF Alt <> 0 AND Keys(i).Alt <> 0 THEN 'return the alt value
                            Keys(i).Down = Keys(i).Alt
                        ELSE 'all that's left is to return the ASCII value
                            Keys(i).Down = Keys(i).ASCII
                            IF _CAPSLOCK = 0 THEN 'caps lock basically reverses the behavior of the shift key with the letters A-Z and a-z
                                SELECT CASE i
                                    CASE 65 TO 90, 97 TO 122: Keys(i).Down = Keys(i).Shift
                                END SELECT
                            END IF
 
                        END IF
                        ReturnCount = ReturnCount + 1 'add one to the return buffer
                        ReturnValues(ReturnCount) = Keys(i).Down 'and store the value in the buffer
 
                        IF Keys(i).Repeat = -1 THEN 'keys that are set to a -1 on repeat simply toggle state as on, or off.
                            Keys(i).LastHit = 1E+1000 'such as SHIFT, CTRL, ALT...
                        ELSE
                            Keys(i).LastHit = ExtendedTimer + Keys(i).Repeat 'and record when we hit it for repeat purposes
                        END IF
                    END IF
                END IF
            ELSE
                IF Keys(i).Down THEN 'the key was down on the last pass
                    ReturnCount = ReturnCount + 1
                    ReturnValues(ReturnCount) = -Keys(i).Down 'mark it as being up on this one
                END IF
                Keys(i).Down = 0 'and set it back down for future passes
                Keys(i).LastHit = 0 'once again, set it as being ready to be hit again
            END IF
        NEXT
 
        IF ReturnCount > 0 THEN 'If we generated a cue of values last pass, clear those up first, before getting new values.
            'The only time we really see this is when we hit a shift, ctrl, alt key, usually.
            KeyHit = ReturnValues(1)
            FOR i = 1 TO ReturnCount - 1
                ReturnValues(i) = ReturnValues(i + 1)
            NEXT
            ReturnCount = ReturnCount - 1
            EXIT FUNCTION
        END IF
 
    END IF 'End of IF _WINDOWHASFOCUS
 
 
END FUNCTION
 
 
SUB Remap_KeyCode (Which AS LONG, ASCII AS LONG, Ctrl AS LONG, Shift AS LONG, Alt AS LONG, AltGr AS LONG, Repeat AS _FLOAT)
    DIM i AS LONG
    i = Which
    Keys(i).Index = i
    Keys(i).ASCII = ASCII
    Keys(i).Ctrl = Ctrl
    Keys(i).Shift = Shift
    Keys(i).Alt = Alt
    Keys(i).AltGr = AltGr
    Keys(i).Repeat = Repeat
    Keys(i).LastHit = 0
    Keys(i).Down = 0
END SUB
 
 
SUB Init_KeyCodes
    RESTORE default_keyboard_data
    FOR i = 1 TO 254
        READ Keys(i).Index, Keys(i).ASCII, Keys(i).Ctrl, Keys(i).Shift, Keys(i).Alt, Keys(i).AltGr, Keys(i).Repeat
        Keys(i).LastHit = 0: Keys(i).Down = 0
    NEXT
 
    default_keyboard_data:
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 1,900001,0,0,0,0,0.2:
    DATA 2,900002,0,0,0,0,0.2:
    DATA 3,900003,0,0,0,0,0.2:
    DATA 4,900004,0,0,0,0,0.2:
    DATA 5,900005,0,0,0,0,0.2:
    DATA 6,900006,0,0,0,0,0.2:
    DATA 7,900007,0,0,0,0,0.2: 'Undefined
    DATA 8,8,0,0,0,0,0.2:
    DATA 9,9,0,0,0,0,0.2:
    DATA 10,900010,0,0,0,0,0.2: 'Reserved
    DATA 11,900011,0,0,0,0,0.2: 'Reserved
    DATA 12,19456,0,0,0,0,0.2:
    DATA 13,13,0,0,0,0,0.2:
    DATA 14,900014,0,0,0,0,0.2: 'Undefined
    DATA 15,900015,0,0,0,0,0.2: 'Undefined
    DATA 16,100016,0,0,0,0,-1: 'Shift (Notice I set it to simple toddle and report UP/DOWN results for us)
    DATA 17,100017,0,0,0,0,-1: 'Ctrl   (Same)
    DATA 18,100018,0,0,0,0,-1: 'Alt     (Same)
    DATA 19,100019,0,0,0,0,0.2:
    DATA 20,100301,0,0,0,0,-1: 'Caps Lock
    DATA 21,900021,0,0,0,0,0.2:
    DATA 22,900022,0,0,0,0,0.2: 'Undefined
    DATA 23,900023,0,0,0,0,0.2:
    DATA 24,900024,0,0,0,0,0.2:
    DATA 25,900025,0,0,0,0,0.2:
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 26,900026,0,0,0,0,0.2: 'Undefined
    DATA 27,27,0,0,0,0,0.2:
    DATA 28,900028,0,0,0,0,0.2:
    DATA 29,900029,0,0,0,0,0.2:
    DATA 30,900030,0,0,0,0,0.2:
    DATA 31,900031,0,0,0,0,0.2:
    DATA 32,32,0,0,0,0,0.2:
    DATA 33,18688,0,0,0,0,0.2:
    DATA 34,20736,0,0,0,0,0.2:
    DATA 35,20224,0,0,0,0,0.2:
    DATA 36,18176,0,0,0,0,0.2:
    DATA 37,19200,0,0,0,0,0.2:
    DATA 38,18432,0,0,0,0,0.2:
    DATA 39,19712,0,0,0,0,0.2:
    DATA 40,20480,0,0,0,0,0.2:
    DATA 41,900041,0,0,0,0,-1:
    DATA 42,900042,0,0,0,0,-1:
    DATA 43,900043,0,0,0,0,-1:
    DATA 44,900044,0,0,0,0,-1:
    DATA 45,20992,0,0,0,0,0.2:
    DATA 46,21248,0,0,0,0,0.2:
    DATA 47,900047,0,0,0,0,0.2: 'VK_HELP
    DATA 48,48,0,41,0,0,0.2: '0
    DATA 49,49,0,33,0,0,0.2: '1
    DATA 50,50,0,64,0,0,0.2: '2
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 51,51,0,35,0,0,0.2: '3
    DATA 52,52,0,36,0,0,0.2: '4
    DATA 53,53,0,37,0,0,0.2: '5
    DATA 54,54,0,94,0,0,0.2: '6
    DATA 55,55,0,38,0,0,0.2: '7
    DATA 56,56,0,42,0,0,0.2: '8
    DATA 57,57,0,40,0,0,0.2: '9
    DATA 58,900058,0,0,0,0,0.2: 'Undefined
    DATA 59,900059,0,0,0,0,0.2: 'Undefined
    DATA 60,900060,0,0,0,0,0.2: 'Undefined
    DATA 61,900061,0,0,0,0,0.2: 'Undefined
    DATA 62,900062,0,0,0,0,0.2: 'Undefined
    DATA 63,900063,0,0,0,0,0.2: 'Undefined
    DATA 64,900064,0,0,0,0,0.2: 'Undefined
    DATA 65,65,0,97,0,0,0.2: 'a
    DATA 66,66,0,98,0,0,0.2: 'b
    DATA 67,67,0,99,0,0,0.2: 'c
    DATA 68,68,0,100,0,0,0.2: 'd
    DATA 69,69,0,101,0,0,0.2: 'e
    DATA 70,70,0,102,0,0,0.2: 'f
    DATA 71,71,0,103,0,0,0.2: 'g
    DATA 72,72,0,104,0,0,0.2: 'h
    DATA 73,73,0,105,0,0,0.2: 'i
    DATA 74,74,0,106,0,0,0.2: 'j
    DATA 75,75,0,107,0,0,0.2: 'k
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 76,76,0,108,0,0,0.2: 'l
    DATA 77,77,0,109,0,0,0.2: 'm
    DATA 78,78,0,110,0,0,0.2: 'n
    DATA 79,79,0,111,0,0,0.2: 'o
    DATA 80,80,0,112,0,0,0.2: 'p
    DATA 81,81,0,113,0,0,0.2: 'q
    DATA 82,82,0,114,0,0,0.2: 'r
    DATA 83,83,0,115,0,0,0.2: 's
    DATA 84,84,0,116,0,0,0.2: 't
    DATA 85,85,0,117,0,0,0.2: 'u
    DATA 86,86,0,118,0,0,0.2: 'v
    DATA 87,87,0,119,0,0,0.2: 'w
    DATA 88,88,0,120,0,0,0.2: 'x
    DATA 89,89,0,121,0,0,0.2: 'y
    DATA 90,90,0,122,0,0,0.2: 'z
    DATA 91,100311,0,0,0,0,-1: 'Left WIN
    DATA 92,100312,0,0,0,0,-1: 'Right WIN
    DATA 93,100319,0,0,0,0,-1: 'Applications (Menu)
    DATA 94,900094,0,0,0,0,0.2: 'Reserved
    DATA 95,900095,0,0,0,0,0.2: 'VK_SLEEP
    DATA 96,48,0,0,0,0,0.2: 'Numpad 0
    DATA 97,49,0,0,0,0,0.2: 'Numpad 1
    DATA 98,50,0,0,0,0,0.2: 'Numpad 2
    DATA 99,51,0,0,0,0,0.2: 'Numpad 3
    DATA 100,52,0,0,0,0,0.2: 'Numpad 4
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 101,53,0,0,0,0,0.2: 'Numpad 5
    DATA 102,54,0,0,0,0,0.2: 'Numpad 6
    DATA 103,55,0,0,0,0,0.2: 'Numpad 7
    DATA 104,56,0,0,0,0,0.2: 'Numpad 8
    DATA 105,57,0,0,0,0,0.2: 'Numpad 9
    DATA 106,42,0,0,0,0,0.2: 'Numpad *
    DATA 107,43,0,0,0,0,0.2: 'Numpad +
    DATA 108,900108,0,0,0,0,0.2: 'VK_SEPARATOR
    DATA 109,51,0,0,0,0,0.2: 'Numpad -
    DATA 110,52,0,0,0,0,0.2: 'Numpad .
    DATA 111,53,0,0,0,0,0.2: 'Numpad /
    DATA 112,15104,0,0,0,0,0.2: 'F1
    DATA 113,15360,0,0,0,0,0.2: 'F2
    DATA 114,15616,0,0,0,0,0.2: 'F3
    DATA 115,15872,0,0,0,0,0.2: 'F4
    DATA 116,16128,0,0,0,0,0.2: 'F5
    DATA 117,16384,0,0,0,0,0.2: 'F6
    DATA 118,16640,0,0,0,0,0.2: 'F7
    DATA 119,16896,0,0,0,0,0.2: 'F8
    DATA 120,17152,0,0,0,0,0.2: 'F9
    DATA 121,17408,0,0,0,0,0.2: 'F10
    DATA 122,34048,0,0,0,0,0.2: 'F11
    DATA 123,34304,0,0,0,0,0.2: 'F12
    DATA 124,900124,0,0,0,0,0.2: 'F13
    DATA 125,900125,0,0,0,0,0.2: 'F14
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 126,900126,0,0,0,0,0.2: 'F15
    DATA 127,900127,0,0,0,0,0.2: 'F16
    DATA 128,900128,0,0,0,0,0.2: 'F17
    DATA 129,900129,0,0,0,0,0.2: 'F18
    DATA 130,900130,0,0,0,0,0.2: 'F19
    DATA 131,900131,0,0,0,0,0.2: 'F20
    DATA 132,900132,0,0,0,0,0.2: 'F21
    DATA 133,900133,0,0,0,0,0.2: 'F22
    DATA 134,900134,0,0,0,0,0.2: 'F23
    DATA 135,900135,0,0,0,0,0.2: 'F24
    DATA 136,900136,0,0,0,0,0.2: 'Unassigned
    DATA 137,900137,0,0,0,0,0.2: 'Unassigned
    DATA 138,900138,0,0,0,0,0.2: 'Unassigned
    DATA 139,900139,0,0,0,0,0.2: 'Unassigned
    DATA 140,900140,0,0,0,0,0.2: 'Unassigned
    DATA 141,900141,0,0,0,0,0.2: 'Unassigned
    DATA 142,900142,0,0,0,0,0.2: 'Unassigned
    DATA 143,900143,0,0,0,0,0.2: 'Unassigned
    DATA 144,100300,0,0,0,0,-1: 'NUM LOCK
    DATA 145,100302,0,0,0,0,-1: 'SCROLL LOCK
    DATA 146,900146,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 147,900147,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 148,900148,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 149,900149,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 150,900150,0,0,0,0,0.2: 'OEM SPECIFIC
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 151,900151,0,0,0,0,0.2: 'Unassigned
    DATA 152,900152,0,0,0,0,0.2: 'Unassigned
    DATA 153,900153,0,0,0,0,0.2: 'Unassigned
    DATA 154,900154,0,0,0,0,0.2: 'Unassigned
    DATA 155,900155,0,0,0,0,0.2: 'Unassigned
    DATA 156,900156,0,0,0,0,0.2: 'Unassigned
    DATA 157,900157,0,0,0,0,0.2: 'Unassigned
    DATA 158,900158,0,0,0,0,0.2: 'Unassigned
    DATA 159,900159,0,0,0,0,0.2: 'Unassigned
    DATA 160,100304,0,0,0,0,-1: 'Left Shift
    DATA 161,100303,0,0,0,0,-1: 'Right Shift
    DATA 162,100306,0,0,0,0,-1: 'Left Control
    DATA 163,100305,0,0,0,0,-1: 'Right Control
    DATA 164,100308,0,0,0,0,-1: 'Left Alt
    DATA 165,100309,0,0,0,0,-1: 'Right Alt
    DATA 166,900166,0,0,0,0,0.2: 'Browser back
    DATA 167,900167,0,0,0,0,0.2: 'Browser forward
    DATA 168,900168,0,0,0,0,0.2: 'Browser refresh
    DATA 169,900169,0,0,0,0,0.2: 'Browser stop
    DATA 170,900170,0,0,0,0,0.2: 'Browser search
    DATA 171,900171,0,0,0,0,0.2: 'Browser favorites
    DATA 172,900172,0,0,0,0,0.2: 'Browser home
    DATA 173,900173,0,0,0,0,0.2: 'Mute
    DATA 174,900174,0,0,0,0,0.2: 'Vol Down
    DATA 175,900175,0,0,0,0,0.2: 'Vol Up
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 176,900176,0,0,0,0,0.2: 'Media Next
    DATA 177,900177,0,0,0,0,0.2: 'Media prev
    DATA 178,900178,0,0,0,0,0.2: 'Media stop
    DATA 179,900179,0,0,0,0,0.2: 'Media Play/Pause
    DATA 180,900180,0,0,0,0,0.2: 'Launch mail
    DATA 181,900181,0,0,0,0,0.2: 'Launch media select
    DATA 182,900182,0,0,0,0,0.2: 'Launch app1
    DATA 183,900183,0,0,0,0,0.2: 'Launch app2
    DATA 184,900184,0,0,0,0,0.2: 'Reserved
    DATA 185,900185,0,0,0,0,0.2: 'Reserved
    DATA 186,59,0,58,0,0,0.2: ';:
    DATA 187,61,0,43,0,0,0.2: '=+
    DATA 188,44,0,60,0,0,0.2: ',<
    DATA 189,45,0,95,0,0,0.2: '-_
    DATA 190,46,0,62,0,0,0.2: '.>
    DATA 191,47,0,63,0,0,0.2: '/?
    DATA 192,96,0,126,0,0,0.2: '`~
    DATA 193,900193,0,0,0,0,0.2: 'Reserved
    DATA 194,900194,0,0,0,0,0.2: 'Reserved
    DATA 195,900195,0,0,0,0,0.2: 'Reserved
    DATA 196,900196,0,0,0,0,0.2: 'Reserved
    DATA 197,900197,0,0,0,0,0.2: 'Reserved
    DATA 198,900198,0,0,0,0,0.2: 'Reserved
    DATA 199,900199,0,0,0,0,0.2: 'Reserved
    DATA 200,900200,0,0,0,0,0.2: 'Reserved
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 201,900201,0,0,0,0,0.2: 'Reserved
    DATA 202,900202,0,0,0,0,0.2: 'Reserved
    DATA 203,900203,0,0,0,0,0.2: 'Reserved
    DATA 204,900204,0,0,0,0,0.2: 'Reserved
    DATA 205,900205,0,0,0,0,0.2: 'Reserved
    DATA 206,900206,0,0,0,0,0.2: 'Reserved
    DATA 207,900207,0,0,0,0,0.2: 'Reserved
    DATA 208,900208,0,0,0,0,0.2: 'Reserved
    DATA 209,900209,0,0,0,0,0.2: 'Reserved
    DATA 210,900210,0,0,0,0,0.2: 'Reserved
    DATA 211,900211,0,0,0,0,0.2: 'Reserved
    DATA 212,900212,0,0,0,0,0.2: 'Reserved
    DATA 213,900213,0,0,0,0,0.2: 'Reserved
    DATA 214,900214,0,0,0,0,0.2: 'Reserved
    DATA 215,900215,0,0,0,0,0.2: 'Reserved
    DATA 216,900216,0,0,0,0,0.2: 'Unassigned
    DATA 217,900217,0,0,0,0,0.2: 'Unassigned
    DATA 218,900218,0,0,0,0,0.2: 'Unassigned
    DATA 219,91,0,123,0,0,0.2: '[{
    DATA 220,92,0,124,0,0,0.2: '\|
    DATA 221,93,0,125,0,0,0.2: ']}
    DATA 222,39,0,34,0,0,0.2: ''"
    DATA 223,900223,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 224,900224,0,0,0,0,0.2: 'Reserved
    DATA 225,900225,0,0,0,0,0.2: 'OEM SPECIFIC d
    DATA 226,900226,0,0,0,0,0.2: 'Either the Angle Bracket key,or Backslash on RT 102-key keyboard
    DATA 227,900227,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 228,900228,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 229,900229,0,0,0,0,0.2: 'IME PROCESS key (whatever that is)
    DATA 230,900230,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 231,900231,0,0,0,0,0.2: 'Used to pass UNICODE characters (however that works)
    DATA 232,900232,0,0,0,0,0.2: 'Unassigned
    DATA 233,900233,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 234,900234,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 235,900235,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 236,900236,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 237,900237,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 238,900238,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 239,900239,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 240,900240,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 241,900241,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 242,900242,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 243,900243,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 244,900244,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 245,900245,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 246,900246,0,0,0,0,0.2: 'VK_ATTN
    DATA 247,900247,0,0,0,0,0.2: 'VK_ATTN
    DATA 248,900248,0,0,0,0,0.2: 'VK_ATTN
    DATA 249,900249,0,0,0,0,0.2: 'VK_ATTN
    DATA 250,900250,0,0,0,0,0.2: 'VK_ATTN
    DATA 251,900251,0,0,0,0,0.2: 'VK_ATTN
    DATA 252,900252,0,0,0,0,0.2: 'Reserved
    DATA 253,900253,0,0,0,0,0.2: 'VK_PA1
    DATA 254,900253,0,0,0,0,0.2: 'VK_OEM_CLEAR
    DATA 0,0,0,0,0,0,0.2: 'END OF DATA
 
END SUB
 
 
FUNCTION ExtendedTimer##
    'modified extendedtimer to store the old day's count, and not have to recalculate it every time the routine is called.
 
    STATIC olds AS _FLOAT, old_day AS _FLOAT
    DIM m AS INTEGER, d AS INTEGER, y AS INTEGER
    DIM s AS _FLOAT, day AS STRING
    IF olds = 0 THEN 'calculate the day the first time the extended timer runs
        day = DATE$
        m = VAL(LEFT$(day, 2))
        d = VAL(MID$(day, 4, 2))
        y = VAL(RIGHT$(day, 4)) - 1970
        SELECT CASE m 'Add the number of days for each previous month passed
            CASE 2: d = d + 31
            CASE 3: d = d + 59
            CASE 4: d = d + 90
            CASE 5: d = d + 120
            CASE 6: d = d + 151
            CASE 7: d = d + 181
            CASE 8: d = d + 212
            CASE 9: d = d + 243
            CASE 10: d = d + 273
            CASE 11: d = d + 304
            CASE 12: d = d + 334
        END SELECT
        IF (y MOD 4) = 2 AND m > 2 THEN d = d + 1 'add a day if this is leap year and we're past february
        d = (d - 1) + 365 * y 'current month days passed + 365 days per each standard year
        d = d + (y + 2) \ 4 'add in days for leap years passed
        s = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds
        old_day = s
    END IF
    IF TIMER < oldt THEN 'we went from 23:59:59 (a second before midnight) to 0:0:0 (midnight)
        old_day = s + 83400 'add another worth of seconds to our counter
    END IF
    oldt = TIMER
    olds = old_day + oldt
    ExtendedTimer## = olds
END FUNCTION
 
 

If you look close, you'll notice that I'm doing things a little simpler this time around, now that I've sorted out more-or-less what I'd like the code to do. The biggest thing a user would need to do here is pay attention to these two commands which I highlight for your attention:

Code: [Select]

Init_KeyCodes
Remap_KeyCode 65, 65, 1, 97, 160, 142, 0.2: 'a

First we need to initialize all the keycodes to what we'd normally find with a US keyboard. That's done via the Init_Keycodes routine (optional to call, as we'll do it automatically if it's not included, but remapping may not work properly for you unless you just want to manually map the whole key system yourself). If you want to remap keys, please remember to initialize them first.

Second, we have a simple Remap_KeyCode routine, which we can now use to remap those keys to give us whatever returns we might possibly desire. In this case, I remapped "A" to give me all sorts of input values:

Natural A = "A"
Ctrl-A = CHR$(1)
Shift-A = "a"
Alt-A = CHR$(160)
AltGr-A = CHR$(142)

Should your keyboard give you results which don't match expected values, I'd suggest doing two things:

1) First, check the original values and make certain I didn't make a typo in there. That's a lot of data to manually enter, and I'm human. I won't swear there isn't something or other in there with a missing digit, improper value, or typo. If you do find one of those things, kindly inform me of them so I can correct them for my own library and future use.

2) Once you're certain the original data is glitch free, (or at least as certain as you can be), feel free to remap the character to whatever you need it to represent. If you take time to remap a whole keyboard/language, kindly share it with us. I'll collect all the user's mappings and save them in a library file with the main code here, and then others can just select which mapping they need and be good to go in the future.

Me personally, I might remap some rather useful extended ASCII characters to use for my input needs. I don't use the numpad very often, so CTRL-numpad keys might make for a nice way to enter the ASCII codes for drawing single and double lines, for some of my personal projects. ;)

Title: Re: Programmable Keyboard Input
Post by: RhoSigma on December 30, 2019, 09:20:56 am

Well Steve, this remapping seems to work pretty well.
However, please check the way how you obtain the modifiers. I still get AltGr chars when pressing either CTRL and ALT together, I told you that AltGr is not equal to any arbitrary CTRL+ALT combo, but to LEFT-CTRL + RIGHT-ALT only. Every other CTRL/ALT combo is no AltGr. And if AltGr is detected, then it's AltGr only, no regular ALT anymore.

Code: QB64: [Select]

'--- get modifiers ---
shift% = _KEYDOWN(100303) OR _KEYDOWN(100304)
ctrl% = _KEYDOWN(100305) OR _KEYDOWN(100306)
altgr% = _KEYDOWN(100307) AND _KEYDOWN(100306)
alt% = (_KEYDOWN(100307) OR _KEYDOWN(100308)) AND NOT altgr%
 

will be back, when DE remapping is finished...

Title: Re: Programmable Keyboard Input
Post by: TempodiBasic on December 30, 2019, 09:36:36 am

Very good for internal managment of CapsLock and NumLock!

Now that it seems to be at final version of your code I'll build IT sub initialization for IT keyboard.

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on December 30, 2019, 10:11:42 am

Quote from: RhoSigma on December 30, 2019, 09:20:56 am

Well Steve, this remapping seems to work pretty well.
However, please check the way how you obtain the modifiers. I still get AltGr chars when pressing either CTRL and ALT together, I told you that AltGr is not equal to any arbitrary CTRL+ALT combo, but to LEFT-CTRL + RIGHT-ALT only. Every other CTRL/ALT combo is no AltGr. And if AltGr is detected, then it's AltGr only, no regular ALT anymore.

Code: QB64: [Select]
'--- get modifiers ---
shift% = _KEYDOWN(100303) OR _KEYDOWN(100304)
ctrl% = _KEYDOWN(100305) OR _KEYDOWN(100306)
altgr% = _KEYDOWN(100307) AND _KEYDOWN(100306)
alt% = (_KEYDOWN(100307) OR _KEYDOWN(100308)) AND NOT altgr%

will be back, when DE remapping is finished...

Change here is rather simple, just make the internal line:

IF Keys(165).Down AND Keys(162).Down THEN AltGr = -1 ELSE AltGr = 0

Wiki explains the keys to us, here: https://en.wikipedia.org/wiki/AltGr_key

Quote

The right Alt key is usually an equivalent of the AltGr key because both the right Alt key and the AltGr key share the same scancode and are indistinguishable by software. However, on some keyboards it may not be the case, i.e. the keyboard has two Alt keys, each of which acts as the left Alt key. On compact keyboards like those of netbooks, the right Alt key may be missing altogether. To allow the specific functionality of AltGr when typing non-English text on such keyboards, Windows allows it to be emulated by pressing the Alt key together with the Control key:

Ctrl+Alt ≈ AltGr

This seems to indicate that Right-Alt = AltGr (and Windows on screen keyboard reads it as such), and that Alt + Control are only used as a substitute when the Right-Alt is unavailable.

Perhaps we’d be best suited to either use Keys(165) alone as the AltGr (right alt = AltGr), or else I should just make it a customizable configuration that users can set to their personal needs/taste. After all, we allow the remapping of everything else, if we want to...

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on December 30, 2019, 10:32:47 am

See if this works better for you, Rho:

Code: QB64: [Select]

DECLARE LIBRARY 'function is already used by QB64 so "User32" is not required
    FUNCTION GetKeyState% (BYVAL vkey AS LONG)
END DECLARE
 
TYPE KeyboardInfo_Type
    Index AS LONG
    ASCII AS LONG
    Ctrl AS LONG
    Shift AS LONG
    Alt AS LONG
    AltGr AS LONG
    Repeat AS _FLOAT
    LastHit AS _FLOAT
    Down AS LONG
END TYPE
 
DIM SHARED Keys(254) AS KeyboardInfo_Type
DIM SHARED AltGr(1) AS _UNSIGNED _BYTE
Init_KeyCodes
Remap_KeyCode 65, 65, 1, 97, 160, 142, 0.2: 'a
 
_CONTROLCHR OFF
DO
    k = KeyHit
    IF k <> 0 THEN
        PRINT k;
        IF ABS(k) < 256 THEN PRINT CHR$(34); CHR$(ABS(k)); CHR$(34) ELSE PRINT
    END IF
 
    _LIMIT 30
LOOP UNTIL k = 27 'escape
 
SUB SetAltGr (Key1 AS INTEGER, Key2 AS INTEGER)
    AltGr(0) = Key1 'any key from our index (0 says no key)
    AltGr(1) = Key2 'PLUS any other key from our index (0 says no additional key)
    'Using this, we can set AltGr to become several things.
    'AltGr(0) = 165, AltGr(1) = 0 -- This would say we're using the RIGHT Alt key (alone) to simulate the AltGr key.  (Windows Onscreen Keyboard does this.)
    'AltGr(0) = 17, AltGr(1) = 18 -- This would use any CTRL-ALT combo to simulate a AltGr keypress.
    'Some useful values are listed for quick reference below
    '0 = NoKey
    '17 = ANY Ctrl
    '18 = ANY Alt
    '162 = Left Control
    '163 = Right Control
    '164 = Left Alt
    '165 = Right Alt
 
    'Default is for AltGr(0) = 165, AltGr(1) = 0, which uses Right-Alt alone as the AltGr key.
    'Feel free to customize the setting to your personal preference/need.
END SUB
 
FUNCTION KeyHit&
    STATIC ReturnCount AS INTEGER
    STATIC ReturnValues(30) AS LONG
    'IF Keys(1).Index = 0 THEN Init_KeyCodes 'if someone forgets to put the init routine in their code, be certain to initialize the codes before attempting to use them.
 
 
    IF ReturnCount > 0 THEN 'If we generated a cue of values last pass, clear those up first, before getting new values.
        'The only time we really see this is when we hit a shift, ctrl, alt key, usually.
        KeyHit = ReturnValues(1)
        FOR i = 1 TO ReturnCount - 1
            ReturnValues(i) = ReturnValues(i + 1)
        NEXT
        ReturnCount = ReturnCount - 1
        EXIT FUNCTION
    END IF
 
    IF Keys(16).Down THEN Shift = -1 ELSE Shift = 0
    IF Keys(17).Down THEN Ctrl = -1 ELSE Ctrl = 0
    IF Keys(18).Down THEN Alt = -1 ELSE Alt = 0
    IF AltGr(0) <> 0 AND AltGr(1) <> 0 THEN
        IF Keys(AltGr(0)).Down AND Keys(AltGr(1)).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSEIF AltGr(1) <> 0 THEN
        IF Keys(AltGr(1)).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSEIF AltGr(0) <> 0 THEN
        IF Keys(0).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSE
        AltGr = 0
    END IF
 
 
 
    IF _WINDOWHASFOCUS THEN
        FOR i = 1 TO 254
 
            r = GetKeyState(Keys(i).Index) AND &H8000
 
            IF r THEN 'the key is down
 
 
                IF Keys(i).LastHit THEN
                    IF ExtendedTimer > Keys(i).LastHit THEN
                        ReturnCount = ReturnCount + 1 'add one to the return buffer
                        ReturnValues(ReturnCount) = Keys(i).Down 'and put the existing value back in the buffer, as a key repeat
                    END IF
                ELSE
 
                    IF Keys(i).Down = 0 THEN 'the key was up on the last pass.
                        IF AltGr <> 0 AND Keys(i).AltGr <> 0 THEN 'return the altgr value
                            Keys(i).Down = Keys(i).AltGr
                        ELSEIF Shift <> 0 AND Keys(i).Shift <> 0 THEN 'return the shift value
                            Keys(i).Down = Keys(i).Shift
                            IF _CAPSLOCK = 0 THEN 'caps lock basically reverses the behavior of the shift key with the letters A-Z and a-z
                                SELECT CASE i
                                    CASE 65 TO 90, 97 TO 122: Keys(i).Down = Keys(i).ASCII
                                END SELECT
                            END IF
                        ELSEIF (Ctrl <> 0) AND (Keys(i).Ctrl <> 0) THEN 'return the ctrl value
                            Keys(i).Down = Keys(i).Ctrl
                        ELSEIF Alt <> 0 AND Keys(i).Alt <> 0 THEN 'return the alt value
                            Keys(i).Down = Keys(i).Alt
                        ELSE 'all that's left is to return the ASCII value
                            Keys(i).Down = Keys(i).ASCII
                            IF _CAPSLOCK = 0 THEN 'caps lock basically reverses the behavior of the shift key with the letters A-Z and a-z
                                SELECT CASE i
                                    CASE 65 TO 90, 97 TO 122: Keys(i).Down = Keys(i).Shift
                                END SELECT
                            END IF
                        END IF
                        ReturnCount = ReturnCount + 1 'add one to the return buffer
                        ReturnValues(ReturnCount) = Keys(i).Down 'and store the value in the buffer
 
                        IF Keys(i).Repeat = -1 THEN 'keys that are set to a -1 on repeat simply toggle state as on, or off.
                            Keys(i).LastHit = 1E+1000 'such as SHIFT, CTRL, ALT...
                        ELSE
                            Keys(i).LastHit = ExtendedTimer + Keys(i).Repeat 'and record when we hit it for repeat purposes
                        END IF
                    END IF
                END IF
            ELSE
                IF Keys(i).Down THEN 'the key was down on the last pass
                    ReturnCount = ReturnCount + 1
                    ReturnValues(ReturnCount) = -Keys(i).Down 'mark it as being up on this one
                END IF
                Keys(i).Down = 0 'and set it back down for future passes
                Keys(i).LastHit = 0 'once again, set it as being ready to be hit again
            END IF
        NEXT
 
        IF ReturnCount > 0 THEN 'If we generated a cue of values last pass, clear those up first, before getting new values.
            'The only time we really see this is when we hit a shift, ctrl, alt key, usually.
            KeyHit = ReturnValues(1)
            FOR i = 1 TO ReturnCount - 1
                ReturnValues(i) = ReturnValues(i + 1)
            NEXT
            ReturnCount = ReturnCount - 1
            EXIT FUNCTION
        END IF
 
    END IF 'End of IF _WINDOWHASFOCUS
 
 
END FUNCTION
 
 
SUB Remap_KeyCode (Which AS LONG, ASCII AS LONG, Ctrl AS LONG, Shift AS LONG, Alt AS LONG, AltGr AS LONG, Repeat AS _FLOAT)
    DIM i AS LONG
    i = Which
    Keys(i).Index = i
    Keys(i).ASCII = ASCII
    Keys(i).Ctrl = Ctrl
    Keys(i).Shift = Shift
    Keys(i).Alt = Alt
    Keys(i).AltGr = AltGr
    Keys(i).Repeat = Repeat
    Keys(i).LastHit = 0
    Keys(i).Down = 0
END SUB
 
 
SUB Init_KeyCodes
    RESTORE default_keyboard_data
    FOR i = 1 TO 254
        READ Keys(i).Index, Keys(i).ASCII, Keys(i).Ctrl, Keys(i).Shift, Keys(i).Alt, Keys(i).AltGr, Keys(i).Repeat
        Keys(i).LastHit = 0: Keys(i).Down = 0
    NEXT
 
    default_keyboard_data:
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 1,900001,0,0,0,0,0.2:
    DATA 2,900002,0,0,0,0,0.2:
    DATA 3,900003,0,0,0,0,0.2:
    DATA 4,900004,0,0,0,0,0.2:
    DATA 5,900005,0,0,0,0,0.2:
    DATA 6,900006,0,0,0,0,0.2:
    DATA 7,900007,0,0,0,0,0.2: 'Undefined
    DATA 8,8,0,0,0,0,0.2:
    DATA 9,9,0,0,0,0,0.2:
    DATA 10,900010,0,0,0,0,0.2: 'Reserved
    DATA 11,900011,0,0,0,0,0.2: 'Reserved
    DATA 12,19456,0,0,0,0,0.2:
    DATA 13,13,0,0,0,0,0.2:
    DATA 14,900014,0,0,0,0,0.2: 'Undefined
    DATA 15,900015,0,0,0,0,0.2: 'Undefined
    DATA 16,100016,0,0,0,0,-1: 'Shift (Notice I set it to simple toddle and report UP/DOWN results for us)
    DATA 17,100017,0,0,0,0,-1: 'Ctrl   (Same)
    DATA 18,100018,0,0,0,0,-1: 'Alt     (Same)
    DATA 19,100019,0,0,0,0,0.2:
    DATA 20,100301,0,0,0,0,-1: 'Caps Lock
    DATA 21,900021,0,0,0,0,0.2:
    DATA 22,900022,0,0,0,0,0.2: 'Undefined
    DATA 23,900023,0,0,0,0,0.2:
    DATA 24,900024,0,0,0,0,0.2:
    DATA 25,900025,0,0,0,0,0.2:
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 26,900026,0,0,0,0,0.2: 'Undefined
    DATA 27,27,0,0,0,0,0.2:
    DATA 28,900028,0,0,0,0,0.2:
    DATA 29,900029,0,0,0,0,0.2:
    DATA 30,900030,0,0,0,0,0.2:
    DATA 31,900031,0,0,0,0,0.2:
    DATA 32,32,0,0,0,0,0.2:
    DATA 33,18688,0,0,0,0,0.2:
    DATA 34,20736,0,0,0,0,0.2:
    DATA 35,20224,0,0,0,0,0.2:
    DATA 36,18176,0,0,0,0,0.2:
    DATA 37,19200,0,0,0,0,0.2:
    DATA 38,18432,0,0,0,0,0.2:
    DATA 39,19712,0,0,0,0,0.2:
    DATA 40,20480,0,0,0,0,0.2:
    DATA 41,900041,0,0,0,0,-1:
    DATA 42,900042,0,0,0,0,-1:
    DATA 43,900043,0,0,0,0,-1:
    DATA 44,900044,0,0,0,0,-1:
    DATA 45,20992,0,0,0,0,0.2:
    DATA 46,21248,0,0,0,0,0.2:
    DATA 47,900047,0,0,0,0,0.2: 'VK_HELP
    DATA 48,48,0,41,0,0,0.2: '0
    DATA 49,49,0,33,0,0,0.2: '1
    DATA 50,50,0,64,0,0,0.2: '2
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 51,51,0,35,0,0,0.2: '3
    DATA 52,52,0,36,0,0,0.2: '4
    DATA 53,53,0,37,0,0,0.2: '5
    DATA 54,54,0,94,0,0,0.2: '6
    DATA 55,55,0,38,0,0,0.2: '7
    DATA 56,56,0,42,0,0,0.2: '8
    DATA 57,57,0,40,0,0,0.2: '9
    DATA 58,900058,0,0,0,0,0.2: 'Undefined
    DATA 59,900059,0,0,0,0,0.2: 'Undefined
    DATA 60,900060,0,0,0,0,0.2: 'Undefined
    DATA 61,900061,0,0,0,0,0.2: 'Undefined
    DATA 62,900062,0,0,0,0,0.2: 'Undefined
    DATA 63,900063,0,0,0,0,0.2: 'Undefined
    DATA 64,900064,0,0,0,0,0.2: 'Undefined
    DATA 65,65,0,97,0,0,0.2: 'a
    DATA 66,66,0,98,0,0,0.2: 'b
    DATA 67,67,0,99,0,0,0.2: 'c
    DATA 68,68,0,100,0,0,0.2: 'd
    DATA 69,69,0,101,0,0,0.2: 'e
    DATA 70,70,0,102,0,0,0.2: 'f
    DATA 71,71,0,103,0,0,0.2: 'g
    DATA 72,72,0,104,0,0,0.2: 'h
    DATA 73,73,0,105,0,0,0.2: 'i
    DATA 74,74,0,106,0,0,0.2: 'j
    DATA 75,75,0,107,0,0,0.2: 'k
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 76,76,0,108,0,0,0.2: 'l
    DATA 77,77,0,109,0,0,0.2: 'm
    DATA 78,78,0,110,0,0,0.2: 'n
    DATA 79,79,0,111,0,0,0.2: 'o
    DATA 80,80,0,112,0,0,0.2: 'p
    DATA 81,81,0,113,0,0,0.2: 'q
    DATA 82,82,0,114,0,0,0.2: 'r
    DATA 83,83,0,115,0,0,0.2: 's
    DATA 84,84,0,116,0,0,0.2: 't
    DATA 85,85,0,117,0,0,0.2: 'u
    DATA 86,86,0,118,0,0,0.2: 'v
    DATA 87,87,0,119,0,0,0.2: 'w
    DATA 88,88,0,120,0,0,0.2: 'x
    DATA 89,89,0,121,0,0,0.2: 'y
    DATA 90,90,0,122,0,0,0.2: 'z
    DATA 91,100311,0,0,0,0,-1: 'Left WIN
    DATA 92,100312,0,0,0,0,-1: 'Right WIN
    DATA 93,100319,0,0,0,0,-1: 'Applications (Menu)
    DATA 94,900094,0,0,0,0,0.2: 'Reserved
    DATA 95,900095,0,0,0,0,0.2: 'VK_SLEEP
    DATA 96,48,0,0,0,0,0.2: 'Numpad 0
    DATA 97,49,0,0,0,0,0.2: 'Numpad 1
    DATA 98,50,0,0,0,0,0.2: 'Numpad 2
    DATA 99,51,0,0,0,0,0.2: 'Numpad 3
    DATA 100,52,0,0,0,0,0.2: 'Numpad 4
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 101,53,0,0,0,0,0.2: 'Numpad 5
    DATA 102,54,0,0,0,0,0.2: 'Numpad 6
    DATA 103,55,0,0,0,0,0.2: 'Numpad 7
    DATA 104,56,0,0,0,0,0.2: 'Numpad 8
    DATA 105,57,0,0,0,0,0.2: 'Numpad 9
    DATA 106,42,0,0,0,0,0.2: 'Numpad *
    DATA 107,43,0,0,0,0,0.2: 'Numpad +
    DATA 108,900108,0,0,0,0,0.2: 'VK_SEPARATOR
    DATA 109,51,0,0,0,0,0.2: 'Numpad -
    DATA 110,52,0,0,0,0,0.2: 'Numpad .
    DATA 111,53,0,0,0,0,0.2: 'Numpad /
    DATA 112,15104,0,0,0,0,0.2: 'F1
    DATA 113,15360,0,0,0,0,0.2: 'F2
    DATA 114,15616,0,0,0,0,0.2: 'F3
    DATA 115,15872,0,0,0,0,0.2: 'F4
    DATA 116,16128,0,0,0,0,0.2: 'F5
    DATA 117,16384,0,0,0,0,0.2: 'F6
    DATA 118,16640,0,0,0,0,0.2: 'F7
    DATA 119,16896,0,0,0,0,0.2: 'F8
    DATA 120,17152,0,0,0,0,0.2: 'F9
    DATA 121,17408,0,0,0,0,0.2: 'F10
    DATA 122,34048,0,0,0,0,0.2: 'F11
    DATA 123,34304,0,0,0,0,0.2: 'F12
    DATA 124,900124,0,0,0,0,0.2: 'F13
    DATA 125,900125,0,0,0,0,0.2: 'F14
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 126,900126,0,0,0,0,0.2: 'F15
    DATA 127,900127,0,0,0,0,0.2: 'F16
    DATA 128,900128,0,0,0,0,0.2: 'F17
    DATA 129,900129,0,0,0,0,0.2: 'F18
    DATA 130,900130,0,0,0,0,0.2: 'F19
    DATA 131,900131,0,0,0,0,0.2: 'F20
    DATA 132,900132,0,0,0,0,0.2: 'F21
    DATA 133,900133,0,0,0,0,0.2: 'F22
    DATA 134,900134,0,0,0,0,0.2: 'F23
    DATA 135,900135,0,0,0,0,0.2: 'F24
    DATA 136,900136,0,0,0,0,0.2: 'Unassigned
    DATA 137,900137,0,0,0,0,0.2: 'Unassigned
    DATA 138,900138,0,0,0,0,0.2: 'Unassigned
    DATA 139,900139,0,0,0,0,0.2: 'Unassigned
    DATA 140,900140,0,0,0,0,0.2: 'Unassigned
    DATA 141,900141,0,0,0,0,0.2: 'Unassigned
    DATA 142,900142,0,0,0,0,0.2: 'Unassigned
    DATA 143,900143,0,0,0,0,0.2: 'Unassigned
    DATA 144,100300,0,0,0,0,-1: 'NUM LOCK
    DATA 145,100302,0,0,0,0,-1: 'SCROLL LOCK
    DATA 146,900146,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 147,900147,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 148,900148,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 149,900149,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 150,900150,0,0,0,0,0.2: 'OEM SPECIFIC
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 151,900151,0,0,0,0,0.2: 'Unassigned
    DATA 152,900152,0,0,0,0,0.2: 'Unassigned
    DATA 153,900153,0,0,0,0,0.2: 'Unassigned
    DATA 154,900154,0,0,0,0,0.2: 'Unassigned
    DATA 155,900155,0,0,0,0,0.2: 'Unassigned
    DATA 156,900156,0,0,0,0,0.2: 'Unassigned
    DATA 157,900157,0,0,0,0,0.2: 'Unassigned
    DATA 158,900158,0,0,0,0,0.2: 'Unassigned
    DATA 159,900159,0,0,0,0,0.2: 'Unassigned
    DATA 160,100304,0,0,0,0,-1: 'Left Shift
    DATA 161,100303,0,0,0,0,-1: 'Right Shift
    DATA 162,100306,0,0,0,0,-1: 'Left Control
    DATA 163,100305,0,0,0,0,-1: 'Right Control
    DATA 164,100308,0,0,0,0,-1: 'Left Alt
    DATA 165,100309,0,0,0,0,-1: 'Right Alt
    DATA 166,900166,0,0,0,0,0.2: 'Browser back
    DATA 167,900167,0,0,0,0,0.2: 'Browser forward
    DATA 168,900168,0,0,0,0,0.2: 'Browser refresh
    DATA 169,900169,0,0,0,0,0.2: 'Browser stop
    DATA 170,900170,0,0,0,0,0.2: 'Browser search
    DATA 171,900171,0,0,0,0,0.2: 'Browser favorites
    DATA 172,900172,0,0,0,0,0.2: 'Browser home
    DATA 173,900173,0,0,0,0,0.2: 'Mute
    DATA 174,900174,0,0,0,0,0.2: 'Vol Down
    DATA 175,900175,0,0,0,0,0.2: 'Vol Up
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 176,900176,0,0,0,0,0.2: 'Media Next
    DATA 177,900177,0,0,0,0,0.2: 'Media prev
    DATA 178,900178,0,0,0,0,0.2: 'Media stop
    DATA 179,900179,0,0,0,0,0.2: 'Media Play/Pause
    DATA 180,900180,0,0,0,0,0.2: 'Launch mail
    DATA 181,900181,0,0,0,0,0.2: 'Launch media select
    DATA 182,900182,0,0,0,0,0.2: 'Launch app1
    DATA 183,900183,0,0,0,0,0.2: 'Launch app2
    DATA 184,900184,0,0,0,0,0.2: 'Reserved
    DATA 185,900185,0,0,0,0,0.2: 'Reserved
    DATA 186,59,0,58,0,0,0.2: ';:
    DATA 187,61,0,43,0,0,0.2: '=+
    DATA 188,44,0,60,0,0,0.2: ',<
    DATA 189,45,0,95,0,0,0.2: '-_
    DATA 190,46,0,62,0,0,0.2: '.>
    DATA 191,47,0,63,0,0,0.2: '/?
    DATA 192,96,0,126,0,0,0.2: '`~
    DATA 193,900193,0,0,0,0,0.2: 'Reserved
    DATA 194,900194,0,0,0,0,0.2: 'Reserved
    DATA 195,900195,0,0,0,0,0.2: 'Reserved
    DATA 196,900196,0,0,0,0,0.2: 'Reserved
    DATA 197,900197,0,0,0,0,0.2: 'Reserved
    DATA 198,900198,0,0,0,0,0.2: 'Reserved
    DATA 199,900199,0,0,0,0,0.2: 'Reserved
    DATA 200,900200,0,0,0,0,0.2: 'Reserved
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 201,900201,0,0,0,0,0.2: 'Reserved
    DATA 202,900202,0,0,0,0,0.2: 'Reserved
    DATA 203,900203,0,0,0,0,0.2: 'Reserved
    DATA 204,900204,0,0,0,0,0.2: 'Reserved
    DATA 205,900205,0,0,0,0,0.2: 'Reserved
    DATA 206,900206,0,0,0,0,0.2: 'Reserved
    DATA 207,900207,0,0,0,0,0.2: 'Reserved
    DATA 208,900208,0,0,0,0,0.2: 'Reserved
    DATA 209,900209,0,0,0,0,0.2: 'Reserved
    DATA 210,900210,0,0,0,0,0.2: 'Reserved
    DATA 211,900211,0,0,0,0,0.2: 'Reserved
    DATA 212,900212,0,0,0,0,0.2: 'Reserved
    DATA 213,900213,0,0,0,0,0.2: 'Reserved
    DATA 214,900214,0,0,0,0,0.2: 'Reserved
    DATA 215,900215,0,0,0,0,0.2: 'Reserved
    DATA 216,900216,0,0,0,0,0.2: 'Unassigned
    DATA 217,900217,0,0,0,0,0.2: 'Unassigned
    DATA 218,900218,0,0,0,0,0.2: 'Unassigned
    DATA 219,91,0,123,0,0,0.2: '[{
    DATA 220,92,0,124,0,0,0.2: '\|
    DATA 221,93,0,125,0,0,0.2: ']}
    DATA 222,39,0,34,0,0,0.2: ''"
    DATA 223,900223,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 224,900224,0,0,0,0,0.2: 'Reserved
    DATA 225,900225,0,0,0,0,0.2: 'OEM SPECIFIC d
    DATA 226,900226,0,0,0,0,0.2: 'Either the Angle Bracket key,or Backslash on RT 102-key keyboard
    DATA 227,900227,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 228,900228,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 229,900229,0,0,0,0,0.2: 'IME PROCESS key (whatever that is)
    DATA 230,900230,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 231,900231,0,0,0,0,0.2: 'Used to pass UNICODE characters (however that works)
    DATA 232,900232,0,0,0,0,0.2: 'Unassigned
    DATA 233,900233,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 234,900234,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 235,900235,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 236,900236,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 237,900237,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 238,900238,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 239,900239,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 240,900240,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 241,900241,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 242,900242,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 243,900243,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 244,900244,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 245,900245,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 246,900246,0,0,0,0,0.2: 'VK_ATTN
    DATA 247,900247,0,0,0,0,0.2: 'VK_ATTN
    DATA 248,900248,0,0,0,0,0.2: 'VK_ATTN
    DATA 249,900249,0,0,0,0,0.2: 'VK_ATTN
    DATA 250,900250,0,0,0,0,0.2: 'VK_ATTN
    DATA 251,900251,0,0,0,0,0.2: 'VK_ATTN
    DATA 252,900252,0,0,0,0,0.2: 'Reserved
    DATA 253,900253,0,0,0,0,0.2: 'VK_PA1
    DATA 254,900253,0,0,0,0,0.2: 'VK_OEM_CLEAR
    DATA 0,0,0,0,0,0,0.2: 'END OF DATA
    AltGr(0) = 165
    AltGr(1) = 0
END SUB
 
 
FUNCTION ExtendedTimer##
    'modified extendedtimer to store the old day's count, and not have to recalculate it every time the routine is called.
 
    STATIC olds AS _FLOAT, old_day AS _FLOAT
    DIM m AS INTEGER, d AS INTEGER, y AS INTEGER
    DIM s AS _FLOAT, day AS STRING
    IF olds = 0 THEN 'calculate the day the first time the extended timer runs
        day = DATE$
        m = VAL(LEFT$(day, 2))
        d = VAL(MID$(day, 4, 2))
        y = VAL(RIGHT$(day, 4)) - 1970
        SELECT CASE m 'Add the number of days for each previous month passed
            CASE 2: d = d + 31
            CASE 3: d = d + 59
            CASE 4: d = d + 90
            CASE 5: d = d + 120
            CASE 6: d = d + 151
            CASE 7: d = d + 181
            CASE 8: d = d + 212
            CASE 9: d = d + 243
            CASE 10: d = d + 273
            CASE 11: d = d + 304
            CASE 12: d = d + 334
        END SELECT
        IF (y MOD 4) = 2 AND m > 2 THEN d = d + 1 'add a day if this is leap year and we're past february
        d = (d - 1) + 365 * y 'current month days passed + 365 days per each standard year
        d = d + (y + 2) \ 4 'add in days for leap years passed
        s = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds
        old_day = s
    END IF
    IF TIMER < oldt THEN 'we went from 23:59:59 (a second before midnight) to 0:0:0 (midnight)
        old_day = s + 83400 'add another worth of seconds to our counter
    END IF
    oldt = TIMER
    olds = old_day + oldt
    ExtendedTimer## = olds
END FUNCTION

We now have the following code added to the routine:

Code: QB64: [Select]

SUB SetAltGr (Key1 AS INTEGER, Key2 AS INTEGER)
    AltGr(0) = Key1 'any key from our index (0 says no key)
    AltGr(1) = Key2 'PLUS any other key from our index (0 says no additional key)
    'Using this, we can set AltGr to become several things.
    'AltGr(0) = 165, AltGr(1) = 0 -- This would say we're using the RIGHT Alt key (alone) to simulate the AltGr key.  (Windows Onscreen Keyboard does this.)
    'AltGr(0) = 17, AltGr(1) = 18 -- This would use any CTRL-ALT combo to simulate a AltGr keypress.
    'Some useful values are listed for quick reference below
    '0 = NoKey
    '17 = ANY Ctrl
    '18 = ANY Alt
    '162 = Left Control
    '163 = Right Control
    '164 = Left Alt
    '165 = Right Alt
 
    'Default is for AltGr(0) = 165, AltGr(1) = 0, which uses Right-Alt alone as the AltGr key.
    'Feel free to customize the setting to your personal preference/need.
END SUB

AltGr is now customizable so folks can set whatever 1 or 2 hit key-combo they want to activate it. ;)

Title: Re: Programmable Keyboard Input
Post by: RhoSigma on December 30, 2019, 11:19:53 am

Works perfect :)

Thanks

Title: Re: Programmable Keyboard Input
Post by: RhoSigma on December 30, 2019, 11:42:36 am

Using the SDL version to rebuild its behavior with "programmable input" and just noticed, that SDL even returns a different char/value for the ALT+SHIFT combo, whereas SHIFT+CTRL returns same as CTRL only and CTRL-SHIFT-ALT returns same as ALT only.

Here's what I use on the SDL side:

Code: QB64: [Select]

'-----------------------
'--- The INKEY$ test ---
'-----------------------
DO
    i$ = ""
    WHILE i$ = ""
        _LIMIT 50
        i$ = INKEY$
    WEND
    IF LEN(i$) = 2 THEN
        PRINT "CHR$(0) +", ASC(i$, 2), RIGHT$(i$, 1)
    ELSE
        PRINT "-------->", ASC(i$, 1), i$
    END IF
    IF i$ = CHR$(27) THEN CLS
LOOP UNTIL i$ = CHR$(13)
END
 
 

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on December 30, 2019, 01:39:15 pm

Quote from: RhoSigma on December 30, 2019, 11:42:36 am

Using the SDL version to rebuild its behavior with "programmable input" and just noticed, that SDL even returns a different char/value for the ALT+SHIFT combo, whereas SHIFT+CTRL returns same as CTRL only and CTRL-SHIFT-ALT returns same as ALT only.

I didn't think folks would need any further flexibility than what I'd started with, but it's quite easy to expand our functionality. See if this version handles all the extreme input cases you could imagine, where you might need to remap characters for different values:

Code: QB64: [Select]

DECLARE LIBRARY 'function is already used by QB64 so "User32" is not required
    FUNCTION GetKeyState% (BYVAL vkey AS LONG)
END DECLARE
 
TYPE KeyboardInfo_Type
    Index AS LONG
    ASCII AS LONG
    Ctrl AS LONG
    Shift AS LONG
    Alt AS LONG
    AltGr AS LONG
    Repeat AS _FLOAT
    LastHit AS _FLOAT
    Down AS LONG
    AltShift AS LONG
    AltCtrl AS LONG
    AltAltGr AS LONG
    CtrlShift AS LONG
    CtrlAlt AS LONG
    CtrlAltGr AS LONG
    ShiftAltGr AS LONG
    CtrlAltShift AS LONG
END TYPE
 
DIM SHARED Keys(254) AS KeyboardInfo_Type
DIM SHARED AltGr(1) AS _UNSIGNED _BYTE
Init_KeyCodes
Remap_KeyCode 65, 65, 1, 97, 160, 142, 0.2: 'A , , a,  , Ž
'Remap_Extended_KeyCode (Which&, AltShift&, AltCtrl&, AltAltGr&, CtrlShift&, CtrlAltGr&, ShiftAltGr&, CtrlAltShift&)
Remap_Extended_KeyCode 65, 143, 241, 242, 243, 244, 245, 246 ' and more!
 
_CONTROLCHR OFF
DO
    k = KeyHit
    IF k <> 0 THEN
        'LOCATE 1, 1
        PRINT k;
        IF ABS(k) < 256 THEN PRINT CHR$(34); CHR$(ABS(k)); CHR$(34) ELSE PRINT
    END IF
    'LOCATE 2, 1: PRINT KeyDown(1) 'Test to see if CHR$(1) is held down (which is generated via a CTRL-A combo)
    _LIMIT 30
LOOP UNTIL k = 27 'escape
 
SUB SetAltGr (Key1 AS INTEGER, Key2 AS INTEGER)
    AltGr(0) = Key1 'any key from our index (0 says no key)
    AltGr(1) = Key2 'PLUS any other key from our index (0 says no additional key)
    'Using this, we can set AltGr to become several things.
    'AltGr(0) = 165, AltGr(1) = 0 -- This would say we're using the RIGHT Alt key (alone) to simulate the AltGr key.  (Windows Onscreen Keyboard does this.)
    'AltGr(0) = 17, AltGr(1) = 18 -- This would use any CTRL-ALT combo to simulate a AltGr keypress.
    'Some useful values are listed for quick reference below
    '0 = NoKey
    '17 = ANY Ctrl
    '18 = ANY Alt
    '162 = Left Control
    '163 = Right Control
    '164 = Left Alt
    '165 = Right Alt
 
    'Default is for AltGr(0) = 165, AltGr(1) = 0, which uses Right-Alt alone as the AltGr key.
    'Feel free to customize the setting to your personal preference/need.
END SUB
 
FUNCTION KeyHit&
    STATIC ReturnCount AS INTEGER
    STATIC ReturnValues(30) AS LONG
    'IF Keys(1).Index = 0 THEN Init_KeyCodes 'if someone forgets to put the init routine in their code, be certain to initialize the codes before attempting to use them.
 
 
    IF ReturnCount > 0 THEN 'If we generated a cue of values last pass, clear those up first, before getting new values.
        'The only time we really see this is when we hit a shift, ctrl, alt key, usually.
        KeyHit = ReturnValues(1)
        FOR i = 1 TO ReturnCount - 1
            ReturnValues(i) = ReturnValues(i + 1)
        NEXT
        ReturnCount = ReturnCount - 1
        EXIT FUNCTION
    END IF
 
    IF Keys(16).Down THEN Shift = -1 ELSE Shift = 0
    IF Keys(17).Down THEN Ctrl = -1 ELSE Ctrl = 0
    IF Keys(18).Down THEN Alt = -1 ELSE Alt = 0
    IF AltGr(0) <> 0 AND AltGr(1) <> 0 THEN
        IF Keys(AltGr(0)).Down AND Keys(AltGr(1)).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSEIF AltGr(1) <> 0 THEN
        IF Keys(AltGr(1)).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSEIF AltGr(0) <> 0 THEN
        IF Keys(AltGr(0)).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSE
        AltGr = 0
    END IF
 
    'until Ctrl or Alt status, if the key down was used to help generate AltGr as a modifier key
    IF AltGr THEN
        IF (AltGr(0) = 18 OR AltGr(1) = 18) THEN Alt = 0 'if we use both ALT keys to represent part of AltGr, when AltGr is active, Alt isn't.
        IF (AltGr(0) = 164 OR AltGr(1) = 164) AND Keys(165).Down = 0 THEN Alt = 0 'if we use Left ALT keys to represent part of AltGr, when AltGr is active, Left Alt isn't.
        IF (AltGr(0) = 165 OR AltGr(1) = 165) AND Keys(164).Down = 0 THEN Alt = 0 'if we use Right ALT keys to represent part of AltGr, when AltGr is active, Right Alt isn't.
        IF (AltGr(0) = 17 OR AltGr(1) = 17) THEN Ctrl = 0 'if we use both CTRL keys to represent part of AltGr, when AltGr is active, Ctrl isn't.
        IF (AltGr(0) = 162 OR AltGr(1) = 162) AND Keys(163).Down = 0 THEN Ctrl = 0 'if we use Left CTRL keys to represent part of AltGr, when AltGr is active, Left Ctrl isn't.
        IF (AltGr(0) = 163 OR AltGr(1) = 163) AND Keys(162).Down = 0 THEN Ctrl = 0 'if we use Right CTRL keys to represent part of AltGr, when AltGr is active, Right Ctrl isn't.
    END IF
 
    IF Alt AND Shift THEN AltShift = -1 ELSE AltShift = 0
    IF Alt AND Ctrl THEN AltCtrl = -1 ELSE AltCtrl = 0
    IF Alt AND AltAltGR THEN AltAltGR = -1 ELSE AltAltGR = 0
    IF Ctrl AND Shift THEN CtrlShift = -1 ELSE CtrlShift = 0
    IF Shift AND AltGr THEN ShiftAltGr = -1 ELSE ShiftAltGr = 0
    IF Ctrl AND Alt AND Shift THEN CtrlAltShift = -1 ELSE CtrlAltShift = 0
 
    IF _WINDOWHASFOCUS THEN
        FOR i = 1 TO 254
 
            r = GetKeyState(Keys(i).Index) AND &H8000
 
            IF r THEN 'the key is down
 
 
                IF Keys(i).LastHit THEN
                    IF ExtendedTimer > Keys(i).LastHit THEN
                        ReturnCount = ReturnCount + 1 'add one to the return buffer
                        ReturnValues(ReturnCount) = Keys(i).Down 'and put the existing value back in the buffer, as a key repeat
                    END IF
                ELSE
 
                    IF Keys(i).Down = 0 THEN 'the key was up on the last pass.
                        IF CtrlAltShift <> 0 AND Keys(i).CtrlAltShift <> 0 THEN 'return the CtrlAltShift value
                            Keys(i).Down = Keys(i).CtrlAltShift
                        ELSEIF AltAltGR <> 0 AND Keys(i).AltAltGr <> 0 THEN 'return the AltAltGr value
                            Keys(i).Down = Keys(i).AltAltGr
                        ELSEIF CtrlAltGr& <> 0 AND Keys(i).CtrlAltGr& <> 0 THEN 'return the CtrlAltGr& value
                            Keys(i).Down = Keys(i).CtrlAltGr&
                        ELSEIF ShiftAltGr <> 0 AND Keys(i).ShiftAltGr <> 0 THEN 'return the ShiftAltGr value
                            Keys(i).Down = Keys(i).ShiftAltGr
                        ELSEIF CtrlShift <> 0 AND Keys(i).CtrlShift <> 0 THEN 'return the CtrlShift value
                            Keys(i).Down = Keys(i).CtrlShift
                        ELSEIF AltCtrl <> 0 AND Keys(i).AltCtrl <> 0 THEN 'return the AltCtrl value
                            Keys(i).Down = Keys(i).AltCtrl
                        ELSEIF AltShift <> 0 AND Keys(i).AltShift <> 0 THEN 'return the AltShift value
                            Keys(i).Down = Keys(i).AltShift
                        ELSEIF AltGr <> 0 AND Keys(i).AltGr <> 0 THEN 'return the altgr value
                            Keys(i).Down = Keys(i).AltGr
                        ELSEIF Shift <> 0 AND Keys(i).Shift <> 0 THEN 'return the shift value
                            Keys(i).Down = Keys(i).Shift
                            IF _CAPSLOCK = 0 THEN 'caps lock basically reverses the behavior of the shift key with the letters A-Z and a-z
                                SELECT CASE i
                                    CASE 65 TO 90: Keys(i).Down = Keys(i).ASCII
                                END SELECT
                            END IF
                        ELSEIF (Ctrl <> 0) AND (Keys(i).Ctrl <> 0) THEN 'return the ctrl value
                            Keys(i).Down = Keys(i).Ctrl
                        ELSEIF Alt <> 0 AND Keys(i).Alt <> 0 THEN 'return the alt value
                            Keys(i).Down = Keys(i).Alt
                        ELSE 'all that's left is to return the ASCII value
                            Keys(i).Down = Keys(i).ASCII
                            IF _CAPSLOCK = 0 THEN 'caps lock basically reverses the behavior of the shift key with the letters A-Z and a-z
                                SELECT CASE i
                                    CASE 65 TO 90: Keys(i).Down = Keys(i).Shift
                                END SELECT
                            END IF
                        END IF
                        ReturnCount = ReturnCount + 1 'add one to the return buffer
                        ReturnValues(ReturnCount) = Keys(i).Down 'and store the value in the buffer
 
                        IF Keys(i).Repeat = -1 THEN 'keys that are set to a -1 on repeat simply toggle state as on, or off.
                            Keys(i).LastHit = 1E+1000 'such as SHIFT, CTRL, ALT...
                        ELSE
                            Keys(i).LastHit = ExtendedTimer + Keys(i).Repeat 'and record when we hit it for repeat purposes
                        END IF
                    END IF
                END IF
            ELSE
                IF Keys(i).Down THEN 'the key was down on the last pass
                    ReturnCount = ReturnCount + 1
                    ReturnValues(ReturnCount) = -Keys(i).Down 'mark it as being up on this one
                END IF
                Keys(i).Down = 0 'and set it back down for future passes
                Keys(i).LastHit = 0 'once again, set it as being ready to be hit again
            END IF
        NEXT
 
        IF ReturnCount > 0 THEN 'If we generated a cue of values last pass, clear those up first, before getting new values.
            'The only time we really see this is when we hit a shift, ctrl, alt key, usually.
            KeyHit = ReturnValues(1)
            FOR i = 1 TO ReturnCount - 1
                ReturnValues(i) = ReturnValues(i + 1)
            NEXT
            ReturnCount = ReturnCount - 1
            EXIT FUNCTION
        END IF
 
    END IF 'End of IF _WINDOWHASFOCUS
 
 
END FUNCTION
 
 
SUB Remap_KeyCode (Which AS LONG, ASCII AS LONG, Ctrl AS LONG, Shift AS LONG, Alt AS LONG, AltGr AS LONG, Repeat AS _FLOAT)
    DIM i AS LONG
    i = Which
    Keys(i).Index = i
    Keys(i).ASCII = ASCII
    Keys(i).Ctrl = Ctrl
    Keys(i).Shift = Shift
    Keys(i).Alt = Alt
    Keys(i).AltGr = AltGr
    Keys(i).Repeat = Repeat
    Keys(i).LastHit = 0
    Keys(i).Down = 0
END SUB
 
SUB Remap_Extended_KeyCode (Which&, AltShift&, AltCtrl&, AltAltGr&, _
         CtrlShift&, CtrlAltGr&, ShiftAltGr&, CtrlAltShift&)
    Keys(Which&).AltShift = AltShift&
    Keys(Which&).AltCtrl = AltCtrl&
    Keys(Which&).AltAltGr = AltAltGr&
    Keys(Which&).CtrlShift = CtrlShift&
    Keys(Which&).CtrlAltGr = CtrlAltGr&
    Keys(Which&).ShiftAltGr = ShiftAltGr&
    Keys(Which&).CtrlAltShift = CtrlAltShift&
END SUB
 
 
 
FUNCTION KeyDown& (Code AS LONG)
    FOR i = 1 TO 254
        IF Keys(i).Down = Code THEN KeyDown& = -1: EXIT FUNCTION
    NEXT
    KeyDown& = 0
END FUNCTION
 
SUB Init_KeyCodes
    RESTORE default_keyboard_data
    FOR i = 1 TO 254
        READ Keys(i).Index, Keys(i).ASCII, Keys(i).Ctrl, Keys(i).Shift, Keys(i).Alt, Keys(i).AltGr, Keys(i).Repeat
        Keys(i).LastHit = 0: Keys(i).Down = 0
    NEXT
 
    default_keyboard_data:
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 1,900001,0,0,0,0,0.2: 'Left Mouse Button
    DATA 2,900002,0,0,0,0,0.2: 'Right Mouse Button
    DATA 3,900003,0,0,0,0,0.2: 'VK_Cancel
    DATA 4,900004,0,0,0,0,0.2: 'Middle Mouse Button
    DATA 5,900005,0,0,0,0,0.2: 'Mouse Button 4
    DATA 6,900006,0,0,0,0,0.2: 'Mouse Button 5
    DATA 7,900007,0,0,0,0,0.2: 'Undefined
    DATA 8,8,0,0,0,0,0.2: 'Backspace
    DATA 9,9,0,0,0,0,0.2: 'Tab
    DATA 10,900010,0,0,0,0,0.2: 'Reserved
    DATA 11,900011,0,0,0,0,0.2: 'Reserved
    DATA 12,19456,0,0,0,0,0.2: 'Clear
    DATA 13,13,0,0,0,0,0.2: 'Enter
    DATA 14,900014,0,0,0,0,0.2: 'Undefined
    DATA 15,900015,0,0,0,0,0.2: 'Undefined
    DATA 16,100016,0,0,0,0,-1: 'Shift (Notice I set it to simple toddle and report UP/DOWN results for us)
    DATA 17,100017,0,0,0,0,-1: 'Ctrl   (Same)
    DATA 18,100018,0,0,0,0,-1: 'Alt     (Same)
    DATA 19,100019,0,0,0,0,0.2: 'Pause
    DATA 20,100301,0,0,0,0,-1: 'Caps Lock
    DATA 21,900021,0,0,0,0,0.2: 'VK_Hangul
    DATA 22,900022,0,0,0,0,0.2: 'Undefined
    DATA 23,900023,0,0,0,0,0.2: 'VK_Junja
    DATA 24,900024,0,0,0,0,0.2: 'VK_Final
    DATA 25,900025,0,0,0,0,0.2: 'VK_Hanga//VK_Kanji
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 26,900026,0,0,0,0,0.2: 'Undefined
    DATA 27,27,0,0,0,0,0.2: 'ESC
    DATA 28,900028,0,0,0,0,0.2: 'VK_Convert
    DATA 29,900029,0,0,0,0,0.2: 'VK_NonConvert
    DATA 30,900030,0,0,0,0,0.2: 'VK_Accept
    DATA 31,900031,0,0,0,0,0.2: 'VK_ModeChange
    DATA 32,32,0,0,0,0,0.2: 'VK_Space
    DATA 33,18688,0,0,0,0,0.2: 'Page Up
    DATA 34,20736,0,0,0,0,0.2: 'Page Down
    DATA 35,20224,0,0,0,0,0.2: 'End
    DATA 36,18176,0,0,0,0,0.2: 'Home
    DATA 37,19200,0,0,0,0,0.2: 'Left Arrow
    DATA 38,18432,0,0,0,0,0.2: 'Up Arrow
    DATA 39,19712,0,0,0,0,0.2: 'Right Arrow
    DATA 40,20480,0,0,0,0,0.2: 'Down Arrow
    DATA 41,900041,0,0,0,0,-1: 'VK_SELECT
    DATA 42,900042,0,0,0,0,-1: 'CK_PRINT
    DATA 43,900043,0,0,0,0,-1: 'VK_EXECUTE
    DATA 44,900044,0,0,0,0,-1: 'VK_SNAPSHOT
    DATA 45,20992,0,0,0,0,0.2: 'INS
    DATA 46,21248,0,0,0,0,0.2: 'DEL
    DATA 47,900047,0,0,0,0,0.2: 'VK_HELP
    DATA 48,48,0,41,0,0,0.2: '0
    DATA 49,49,0,33,0,0,0.2: '1
    DATA 50,50,0,64,0,0,0.2: '2
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 51,51,0,35,0,0,0.2: '3
    DATA 52,52,0,36,0,0,0.2: '4
    DATA 53,53,0,37,0,0,0.2: '5
    DATA 54,54,0,94,0,0,0.2: '6
    DATA 55,55,0,38,0,0,0.2: '7
    DATA 56,56,0,42,0,0,0.2: '8
    DATA 57,57,0,40,0,0,0.2: '9
    DATA 58,900058,0,0,0,0,0.2: 'Undefined
    DATA 59,900059,0,0,0,0,0.2: 'Undefined
    DATA 60,900060,0,0,0,0,0.2: 'Undefined
    DATA 61,900061,0,0,0,0,0.2: 'Undefined
    DATA 62,900062,0,0,0,0,0.2: 'Undefined
    DATA 63,900063,0,0,0,0,0.2: 'Undefined
    DATA 64,900064,0,0,0,0,0.2: 'Undefined
    DATA 65,65,0,97,0,0,0.2: 'a
    DATA 66,66,0,98,0,0,0.2: 'b
    DATA 67,67,0,99,0,0,0.2: 'c
    DATA 68,68,0,100,0,0,0.2: 'd
    DATA 69,69,0,101,0,0,0.2: 'e
    DATA 70,70,0,102,0,0,0.2: 'f
    DATA 71,71,0,103,0,0,0.2: 'g
    DATA 72,72,0,104,0,0,0.2: 'h
    DATA 73,73,0,105,0,0,0.2: 'i
    DATA 74,74,0,106,0,0,0.2: 'j
    DATA 75,75,0,107,0,0,0.2: 'k
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 76,76,0,108,0,0,0.2: 'l
    DATA 77,77,0,109,0,0,0.2: 'm
    DATA 78,78,0,110,0,0,0.2: 'n
    DATA 79,79,0,111,0,0,0.2: 'o
    DATA 80,80,0,112,0,0,0.2: 'p
    DATA 81,81,0,113,0,0,0.2: 'q
    DATA 82,82,0,114,0,0,0.2: 'r
    DATA 83,83,0,115,0,0,0.2: 's
    DATA 84,84,0,116,0,0,0.2: 't
    DATA 85,85,0,117,0,0,0.2: 'u
    DATA 86,86,0,118,0,0,0.2: 'v
    DATA 87,87,0,119,0,0,0.2: 'w
    DATA 88,88,0,120,0,0,0.2: 'x
    DATA 89,89,0,121,0,0,0.2: 'y
    DATA 90,90,0,122,0,0,0.2: 'z
    DATA 91,100311,0,0,0,0,-1: 'Left WIN
    DATA 92,100312,0,0,0,0,-1: 'Right WIN
    DATA 93,100319,0,0,0,0,-1: 'Applications (Menu)
    DATA 94,900094,0,0,0,0,0.2: 'Reserved
    DATA 95,900095,0,0,0,0,0.2: 'VK_SLEEP
    DATA 96,48,0,0,0,0,0.2: 'Numpad 0
    DATA 97,49,0,0,0,0,0.2: 'Numpad 1
    DATA 98,50,0,0,0,0,0.2: 'Numpad 2
    DATA 99,51,0,0,0,0,0.2: 'Numpad 3
    DATA 100,52,0,0,0,0,0.2: 'Numpad 4
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 101,53,0,0,0,0,0.2: 'Numpad 5
    DATA 102,54,0,0,0,0,0.2: 'Numpad 6
    DATA 103,55,0,0,0,0,0.2: 'Numpad 7
    DATA 104,56,0,0,0,0,0.2: 'Numpad 8
    DATA 105,57,0,0,0,0,0.2: 'Numpad 9
    DATA 106,42,0,0,0,0,0.2: 'Numpad *
    DATA 107,43,0,0,0,0,0.2: 'Numpad +
    DATA 108,900108,0,0,0,0,0.2: 'VK_SEPARATOR
    DATA 109,51,0,0,0,0,0.2: 'Numpad -
    DATA 110,52,0,0,0,0,0.2: 'Numpad .
    DATA 111,53,0,0,0,0,0.2: 'Numpad /
    DATA 112,15104,0,0,0,0,0.2: 'F1
    DATA 113,15360,0,0,0,0,0.2: 'F2
    DATA 114,15616,0,0,0,0,0.2: 'F3
    DATA 115,15872,0,0,0,0,0.2: 'F4
    DATA 116,16128,0,0,0,0,0.2: 'F5
    DATA 117,16384,0,0,0,0,0.2: 'F6
    DATA 118,16640,0,0,0,0,0.2: 'F7
    DATA 119,16896,0,0,0,0,0.2: 'F8
    DATA 120,17152,0,0,0,0,0.2: 'F9
    DATA 121,17408,0,0,0,0,0.2: 'F10
    DATA 122,34048,0,0,0,0,0.2: 'F11
    DATA 123,34304,0,0,0,0,0.2: 'F12
    DATA 124,900124,0,0,0,0,0.2: 'F13
    DATA 125,900125,0,0,0,0,0.2: 'F14
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 126,900126,0,0,0,0,0.2: 'F15
    DATA 127,900127,0,0,0,0,0.2: 'F16
    DATA 128,900128,0,0,0,0,0.2: 'F17
    DATA 129,900129,0,0,0,0,0.2: 'F18
    DATA 130,900130,0,0,0,0,0.2: 'F19
    DATA 131,900131,0,0,0,0,0.2: 'F20
    DATA 132,900132,0,0,0,0,0.2: 'F21
    DATA 133,900133,0,0,0,0,0.2: 'F22
    DATA 134,900134,0,0,0,0,0.2: 'F23
    DATA 135,900135,0,0,0,0,0.2: 'F24
    DATA 136,900136,0,0,0,0,0.2: 'Unassigned
    DATA 137,900137,0,0,0,0,0.2: 'Unassigned
    DATA 138,900138,0,0,0,0,0.2: 'Unassigned
    DATA 139,900139,0,0,0,0,0.2: 'Unassigned
    DATA 140,900140,0,0,0,0,0.2: 'Unassigned
    DATA 141,900141,0,0,0,0,0.2: 'Unassigned
    DATA 142,900142,0,0,0,0,0.2: 'Unassigned
    DATA 143,900143,0,0,0,0,0.2: 'Unassigned
    DATA 144,100300,0,0,0,0,-1: 'NUM LOCK
    DATA 145,100302,0,0,0,0,-1: 'SCROLL LOCK
    DATA 146,900146,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 147,900147,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 148,900148,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 149,900149,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 150,900150,0,0,0,0,0.2: 'OEM SPECIFIC
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 151,900151,0,0,0,0,0.2: 'Unassigned
    DATA 152,900152,0,0,0,0,0.2: 'Unassigned
    DATA 153,900153,0,0,0,0,0.2: 'Unassigned
    DATA 154,900154,0,0,0,0,0.2: 'Unassigned
    DATA 155,900155,0,0,0,0,0.2: 'Unassigned
    DATA 156,900156,0,0,0,0,0.2: 'Unassigned
    DATA 157,900157,0,0,0,0,0.2: 'Unassigned
    DATA 158,900158,0,0,0,0,0.2: 'Unassigned
    DATA 159,900159,0,0,0,0,0.2: 'Unassigned
    DATA 160,100304,0,0,0,0,-1: 'Left Shift
    DATA 161,100303,0,0,0,0,-1: 'Right Shift
    DATA 162,100306,0,0,0,0,-1: 'Left Control
    DATA 163,100305,0,0,0,0,-1: 'Right Control
    DATA 164,100308,0,0,0,0,-1: 'Left Alt
    DATA 165,100309,0,0,0,0,-1: 'Right Alt
    DATA 166,900166,0,0,0,0,0.2: 'Browser back
    DATA 167,900167,0,0,0,0,0.2: 'Browser forward
    DATA 168,900168,0,0,0,0,0.2: 'Browser refresh
    DATA 169,900169,0,0,0,0,0.2: 'Browser stop
    DATA 170,900170,0,0,0,0,0.2: 'Browser search
    DATA 171,900171,0,0,0,0,0.2: 'Browser favorites
    DATA 172,900172,0,0,0,0,0.2: 'Browser home
    DATA 173,900173,0,0,0,0,0.2: 'Mute
    DATA 174,900174,0,0,0,0,0.2: 'Vol Down
    DATA 175,900175,0,0,0,0,0.2: 'Vol Up
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 176,900176,0,0,0,0,0.2: 'Media Next
    DATA 177,900177,0,0,0,0,0.2: 'Media prev
    DATA 178,900178,0,0,0,0,0.2: 'Media stop
    DATA 179,900179,0,0,0,0,0.2: 'Media Play/Pause
    DATA 180,900180,0,0,0,0,0.2: 'Launch mail
    DATA 181,900181,0,0,0,0,0.2: 'Launch media select
    DATA 182,900182,0,0,0,0,0.2: 'Launch app1
    DATA 183,900183,0,0,0,0,0.2: 'Launch app2
    DATA 184,900184,0,0,0,0,0.2: 'Reserved
    DATA 185,900185,0,0,0,0,0.2: 'Reserved
    DATA 186,59,0,58,0,0,0.2: ';:
    DATA 187,61,0,43,0,0,0.2: '=+
    DATA 188,44,0,60,0,0,0.2: ',<
    DATA 189,45,0,95,0,0,0.2: '-_
    DATA 190,46,0,62,0,0,0.2: '.>
    DATA 191,47,0,63,0,0,0.2: '/?
    DATA 192,96,0,126,0,0,0.2: '`~
    DATA 193,900193,0,0,0,0,0.2: 'Reserved
    DATA 194,900194,0,0,0,0,0.2: 'Reserved
    DATA 195,900195,0,0,0,0,0.2: 'Reserved
    DATA 196,900196,0,0,0,0,0.2: 'Reserved
    DATA 197,900197,0,0,0,0,0.2: 'Reserved
    DATA 198,900198,0,0,0,0,0.2: 'Reserved
    DATA 199,900199,0,0,0,0,0.2: 'Reserved
    DATA 200,900200,0,0,0,0,0.2: 'Reserved
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 201,900201,0,0,0,0,0.2: 'Reserved
    DATA 202,900202,0,0,0,0,0.2: 'Reserved
    DATA 203,900203,0,0,0,0,0.2: 'Reserved
    DATA 204,900204,0,0,0,0,0.2: 'Reserved
    DATA 205,900205,0,0,0,0,0.2: 'Reserved
    DATA 206,900206,0,0,0,0,0.2: 'Reserved
    DATA 207,900207,0,0,0,0,0.2: 'Reserved
    DATA 208,900208,0,0,0,0,0.2: 'Reserved
    DATA 209,900209,0,0,0,0,0.2: 'Reserved
    DATA 210,900210,0,0,0,0,0.2: 'Reserved
    DATA 211,900211,0,0,0,0,0.2: 'Reserved
    DATA 212,900212,0,0,0,0,0.2: 'Reserved
    DATA 213,900213,0,0,0,0,0.2: 'Reserved
    DATA 214,900214,0,0,0,0,0.2: 'Reserved
    DATA 215,900215,0,0,0,0,0.2: 'Reserved
    DATA 216,900216,0,0,0,0,0.2: 'Unassigned
    DATA 217,900217,0,0,0,0,0.2: 'Unassigned
    DATA 218,900218,0,0,0,0,0.2: 'Unassigned
    DATA 219,91,0,123,0,0,0.2: '[{
    DATA 220,92,0,124,0,0,0.2: '\|
    DATA 221,93,0,125,0,0,0.2: ']}
    DATA 222,39,0,34,0,0,0.2: ''"
    DATA 223,900223,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 224,900224,0,0,0,0,0.2: 'Reserved
    DATA 225,900225,0,0,0,0,0.2: 'OEM SPECIFIC d
    DATA 226,900226,0,0,0,0,0.2: 'Either the Angle Bracket key,or Backslash on RT 102-key keyboard
    DATA 227,900227,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 228,900228,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 229,900229,0,0,0,0,0.2: 'IME PROCESS key (whatever that is)
    DATA 230,900230,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 231,900231,0,0,0,0,0.2: 'Used to pass UNICODE characters (however that works)
    DATA 232,900232,0,0,0,0,0.2: 'Unassigned
    DATA 233,900233,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 234,900234,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 235,900235,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 236,900236,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 237,900237,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 238,900238,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 239,900239,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 240,900240,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 241,900241,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 242,900242,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 243,900243,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 244,900244,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 245,900245,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 246,900246,0,0,0,0,0.2: 'VK_ATTN
    DATA 247,900247,0,0,0,0,0.2: 'VK_ATTN
    DATA 248,900248,0,0,0,0,0.2: 'VK_ATTN
    DATA 249,900249,0,0,0,0,0.2: 'VK_ATTN
    DATA 250,900250,0,0,0,0,0.2: 'VK_ATTN
    DATA 251,900251,0,0,0,0,0.2: 'VK_ATTN
    DATA 252,900252,0,0,0,0,0.2: 'Reserved
    DATA 253,900253,0,0,0,0,0.2: 'VK_PA1
    DATA 254,900253,0,0,0,0,0.2: 'VK_OEM_CLEAR
    DATA 0,0,0,0,0,0,0.2: 'END OF DATA
    AltGr(0) = 165
    AltGr(1) = 0
END SUB
 
 
FUNCTION ExtendedTimer##
    'modified extendedtimer to store the old day's count, and not have to recalculate it every time the routine is called.
 
    STATIC olds AS _FLOAT, old_day AS _FLOAT
    DIM m AS INTEGER, d AS INTEGER, y AS INTEGER
    DIM s AS _FLOAT, day AS STRING
    IF olds = 0 THEN 'calculate the day the first time the extended timer runs
        day = DATE$
        m = VAL(LEFT$(day, 2))
        d = VAL(MID$(day, 4, 2))
        y = VAL(RIGHT$(day, 4)) - 1970
        SELECT CASE m 'Add the number of days for each previous month passed
            CASE 2: d = d + 31
            CASE 3: d = d + 59
            CASE 4: d = d + 90
            CASE 5: d = d + 120
            CASE 6: d = d + 151
            CASE 7: d = d + 181
            CASE 8: d = d + 212
            CASE 9: d = d + 243
            CASE 10: d = d + 273
            CASE 11: d = d + 304
            CASE 12: d = d + 334
        END SELECT
        IF (y MOD 4) = 2 AND m > 2 THEN d = d + 1 'add a day if this is leap year and we're past february
        d = (d - 1) + 365 * y 'current month days passed + 365 days per each standard year
        d = d + (y + 2) \ 4 'add in days for leap years passed
        s = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds
        old_day = s
    END IF
    IF TIMER < oldt THEN 'we went from 23:59:59 (a second before midnight) to 0:0:0 (midnight)
        old_day = s + 83400 'add another worth of seconds to our counter
    END IF
    oldt = TIMER
    olds = old_day + oldt
    ExtendedTimer## = olds
END FUNCTION
 

We now have the option to remap (or add) extended keycodes to our input handler, if we want to, using:

Code: [Select]

SUB Remap_Extended_KeyCode (Which&, AltShift&, AltCtrl&, AltAltGr&, CtrlShift&, CtrlAltGr&, ShiftAltGr&, CtrlAltShift&)
For testing purposes, I remapped A to give us a whole swarm of different various inputs which it can now relate to:
"A" -- when used alone and in combination with other keys -- returns us values which can be: 65, 1, 97, 160, 142, 143, 241, 242, 243, 244, 245, 246

I'm thinking that someone should be able to map just about any type of character to any sort of combo that they want now, without any problem at all! Forget plain old key & shift-key combos!! Now you can do key, shift-key, ctrl-shift-key, alt-shift-key, altgr-key, shift-altgr-key, and several other possible combinations!

If you can detect the keys on your system, you should be able to map them to respond to whatever the heck you want them to for you. :)

Title: Re: Programmable Keyboard Input
Post by: RhoSigma on December 30, 2019, 02:04:36 pm

Well, thank you once again for your efforts Steve,

I'd agree, that this might be overkill for most people. From that point of view it's perfect, that you chose to put the "extended" remapping into a extra SUB, so everybody who doesn't need it can just leave it alone. On the other hand we now have an excellent piece of code suitable for almost any thinkable key combo, and I hope many of our international members will take the time to add at least the regular mappings for their respective keyboards, so this library will evolve well in the future.

For me it will be possible now to exactly rebuilt the INKEY$ behavior as SDL had, and which worked so well for my projects.

Thank You

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on December 30, 2019, 02:42:21 pm

Happy to do it, as this is something which I’ll be using in various projects as well, once we get it all shined up and polished. ;)

For my latest project, I wanted to be able to allow users to set their own customizable hotkeys for various program actions, and that just isn’t possible with our current input routines. _KEYHIT doesn’t work right, or play nice, with many of the CTRL keys. (Heck, it doesn’t even register some of the unmodified keys, like the Menu/App key!) INKEY$ has limited readability...

I’d always thought, “At least we have _DEVICES to fall back on...”

WRONG!!

It’s completely, utterly, 100% broken. It doesn’t return the values from the _DEVICES page at all now — it’s more the INP(&H60) character set. It doesn’t read ALT at all... It’s just broke.

/sigh

Which, when all taken together, leads me to end up just writing my own programmable input handler, which we see here. I hope others will find it useful, but in the end, it’s primary purpose is to be something which I can plug in and use for my own personal projects in the future.

Got to admit though, I will be rather happy once others contribute some international remappings to things. It’ll be nice to provide that functionality for others in the future, as well. ;)

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on December 31, 2019, 11:58:43 am

Edited post above to fix a small glitch with some codes not printing thanks to an incorrect look-up being done with CAPSLOCK modifying things.

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on December 31, 2019, 12:36:03 pm

Added a few helper functions to the programmable keyboard routines above.

Code: QB64: [Select]

DECLARE LIBRARY 'function is already used by QB64 so "User32" is not required
    FUNCTION GetKeyState% (BYVAL vkey AS LONG)
    FUNCTION GetAsyncKeyState% (BYVAL vkey AS LONG)
END DECLARE
 
TYPE KeyboardInfo_Type
    Index AS LONG
    ASCII AS LONG
    Ctrl AS LONG
    Shift AS LONG
    Alt AS LONG
    AltGr AS LONG
    Repeat AS _FLOAT
    LastHit AS _FLOAT
    Down AS LONG
    AltShift AS LONG
    AltCtrl AS LONG
    AltAltGr AS LONG
    CtrlShift AS LONG
    CtrlAlt AS LONG
    CtrlAltGr AS LONG
    ShiftAltGr AS LONG
    CtrlAltShift AS LONG
END TYPE
 
DIM SHARED Keys(254) AS KeyboardInfo_Type
DIM SHARED AltGr(1) AS _UNSIGNED _BYTE
Init_KeyCodes
Remap_KeyCode 65, 65, 1, 97, 160, 142, 0.2: 'A , , a,  , Ž
'Remap_Extended_KeyCode (Which&, AltShift&, AltCtrl&, AltAltGr&, CtrlShift&, CtrlAltGr&, ShiftAltGr&, CtrlAltShift&)
Remap_Extended_KeyCode 65, 143, 241, 242, 243, 244, 245, 246 ' and more!
 
_CONTROLCHR OFF
 
PRINT "Test out the input handler.  Try lots of options! => ";
junk$ = ExtendedInput
PRINT junk$
PRINT
PRINT "Pretty nifty, right?"
KeyClear 'Notice that without this, we'll read the keyup event from where ENTER is lifted up, as the first character value below.
 
DO
    k = KeyHit
    IF k <> 0 THEN
        'LOCATE 1, 1
        PRINT k;
        IF ABS(k) < 256 THEN PRINT CHR$(34); CHR$(ABS(k)); CHR$(34) ELSE PRINT
    END IF
    'LOCATE 2, 1: PRINT KeyDown(1) 'Test to see if CHR$(1) is held down (which is generated via a CTRL-A combo)
    _LIMIT 30
LOOP UNTIL k = 27 'escape
 
SUB SetAltGr (Key1 AS INTEGER, Key2 AS INTEGER)
    AltGr(0) = Key1 'any key from our index (0 says no key)
    AltGr(1) = Key2 'PLUS any other key from our index (0 says no additional key)
    'Using this, we can set AltGr to become several things.
    'AltGr(0) = 165, AltGr(1) = 0 -- This would say we're using the RIGHT Alt key (alone) to simulate the AltGr key.  (Windows Onscreen Keyboard does this.)
    'AltGr(0) = 17, AltGr(1) = 18 -- This would use any CTRL-ALT combo to simulate a AltGr keypress.
    'Some useful values are listed for quick reference below
    '0 = NoKey
    '17 = ANY Ctrl
    '18 = ANY Alt
    '162 = Left Control
    '163 = Right Control
    '164 = Left Alt
    '165 = Right Alt
 
    'Default is for AltGr(0) = 165, AltGr(1) = 0, which uses Right-Alt alone as the AltGr key.
    'Feel free to customize the setting to your personal preference/need.
END SUB
 
SUB KeyClear
    _DELAY .05 'give time for a keyup event to log itself so we can clear it
    DO: k = KeyHit: LOOP UNTIL k = 0
END SUB
 
FUNCTION KeyHit&
    STATIC ReturnCount AS INTEGER
    STATIC ReturnValues(30) AS LONG
    SHARED AltGr, Alt, Shift, Ctrl
    IF Keys(1).Index = 0 THEN Init_KeyCodes 'if someone forgets to put the init routine in their code, be certain to initialize the codes before attempting to use them.
 
 
    IF ReturnCount > 0 THEN 'If we generated a cue of values last pass, clear those up first, before getting new values.
        'The only time we really see this is when we hit a shift, ctrl, alt key, usually.
        KeyHit = ReturnValues(1)
        FOR i = 1 TO ReturnCount - 1
            ReturnValues(i) = ReturnValues(i + 1)
        NEXT
        ReturnCount = ReturnCount - 1
        EXIT FUNCTION
    END IF
 
    IF Keys(16).Down THEN Shift = -1 ELSE Shift = 0
    IF Keys(17).Down THEN Ctrl = -1 ELSE Ctrl = 0
    IF Keys(18).Down THEN Alt = -1 ELSE Alt = 0
    IF AltGr(0) <> 0 AND AltGr(1) <> 0 THEN
        IF Keys(AltGr(0)).Down AND Keys(AltGr(1)).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSEIF AltGr(1) <> 0 THEN
        IF Keys(AltGr(1)).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSEIF AltGr(0) <> 0 THEN
        IF Keys(AltGr(0)).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSE
        AltGr = 0
    END IF
 
    'until Ctrl or Alt status, if the key down was used to help generate AltGr as a modifier key
    IF AltGr THEN
        IF (AltGr(0) = 18 OR AltGr(1) = 18) THEN Alt = 0 'if we use both ALT keys to represent part of AltGr, when AltGr is active, Alt isn't.
        IF (AltGr(0) = 164 OR AltGr(1) = 164) AND Keys(165).Down = 0 THEN Alt = 0 'if we use Left ALT keys to represent part of AltGr, when AltGr is active, Left Alt isn't.
        IF (AltGr(0) = 165 OR AltGr(1) = 165) AND Keys(164).Down = 0 THEN Alt = 0 'if we use Right ALT keys to represent part of AltGr, when AltGr is active, Right Alt isn't.
        IF (AltGr(0) = 17 OR AltGr(1) = 17) THEN Ctrl = 0 'if we use both CTRL keys to represent part of AltGr, when AltGr is active, Ctrl isn't.
        IF (AltGr(0) = 162 OR AltGr(1) = 162) AND Keys(163).Down = 0 THEN Ctrl = 0 'if we use Left CTRL keys to represent part of AltGr, when AltGr is active, Left Ctrl isn't.
        IF (AltGr(0) = 163 OR AltGr(1) = 163) AND Keys(162).Down = 0 THEN Ctrl = 0 'if we use Right CTRL keys to represent part of AltGr, when AltGr is active, Right Ctrl isn't.
    END IF
 
    IF Alt AND Shift THEN AltShift = -1 ELSE AltShift = 0
    IF Alt AND Ctrl THEN AltCtrl = -1 ELSE AltCtrl = 0
    IF Alt AND AltAltGR THEN AltAltGR = -1 ELSE AltAltGR = 0
    IF Ctrl AND Shift THEN CtrlShift = -1 ELSE CtrlShift = 0
    IF Shift AND AltGr THEN ShiftAltGr = -1 ELSE ShiftAltGr = 0
    IF Ctrl AND Alt AND Shift THEN CtrlAltShift = -1 ELSE CtrlAltShift = 0
 
    IF _WINDOWHASFOCUS THEN
        FOR i = 1 TO 254
 
            r = GetKeyState(Keys(i).Index) AND &H8000
 
            IF r THEN 'the key is down
 
 
                IF Keys(i).LastHit THEN
                    IF ExtendedTimer > Keys(i).LastHit THEN
                        ReturnCount = ReturnCount + 1 'add one to the return buffer
                        ReturnValues(ReturnCount) = Keys(i).Down 'and put the existing value back in the buffer, as a key repeat
                    END IF
                ELSE
 
                    IF Keys(i).Down = 0 THEN 'the key was up on the last pass.
                        IF CtrlAltShift <> 0 AND Keys(i).CtrlAltShift <> 0 THEN 'return the CtrlAltShift value
                            Keys(i).Down = Keys(i).CtrlAltShift
                        ELSEIF AltAltGR <> 0 AND Keys(i).AltAltGr <> 0 THEN 'return the AltAltGr value
                            Keys(i).Down = Keys(i).AltAltGr
                        ELSEIF CtrlAltGr& <> 0 AND Keys(i).CtrlAltGr& <> 0 THEN 'return the CtrlAltGr& value
                            Keys(i).Down = Keys(i).CtrlAltGr&
                        ELSEIF ShiftAltGr <> 0 AND Keys(i).ShiftAltGr <> 0 THEN 'return the ShiftAltGr value
                            Keys(i).Down = Keys(i).ShiftAltGr
                        ELSEIF CtrlShift <> 0 AND Keys(i).CtrlShift <> 0 THEN 'return the CtrlShift value
                            Keys(i).Down = Keys(i).CtrlShift
                        ELSEIF AltCtrl <> 0 AND Keys(i).AltCtrl <> 0 THEN 'return the AltCtrl value
                            Keys(i).Down = Keys(i).AltCtrl
                        ELSEIF AltShift <> 0 AND Keys(i).AltShift <> 0 THEN 'return the AltShift value
                            Keys(i).Down = Keys(i).AltShift
                        ELSEIF AltGr <> 0 AND Keys(i).AltGr <> 0 THEN 'return the altgr value
                            Keys(i).Down = Keys(i).AltGr
                        ELSEIF Shift <> 0 AND Keys(i).Shift <> 0 THEN 'return the shift value
                            Keys(i).Down = Keys(i).Shift
                            IF _CAPSLOCK = 0 THEN 'caps lock basically reverses the behavior of the shift key with the letters A-Z and a-z
                                SELECT CASE i
                                    CASE 65 TO 90: Keys(i).Down = Keys(i).ASCII
                                END SELECT
                            END IF
                        ELSEIF (Ctrl <> 0) AND (Keys(i).Ctrl <> 0) THEN 'return the ctrl value
                            Keys(i).Down = Keys(i).Ctrl
                        ELSEIF Alt <> 0 AND Keys(i).Alt <> 0 THEN 'return the alt value
                            Keys(i).Down = Keys(i).Alt
                        ELSE 'all that's left is to return the ASCII value
                            Keys(i).Down = Keys(i).ASCII
                            IF _CAPSLOCK = 0 THEN 'caps lock basically reverses the behavior of the shift key with the letters A-Z and a-z
                                SELECT CASE i
                                    CASE 65 TO 90: Keys(i).Down = Keys(i).Shift
                                END SELECT
                            END IF
                        END IF
                        ReturnCount = ReturnCount + 1 'add one to the return buffer
                        ReturnValues(ReturnCount) = Keys(i).Down 'and store the value in the buffer
 
                        IF Keys(i).Repeat = -1 THEN 'keys that are set to a -1 on repeat simply toggle state as on, or off.
                            Keys(i).LastHit = 1E+1000 'such as SHIFT, CTRL, ALT...
                        ELSE
                            Keys(i).LastHit = ExtendedTimer + Keys(i).Repeat 'and record when we hit it for repeat purposes
                        END IF
                    END IF
                END IF
            ELSE
                IF Keys(i).Down THEN 'the key was down on the last pass
                    ReturnCount = ReturnCount + 1
                    ReturnValues(ReturnCount) = -Keys(i).Down 'mark it as being up on this one
                END IF
                Keys(i).Down = 0 'and set it back down for future passes
                Keys(i).LastHit = 0 'once again, set it as being ready to be hit again
            END IF
        NEXT
 
        IF ReturnCount > 0 THEN 'If we generated a cue of values last pass, clear those up first, before getting new values.
            'The only time we really see this is when we hit a shift, ctrl, alt key, usually.
            KeyHit = ReturnValues(1)
            FOR i = 1 TO ReturnCount - 1
                ReturnValues(i) = ReturnValues(i + 1)
            NEXT
            ReturnCount = ReturnCount - 1
            EXIT FUNCTION
        END IF
 
    END IF 'End of IF _WINDOWHASFOCUS
 
 
END FUNCTION
 
 
SUB Remap_KeyCode (Which AS LONG, ASCII AS LONG, Ctrl AS LONG, Shift AS LONG, Alt AS LONG, AltGr AS LONG, Repeat AS _FLOAT)
    DIM i AS LONG
    i = Which
    Keys(i).Index = i
    Keys(i).ASCII = ASCII
    Keys(i).Ctrl = Ctrl
    Keys(i).Shift = Shift
    Keys(i).Alt = Alt
    Keys(i).AltGr = AltGr
    Keys(i).Repeat = Repeat
    Keys(i).LastHit = 0
    Keys(i).Down = 0
END SUB
 
SUB Remap_Extended_KeyCode (Which&, AltShift&, AltCtrl&, AltAltGr&, _
         CtrlShift&, CtrlAltGr&, ShiftAltGr&, CtrlAltShift&)
    Keys(Which&).AltShift = AltShift&
    Keys(Which&).AltCtrl = AltCtrl&
    Keys(Which&).AltAltGr = AltAltGr&
    Keys(Which&).CtrlShift = CtrlShift&
    Keys(Which&).CtrlAltGr = CtrlAltGr&
    Keys(Which&).ShiftAltGr = ShiftAltGr&
    Keys(Which&).CtrlAltShift = CtrlAltShift&
END SUB
 
FUNCTION KeyDown& (Code AS LONG)
    IF Code <= 0 THEN EXIT FUNCTION
    FOR i = 1 TO 254
        IF GetAsyncKeyState(i) THEN 'first check for actual physical keys down
            IF Keys(i).ASCII = Code THEN KeyDown = -1: EXIT FUNCTION 'then check to see if the code matches anything we've mapped it to.
            IF Keys(i).Shift = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).Alt = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).AltGr = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).AltShift = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).AltCtrl = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).AltAltGr = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).CtrlShift = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).CtrlAltGr = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).ShiftAltGr = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).CtrlAltShift = Code THEN KeyDown = -1: EXIT FUNCTION
        END IF
    NEXT
    KeyDown& = 0
END FUNCTION
 
SUB Init_KeyCodes
    RESTORE default_keyboard_data
    FOR i = 1 TO 254
        READ Keys(i).Index, Keys(i).ASCII, Keys(i).Ctrl, Keys(i).Shift, Keys(i).Alt, Keys(i).AltGr, Keys(i).Repeat
        Keys(i).LastHit = 0: Keys(i).Down = 0
    NEXT
 
    default_keyboard_data:
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 1,900001,0,0,0,0,0.2: 'Left Mouse Button
    DATA 2,900002,0,0,0,0,0.2: 'Right Mouse Button
    DATA 3,900003,0,0,0,0,0.2: 'VK_Cancel
    DATA 4,900004,0,0,0,0,0.2: 'Middle Mouse Button
    DATA 5,900005,0,0,0,0,0.2: 'Mouse Button 4
    DATA 6,900006,0,0,0,0,0.2: 'Mouse Button 5
    DATA 7,900007,0,0,0,0,0.2: 'Undefined
    DATA 8,8,0,0,0,0,0.2: 'Backspace
    DATA 9,9,0,0,0,0,0.2: 'Tab
    DATA 10,900010,0,0,0,0,0.2: 'Reserved
    DATA 11,900011,0,0,0,0,0.2: 'Reserved
    DATA 12,19456,0,0,0,0,0.2: 'Clear
    DATA 13,13,0,0,0,0,0.2: 'Enter
    DATA 14,900014,0,0,0,0,0.2: 'Undefined
    DATA 15,900015,0,0,0,0,0.2: 'Undefined
    DATA 16,100016,0,0,0,0,-1: 'Shift (Notice I set it to simple toddle and report UP/DOWN results for us)
    DATA 17,100017,0,0,0,0,-1: 'Ctrl   (Same)
    DATA 18,100018,0,0,0,0,-1: 'Alt     (Same)
    DATA 19,100019,0,0,0,0,0.2: 'Pause
    DATA 20,100301,0,0,0,0,-1: 'Caps Lock
    DATA 21,900021,0,0,0,0,0.2: 'VK_Hangul
    DATA 22,900022,0,0,0,0,0.2: 'Undefined
    DATA 23,900023,0,0,0,0,0.2: 'VK_Junja
    DATA 24,900024,0,0,0,0,0.2: 'VK_Final
    DATA 25,900025,0,0,0,0,0.2: 'VK_Hanga//VK_Kanji
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 26,900026,0,0,0,0,0.2: 'Undefined
    DATA 27,27,0,0,0,0,0.2: 'ESC
    DATA 28,900028,0,0,0,0,0.2: 'VK_Convert
    DATA 29,900029,0,0,0,0,0.2: 'VK_NonConvert
    DATA 30,900030,0,0,0,0,0.2: 'VK_Accept
    DATA 31,900031,0,0,0,0,0.2: 'VK_ModeChange
    DATA 32,32,0,0,0,0,0.2: 'VK_Space
    DATA 33,18688,0,0,0,0,0.2: 'Page Up
    DATA 34,20736,0,0,0,0,0.2: 'Page Down
    DATA 35,20224,0,0,0,0,0.2: 'End
    DATA 36,18176,0,0,0,0,0.2: 'Home
    DATA 37,19200,0,0,0,0,0.2: 'Left Arrow
    DATA 38,18432,0,0,0,0,0.2: 'Up Arrow
    DATA 39,19712,0,0,0,0,0.2: 'Right Arrow
    DATA 40,20480,0,0,0,0,0.2: 'Down Arrow
    DATA 41,900041,0,0,0,0,-1: 'VK_SELECT
    DATA 42,900042,0,0,0,0,-1: 'CK_PRINT
    DATA 43,900043,0,0,0,0,-1: 'VK_EXECUTE
    DATA 44,900044,0,0,0,0,-1: 'VK_SNAPSHOT
    DATA 45,20992,0,0,0,0,0.2: 'INS
    DATA 46,21248,0,0,0,0,0.2: 'DEL
    DATA 47,900047,0,0,0,0,0.2: 'VK_HELP
    DATA 48,48,0,41,0,0,0.2: '0
    DATA 49,49,0,33,0,0,0.2: '1
    DATA 50,50,0,64,0,0,0.2: '2
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 51,51,0,35,0,0,0.2: '3
    DATA 52,52,0,36,0,0,0.2: '4
    DATA 53,53,0,37,0,0,0.2: '5
    DATA 54,54,0,94,0,0,0.2: '6
    DATA 55,55,0,38,0,0,0.2: '7
    DATA 56,56,0,42,0,0,0.2: '8
    DATA 57,57,0,40,0,0,0.2: '9
    DATA 58,900058,0,0,0,0,0.2: 'Undefined
    DATA 59,900059,0,0,0,0,0.2: 'Undefined
    DATA 60,900060,0,0,0,0,0.2: 'Undefined
    DATA 61,900061,0,0,0,0,0.2: 'Undefined
    DATA 62,900062,0,0,0,0,0.2: 'Undefined
    DATA 63,900063,0,0,0,0,0.2: 'Undefined
    DATA 64,900064,0,0,0,0,0.2: 'Undefined
    DATA 65,65,0,97,0,0,0.2: 'a
    DATA 66,66,0,98,0,0,0.2: 'b
    DATA 67,67,0,99,0,0,0.2: 'c
    DATA 68,68,0,100,0,0,0.2: 'd
    DATA 69,69,0,101,0,0,0.2: 'e
    DATA 70,70,0,102,0,0,0.2: 'f
    DATA 71,71,0,103,0,0,0.2: 'g
    DATA 72,72,0,104,0,0,0.2: 'h
    DATA 73,73,0,105,0,0,0.2: 'i
    DATA 74,74,0,106,0,0,0.2: 'j
    DATA 75,75,0,107,0,0,0.2: 'k
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 76,76,0,108,0,0,0.2: 'l
    DATA 77,77,0,109,0,0,0.2: 'm
    DATA 78,78,0,110,0,0,0.2: 'n
    DATA 79,79,0,111,0,0,0.2: 'o
    DATA 80,80,0,112,0,0,0.2: 'p
    DATA 81,81,0,113,0,0,0.2: 'q
    DATA 82,82,0,114,0,0,0.2: 'r
    DATA 83,83,0,115,0,0,0.2: 's
    DATA 84,84,0,116,0,0,0.2: 't
    DATA 85,85,0,117,0,0,0.2: 'u
    DATA 86,86,0,118,0,0,0.2: 'v
    DATA 87,87,0,119,0,0,0.2: 'w
    DATA 88,88,0,120,0,0,0.2: 'x
    DATA 89,89,0,121,0,0,0.2: 'y
    DATA 90,90,0,122,0,0,0.2: 'z
    DATA 91,100311,0,0,0,0,-1: 'Left WIN
    DATA 92,100312,0,0,0,0,-1: 'Right WIN
    DATA 93,100319,0,0,0,0,-1: 'Applications (Menu)
    DATA 94,900094,0,0,0,0,0.2: 'Reserved
    DATA 95,900095,0,0,0,0,0.2: 'VK_SLEEP
    DATA 96,48,0,0,0,0,0.2: 'Numpad 0
    DATA 97,49,0,0,0,0,0.2: 'Numpad 1
    DATA 98,50,0,0,0,0,0.2: 'Numpad 2
    DATA 99,51,0,0,0,0,0.2: 'Numpad 3
    DATA 100,52,0,0,0,0,0.2: 'Numpad 4
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 101,53,0,0,0,0,0.2: 'Numpad 5
    DATA 102,54,0,0,0,0,0.2: 'Numpad 6
    DATA 103,55,0,0,0,0,0.2: 'Numpad 7
    DATA 104,56,0,0,0,0,0.2: 'Numpad 8
    DATA 105,57,0,0,0,0,0.2: 'Numpad 9
    DATA 106,42,0,0,0,0,0.2: 'Numpad *
    DATA 107,43,0,0,0,0,0.2: 'Numpad +
    DATA 108,900108,0,0,0,0,0.2: 'VK_SEPARATOR
    DATA 109,51,0,0,0,0,0.2: 'Numpad -
    DATA 110,52,0,0,0,0,0.2: 'Numpad .
    DATA 111,53,0,0,0,0,0.2: 'Numpad /
    DATA 112,15104,0,0,0,0,0.2: 'F1
    DATA 113,15360,0,0,0,0,0.2: 'F2
    DATA 114,15616,0,0,0,0,0.2: 'F3
    DATA 115,15872,0,0,0,0,0.2: 'F4
    DATA 116,16128,0,0,0,0,0.2: 'F5
    DATA 117,16384,0,0,0,0,0.2: 'F6
    DATA 118,16640,0,0,0,0,0.2: 'F7
    DATA 119,16896,0,0,0,0,0.2: 'F8
    DATA 120,17152,0,0,0,0,0.2: 'F9
    DATA 121,17408,0,0,0,0,0.2: 'F10
    DATA 122,34048,0,0,0,0,0.2: 'F11
    DATA 123,34304,0,0,0,0,0.2: 'F12
    DATA 124,900124,0,0,0,0,0.2: 'F13
    DATA 125,900125,0,0,0,0,0.2: 'F14
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 126,900126,0,0,0,0,0.2: 'F15
    DATA 127,900127,0,0,0,0,0.2: 'F16
    DATA 128,900128,0,0,0,0,0.2: 'F17
    DATA 129,900129,0,0,0,0,0.2: 'F18
    DATA 130,900130,0,0,0,0,0.2: 'F19
    DATA 131,900131,0,0,0,0,0.2: 'F20
    DATA 132,900132,0,0,0,0,0.2: 'F21
    DATA 133,900133,0,0,0,0,0.2: 'F22
    DATA 134,900134,0,0,0,0,0.2: 'F23
    DATA 135,900135,0,0,0,0,0.2: 'F24
    DATA 136,900136,0,0,0,0,0.2: 'Unassigned
    DATA 137,900137,0,0,0,0,0.2: 'Unassigned
    DATA 138,900138,0,0,0,0,0.2: 'Unassigned
    DATA 139,900139,0,0,0,0,0.2: 'Unassigned
    DATA 140,900140,0,0,0,0,0.2: 'Unassigned
    DATA 141,900141,0,0,0,0,0.2: 'Unassigned
    DATA 142,900142,0,0,0,0,0.2: 'Unassigned
    DATA 143,900143,0,0,0,0,0.2: 'Unassigned
    DATA 144,100300,0,0,0,0,-1: 'NUM LOCK
    DATA 145,100302,0,0,0,0,-1: 'SCROLL LOCK
    DATA 146,900146,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 147,900147,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 148,900148,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 149,900149,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 150,900150,0,0,0,0,0.2: 'OEM SPECIFIC
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 151,900151,0,0,0,0,0.2: 'Unassigned
    DATA 152,900152,0,0,0,0,0.2: 'Unassigned
    DATA 153,900153,0,0,0,0,0.2: 'Unassigned
    DATA 154,900154,0,0,0,0,0.2: 'Unassigned
    DATA 155,900155,0,0,0,0,0.2: 'Unassigned
    DATA 156,900156,0,0,0,0,0.2: 'Unassigned
    DATA 157,900157,0,0,0,0,0.2: 'Unassigned
    DATA 158,900158,0,0,0,0,0.2: 'Unassigned
    DATA 159,900159,0,0,0,0,0.2: 'Unassigned
    DATA 160,100304,0,0,0,0,-1: 'Left Shift
    DATA 161,100303,0,0,0,0,-1: 'Right Shift
    DATA 162,100306,0,0,0,0,-1: 'Left Control
    DATA 163,100305,0,0,0,0,-1: 'Right Control
    DATA 164,100308,0,0,0,0,-1: 'Left Alt
    DATA 165,100309,0,0,0,0,-1: 'Right Alt
    DATA 166,900166,0,0,0,0,0.2: 'Browser back
    DATA 167,900167,0,0,0,0,0.2: 'Browser forward
    DATA 168,900168,0,0,0,0,0.2: 'Browser refresh
    DATA 169,900169,0,0,0,0,0.2: 'Browser stop
    DATA 170,900170,0,0,0,0,0.2: 'Browser search
    DATA 171,900171,0,0,0,0,0.2: 'Browser favorites
    DATA 172,900172,0,0,0,0,0.2: 'Browser home
    DATA 173,900173,0,0,0,0,0.2: 'Mute
    DATA 174,900174,0,0,0,0,0.2: 'Vol Down
    DATA 175,900175,0,0,0,0,0.2: 'Vol Up
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 176,900176,0,0,0,0,0.2: 'Media Next
    DATA 177,900177,0,0,0,0,0.2: 'Media prev
    DATA 178,900178,0,0,0,0,0.2: 'Media stop
    DATA 179,900179,0,0,0,0,0.2: 'Media Play/Pause
    DATA 180,900180,0,0,0,0,0.2: 'Launch mail
    DATA 181,900181,0,0,0,0,0.2: 'Launch media select
    DATA 182,900182,0,0,0,0,0.2: 'Launch app1
    DATA 183,900183,0,0,0,0,0.2: 'Launch app2
    DATA 184,900184,0,0,0,0,0.2: 'Reserved
    DATA 185,900185,0,0,0,0,0.2: 'Reserved
    DATA 186,59,0,58,0,0,0.2: ';:
    DATA 187,61,0,43,0,0,0.2: '=+
    DATA 188,44,0,60,0,0,0.2: ',<
    DATA 189,45,0,95,0,0,0.2: '-_
    DATA 190,46,0,62,0,0,0.2: '.>
    DATA 191,47,0,63,0,0,0.2: '/?
    DATA 192,96,0,126,0,0,0.2: '`~
    DATA 193,900193,0,0,0,0,0.2: 'Reserved
    DATA 194,900194,0,0,0,0,0.2: 'Reserved
    DATA 195,900195,0,0,0,0,0.2: 'Reserved
    DATA 196,900196,0,0,0,0,0.2: 'Reserved
    DATA 197,900197,0,0,0,0,0.2: 'Reserved
    DATA 198,900198,0,0,0,0,0.2: 'Reserved
    DATA 199,900199,0,0,0,0,0.2: 'Reserved
    DATA 200,900200,0,0,0,0,0.2: 'Reserved
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 201,900201,0,0,0,0,0.2: 'Reserved
    DATA 202,900202,0,0,0,0,0.2: 'Reserved
    DATA 203,900203,0,0,0,0,0.2: 'Reserved
    DATA 204,900204,0,0,0,0,0.2: 'Reserved
    DATA 205,900205,0,0,0,0,0.2: 'Reserved
    DATA 206,900206,0,0,0,0,0.2: 'Reserved
    DATA 207,900207,0,0,0,0,0.2: 'Reserved
    DATA 208,900208,0,0,0,0,0.2: 'Reserved
    DATA 209,900209,0,0,0,0,0.2: 'Reserved
    DATA 210,900210,0,0,0,0,0.2: 'Reserved
    DATA 211,900211,0,0,0,0,0.2: 'Reserved
    DATA 212,900212,0,0,0,0,0.2: 'Reserved
    DATA 213,900213,0,0,0,0,0.2: 'Reserved
    DATA 214,900214,0,0,0,0,0.2: 'Reserved
    DATA 215,900215,0,0,0,0,0.2: 'Reserved
    DATA 216,900216,0,0,0,0,0.2: 'Unassigned
    DATA 217,900217,0,0,0,0,0.2: 'Unassigned
    DATA 218,900218,0,0,0,0,0.2: 'Unassigned
    DATA 219,91,0,123,0,0,0.2: '[{
    DATA 220,92,0,124,0,0,0.2: '\|
    DATA 221,93,0,125,0,0,0.2: ']}
    DATA 222,39,0,34,0,0,0.2: ''"
    DATA 223,900223,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 224,900224,0,0,0,0,0.2: 'Reserved
    DATA 225,900225,0,0,0,0,0.2: 'OEM SPECIFIC d
    DATA 226,900226,0,0,0,0,0.2: 'Either the Angle Bracket key,or Backslash on RT 102-key keyboard
    DATA 227,900227,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 228,900228,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 229,900229,0,0,0,0,0.2: 'IME PROCESS key (whatever that is)
    DATA 230,900230,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 231,900231,0,0,0,0,0.2: 'Used to pass UNICODE characters (however that works)
    DATA 232,900232,0,0,0,0,0.2: 'Unassigned
    DATA 233,900233,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 234,900234,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 235,900235,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 236,900236,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 237,900237,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 238,900238,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 239,900239,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 240,900240,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 241,900241,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 242,900242,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 243,900243,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 244,900244,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 245,900245,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 246,900246,0,0,0,0,0.2: 'VK_ATTN
    DATA 247,900247,0,0,0,0,0.2: 'VK_ATTN
    DATA 248,900248,0,0,0,0,0.2: 'VK_ATTN
    DATA 249,900249,0,0,0,0,0.2: 'VK_ATTN
    DATA 250,900250,0,0,0,0,0.2: 'VK_ATTN
    DATA 251,900251,0,0,0,0,0.2: 'VK_ATTN
    DATA 252,900252,0,0,0,0,0.2: 'Reserved
    DATA 253,900253,0,0,0,0,0.2: 'VK_PA1
    DATA 254,900253,0,0,0,0,0.2: 'VK_OEM_CLEAR
    DATA 0,0,0,0,0,0,0.2: 'END OF DATA
    AltGr(0) = 165
    AltGr(1) = 0
END SUB
 
 
FUNCTION ExtendedTimer##
    'modified extendedtimer to store the old day's count, and not have to recalculate it every time the routine is called.
 
    STATIC olds AS _FLOAT, old_day AS _FLOAT
    DIM m AS INTEGER, d AS INTEGER, y AS INTEGER
    DIM s AS _FLOAT, day AS STRING
    IF olds = 0 THEN 'calculate the day the first time the extended timer runs
        day = DATE$
        m = VAL(LEFT$(day, 2))
        d = VAL(MID$(day, 4, 2))
        y = VAL(RIGHT$(day, 4)) - 1970
        SELECT CASE m 'Add the number of days for each previous month passed
            CASE 2: d = d + 31
            CASE 3: d = d + 59
            CASE 4: d = d + 90
            CASE 5: d = d + 120
            CASE 6: d = d + 151
            CASE 7: d = d + 181
            CASE 8: d = d + 212
            CASE 9: d = d + 243
            CASE 10: d = d + 273
            CASE 11: d = d + 304
            CASE 12: d = d + 334
        END SELECT
        IF (y MOD 4) = 2 AND m > 2 THEN d = d + 1 'add a day if this is leap year and we're past february
        d = (d - 1) + 365 * y 'current month days passed + 365 days per each standard year
        d = d + (y + 2) \ 4 'add in days for leap years passed
        s = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds
        old_day = s
    END IF
    IF TIMER < oldt THEN 'we went from 23:59:59 (a second before midnight) to 0:0:0 (midnight)
        old_day = s + 83400 'add another worth of seconds to our counter
    END IF
    oldt = TIMER
    olds = old_day + oldt
    ExtendedTimer## = olds
END FUNCTION
 
 
 
 
 
 
FUNCTION ExtendedInput$
    SHARED AltGr, Alt, Shift, Ctrl
    PCOPY 0, 1
    A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
    CP = 0: OldCP = 0 'Cursor Position
    _KEYCLEAR
    DO
        PCOPY 1, 0
 
        k = KeyHit
        IF Alt THEN AltDown = -1 ELSE AltDown = 0
        SELECT CASE k 'without alt, add any keypresses to our input
            CASE 8
                oldin$ = in$
                IF CP > 0 THEN OldCP = CP: CP = CP - 1
                in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
            CASE 9
                oldin$ = in$
                in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
                OldCP = CP
                CP = CP + 4
            CASE 48 TO 57 '0 to 9
                IF AltDown THEN
                    AltWasDown = -1: alt$ = alt$ + CHR$(k)
                ELSE
                    oldin$ = in$
                    in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
                    OldCP = CP
                    CP = CP + 1
                END IF
            CASE 1 TO 255 'the rest of the ASCII characters
                IF Ctrl AND (k = 118 OR k = 86) THEN
                    oldin$ = in$
                    in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
                    'CTRL-V leaves cursor in position before the paste, without moving it after.
                    'Feel free to modify that behavior here, if you want it to move to after the paste.
                ELSEIF Ctrl AND (k = 122 OR k = 90) THEN
                    SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
                ELSE
                    oldin$ = in$
                    in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
                    OldCP = CP
                    CP = CP + 1
                END IF
            CASE 18176 'Home
                CP = 0
            CASE 20224 'End
                CP = LEN(in$)
            CASE 21248 'Delete
                oldin$ = in$
                in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
            CASE 19200 'Left
                CP = CP - 1
                IF CP < 0 THEN CP = 0
            CASE 19712 'Right
                CP = CP + 1
                IF CP > LEN(in$) THEN CP = LEN(in$)
        END SELECT
 
        alt$ = RIGHT$(alt$, 3)
        IF AltWasDown = -1 AND AltDown = 0 THEN
            v = VAL(alt$)
            IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v): CP = CP + 1
            alt$ = "": AltWasDown = 0
        END IF
        blink = (blink + 1) MOD 30
        LOCATE Y, X
        PRINT LEFT$(in$, CP);
        IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
        PRINT MID$(in$, CP + 1)
 
        _DISPLAY
        _LIMIT 30
    LOOP UNTIL k = 13
 
    PCOPY 1, 0
    LOCATE Y, X: PRINT in$
    ExtendedInput$ = in$
    IF A THEN _AUTODISPLAY
END FUNCTION

I've now added in (and slightly modified the code so that it works with the new Keyhit) the ExtendedInput function from here: https://www.qb64.org/forum/index.php?topic=1954.0

Also added a KeyDown routine which can read our new extended/remapped keycodes and tell us if simply if they're up or down.

Also added a KeyClear routine which will wait for key-up presses to finish processing and then clear them so we don't read them with future calls to the Keyhit routine.

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on January 03, 2020, 10:40:31 am

Playing around with the programmable keyboard, I think I now have it configured so an user can just swap from American to German keyboards with a single simple command.

For those of you with foreign keyboards, and who normally use CP1250, give this a little test run, if you will:

Code: QB64: [Select]

DECLARE LIBRARY 'function is already used by QB64 so "User32" is not required
    FUNCTION GetKeyState% (BYVAL vkey AS LONG)
    FUNCTION GetAsyncKeyState% (BYVAL vkey AS LONG)
END DECLARE
 
TYPE KeyboardInfo_Type
    Index AS LONG
    ASCII AS LONG
    Ctrl AS LONG
    Shift AS LONG
    Alt AS LONG
    AltGr AS LONG
    Repeat AS _FLOAT
    LastHit AS _FLOAT
    Down AS LONG
    AltShift AS LONG
    AltCtrl AS LONG
    AltAltGr AS LONG
    CtrlShift AS LONG
    CtrlAlt AS LONG
    CtrlAltGr AS LONG
    ShiftAltGr AS LONG
    CtrlAltShift AS LONG
END TYPE
 
DIM SHARED Keys(254) AS KeyboardInfo_Type
DIM SHARED AltGr(1) AS _UNSIGNED _BYTE
Init_KeyCodes "DE"
'Remap_KeyCode 65, 65, 1, 97, 160, 142, 0.2: 'A , , a,  , Ž
'Remap_Extended_KeyCode (Which&, AltShift&, AltCtrl&, AltAltGr&, CtrlShift&, CtrlAltGr&, ShiftAltGr&, CtrlAltShift&)
'Remap_Extended_KeyCode 65, 143, 241, 242, 243, 244, 245, 246 ' and more!
 
_CONTROLCHR OFF
 
'PRINT "Test out the input handler.  Try lots of options! => ";
'junk$ = ExtendedInput
'PRINT junk$
'PRINT
'PRINT "Pretty nifty, right?"
'KeyClear 'Notice that without this, we'll read the keyup event from where ENTER is lifted up, as the first character value below.
 
DO
    k = KeyHit
    IF k <> 0 THEN
        'LOCATE 1, 1
        SELECT CASE k
            CASE 900001 'left mouse
            CASE 1 TO 255
                PRINT k, CHR$(k)
            CASE IS <= 0
            CASE ELSE
                PRINT k
        END SELECT
 
    END IF
    'LOCATE 2, 1: PRINT KeyDown(1) 'Test to see if CHR$(1) is held down (which is generated via a CTRL-A combo)
    _LIMIT 30
LOOP UNTIL k = 27 'escape
 
SUB SetAltGr (Key1 AS INTEGER, Key2 AS INTEGER)
    AltGr(0) = Key1 'any key from our index (0 says no key)
    AltGr(1) = Key2 'PLUS any other key from our index (0 says no additional key)
    'Using this, we can set AltGr to become several things.
    'AltGr(0) = 165, AltGr(1) = 0 -- This would say we're using the RIGHT Alt key (alone) to simulate the AltGr key.  (Windows Onscreen Keyboard does this.)
    'AltGr(0) = 17, AltGr(1) = 18 -- This would use any CTRL-ALT combo to simulate a AltGr keypress.
    'Some useful values are listed for quick reference below
    '0 = NoKey
    '17 = ANY Ctrl
    '18 = ANY Alt
    '162 = Left Control
    '163 = Right Control
    '164 = Left Alt
    '165 = Right Alt
 
    'Default is for AltGr(0) = 165, AltGr(1) = 0, which uses Right-Alt alone as the AltGr key.
    'Feel free to customize the setting to your personal preference/need.
END SUB
 
SUB KeyClear
    _DELAY .05 'give time for a keyup event to log itself so we can clear it
    DO: k = KeyHit: LOOP UNTIL k = 0
END SUB
 
FUNCTION KeyHit&
    STATIC ReturnCount AS INTEGER
    STATIC ReturnValues(30) AS LONG
    SHARED AltGr, Alt, Shift, Ctrl
    IF Keys(1).Index = 0 THEN Init_KeyCodes "" 'if someone forgets to put the init routine in their code, be certain to initialize the codes before attempting to use them.
 
 
    IF ReturnCount > 0 THEN 'If we generated a cue of values last pass, clear those up first, before getting new values.
        'The only time we really see this is when we hit a shift, ctrl, alt key, usually.
        KeyHit = ReturnValues(1)
        FOR i = 1 TO ReturnCount - 1
            ReturnValues(i) = ReturnValues(i + 1)
        NEXT
        ReturnCount = ReturnCount - 1
        EXIT FUNCTION
    END IF
 
    IF Keys(16).Down THEN Shift = -1 ELSE Shift = 0
    IF Keys(17).Down THEN Ctrl = -1 ELSE Ctrl = 0
    IF Keys(18).Down THEN Alt = -1 ELSE Alt = 0
    IF AltGr(0) <> 0 AND AltGr(1) <> 0 THEN
        IF Keys(AltGr(0)).Down AND Keys(AltGr(1)).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSEIF AltGr(1) <> 0 THEN
        IF Keys(AltGr(1)).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSEIF AltGr(0) <> 0 THEN
        IF Keys(AltGr(0)).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSE
        AltGr = 0
    END IF
 
    'until Ctrl or Alt status, if the key down was used to help generate AltGr as a modifier key
    IF AltGr THEN
        IF (AltGr(0) = 18 OR AltGr(1) = 18) THEN Alt = 0 'if we use both ALT keys to represent part of AltGr, when AltGr is active, Alt isn't.
        IF (AltGr(0) = 164 OR AltGr(1) = 164) AND Keys(165).Down = 0 THEN Alt = 0 'if we use Left ALT keys to represent part of AltGr, when AltGr is active, Left Alt isn't.
        IF (AltGr(0) = 165 OR AltGr(1) = 165) AND Keys(164).Down = 0 THEN Alt = 0 'if we use Right ALT keys to represent part of AltGr, when AltGr is active, Right Alt isn't.
        IF (AltGr(0) = 17 OR AltGr(1) = 17) THEN Ctrl = 0 'if we use both CTRL keys to represent part of AltGr, when AltGr is active, Ctrl isn't.
        IF (AltGr(0) = 162 OR AltGr(1) = 162) AND Keys(163).Down = 0 THEN Ctrl = 0 'if we use Left CTRL keys to represent part of AltGr, when AltGr is active, Left Ctrl isn't.
        IF (AltGr(0) = 163 OR AltGr(1) = 163) AND Keys(162).Down = 0 THEN Ctrl = 0 'if we use Right CTRL keys to represent part of AltGr, when AltGr is active, Right Ctrl isn't.
    END IF
 
    IF Alt AND Shift THEN AltShift = -1 ELSE AltShift = 0
    IF Alt AND Ctrl THEN AltCtrl = -1 ELSE AltCtrl = 0
    IF Alt AND AltAltGR THEN AltAltGR = -1 ELSE AltAltGR = 0
    IF Ctrl AND Shift THEN CtrlShift = -1 ELSE CtrlShift = 0
    IF Shift AND AltGr THEN ShiftAltGr = -1 ELSE ShiftAltGr = 0
    IF Ctrl AND Alt AND Shift THEN CtrlAltShift = -1 ELSE CtrlAltShift = 0
 
    IF _WINDOWHASFOCUS THEN
        FOR i = 1 TO 254
 
            r = GetKeyState(Keys(i).Index) AND &H8000
 
            IF r THEN 'the key is down
 
 
                IF Keys(i).LastHit THEN
                    IF ExtendedTimer > Keys(i).LastHit THEN
                        ReturnCount = ReturnCount + 1 'add one to the return buffer
                        ReturnValues(ReturnCount) = Keys(i).Down 'and put the existing value back in the buffer, as a key repeat
                    END IF
                ELSE
 
                    IF Keys(i).Down = 0 THEN 'the key was up on the last pass.
                        IF CtrlAltShift <> 0 AND Keys(i).CtrlAltShift <> 0 THEN 'return the CtrlAltShift value
                            Keys(i).Down = Keys(i).CtrlAltShift
                        ELSEIF AltAltGR <> 0 AND Keys(i).AltAltGr <> 0 THEN 'return the AltAltGr value
                            Keys(i).Down = Keys(i).AltAltGr
                        ELSEIF CtrlAltGr& <> 0 AND Keys(i).CtrlAltGr& <> 0 THEN 'return the CtrlAltGr& value
                            Keys(i).Down = Keys(i).CtrlAltGr&
                        ELSEIF ShiftAltGr <> 0 AND Keys(i).ShiftAltGr <> 0 THEN 'return the ShiftAltGr value
                            Keys(i).Down = Keys(i).ShiftAltGr
                        ELSEIF CtrlShift <> 0 AND Keys(i).CtrlShift <> 0 THEN 'return the CtrlShift value
                            Keys(i).Down = Keys(i).CtrlShift
                        ELSEIF AltCtrl <> 0 AND Keys(i).AltCtrl <> 0 THEN 'return the AltCtrl value
                            Keys(i).Down = Keys(i).AltCtrl
                        ELSEIF AltShift <> 0 AND Keys(i).AltShift <> 0 THEN 'return the AltShift value
                            Keys(i).Down = Keys(i).AltShift
                        ELSEIF AltGr <> 0 AND Keys(i).AltGr <> 0 THEN 'return the altgr value
                            Keys(i).Down = Keys(i).AltGr
                        ELSEIF Shift <> 0 AND Keys(i).Shift <> 0 THEN 'return the shift value
                            Keys(i).Down = Keys(i).Shift
                            IF _CAPSLOCK = 0 THEN 'caps lock basically reverses the behavior of the shift key with the letters A-Z and a-z
                                SELECT CASE i
                                    CASE 65 TO 90: Keys(i).Down = Keys(i).ASCII
                                END SELECT
                            END IF
                        ELSEIF (Ctrl <> 0) AND (Keys(i).Ctrl <> 0) THEN 'return the ctrl value
                            Keys(i).Down = Keys(i).Ctrl
                        ELSEIF Alt <> 0 AND Keys(i).Alt <> 0 THEN 'return the alt value
                            Keys(i).Down = Keys(i).Alt
                        ELSE 'all that's left is to return the ASCII value
                            Keys(i).Down = Keys(i).ASCII
                            IF _CAPSLOCK = 0 THEN 'caps lock basically reverses the behavior of the shift key with the letters A-Z and a-z
                                SELECT CASE i
                                    CASE 65 TO 90: Keys(i).Down = Keys(i).Shift
                                END SELECT
                            END IF
                        END IF
                        ReturnCount = ReturnCount + 1 'add one to the return buffer
                        ReturnValues(ReturnCount) = Keys(i).Down 'and store the value in the buffer
 
                        IF Keys(i).Repeat = -1 THEN 'keys that are set to a -1 on repeat simply toggle state as on, or off.
                            Keys(i).LastHit = 1E+1000 'such as SHIFT, CTRL, ALT...
                        ELSE
                            Keys(i).LastHit = ExtendedTimer + Keys(i).Repeat 'and record when we hit it for repeat purposes
                        END IF
                    END IF
                END IF
            ELSE
                IF Keys(i).Down THEN 'the key was down on the last pass
                    ReturnCount = ReturnCount + 1
                    ReturnValues(ReturnCount) = -Keys(i).Down 'mark it as being up on this one
                END IF
                Keys(i).Down = 0 'and set it back down for future passes
                Keys(i).LastHit = 0 'once again, set it as being ready to be hit again
            END IF
        NEXT
 
        IF ReturnCount > 0 THEN 'If we generated a cue of values last pass, clear those up first, before getting new values.
            'The only time we really see this is when we hit a shift, ctrl, alt key, usually.
            KeyHit = ReturnValues(1)
            FOR i = 1 TO ReturnCount - 1
                ReturnValues(i) = ReturnValues(i + 1)
            NEXT
            ReturnCount = ReturnCount - 1
            EXIT FUNCTION
        END IF
 
    END IF 'End of IF _WINDOWHASFOCUS
 
 
END FUNCTION
 
 
SUB Remap_KeyCode (Which AS LONG, ASCII AS LONG, Ctrl AS LONG, Shift AS LONG, Alt AS LONG, AltGr AS LONG, Repeat AS _FLOAT)
    DIM i AS LONG
    i = Which
    Keys(i).Index = i
    Keys(i).ASCII = ASCII
    Keys(i).Ctrl = Ctrl
    Keys(i).Shift = Shift
    Keys(i).Alt = Alt
    Keys(i).AltGr = AltGr
    Keys(i).Repeat = Repeat
    Keys(i).LastHit = 0
    Keys(i).Down = 0
END SUB
 
SUB Remap_Extended_KeyCode (Which&, AltShift&, AltCtrl&, AltAltGr&, _
         CtrlShift&, CtrlAltGr&, ShiftAltGr&, CtrlAltShift&)
    Keys(Which&).AltShift = AltShift&
    Keys(Which&).AltCtrl = AltCtrl&
    Keys(Which&).AltAltGr = AltAltGr&
    Keys(Which&).CtrlShift = CtrlShift&
    Keys(Which&).CtrlAltGr = CtrlAltGr&
    Keys(Which&).ShiftAltGr = ShiftAltGr&
    Keys(Which&).CtrlAltShift = CtrlAltShift&
END SUB
 
FUNCTION KeyDown& (Code AS LONG)
    IF Code <= 0 THEN EXIT FUNCTION
    FOR i = 1 TO 254
        IF GetAsyncKeyState(i) THEN 'first check for actual physical keys down
            IF Keys(i).ASCII = Code THEN KeyDown = -1: EXIT FUNCTION 'then check to see if the code matches anything we've mapped it to.
            IF Keys(i).Shift = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).Alt = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).AltGr = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).AltShift = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).AltCtrl = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).AltAltGr = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).CtrlShift = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).CtrlAltGr = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).ShiftAltGr = Code THEN KeyDown = -1: EXIT FUNCTION
            IF Keys(i).CtrlAltShift = Code THEN KeyDown = -1: EXIT FUNCTION
        END IF
    NEXT
    KeyDown& = 0
END FUNCTION
 
SUB Init_KeyCodes (Language AS STRING)
    RESTORE default_keyboard_data
    FOR i = 1 TO 254
        READ Keys(i).Index, Keys(i).ASCII, Keys(i).Ctrl, Keys(i).Shift, Keys(i).Alt, Keys(i).AltGr, Keys(i).Repeat
        Keys(i).LastHit = 0: Keys(i).Down = 0
    NEXT
 
    default_keyboard_data:
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 1,900001,0,0,0,0,0.2: 'Left Mouse Button
    DATA 2,900002,0,0,0,0,0.2: 'Right Mouse Button
    DATA 3,900003,0,0,0,0,0.2: 'VK_Cancel
    DATA 4,900004,0,0,0,0,0.2: 'Middle Mouse Button
    DATA 5,900005,0,0,0,0,0.2: 'Mouse Button 4
    DATA 6,900006,0,0,0,0,0.2: 'Mouse Button 5
    DATA 7,900007,0,0,0,0,0.2: 'Undefined
    DATA 8,8,0,0,0,0,0.2: 'Backspace
    DATA 9,9,0,0,0,0,0.2: 'Tab
    DATA 10,900010,0,0,0,0,0.2: 'Reserved
    DATA 11,900011,0,0,0,0,0.2: 'Reserved
    DATA 12,19456,0,0,0,0,0.2: 'Clear
    DATA 13,13,0,0,0,0,0.2: 'Enter
    DATA 14,900014,0,0,0,0,0.2: 'Undefined
    DATA 15,900015,0,0,0,0,0.2: 'Undefined
    DATA 16,100016,0,0,0,0,-1: 'Shift (Notice I set it to simple toddle and report UP/DOWN results for us)
    DATA 17,100017,0,0,0,0,-1: 'Ctrl   (Same)
    DATA 18,100018,0,0,0,0,-1: 'Alt     (Same)
    DATA 19,100019,0,0,0,0,0.2: 'Pause
    DATA 20,100301,0,0,0,0,-1: 'Caps Lock
    DATA 21,900021,0,0,0,0,0.2: 'VK_Hangul
    DATA 22,900022,0,0,0,0,0.2: 'Undefined
    DATA 23,900023,0,0,0,0,0.2: 'VK_Junja
    DATA 24,900024,0,0,0,0,0.2: 'VK_Final
    DATA 25,900025,0,0,0,0,0.2: 'VK_Hanga//VK_Kanji
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 26,900026,0,0,0,0,0.2: 'Undefined
    DATA 27,27,0,0,0,0,0.2: 'ESC
    DATA 28,900028,0,0,0,0,0.2: 'VK_Convert
    DATA 29,900029,0,0,0,0,0.2: 'VK_NonConvert
    DATA 30,900030,0,0,0,0,0.2: 'VK_Accept
    DATA 31,900031,0,0,0,0,0.2: 'VK_ModeChange
    DATA 32,32,0,0,0,0,0.2: 'VK_Space
    DATA 33,18688,0,0,0,0,0.2: 'Page Up
    DATA 34,20736,0,0,0,0,0.2: 'Page Down
    DATA 35,20224,0,0,0,0,0.2: 'End
    DATA 36,18176,0,0,0,0,0.2: 'Home
    DATA 37,19200,0,0,0,0,0.2: 'Left Arrow
    DATA 38,18432,0,0,0,0,0.2: 'Up Arrow
    DATA 39,19712,0,0,0,0,0.2: 'Right Arrow
    DATA 40,20480,0,0,0,0,0.2: 'Down Arrow
    DATA 41,900041,0,0,0,0,-1: 'VK_SELECT
    DATA 42,900042,0,0,0,0,-1: 'CK_PRINT
    DATA 43,900043,0,0,0,0,-1: 'VK_EXECUTE
    DATA 44,900044,0,0,0,0,-1: 'VK_SNAPSHOT
    DATA 45,20992,0,0,0,0,0.2: 'INS
    DATA 46,21248,0,0,0,0,0.2: 'DEL
    DATA 47,900047,0,0,0,0,0.2: 'VK_HELP
    DATA 48,48,0,41,0,0,0.2: '0
    DATA 49,49,0,33,0,0,0.2: '1
    DATA 50,50,0,64,0,0,0.2: '2
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 51,51,0,35,0,0,0.2: '3
    DATA 52,52,0,36,0,0,0.2: '4
    DATA 53,53,0,37,0,0,0.2: '5
    DATA 54,54,0,94,0,0,0.2: '6
    DATA 55,55,0,38,0,0,0.2: '7
    DATA 56,56,0,42,0,0,0.2: '8
    DATA 57,57,0,40,0,0,0.2: '9
    DATA 58,900058,0,0,0,0,0.2: 'Undefined
    DATA 59,900059,0,0,0,0,0.2: 'Undefined
    DATA 60,900060,0,0,0,0,0.2: 'Undefined
    DATA 61,900061,0,0,0,0,0.2: 'Undefined
    DATA 62,900062,0,0,0,0,0.2: 'Undefined
    DATA 63,900063,0,0,0,0,0.2: 'Undefined
    DATA 64,900064,0,0,0,0,0.2: 'Undefined
    DATA 65,65,0,97,0,0,0.2: 'a
    DATA 66,66,0,98,0,0,0.2: 'b
    DATA 67,67,0,99,0,0,0.2: 'c
    DATA 68,68,0,100,0,0,0.2: 'd
    DATA 69,69,0,101,0,0,0.2: 'e
    DATA 70,70,0,102,0,0,0.2: 'f
    DATA 71,71,0,103,0,0,0.2: 'g
    DATA 72,72,0,104,0,0,0.2: 'h
    DATA 73,73,0,105,0,0,0.2: 'i
    DATA 74,74,0,106,0,0,0.2: 'j
    DATA 75,75,0,107,0,0,0.2: 'k
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 76,76,0,108,0,0,0.2: 'l
    DATA 77,77,0,109,0,0,0.2: 'm
    DATA 78,78,0,110,0,0,0.2: 'n
    DATA 79,79,0,111,0,0,0.2: 'o
    DATA 80,80,0,112,0,0,0.2: 'p
    DATA 81,81,0,113,0,0,0.2: 'q
    DATA 82,82,0,114,0,0,0.2: 'r
    DATA 83,83,0,115,0,0,0.2: 's
    DATA 84,84,0,116,0,0,0.2: 't
    DATA 85,85,0,117,0,0,0.2: 'u
    DATA 86,86,0,118,0,0,0.2: 'v
    DATA 87,87,0,119,0,0,0.2: 'w
    DATA 88,88,0,120,0,0,0.2: 'x
    DATA 89,89,0,121,0,0,0.2: 'y
    DATA 90,90,0,122,0,0,0.2: 'z
    DATA 91,100311,0,0,0,0,-1: 'Left WIN
    DATA 92,100312,0,0,0,0,-1: 'Right WIN
    DATA 93,100319,0,0,0,0,-1: 'Applications (Menu)
    DATA 94,900094,0,0,0,0,0.2: 'Reserved
    DATA 95,900095,0,0,0,0,0.2: 'VK_SLEEP
    DATA 96,48,0,0,0,0,0.2: 'Numpad 0
    DATA 97,49,0,0,0,0,0.2: 'Numpad 1
    DATA 98,50,0,0,0,0,0.2: 'Numpad 2
    DATA 99,51,0,0,0,0,0.2: 'Numpad 3
    DATA 100,52,0,0,0,0,0.2: 'Numpad 4
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 101,53,0,0,0,0,0.2: 'Numpad 5
    DATA 102,54,0,0,0,0,0.2: 'Numpad 6
    DATA 103,55,0,0,0,0,0.2: 'Numpad 7
    DATA 104,56,0,0,0,0,0.2: 'Numpad 8
    DATA 105,57,0,0,0,0,0.2: 'Numpad 9
    DATA 106,42,0,0,0,0,0.2: 'Numpad *
    DATA 107,43,0,0,0,0,0.2: 'Numpad +
    DATA 108,900108,0,0,0,0,0.2: 'VK_SEPARATOR
    DATA 109,51,0,0,0,0,0.2: 'Numpad -
    DATA 110,52,0,0,0,0,0.2: 'Numpad .
    DATA 111,53,0,0,0,0,0.2: 'Numpad /
    DATA 112,15104,0,0,0,0,0.2: 'F1
    DATA 113,15360,0,0,0,0,0.2: 'F2
    DATA 114,15616,0,0,0,0,0.2: 'F3
    DATA 115,15872,0,0,0,0,0.2: 'F4
    DATA 116,16128,0,0,0,0,0.2: 'F5
    DATA 117,16384,0,0,0,0,0.2: 'F6
    DATA 118,16640,0,0,0,0,0.2: 'F7
    DATA 119,16896,0,0,0,0,0.2: 'F8
    DATA 120,17152,0,0,0,0,0.2: 'F9
    DATA 121,17408,0,0,0,0,0.2: 'F10
    DATA 122,34048,0,0,0,0,0.2: 'F11
    DATA 123,34304,0,0,0,0,0.2: 'F12
    DATA 124,900124,0,0,0,0,0.2: 'F13
    DATA 125,900125,0,0,0,0,0.2: 'F14
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 126,900126,0,0,0,0,0.2: 'F15
    DATA 127,900127,0,0,0,0,0.2: 'F16
    DATA 128,900128,0,0,0,0,0.2: 'F17
    DATA 129,900129,0,0,0,0,0.2: 'F18
    DATA 130,900130,0,0,0,0,0.2: 'F19
    DATA 131,900131,0,0,0,0,0.2: 'F20
    DATA 132,900132,0,0,0,0,0.2: 'F21
    DATA 133,900133,0,0,0,0,0.2: 'F22
    DATA 134,900134,0,0,0,0,0.2: 'F23
    DATA 135,900135,0,0,0,0,0.2: 'F24
    DATA 136,900136,0,0,0,0,0.2: 'Unassigned
    DATA 137,900137,0,0,0,0,0.2: 'Unassigned
    DATA 138,900138,0,0,0,0,0.2: 'Unassigned
    DATA 139,900139,0,0,0,0,0.2: 'Unassigned
    DATA 140,900140,0,0,0,0,0.2: 'Unassigned
    DATA 141,900141,0,0,0,0,0.2: 'Unassigned
    DATA 142,900142,0,0,0,0,0.2: 'Unassigned
    DATA 143,900143,0,0,0,0,0.2: 'Unassigned
    DATA 144,100300,0,0,0,0,-1: 'NUM LOCK
    DATA 145,100302,0,0,0,0,-1: 'SCROLL LOCK
    DATA 146,900146,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 147,900147,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 148,900148,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 149,900149,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 150,900150,0,0,0,0,0.2: 'OEM SPECIFIC
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 151,900151,0,0,0,0,0.2: 'Unassigned
    DATA 152,900152,0,0,0,0,0.2: 'Unassigned
    DATA 153,900153,0,0,0,0,0.2: 'Unassigned
    DATA 154,900154,0,0,0,0,0.2: 'Unassigned
    DATA 155,900155,0,0,0,0,0.2: 'Unassigned
    DATA 156,900156,0,0,0,0,0.2: 'Unassigned
    DATA 157,900157,0,0,0,0,0.2: 'Unassigned
    DATA 158,900158,0,0,0,0,0.2: 'Unassigned
    DATA 159,900159,0,0,0,0,0.2: 'Unassigned
    DATA 160,100304,0,0,0,0,-1: 'Left Shift
    DATA 161,100303,0,0,0,0,-1: 'Right Shift
    DATA 162,100306,0,0,0,0,-1: 'Left Control
    DATA 163,100305,0,0,0,0,-1: 'Right Control
    DATA 164,100308,0,0,0,0,-1: 'Left Alt
    DATA 165,100309,0,0,0,0,-1: 'Right Alt
    DATA 166,900166,0,0,0,0,0.2: 'Browser back
    DATA 167,900167,0,0,0,0,0.2: 'Browser forward
    DATA 168,900168,0,0,0,0,0.2: 'Browser refresh
    DATA 169,900169,0,0,0,0,0.2: 'Browser stop
    DATA 170,900170,0,0,0,0,0.2: 'Browser search
    DATA 171,900171,0,0,0,0,0.2: 'Browser favorites
    DATA 172,900172,0,0,0,0,0.2: 'Browser home
    DATA 173,900173,0,0,0,0,0.2: 'Mute
    DATA 174,900174,0,0,0,0,0.2: 'Vol Down
    DATA 175,900175,0,0,0,0,0.2: 'Vol Up
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 176,900176,0,0,0,0,0.2: 'Media Next
    DATA 177,900177,0,0,0,0,0.2: 'Media prev
    DATA 178,900178,0,0,0,0,0.2: 'Media stop
    DATA 179,900179,0,0,0,0,0.2: 'Media Play/Pause
    DATA 180,900180,0,0,0,0,0.2: 'Launch mail
    DATA 181,900181,0,0,0,0,0.2: 'Launch media select
    DATA 182,900182,0,0,0,0,0.2: 'Launch app1
    DATA 183,900183,0,0,0,0,0.2: 'Launch app2
    DATA 184,900184,0,0,0,0,0.2: 'Reserved
    DATA 185,900185,0,0,0,0,0.2: 'Reserved
    DATA 186,59,0,58,0,0,0.2: ';:
    DATA 187,61,0,43,0,0,0.2: '=+
    DATA 188,44,0,60,0,0,0.2: ',<
    DATA 189,45,0,95,0,0,0.2: '-_
    DATA 190,46,0,62,0,0,0.2: '.>
    DATA 191,47,0,63,0,0,0.2: '/?
    DATA 192,96,0,126,0,0,0.2: '`~
    DATA 193,900193,0,0,0,0,0.2: 'Reserved
    DATA 194,900194,0,0,0,0,0.2: 'Reserved
    DATA 195,900195,0,0,0,0,0.2: 'Reserved
    DATA 196,900196,0,0,0,0,0.2: 'Reserved
    DATA 197,900197,0,0,0,0,0.2: 'Reserved
    DATA 198,900198,0,0,0,0,0.2: 'Reserved
    DATA 199,900199,0,0,0,0,0.2: 'Reserved
    DATA 200,900200,0,0,0,0,0.2: 'Reserved
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 201,900201,0,0,0,0,0.2: 'Reserved
    DATA 202,900202,0,0,0,0,0.2: 'Reserved
    DATA 203,900203,0,0,0,0,0.2: 'Reserved
    DATA 204,900204,0,0,0,0,0.2: 'Reserved
    DATA 205,900205,0,0,0,0,0.2: 'Reserved
    DATA 206,900206,0,0,0,0,0.2: 'Reserved
    DATA 207,900207,0,0,0,0,0.2: 'Reserved
    DATA 208,900208,0,0,0,0,0.2: 'Reserved
    DATA 209,900209,0,0,0,0,0.2: 'Reserved
    DATA 210,900210,0,0,0,0,0.2: 'Reserved
    DATA 211,900211,0,0,0,0,0.2: 'Reserved
    DATA 212,900212,0,0,0,0,0.2: 'Reserved
    DATA 213,900213,0,0,0,0,0.2: 'Reserved
    DATA 214,900214,0,0,0,0,0.2: 'Reserved
    DATA 215,900215,0,0,0,0,0.2: 'Reserved
    DATA 216,900216,0,0,0,0,0.2: 'Unassigned
    DATA 217,900217,0,0,0,0,0.2: 'Unassigned
    DATA 218,900218,0,0,0,0,0.2: 'Unassigned
    DATA 219,91,0,123,0,0,0.2: '[{
    DATA 220,92,0,124,0,0,0.2: '\|
    DATA 221,93,0,125,0,0,0.2: ']}
    DATA 222,39,0,34,0,0,0.2: ''"
    DATA 223,900223,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 224,900224,0,0,0,0,0.2: 'Reserved
    DATA 225,900225,0,0,0,0,0.2: 'OEM SPECIFIC d
    DATA 226,900226,0,0,0,0,0.2: 'Either the Angle Bracket key,or Backslash on RT 102-key keyboard
    DATA 227,900227,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 228,900228,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 229,900229,0,0,0,0,0.2: 'IME PROCESS key (whatever that is)
    DATA 230,900230,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 231,900231,0,0,0,0,0.2: 'Used to pass UNICODE characters (however that works)
    DATA 232,900232,0,0,0,0,0.2: 'Unassigned
    DATA 233,900233,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 234,900234,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 235,900235,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 236,900236,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 237,900237,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 238,900238,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 239,900239,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 240,900240,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 241,900241,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 242,900242,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 243,900243,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 244,900244,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 245,900245,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 246,900246,0,0,0,0,0.2: 'VK_ATTN
    DATA 247,900247,0,0,0,0,0.2: 'VK_ATTN
    DATA 248,900248,0,0,0,0,0.2: 'VK_ATTN
    DATA 249,900249,0,0,0,0,0.2: 'VK_ATTN
    DATA 250,900250,0,0,0,0,0.2: 'VK_ATTN
    DATA 251,900251,0,0,0,0,0.2: 'VK_ATTN
    DATA 252,900252,0,0,0,0,0.2: 'Reserved
    DATA 253,900253,0,0,0,0,0.2: 'VK_PA1
    DATA 254,900253,0,0,0,0,0.2: 'VK_OEM_CLEAR
    DATA 0,0,0,0,0,0,0.2: 'END OF DATA
    AltGr(0) = 165
    AltGr(1) = 0
 
    SELECT CASE Language
        CASE "DE"
            RESTORE Microsoft_windows_cp1250:
            FOR i = 128 TO 255
                READ unicode
                _MAPUNICODE unicode TO ASCIIcode
            NEXT
            Microsoft_windows_cp1250:
            DATA 8364,0,8218,0,8222,8230,8224,8225,0,8240,352,8249,346,356,381,377
            DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,353,8250,347,357,382,378
            DATA 160,711,728,321,164,260,166,167,168,169,350,171,172,173,174,379
            DATA 176,177,731,322,180,181,182,183,184,261,351,187,317,733,318,380
            DATA 340,193,194,258,196,313,262,199,268,201,280,203,282,205,206,270
            DATA 272,323,327,211,212,336,214,215,344,366,218,368,220,221,354,223
            DATA 341,225,226,259,228,314,263,231,269,233,281,235,283,237,238,271
            DATA 273,324,328,243,244,337,246,247,345,367,250,369,252,253,355,729
            'Remap_KeyCode (Which, ASCII, Ctrl , Shift, Alt, AltGr, Repeat AS _FLOAT)
            Remap_KeyCode 226, 60, 0, 62, 124, 92, 0.2 '<>|
            Remap_KeyCode 219, 225, 0, 63, 0, 0, 0.2 '-
            Remap_KeyCode 48, 48, 0, 61, 0, 125, 0.2 '0
            Remap_KeyCode 192, 148, 0, 153, 0, 0, 0.2
            Remap_KeyCode 222, 132, 0, 142, 0, 0, 0.2
            Remap_KeyCode 50, 50, 0, 34, 0, 253, 0.2: '2 .. I don't see a superscript 3 for AltGr codes for the 3 key.
            Remap_KeyCode 51, 51, 0, 35, 0, 0, 0.2: '3 ..I don't see the squiggle for this in the ASCII code.  It needs to be changed, but I dunno with what.
            Remap_KeyCode 54, 54, 0, 38, 0, 0, 0.2: '6
            Remap_KeyCode 55, 55, 0, 47, 0, 123, 0.2: '7
            Remap_KeyCode 56, 56, 0, 40, 0, 91, 0.2: '8
            Remap_KeyCode 57, 57, 0, 41, 0, 93, 0.2: '9
            Remap_KeyCode 186, 129, 0, 154, 0, 0, 0.2: ';:
            Remap_KeyCode 187, 43, 0, 42, 0, 126, 0.2: '=+
            Remap_KeyCode 191, 35, 0, 249, 0, 0, 0.2: '/?
            Remap_KeyCode 81, 81, 0, 113, 0, 64, 0.2: 'q
            Remap_KeyCode 69, 69, 0, 101, 0, 238, 0.2: 'e
            Remap_KeyCode 77, 77, 0, 109, 0, 0, 0.2: 'm -- again, I failed to find the goofy u which AltGr produces in the 256 ASCII set
    END SELECT
 
 
 
END SUB
 
 
FUNCTION ExtendedTimer##
    'modified extendedtimer to store the old day's count, and not have to recalculate it every time the routine is called.
 
    STATIC olds AS _FLOAT, old_day AS _FLOAT
    DIM m AS INTEGER, d AS INTEGER, y AS INTEGER
    DIM s AS _FLOAT, day AS STRING
    IF olds = 0 THEN 'calculate the day the first time the extended timer runs
        day = DATE$
        m = VAL(LEFT$(day, 2))
        d = VAL(MID$(day, 4, 2))
        y = VAL(RIGHT$(day, 4)) - 1970
        SELECT CASE m 'Add the number of days for each previous month passed
            CASE 2: d = d + 31
            CASE 3: d = d + 59
            CASE 4: d = d + 90
            CASE 5: d = d + 120
            CASE 6: d = d + 151
            CASE 7: d = d + 181
            CASE 8: d = d + 212
            CASE 9: d = d + 243
            CASE 10: d = d + 273
            CASE 11: d = d + 304
            CASE 12: d = d + 334
        END SELECT
        IF (y MOD 4) = 2 AND m > 2 THEN d = d + 1 'add a day if this is leap year and we're past february
        d = (d - 1) + 365 * y 'current month days passed + 365 days per each standard year
        d = d + (y + 2) \ 4 'add in days for leap years passed
        s = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds
        old_day = s
    END IF
    IF TIMER < oldt THEN 'we went from 23:59:59 (a second before midnight) to 0:0:0 (midnight)
        old_day = s + 83400 'add another worth of seconds to our counter
    END IF
    oldt = TIMER
    olds = old_day + oldt
    ExtendedTimer## = olds
END FUNCTION
 
 
 
 
 
 
FUNCTION ExtendedInput$
    SHARED AltGr, Alt, Shift, Ctrl
    PCOPY 0, 1
    A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
    CP = 0: OldCP = 0 'Cursor Position
    _KEYCLEAR
    DO
        PCOPY 1, 0
 
        k = KeyHit
        IF Alt THEN AltDown = -1 ELSE AltDown = 0
        SELECT CASE k 'without alt, add any keypresses to our input
            CASE 8
                oldin$ = in$
                IF CP > 0 THEN OldCP = CP: CP = CP - 1
                in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
            CASE 9
                oldin$ = in$
                in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
                OldCP = CP
                CP = CP + 4
            CASE 48 TO 57 '0 to 9
                IF AltDown THEN
                    AltWasDown = -1: alt$ = alt$ + CHR$(k)
                ELSE
                    oldin$ = in$
                    in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
                    OldCP = CP
                    CP = CP + 1
                END IF
            CASE 1 TO 255 'the rest of the ASCII characters
                IF Ctrl AND (k = 118 OR k = 86) THEN
                    oldin$ = in$
                    in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
                    'CTRL-V leaves cursor in position before the paste, without moving it after.
                    'Feel free to modify that behavior here, if you want it to move to after the paste.
                ELSEIF Ctrl AND (k = 122 OR k = 90) THEN
                    SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
                ELSE
                    oldin$ = in$
                    in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
                    OldCP = CP
                    CP = CP + 1
                END IF
            CASE 18176 'Home
                CP = 0
            CASE 20224 'End
                CP = LEN(in$)
            CASE 21248 'Delete
                oldin$ = in$
                in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
            CASE 19200 'Left
                CP = CP - 1
                IF CP < 0 THEN CP = 0
            CASE 19712 'Right
                CP = CP + 1
                IF CP > LEN(in$) THEN CP = LEN(in$)
        END SELECT
 
        alt$ = RIGHT$(alt$, 3)
        IF AltWasDown = -1 AND AltDown = 0 THEN
            v = VAL(alt$)
            IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v): CP = CP + 1
            alt$ = "": AltWasDown = 0
        END IF
        blink = (blink + 1) MOD 30
        LOCATE Y, X
        PRINT LEFT$(in$, CP);
        IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
        PRINT MID$(in$, CP + 1)
 
        _DISPLAY
        _LIMIT 30
    LOOP UNTIL k = 13
 
    PCOPY 1, 0
    LOCATE Y, X: PRINT in$
    ExtendedInput$ = in$
    IF A THEN _AUTODISPLAY
END FUNCTION
 

I know there's a few symbols missing, but those may simply be my weak eyes overlooking them as I scanned the character page for their codes repeatedly for them. (Such as the squiggle wiggle SHIFT-3 has with the onscreen keyboard.)

There's also a few onscreen keys which I couldn't seem to read at all... WHY, I dunno. Is it a glitch with the onscreen keyboard? With the windows library function I used to check key presses? My code?? I dunno!! Will it work with an actual keyboard and not the onscreen one that Win 10 provides? I dunno!

All I can say at this point is, "Feel free to test it out and let me know how it works (if at all)." Hopefully it'll work for folks with non-standard US keyboards, who use CP1250.. If not -- well, I didn't actually promise it would act. I just promise that I tried to make it work.. :P

Title: Re: Programmable Keyboard Input
Post by: RhoSigma on January 03, 2020, 12:03:35 pm

Hi Steve,

tested with the real DE keyboard (not onscreen), it seems to work properly for the regular keys (no modifier) and their respective SHIFT mappings, except for the squiggle wiggle SHIFT-3 (paragraph btw.) However some of the AltGr mappings are wrong or missing.
Man, then I realized, we need a custom font when working with _MAPUNICODE. Done so, but no difference, even worse on some SHIFT+key (interpunctation keys mainly).

Another thing to think of, many european languages can be properly displayed using CP437. I'd prefer not to be forced on a specific CP, because it requires custom fonts to be used, which is not always disireable.

IMHO, you should keep the routines as they were before and let the users in the respective countries contribute the required mappings over time, which you can then put into their own SUBs like "SetKeymapDE()", "SetKeymapFR()" etc.
This might take a bit more time, until people will contribute, but I think it's better than "overautomate" things, which obviously can't be automated very well by its nature.

Title: Re: Programmable Keyboard Input
Post by: TempodiBasic on January 04, 2020, 07:39:14 pm

Hi Steve
here my feedback on the last code that you have posted at you last post here.
Well it does not recognize
LeftClick of mouse

more it doesn't distinguish between 3 on keyboard 3 on numlock keyboard, on numlock keyboard, / on numlock and 5

for the remaining part I'm testing for adjust of value and board on the screen.

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on January 04, 2020, 08:34:38 pm

Quote from: TempodiBasic on January 04, 2020, 07:39:14 pm

Hi Steve
here my feedback on the last code that you have posted at you last post here.
Well it does not recognize
LeftClick of mouse

more it doesn't distinguish between 3 on keyboard 3 on numlock keyboard, on numlock keyboard, / on numlock and 5

for the remaining part I'm testing for adjust of value and board on the screen.

It works with the left mouse just fine; I just have it ignore it on purpose so it doesn't spam the code 900001 every time I clicked on something with the onscreen keyboard. ;)

Code: [Select]

        SELECT CASE k
            CASE 900001 'left mouse
            CASE 1 TO 255
                PRINT k, CHR$(k)
            CASE IS <= 0
            CASE ELSE
                PRINT k
        END SELECT

Quote

more it doesn't distinguish between 3 on keyboard 3 on numlock keyboard, on numlock keyboard, / on numlock and 5

I mapped these to the Windows Onscreen keyboard, so I'm not certain how accurate they'll work with an actual keyboard. According to Rho, they don't seem to work worth a hoot for him, so I guess I'll just have to wait for users to assign their own keys and share them with us, before I can build a swappable language/keyboard library. There's only so much testing/experimenting I can do with the built-in tools Microsoft gives us, and all I can do is try and code the keys to match what they offer for me -- which apparently isn't that similar to the real hardware. :(

Thanks for testing it out, and reporting back for me. At the least, perhaps it'll be a roadmap to help show others how they can map their own language/keyboard to work with the system. I think this, along with the UTF-8 and Unicode convertors I worked up, will be more than capable to handle any input/output needs which someone needs in the future, once they configure the two to work together for them. ;)

Title: Re: Programmable Keyboard Input
Post by: TempodiBasic on January 05, 2020, 11:26:46 am

Hi Steve
the first feedback:

this is the keyboard that I'm using to test your code.
[ This attachment cannot be displayed inline in 'Print Page' view ]
and these are the difference that I 'm finding with US standard setting
in this moment if I press the key in your application I get the code on the middle with the following characters while if I press the keys on the first column in another application for example Notepad of Windows I get the characters that I read on the keyboard.

Quote

keys used -> code char get vs--> IT
shift + . ->62 > -->:
shift + , -> 60 < --> ;
ù -> 35 # -->ù
. -> 249 . -->§
à -> 132 -->à
Shift+à -> 142 -> -->°
altgr + à-> 132 -->#
ò -> 148 -> -->ò
shift + ò -> 153 -> -->ç
altgr +ò -> -->@
è ->129 -->è
Shift + è -> 154 -->è
altgr + à -> 129 -->[
altgr + + ->126 tilde -->]
' ->225 -->'
93 -> ] --> ì
altgr + shift + + ->125 tilde --> }
altgr + shift + è -> 154 -->{
shift+ì -> 125 } -->^
shift+3 ->35 # --> £

where you see blank is a character that is not of italian alphabet and not on the keyboard.

Thanks for your work...

now how can I build up the SUB IT_Keyboard ? I don't like to mess your wonderful work, so I wait for instructions.

Title: Re: Programmable Keyboard Input
Post by: TempodiBasic on January 05, 2020, 11:39:55 am

the second feedback:
about

Quote

more it doesn't distinguish between 3 on keyboard 3 on numlock keyboard, on numlock keyboard, / on numlock and 5

I want be clearer than above affirmation:
in your application if I press key 3 with has also a # on it I get back 51 3, and this same result I get back if I press - on the numeric keypad on the right of the keyboard (over the + and at right of *) so for now we cannot distinguish between these two keys, moreover if I activate NumLock we can add another key that gets back with 51 3 in your application and this is the 3 (PGDN) key on numeric keypad.

the same issue arises with key 5 (%) and / of numeric keypad that together give back 53 5, moreover if I activate NumLock I get back the same code pressing 5 on numeric keypad. I think that it will be a way to distinguish among these keys.

Thanks to read

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on January 05, 2020, 12:23:38 pm

It distinguishes between the numbers and the numpad; it simply has been coded to return the same values for us, making it seem as it it hasn't.

For the number keys above the alphabet:

Code: [Select]

    DATA 48,48,0,41,0,0,0.2: '0
    DATA 49,49,0,33,0,0,0.2: '1
    DATA 50,50,0,64,0,0,0.2: '2
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 51,51,0,35,0,0,0.2: '3
    DATA 52,52,0,36,0,0,0.2: '4
    DATA 53,53,0,37,0,0,0.2: '5
    DATA 54,54,0,94,0,0,0.2: '6
    DATA 55,55,0,38,0,0,0.2: '7
    DATA 56,56,0,42,0,0,0.2: '8
    DATA 57,57,0,40,0,0,0.2: '9

And for the numpad:

Code: [Select]

    DATA 96,48,0,0,0,0,0.2: 'Numpad 0
    DATA 97,49,0,0,0,0,0.2: 'Numpad 1
    DATA 98,50,0,0,0,0,0.2: 'Numpad 2
    DATA 99,51,0,0,0,0,0.2: 'Numpad 3
    DATA 100,52,0,0,0,0,0.2: 'Numpad 4
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 101,53,0,0,0,0,0.2: 'Numpad 5
    DATA 102,54,0,0,0,0,0.2: 'Numpad 6
    DATA 103,55,0,0,0,0,0.2: 'Numpad 7
    DATA 104,56,0,0,0,0,0.2: 'Numpad 8
    DATA 105,57,0,0,0,0,0.2: 'Numpad 9
    DATA 106,42,0,0,0,0,0.2: 'Numpad *
    DATA 107,43,0,0,0,0,0.2: 'Numpad +
    DATA 108,900108,0,0,0,0,0.2: 'VK_SEPARATOR
    DATA 109,51,0,0,0,0,0.2: 'Numpad -
    DATA 110,52,0,0,0,0,0.2: 'Numpad .
    DATA 111,53,0,0,0,0,0.2: 'Numpad /

Let's compare the two values 3, for example:
DATA 51,51,0,35,0,0,0.2: '3
DATA 99,51,0,0,0,0,0.2: 'Numpad 3

The Red values above represent the internal key which Windows designates for the physical key on our keyboard.
The Blue values are the ASCII values which we return when we press that key. They're different physical keys, but we've mapped them both to return the same values for us.

I suppose I should probably write a small helper routine for us though, so one can tell which of the physical keys is being pressed, just in case they wanted to be able to distinguish between the two of them -- though that would actually be just as simple as check with the physical value.

IF keys(51).down then 'It's the number 3, above the letter keys
IF keys(99).down then 'It's the numpad 3

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on January 05, 2020, 03:29:03 pm

Quote from: TempodiBasic on January 05, 2020, 11:26:46 am

now how can I build up the SUB IT_Keyboard ? I don't like to mess your wonderful work, so I wait for instructions.

Here's the simplest way:

Code: QB64: [Select]

DECLARE LIBRARY 'function is already used by QB64 so "User32" is not required
    FUNCTION GetKeyState% (BYVAL vkey AS LONG)
    FUNCTION GetAsyncKeyState% (BYVAL vkey AS LONG)
END DECLARE
 
TYPE KeyboardInfo_Type
    Index AS LONG
    ASCII AS LONG
    Ctrl AS LONG
    Shift AS LONG
    Alt AS LONG
    AltGr AS LONG
    Repeat AS _FLOAT
    LastHit AS _FLOAT
    Down AS LONG
    AltShift AS LONG
    AltCtrl AS LONG
    AltAltGr AS LONG
    CtrlShift AS LONG
    CtrlAlt AS LONG
    CtrlAltGr AS LONG
    ShiftAltGr AS LONG
    CtrlAltShift AS LONG
END TYPE
 
DIM SHARED Keys(254) AS KeyboardInfo_Type
DIM SHARED AltGr(1) AS _UNSIGNED _BYTE
Init_KeyCodes
Remap_KeyCode 65, 65, 1, 97, 160, 142, 0.2: 'A , , a,  , Ž
'Remap_Extended_KeyCode (Which&, AltShift&, AltCtrl&, AltAltGr&, CtrlShift&, CtrlAltGr&, ShiftAltGr&, CtrlAltShift&)
Remap_Extended_KeyCode 65, 143, 241, 242, 243, 244, 245, 246 ' and more!
 
_CONTROLCHR OFF
 
DO
    k = KeyHit
    IF k > 0 THEN
        CLS
        IF k > 0 THEN PRINT "Physical Key Down: "; Physical_KeyDown(k)
        PRINT "Key Code Down: "; k;
        IF ABS(k) < 256 THEN PRINT CHR$(34); CHR$(ABS(k)); CHR$(34) ELSE PRINT
    END IF
    _LIMIT 30
LOOP UNTIL k = 27 'escape
 
SUB SetAltGr (Key1 AS INTEGER, Key2 AS INTEGER)
    AltGr(0) = Key1 'any key from our index (0 says no key)
    AltGr(1) = Key2 'PLUS any other key from our index (0 says no additional key)
    'Using this, we can set AltGr to become several things.
    'AltGr(0) = 165, AltGr(1) = 0 -- This would say we're using the RIGHT Alt key (alone) to simulate the AltGr key.  (Windows Onscreen Keyboard does this.)
    'AltGr(0) = 17, AltGr(1) = 18 -- This would use any CTRL-ALT combo to simulate a AltGr keypress.
    'Some useful values are listed for quick reference below
    '0 = NoKey
    '17 = ANY Ctrl
    '18 = ANY Alt
    '162 = Left Control
    '163 = Right Control
    '164 = Left Alt
    '165 = Right Alt
 
    'Default is for AltGr(0) = 165, AltGr(1) = 0, which uses Right-Alt alone as the AltGr key.
    'Feel free to customize the setting to your personal preference/need.
END SUB
 
SUB KeyClear
    _DELAY .05 'give time for a keyup event to log itself so we can clear it
    DO: k = KeyHit: LOOP UNTIL k = 0
END SUB
 
FUNCTION KeyHit&
    STATIC ReturnCount AS INTEGER
    STATIC ReturnValues(30) AS LONG
    SHARED AltGr, Alt, Shift, Ctrl
    IF Keys(1).Index = 0 THEN Init_KeyCodes 'if someone forgets to put the init routine in their code, be certain to initialize the codes before attempting to use them.
 
 
    IF ReturnCount > 0 THEN 'If we generated a cue of values last pass, clear those up first, before getting new values.
        'The only time we really see this is when we hit a shift, ctrl, alt key, usually.
        KeyHit = ReturnValues(1)
        FOR i = 1 TO ReturnCount - 1
            ReturnValues(i) = ReturnValues(i + 1)
        NEXT
        ReturnCount = ReturnCount - 1
        EXIT FUNCTION
    END IF
 
    IF Keys(16).Down THEN Shift = -1 ELSE Shift = 0
    IF Keys(17).Down THEN Ctrl = -1 ELSE Ctrl = 0
    IF Keys(18).Down THEN Alt = -1 ELSE Alt = 0
    IF AltGr(0) <> 0 AND AltGr(1) <> 0 THEN
        IF Keys(AltGr(0)).Down AND Keys(AltGr(1)).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSEIF AltGr(1) <> 0 THEN
        IF Keys(AltGr(1)).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSEIF AltGr(0) <> 0 THEN
        IF Keys(AltGr(0)).Down THEN AltGr = -1 ELSE AltGr = 0
    ELSE
        AltGr = 0
    END IF
 
    'until Ctrl or Alt status, if the key down was used to help generate AltGr as a modifier key
    IF AltGr THEN
        IF (AltGr(0) = 18 OR AltGr(1) = 18) THEN Alt = 0 'if we use both ALT keys to represent part of AltGr, when AltGr is active, Alt isn't.
        IF (AltGr(0) = 164 OR AltGr(1) = 164) AND Keys(165).Down = 0 THEN Alt = 0 'if we use Left ALT keys to represent part of AltGr, when AltGr is active, Left Alt isn't.
        IF (AltGr(0) = 165 OR AltGr(1) = 165) AND Keys(164).Down = 0 THEN Alt = 0 'if we use Right ALT keys to represent part of AltGr, when AltGr is active, Right Alt isn't.
        IF (AltGr(0) = 17 OR AltGr(1) = 17) THEN Ctrl = 0 'if we use both CTRL keys to represent part of AltGr, when AltGr is active, Ctrl isn't.
        IF (AltGr(0) = 162 OR AltGr(1) = 162) AND Keys(163).Down = 0 THEN Ctrl = 0 'if we use Left CTRL keys to represent part of AltGr, when AltGr is active, Left Ctrl isn't.
        IF (AltGr(0) = 163 OR AltGr(1) = 163) AND Keys(162).Down = 0 THEN Ctrl = 0 'if we use Right CTRL keys to represent part of AltGr, when AltGr is active, Right Ctrl isn't.
    END IF
 
    IF Alt AND Shift THEN AltShift = -1 ELSE AltShift = 0
    IF Alt AND Ctrl THEN AltCtrl = -1 ELSE AltCtrl = 0
    IF Alt AND AltAltGR THEN AltAltGR = -1 ELSE AltAltGR = 0
    IF Ctrl AND Shift THEN CtrlShift = -1 ELSE CtrlShift = 0
    IF Shift AND AltGr THEN ShiftAltGr = -1 ELSE ShiftAltGr = 0
    IF Ctrl AND Alt AND Shift THEN CtrlAltShift = -1 ELSE CtrlAltShift = 0
 
    IF _WINDOWHASFOCUS THEN
        FOR i = 1 TO 254
 
            r = GetKeyState(Keys(i).Index) AND &H8000
 
            IF r THEN 'the key is down
 
 
                IF Keys(i).LastHit THEN
                    IF ExtendedTimer > Keys(i).LastHit THEN
                        ReturnCount = ReturnCount + 1 'add one to the return buffer
                        ReturnValues(ReturnCount) = Keys(i).Down 'and put the existing value back in the buffer, as a key repeat
                    END IF
                ELSE
 
                    IF Keys(i).Down = 0 THEN 'the key was up on the last pass.
                        IF CtrlAltShift <> 0 AND Keys(i).CtrlAltShift <> 0 THEN 'return the CtrlAltShift value
                            Keys(i).Down = Keys(i).CtrlAltShift
                        ELSEIF AltAltGR <> 0 AND Keys(i).AltAltGr <> 0 THEN 'return the AltAltGr value
                            Keys(i).Down = Keys(i).AltAltGr
                        ELSEIF CtrlAltGr& <> 0 AND Keys(i).CtrlAltGr& <> 0 THEN 'return the CtrlAltGr& value
                            Keys(i).Down = Keys(i).CtrlAltGr&
                        ELSEIF ShiftAltGr <> 0 AND Keys(i).ShiftAltGr <> 0 THEN 'return the ShiftAltGr value
                            Keys(i).Down = Keys(i).ShiftAltGr
                        ELSEIF CtrlShift <> 0 AND Keys(i).CtrlShift <> 0 THEN 'return the CtrlShift value
                            Keys(i).Down = Keys(i).CtrlShift
                        ELSEIF AltCtrl <> 0 AND Keys(i).AltCtrl <> 0 THEN 'return the AltCtrl value
                            Keys(i).Down = Keys(i).AltCtrl
                        ELSEIF AltShift <> 0 AND Keys(i).AltShift <> 0 THEN 'return the AltShift value
                            Keys(i).Down = Keys(i).AltShift
                        ELSEIF AltGr <> 0 AND Keys(i).AltGr <> 0 THEN 'return the altgr value
                            Keys(i).Down = Keys(i).AltGr
                        ELSEIF Shift <> 0 AND Keys(i).Shift <> 0 THEN 'return the shift value
                            Keys(i).Down = Keys(i).Shift
                            IF _CAPSLOCK = 0 THEN 'caps lock basically reverses the behavior of the shift key with the letters A-Z and a-z
                                SELECT CASE i
                                    CASE 65 TO 90: Keys(i).Down = Keys(i).ASCII
                                END SELECT
                            END IF
                        ELSEIF (Ctrl <> 0) AND (Keys(i).Ctrl <> 0) THEN 'return the ctrl value
                            Keys(i).Down = Keys(i).Ctrl
                        ELSEIF Alt <> 0 AND Keys(i).Alt <> 0 THEN 'return the alt value
                            Keys(i).Down = Keys(i).Alt
                        ELSE 'all that's left is to return the ASCII value
                            Keys(i).Down = Keys(i).ASCII
                            IF _CAPSLOCK = 0 THEN 'caps lock basically reverses the behavior of the shift key with the letters A-Z and a-z
                                SELECT CASE i
                                    CASE 65 TO 90: Keys(i).Down = Keys(i).Shift
                                END SELECT
                            END IF
                        END IF
                        ReturnCount = ReturnCount + 1 'add one to the return buffer
                        ReturnValues(ReturnCount) = Keys(i).Down 'and store the value in the buffer
 
                        IF Keys(i).Repeat = -1 THEN 'keys that are set to a -1 on repeat simply toggle state as on, or off.
                            Keys(i).LastHit = 1E+1000 'such as SHIFT, CTRL, ALT...
                        ELSE
                            Keys(i).LastHit = ExtendedTimer + Keys(i).Repeat 'and record when we hit it for repeat purposes
                        END IF
                    END IF
                END IF
            ELSE
                IF Keys(i).Down THEN 'the key was down on the last pass
                    ReturnCount = ReturnCount + 1
                    ReturnValues(ReturnCount) = -Keys(i).Down 'mark it as being up on this one
                END IF
                Keys(i).Down = 0 'and set it back down for future passes
                Keys(i).LastHit = 0 'once again, set it as being ready to be hit again
            END IF
        NEXT
 
        IF ReturnCount > 0 THEN 'If we generated a cue of values last pass, clear those up first, before getting new values.
            'The only time we really see this is when we hit a shift, ctrl, alt key, usually.
            KeyHit = ReturnValues(1)
            FOR i = 1 TO ReturnCount - 1
                ReturnValues(i) = ReturnValues(i + 1)
            NEXT
            ReturnCount = ReturnCount - 1
            EXIT FUNCTION
        END IF
 
    END IF 'End of IF _WINDOWHASFOCUS
 
 
END FUNCTION
 
 
SUB Remap_KeyCode (Which AS LONG, ASCII AS LONG, Ctrl AS LONG, Shift AS LONG, Alt AS LONG, AltGr AS LONG, Repeat AS _FLOAT)
    DIM i AS LONG
    i = Which
    Keys(i).Index = i
    Keys(i).ASCII = ASCII
    Keys(i).Ctrl = Ctrl
    Keys(i).Shift = Shift
    Keys(i).Alt = Alt
    Keys(i).AltGr = AltGr
    Keys(i).Repeat = Repeat
    Keys(i).LastHit = 0
    Keys(i).Down = 0
END SUB
 
SUB Remap_Extended_KeyCode (Which&, AltShift&, AltCtrl&, AltAltGr&, _
         CtrlShift&, CtrlAltGr&, ShiftAltGr&, CtrlAltShift&)
    Keys(Which&).AltShift = AltShift&
    Keys(Which&).AltCtrl = AltCtrl&
    Keys(Which&).AltAltGr = AltAltGr&
    Keys(Which&).CtrlShift = CtrlShift&
    Keys(Which&).CtrlAltGr = CtrlAltGr&
    Keys(Which&).ShiftAltGr = ShiftAltGr&
    Keys(Which&).CtrlAltShift = CtrlAltShift&
END SUB
 
FUNCTION KeyDown& (Code AS LONG)
    IF _WINDOWHASFOCUS THEN
        IF Code <= 0 THEN EXIT FUNCTION
        FOR i = 1 TO 254
            IF GetAsyncKeyState(i) THEN 'first check for actual physical keys down
                IF Keys(i).ASCII = Code THEN KeyDown = -1: EXIT FUNCTION 'then check to see if the code matches anything we've mapped it to.
                IF Keys(i).Shift = Code THEN KeyDown = -1: EXIT FUNCTION
                IF Keys(i).Alt = Code THEN KeyDown = -1: EXIT FUNCTION
                IF Keys(i).AltGr = Code THEN KeyDown = -1: EXIT FUNCTION
                IF Keys(i).AltShift = Code THEN KeyDown = -1: EXIT FUNCTION
                IF Keys(i).AltCtrl = Code THEN KeyDown = -1: EXIT FUNCTION
                IF Keys(i).AltAltGr = Code THEN KeyDown = -1: EXIT FUNCTION
                IF Keys(i).CtrlShift = Code THEN KeyDown = -1: EXIT FUNCTION
                IF Keys(i).CtrlAltGr = Code THEN KeyDown = -1: EXIT FUNCTION
                IF Keys(i).ShiftAltGr = Code THEN KeyDown = -1: EXIT FUNCTION
                IF Keys(i).CtrlAltShift = Code THEN KeyDown = -1: EXIT FUNCTION
            END IF
        NEXT
        KeyDown& = 0
    END IF
END FUNCTION
 
FUNCTION Physical_KeyDown& (Code AS LONG)
    IF _WINDOWHASFOCUS THEN
        IF Code <= 0 THEN EXIT FUNCTION
        FOR i = 1 TO 254
            IF GetAsyncKeyState(i) THEN 'first check for actual physical keys down
                IF Keys(i).ASCII = Code THEN Physical_KeyDown = i: EXIT FUNCTION 'then check to see if the code matches anything we've mapped it to.
                IF Keys(i).Shift = Code THEN Physical_KeyDown = i: EXIT FUNCTION
                IF Keys(i).Alt = Code THEN Physical_KeyDown = i: EXIT FUNCTION
                IF Keys(i).AltGr = Code THEN Physical_KeyDown = i: EXIT FUNCTION
                IF Keys(i).AltShift = Code THEN Physical_KeyDown = i: EXIT FUNCTION
                IF Keys(i).AltCtrl = Code THEN Physical_KeyDown = i: EXIT FUNCTION
                IF Keys(i).AltAltGr = Code THEN Physical_KeyDown = i: EXIT FUNCTION
                IF Keys(i).CtrlShift = Code THEN Physical_KeyDown = i: EXIT FUNCTION
                IF Keys(i).CtrlAltGr = Code THEN Physical_KeyDown = i: EXIT FUNCTION
                IF Keys(i).ShiftAltGr = Code THEN Physical_KeyDown = i: EXIT FUNCTION
                IF Keys(i).CtrlAltShift = Code THEN Physical_KeyDown = i: EXIT FUNCTION
            END IF
        NEXT
        Physical_KeyDown& = 0
    END IF
END FUNCTION
 
 
SUB Init_KeyCodes
    RESTORE default_keyboard_data
    FOR i = 1 TO 254
        READ Keys(i).Index, Keys(i).ASCII, Keys(i).Ctrl, Keys(i).Shift, Keys(i).Alt, Keys(i).AltGr, Keys(i).Repeat
        Keys(i).LastHit = 0: Keys(i).Down = 0
    NEXT
 
    default_keyboard_data:
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 1,900001,0,0,0,0,0.2: 'Left Mouse Button
    DATA 2,900002,0,0,0,0,0.2: 'Right Mouse Button
    DATA 3,900003,0,0,0,0,0.2: 'VK_Cancel
    DATA 4,900004,0,0,0,0,0.2: 'Middle Mouse Button
    DATA 5,900005,0,0,0,0,0.2: 'Mouse Button 4
    DATA 6,900006,0,0,0,0,0.2: 'Mouse Button 5
    DATA 7,900007,0,0,0,0,0.2: 'Undefined
    DATA 8,8,0,0,0,0,0.2: 'Backspace
    DATA 9,9,0,0,0,0,0.2: 'Tab
    DATA 10,900010,0,0,0,0,0.2: 'Reserved
    DATA 11,900011,0,0,0,0,0.2: 'Reserved
    DATA 12,19456,0,0,0,0,0.2: 'Clear
    DATA 13,13,0,0,0,0,0.2: 'Enter
    DATA 14,900014,0,0,0,0,0.2: 'Undefined
    DATA 15,900015,0,0,0,0,0.2: 'Undefined
    DATA 16,100016,0,0,0,0,-1: 'Shift (Notice I set it to simple toddle and report UP/DOWN results for us)
    DATA 17,100017,0,0,0,0,-1: 'Ctrl   (Same)
    DATA 18,100018,0,0,0,0,-1: 'Alt     (Same)
    DATA 19,100019,0,0,0,0,0.2: 'Pause
    DATA 20,100301,0,0,0,0,-1: 'Caps Lock
    DATA 21,900021,0,0,0,0,0.2: 'VK_Hangul
    DATA 22,900022,0,0,0,0,0.2: 'Undefined
    DATA 23,900023,0,0,0,0,0.2: 'VK_Junja
    DATA 24,900024,0,0,0,0,0.2: 'VK_Final
    DATA 25,900025,0,0,0,0,0.2: 'VK_Hanga//VK_Kanji
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 26,900026,0,0,0,0,0.2: 'Undefined
    DATA 27,27,0,0,0,0,0.2: 'ESC
    DATA 28,900028,0,0,0,0,0.2: 'VK_Convert
    DATA 29,900029,0,0,0,0,0.2: 'VK_NonConvert
    DATA 30,900030,0,0,0,0,0.2: 'VK_Accept
    DATA 31,900031,0,0,0,0,0.2: 'VK_ModeChange
    DATA 32,32,0,0,0,0,0.2: 'VK_Space
    DATA 33,18688,0,0,0,0,0.2: 'Page Up
    DATA 34,20736,0,0,0,0,0.2: 'Page Down
    DATA 35,20224,0,0,0,0,0.2: 'End
    DATA 36,18176,0,0,0,0,0.2: 'Home
    DATA 37,19200,0,0,0,0,0.2: 'Left Arrow
    DATA 38,18432,0,0,0,0,0.2: 'Up Arrow
    DATA 39,19712,0,0,0,0,0.2: 'Right Arrow
    DATA 40,20480,0,0,0,0,0.2: 'Down Arrow
    DATA 41,900041,0,0,0,0,-1: 'VK_SELECT
    DATA 42,900042,0,0,0,0,-1: 'CK_PRINT
    DATA 43,900043,0,0,0,0,-1: 'VK_EXECUTE
    DATA 44,900044,0,0,0,0,-1: 'VK_SNAPSHOT
    DATA 45,20992,0,0,0,0,0.2: 'INS
    DATA 46,21248,0,0,0,0,0.2: 'DEL
    DATA 47,900047,0,0,0,0,0.2: 'VK_HELP
    DATA 48,48,0,41,0,0,0.2: '0
    DATA 49,49,0,33,0,0,0.2: '1
    DATA 50,50,0,64,0,0,0.2: '2
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 51,51,0,35,0,0,0.2: '3
    DATA 52,52,0,36,0,0,0.2: '4
    DATA 53,53,0,37,0,0,0.2: '5
    DATA 54,54,0,94,0,0,0.2: '6
    DATA 55,55,0,38,0,0,0.2: '7
    DATA 56,56,0,42,0,0,0.2: '8
    DATA 57,57,0,40,0,0,0.2: '9
    DATA 58,900058,0,0,0,0,0.2: 'Undefined
    DATA 59,900059,0,0,0,0,0.2: 'Undefined
    DATA 60,900060,0,0,0,0,0.2: 'Undefined
    DATA 61,900061,0,0,0,0,0.2: 'Undefined
    DATA 62,900062,0,0,0,0,0.2: 'Undefined
    DATA 63,900063,0,0,0,0,0.2: 'Undefined
    DATA 64,900064,0,0,0,0,0.2: 'Undefined
    DATA 65,65,0,97,0,0,0.2: 'a
    DATA 66,66,0,98,0,0,0.2: 'b
    DATA 67,67,0,99,0,0,0.2: 'c
    DATA 68,68,0,100,0,0,0.2: 'd
    DATA 69,69,0,101,0,0,0.2: 'e
    DATA 70,70,0,102,0,0,0.2: 'f
    DATA 71,71,0,103,0,0,0.2: 'g
    DATA 72,72,0,104,0,0,0.2: 'h
    DATA 73,73,0,105,0,0,0.2: 'i
    DATA 74,74,0,106,0,0,0.2: 'j
    DATA 75,75,0,107,0,0,0.2: 'k
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 76,76,0,108,0,0,0.2: 'l
    DATA 77,77,0,109,0,0,0.2: 'm
    DATA 78,78,0,110,0,0,0.2: 'n
    DATA 79,79,0,111,0,0,0.2: 'o
    DATA 80,80,0,112,0,0,0.2: 'p
    DATA 81,81,0,113,0,0,0.2: 'q
    DATA 82,82,0,114,0,0,0.2: 'r
    DATA 83,83,0,115,0,0,0.2: 's
    DATA 84,84,0,116,0,0,0.2: 't
    DATA 85,85,0,117,0,0,0.2: 'u
    DATA 86,86,0,118,0,0,0.2: 'v
    DATA 87,87,0,119,0,0,0.2: 'w
    DATA 88,88,0,120,0,0,0.2: 'x
    DATA 89,89,0,121,0,0,0.2: 'y
    DATA 90,90,0,122,0,0,0.2: 'z
    DATA 91,100311,0,0,0,0,-1: 'Left WIN
    DATA 92,100312,0,0,0,0,-1: 'Right WIN
    DATA 93,100319,0,0,0,0,-1: 'Applications (Menu)
    DATA 94,900094,0,0,0,0,0.2: 'Reserved
    DATA 95,900095,0,0,0,0,0.2: 'VK_SLEEP
    DATA 96,48,0,0,0,0,0.2: 'Numpad 0
    DATA 97,49,0,0,0,0,0.2: 'Numpad 1
    DATA 98,50,0,0,0,0,0.2: 'Numpad 2
    DATA 99,51,0,0,0,0,0.2: 'Numpad 3
    DATA 100,52,0,0,0,0,0.2: 'Numpad 4
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 101,53,0,0,0,0,0.2: 'Numpad 5
    DATA 102,54,0,0,0,0,0.2: 'Numpad 6
    DATA 103,55,0,0,0,0,0.2: 'Numpad 7
    DATA 104,56,0,0,0,0,0.2: 'Numpad 8
    DATA 105,57,0,0,0,0,0.2: 'Numpad 9
    DATA 106,42,0,0,0,0,0.2: 'Numpad *
    DATA 107,43,0,0,0,0,0.2: 'Numpad +
    DATA 108,900108,0,0,0,0,0.2: 'VK_SEPARATOR
    DATA 109,51,0,0,0,0,0.2: 'Numpad -
    DATA 110,52,0,0,0,0,0.2: 'Numpad .
    DATA 111,53,0,0,0,0,0.2: 'Numpad /
    DATA 112,15104,0,0,0,0,0.2: 'F1
    DATA 113,15360,0,0,0,0,0.2: 'F2
    DATA 114,15616,0,0,0,0,0.2: 'F3
    DATA 115,15872,0,0,0,0,0.2: 'F4
    DATA 116,16128,0,0,0,0,0.2: 'F5
    DATA 117,16384,0,0,0,0,0.2: 'F6
    DATA 118,16640,0,0,0,0,0.2: 'F7
    DATA 119,16896,0,0,0,0,0.2: 'F8
    DATA 120,17152,0,0,0,0,0.2: 'F9
    DATA 121,17408,0,0,0,0,0.2: 'F10
    DATA 122,34048,0,0,0,0,0.2: 'F11
    DATA 123,34304,0,0,0,0,0.2: 'F12
    DATA 124,900124,0,0,0,0,0.2: 'F13
    DATA 125,900125,0,0,0,0,0.2: 'F14
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 126,900126,0,0,0,0,0.2: 'F15
    DATA 127,900127,0,0,0,0,0.2: 'F16
    DATA 128,900128,0,0,0,0,0.2: 'F17
    DATA 129,900129,0,0,0,0,0.2: 'F18
    DATA 130,900130,0,0,0,0,0.2: 'F19
    DATA 131,900131,0,0,0,0,0.2: 'F20
    DATA 132,900132,0,0,0,0,0.2: 'F21
    DATA 133,900133,0,0,0,0,0.2: 'F22
    DATA 134,900134,0,0,0,0,0.2: 'F23
    DATA 135,900135,0,0,0,0,0.2: 'F24
    DATA 136,900136,0,0,0,0,0.2: 'Unassigned
    DATA 137,900137,0,0,0,0,0.2: 'Unassigned
    DATA 138,900138,0,0,0,0,0.2: 'Unassigned
    DATA 139,900139,0,0,0,0,0.2: 'Unassigned
    DATA 140,900140,0,0,0,0,0.2: 'Unassigned
    DATA 141,900141,0,0,0,0,0.2: 'Unassigned
    DATA 142,900142,0,0,0,0,0.2: 'Unassigned
    DATA 143,900143,0,0,0,0,0.2: 'Unassigned
    DATA 144,100300,0,0,0,0,-1: 'NUM LOCK
    DATA 145,100302,0,0,0,0,-1: 'SCROLL LOCK
    DATA 146,900146,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 147,900147,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 148,900148,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 149,900149,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 150,900150,0,0,0,0,0.2: 'OEM SPECIFIC
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 151,900151,0,0,0,0,0.2: 'Unassigned
    DATA 152,900152,0,0,0,0,0.2: 'Unassigned
    DATA 153,900153,0,0,0,0,0.2: 'Unassigned
    DATA 154,900154,0,0,0,0,0.2: 'Unassigned
    DATA 155,900155,0,0,0,0,0.2: 'Unassigned
    DATA 156,900156,0,0,0,0,0.2: 'Unassigned
    DATA 157,900157,0,0,0,0,0.2: 'Unassigned
    DATA 158,900158,0,0,0,0,0.2: 'Unassigned
    DATA 159,900159,0,0,0,0,0.2: 'Unassigned
    DATA 160,100304,0,0,0,0,-1: 'Left Shift
    DATA 161,100303,0,0,0,0,-1: 'Right Shift
    DATA 162,100306,0,0,0,0,-1: 'Left Control
    DATA 163,100305,0,0,0,0,-1: 'Right Control
    DATA 164,100308,0,0,0,0,-1: 'Left Alt
    DATA 165,100309,0,0,0,0,-1: 'Right Alt
    DATA 166,900166,0,0,0,0,0.2: 'Browser back
    DATA 167,900167,0,0,0,0,0.2: 'Browser forward
    DATA 168,900168,0,0,0,0,0.2: 'Browser refresh
    DATA 169,900169,0,0,0,0,0.2: 'Browser stop
    DATA 170,900170,0,0,0,0,0.2: 'Browser search
    DATA 171,900171,0,0,0,0,0.2: 'Browser favorites
    DATA 172,900172,0,0,0,0,0.2: 'Browser home
    DATA 173,900173,0,0,0,0,0.2: 'Mute
    DATA 174,900174,0,0,0,0,0.2: 'Vol Down
    DATA 175,900175,0,0,0,0,0.2: 'Vol Up
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 176,900176,0,0,0,0,0.2: 'Media Next
    DATA 177,900177,0,0,0,0,0.2: 'Media prev
    DATA 178,900178,0,0,0,0,0.2: 'Media stop
    DATA 179,900179,0,0,0,0,0.2: 'Media Play/Pause
    DATA 180,900180,0,0,0,0,0.2: 'Launch mail
    DATA 181,900181,0,0,0,0,0.2: 'Launch media select
    DATA 182,900182,0,0,0,0,0.2: 'Launch app1
    DATA 183,900183,0,0,0,0,0.2: 'Launch app2
    DATA 184,900184,0,0,0,0,0.2: 'Reserved
    DATA 185,900185,0,0,0,0,0.2: 'Reserved
    DATA 186,59,0,58,0,0,0.2: ';:
    DATA 187,61,0,43,0,0,0.2: '=+
    DATA 188,44,0,60,0,0,0.2: ',<
    DATA 189,45,0,95,0,0,0.2: '-_
    DATA 190,46,0,62,0,0,0.2: '.>
    DATA 191,47,0,63,0,0,0.2: '/?
    DATA 192,96,0,126,0,0,0.2: '`~
    DATA 193,900193,0,0,0,0,0.2: 'Reserved
    DATA 194,900194,0,0,0,0,0.2: 'Reserved
    DATA 195,900195,0,0,0,0,0.2: 'Reserved
    DATA 196,900196,0,0,0,0,0.2: 'Reserved
    DATA 197,900197,0,0,0,0,0.2: 'Reserved
    DATA 198,900198,0,0,0,0,0.2: 'Reserved
    DATA 199,900199,0,0,0,0,0.2: 'Reserved
    DATA 200,900200,0,0,0,0,0.2: 'Reserved
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 201,900201,0,0,0,0,0.2: 'Reserved
    DATA 202,900202,0,0,0,0,0.2: 'Reserved
    DATA 203,900203,0,0,0,0,0.2: 'Reserved
    DATA 204,900204,0,0,0,0,0.2: 'Reserved
    DATA 205,900205,0,0,0,0,0.2: 'Reserved
    DATA 206,900206,0,0,0,0,0.2: 'Reserved
    DATA 207,900207,0,0,0,0,0.2: 'Reserved
    DATA 208,900208,0,0,0,0,0.2: 'Reserved
    DATA 209,900209,0,0,0,0,0.2: 'Reserved
    DATA 210,900210,0,0,0,0,0.2: 'Reserved
    DATA 211,900211,0,0,0,0,0.2: 'Reserved
    DATA 212,900212,0,0,0,0,0.2: 'Reserved
    DATA 213,900213,0,0,0,0,0.2: 'Reserved
    DATA 214,900214,0,0,0,0,0.2: 'Reserved
    DATA 215,900215,0,0,0,0,0.2: 'Reserved
    DATA 216,900216,0,0,0,0,0.2: 'Unassigned
    DATA 217,900217,0,0,0,0,0.2: 'Unassigned
    DATA 218,900218,0,0,0,0,0.2: 'Unassigned
    DATA 219,91,0,123,0,0,0.2: '[{
    DATA 220,92,0,124,0,0,0.2: '\|
    DATA 221,93,0,125,0,0,0.2: ']}
    DATA 222,39,0,34,0,0,0.2: ''"
    DATA 223,900223,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 224,900224,0,0,0,0,0.2: 'Reserved
    DATA 225,900225,0,0,0,0,0.2: 'OEM SPECIFIC d
    DATA 226,900226,0,0,0,0,0.2: 'Either the Angle Bracket key,or Backslash on RT 102-key keyboard
    DATA 227,900227,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 228,900228,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 229,900229,0,0,0,0,0.2: 'IME PROCESS key (whatever that is)
    DATA 230,900230,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 231,900231,0,0,0,0,0.2: 'Used to pass UNICODE characters (however that works)
    DATA 232,900232,0,0,0,0,0.2: 'Unassigned
    DATA 233,900233,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 234,900234,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 235,900235,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 236,900236,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 237,900237,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 238,900238,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 239,900239,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 240,900240,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 241,900241,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 242,900242,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 243,900243,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 244,900244,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 245,900245,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 246,900246,0,0,0,0,0.2: 'VK_ATTN
    DATA 247,900247,0,0,0,0,0.2: 'VK_ATTN
    DATA 248,900248,0,0,0,0,0.2: 'VK_ATTN
    DATA 249,900249,0,0,0,0,0.2: 'VK_ATTN
    DATA 250,900250,0,0,0,0,0.2: 'VK_ATTN
    DATA 251,900251,0,0,0,0,0.2: 'VK_ATTN
    DATA 252,900252,0,0,0,0,0.2: 'Reserved
    DATA 253,900253,0,0,0,0,0.2: 'VK_PA1
    DATA 254,900253,0,0,0,0,0.2: 'VK_OEM_CLEAR
    DATA 0,0,0,0,0,0,0.2: 'END OF DATA
    AltGr(0) = 165
    AltGr(1) = 0
END SUB
 
 
FUNCTION ExtendedTimer##
    'modified extendedtimer to store the old day's count, and not have to recalculate it every time the routine is called.
 
    STATIC olds AS _FLOAT, old_day AS _FLOAT
    DIM m AS INTEGER, d AS INTEGER, y AS INTEGER
    DIM s AS _FLOAT, day AS STRING
    IF olds = 0 THEN 'calculate the day the first time the extended timer runs
        day = DATE$
        m = VAL(LEFT$(day, 2))
        d = VAL(MID$(day, 4, 2))
        y = VAL(RIGHT$(day, 4)) - 1970
        SELECT CASE m 'Add the number of days for each previous month passed
            CASE 2: d = d + 31
            CASE 3: d = d + 59
            CASE 4: d = d + 90
            CASE 5: d = d + 120
            CASE 6: d = d + 151
            CASE 7: d = d + 181
            CASE 8: d = d + 212
            CASE 9: d = d + 243
            CASE 10: d = d + 273
            CASE 11: d = d + 304
            CASE 12: d = d + 334
        END SELECT
        IF (y MOD 4) = 2 AND m > 2 THEN d = d + 1 'add a day if this is leap year and we're past february
        d = (d - 1) + 365 * y 'current month days passed + 365 days per each standard year
        d = d + (y + 2) \ 4 'add in days for leap years passed
        s = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds
        old_day = s
    END IF
    IF TIMER < oldt THEN 'we went from 23:59:59 (a second before midnight) to 0:0:0 (midnight)
        old_day = s + 83400 'add another worth of seconds to our counter
    END IF
    oldt = TIMER
    olds = old_day + oldt
    ExtendedTimer## = olds
END FUNCTION
 
 
 
 
 
 
FUNCTION ExtendedInput$
    SHARED AltGr, Alt, Shift, Ctrl
    PCOPY 0, 1
    A = _AUTODISPLAY: X = POS(0): Y = CSRLIN
    CP = 0: OldCP = 0 'Cursor Position
    _KEYCLEAR
    DO
        PCOPY 1, 0
 
        k = KeyHit
        IF Alt THEN AltDown = -1 ELSE AltDown = 0
        SELECT CASE k 'without alt, add any keypresses to our input
            CASE 8
                oldin$ = in$
                IF CP > 0 THEN OldCP = CP: CP = CP - 1
                in$ = LEFT$(in$, CP) + MID$(in$, CP + 2) 'backspace to erase input
            CASE 9
                oldin$ = in$
                in$ = LEFT$(in$, CP) + SPACE$(4) + MID$(in$, CP + 1) 'four spaces for any TAB entered
                OldCP = CP
                CP = CP + 4
            CASE 48 TO 57 '0 to 9
                IF AltDown THEN
                    AltWasDown = -1: alt$ = alt$ + CHR$(k)
                ELSE
                    oldin$ = in$
                    in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
                    OldCP = CP
                    CP = CP + 1
                END IF
            CASE 1 TO 255 'the rest of the ASCII characters
                IF Ctrl AND (k = 118 OR k = 86) THEN
                    oldin$ = in$
                    in$ = LEFT$(in$, CP) + _CLIPBOARD$ + MID$(in$, CP + 1) 'ctrl-v paste
                    'CTRL-V leaves cursor in position before the paste, without moving it after.
                    'Feel free to modify that behavior here, if you want it to move to after the paste.
                ELSEIF Ctrl AND (k = 122 OR k = 90) THEN
                    SWAP in$, oldin$: SWAP OldCP, CP 'ctrl-z undo
                ELSE
                    oldin$ = in$
                    in$ = LEFT$(in$, CP) + CHR$(k) + MID$(in$, CP + 1) 'add input to our string
                    OldCP = CP
                    CP = CP + 1
                END IF
            CASE 18176 'Home
                CP = 0
            CASE 20224 'End
                CP = LEN(in$)
            CASE 21248 'Delete
                oldin$ = in$
                in$ = LEFT$(in$, CP) + MID$(in$, CP + 2)
            CASE 19200 'Left
                CP = CP - 1
                IF CP < 0 THEN CP = 0
            CASE 19712 'Right
                CP = CP + 1
                IF CP > LEN(in$) THEN CP = LEN(in$)
        END SELECT
 
        alt$ = RIGHT$(alt$, 3)
        IF AltWasDown = -1 AND AltDown = 0 THEN
            v = VAL(alt$)
            IF v >= 0 AND v <= 255 THEN in$ = in$ + CHR$(v): CP = CP + 1
            alt$ = "": AltWasDown = 0
        END IF
        blink = (blink + 1) MOD 30
        LOCATE Y, X
        PRINT LEFT$(in$, CP);
        IF blink \ 15 THEN PRINT " "; ELSE PRINT "_";
        PRINT MID$(in$, CP + 1)
 
        _DISPLAY
        _LIMIT 30
    LOOP UNTIL k = 13
 
    PCOPY 1, 0
    LOCATE Y, X: PRINT in$
    ExtendedInput$ = in$
    IF A THEN _AUTODISPLAY
END FUNCTION
 

Step 0: (This may be optional, depending on how you manage things.)

After the DIM SHARED AltGr(1) AS _UNSIGNED _BYTE, and before the Init_KeyCodes, you may want to use the _MAPUNICODE values to set up the proper code page to view and display your characters properly. (If you need help with this step, let me know, but I figure anyone who uses _MAPUNICODE regularly shouldn't have any issues with using it to set the proper character page.)

Step 1: Run the program and test it out with your keyboard. Whenever you find a key/combination which doesn't work properly, write down the physical keycode on a piece of paper, along with the symbol which that key should actually represent. (Make a note of modifier keys, if needed, such as SHIFT or ALTGR, as well.)

Step 2: Once you have a list of keys which you want to remap, copy the whole SUB Init_KeyCodes, and paste a duplicate of it into the IDE. Rename that duplicate to Init_IT_KeyCodes (for the Italian Keycodes; use a different abbreviation for a different language).

Step 3: Just scroll down the list and change the values that you need to, for the keys which you made a list of above.

For example, let's say Physical Key 186 is the less than "<" sign on your keyboard, rather than the semicolon ";". The old line in question looks like this:

Code: [Select]

DATA 186,59,0,58,0,0,0.2: ';:
Those values represent: ' Index Unmodified Ctrl Shift Alt AltGr Repeat

Semi-colon is ASCII character 59. Colon is ASCII character 58. As you can see, those represent the Unmodified keydown and the Shift-keydown code for that physical key.

Just look at your ASCII chart for your particular code page, and plug in the values that match the character your keyboard should've actually produced.

In this example, less than "<" is normally CHR$(60), so all you'd do is change that line to become:

DATA 186,60,0,58,0,0,0.2: ';:

That 59 became a 60. Now, when you hit that key, it'll display "<" instead of ";".

Step 4: Repeat with the rest of the physical keys which didn't match anything currently mapped.

And that's all there is to it!

It's nothing very complicated, but it does require a human to sit down, stare at their personal keyboard, and then look up the proper ASCII values for their character page and plug them into the mapper at least once.

Once somebody maps their values for us, I'll add them to the program and we'll collect a library that people can just pick and choose from, without having to remap everything personally, every time they want to use the routine. All we need is someone to map things once to their physical keyboard layout, and then that mapping can be used by other people with that same language/keyboard forever more!!

And here's to hoping that several different people will remap their keyboards, and share them, for us. :)

Title: Re: Programmable Keyboard Input
Post by: TempodiBasic on January 05, 2020, 08:22:44 pm

Hi Steve
just another silly question:
Is the default_keyboard_data the MS CP1252 ?

Title: Re: Programmable Keyboard Input
Post by: SMcNeill on January 05, 2020, 10:05:57 pm

Quote from: TempodiBasic on January 05, 2020, 08:22:44 pm

Hi Steve
just another silly question:
Is the default_keyboard_data the MS CP1252 ?

QB64 uses the default character page 437, unless you change yours using MAPUNICODE to map a different page to use/display. https://www.qb64.org/wiki/Code_Pages#CP_437

Title: Re: Programmable Keyboard Input
Post by: TempodiBasic on January 16, 2020, 04:19:56 pm

I'm glad to post this add to Steve's work!

CP_850 for IT keyboard
and
CP_1252 for Western Europe countries (it works also for IT keyboard)

Code: QB64: [Select]

SUB Init_KeyCodes (Language AS STRING)
    RESTORE default_keyboard_data
    FOR i = 1 TO 254
        READ Keys(i).Index, Keys(i).ASCII, Keys(i).Ctrl, Keys(i).Shift, Keys(i).Alt, Keys(i).AltGr, Keys(i).Repeat
        Keys(i).LastHit = 0: Keys(i).Down = 0
    NEXT
 
    default_keyboard_data:
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 1,900001,0,0,0,0,0.2: 'Left Mouse Button
    DATA 2,900002,0,0,0,0,0.2: 'Right Mouse Button
    DATA 3,900003,0,0,0,0,0.2: 'VK_Cancel
    DATA 4,900004,0,0,0,0,0.2: 'Middle Mouse Button
    DATA 5,900005,0,0,0,0,0.2: 'Mouse Button 4
    DATA 6,900006,0,0,0,0,0.2: 'Mouse Button 5
    DATA 7,900007,0,0,0,0,0.2: 'Undefined
    DATA 8,8,0,0,0,0,0.2: 'Backspace
    DATA 9,9,0,0,0,0,0.2: 'Tab
    DATA 10,900010,0,0,0,0,0.2: 'Reserved
    DATA 11,900011,0,0,0,0,0.2: 'Reserved
    DATA 12,19456,0,0,0,0,0.2: 'Clear
    DATA 13,13,0,0,0,0,0.2: 'Enter
    DATA 14,900014,0,0,0,0,0.2: 'Undefined
    DATA 15,900015,0,0,0,0,0.2: 'Undefined
    DATA 16,100016,0,0,0,0,-1: 'Shift (Notice I set it to simple toddle and report UP/DOWN results for us)
    DATA 17,100017,0,0,0,0,-1: 'Ctrl   (Same)
    DATA 18,100018,0,0,0,0,-1: 'Alt     (Same)
    DATA 19,100019,0,0,0,0,0.2: 'Pause
    DATA 20,100301,0,0,0,0,-1: 'Caps Lock
    DATA 21,900021,0,0,0,0,0.2: 'VK_Hangul
    DATA 22,900022,0,0,0,0,0.2: 'Undefined
    DATA 23,900023,0,0,0,0,0.2: 'VK_Junja
    DATA 24,900024,0,0,0,0,0.2: 'VK_Final
    DATA 25,900025,0,0,0,0,0.2: 'VK_Hanga//VK_Kanji
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 26,900026,0,0,0,0,0.2: 'Undefined
    DATA 27,27,0,0,0,0,0.2: 'ESC
    DATA 28,900028,0,0,0,0,0.2: 'VK_Convert
    DATA 29,900029,0,0,0,0,0.2: 'VK_NonConvert
    DATA 30,900030,0,0,0,0,0.2: 'VK_Accept
    DATA 31,900031,0,0,0,0,0.2: 'VK_ModeChange
    DATA 32,32,0,0,0,0,0.2: 'VK_Space
    DATA 33,18688,0,0,0,0,0.2: 'Page Up
    DATA 34,20736,0,0,0,0,0.2: 'Page Down
    DATA 35,20224,0,0,0,0,0.2: 'End
    DATA 36,18176,0,0,0,0,0.2: 'Home
    DATA 37,19200,0,0,0,0,0.2: 'Left Arrow
    DATA 38,18432,0,0,0,0,0.2: 'Up Arrow
    DATA 39,19712,0,0,0,0,0.2: 'Right Arrow
    DATA 40,20480,0,0,0,0,0.2: 'Down Arrow
    DATA 41,900041,0,0,0,0,-1: 'VK_SELECT
    DATA 42,900042,0,0,0,0,-1: 'CK_PRINT
    DATA 43,900043,0,0,0,0,-1: 'VK_EXECUTE
    DATA 44,900044,0,0,0,0,-1: 'VK_SNAPSHOT
    DATA 45,20992,0,0,0,0,0.2: 'INS
    DATA 46,21248,0,0,0,0,0.2: 'DEL
    DATA 47,900047,0,0,0,0,0.2: 'VK_HELP
    DATA 48,48,0,41,0,0,0.2: '0
    DATA 49,49,0,33,0,0,0.2: '1
    DATA 50,50,0,64,0,0,0.2: '2
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 51,51,0,35,0,0,0.2: '3
    DATA 52,52,0,36,0,0,0.2: '4
    DATA 53,53,0,37,0,0,0.2: '5
    DATA 54,54,0,94,0,0,0.2: '6
    DATA 55,55,0,38,0,0,0.2: '7
    DATA 56,56,0,42,0,0,0.2: '8
    DATA 57,57,0,40,0,0,0.2: '9
    DATA 58,900058,0,0,0,0,0.2: 'Undefined
    DATA 59,900059,0,0,0,0,0.2: 'Undefined
    DATA 60,900060,0,0,0,0,0.2: 'Undefined
    DATA 61,900061,0,0,0,0,0.2: 'Undefined
    DATA 62,900062,0,0,0,0,0.2: 'Undefined
    DATA 63,900063,0,0,0,0,0.2: 'Undefined
    DATA 64,900064,0,0,0,0,0.2: 'Undefined
    DATA 65,65,0,97,0,0,0.2: 'a
    DATA 66,66,0,98,0,0,0.2: 'b
    DATA 67,67,0,99,0,0,0.2: 'c
    DATA 68,68,0,100,0,0,0.2: 'd
    DATA 69,69,0,101,0,0,0.2: 'e
    DATA 70,70,0,102,0,0,0.2: 'f
    DATA 71,71,0,103,0,0,0.2: 'g
    DATA 72,72,0,104,0,0,0.2: 'h
    DATA 73,73,0,105,0,0,0.2: 'i
    DATA 74,74,0,106,0,0,0.2: 'j
    DATA 75,75,0,107,0,0,0.2: 'k
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 76,76,0,108,0,0,0.2: 'l
    DATA 77,77,0,109,0,0,0.2: 'm
    DATA 78,78,0,110,0,0,0.2: 'n
    DATA 79,79,0,111,0,0,0.2: 'o
    DATA 80,80,0,112,0,0,0.2: 'p
    DATA 81,81,0,113,0,0,0.2: 'q
    DATA 82,82,0,114,0,0,0.2: 'r
    DATA 83,83,0,115,0,0,0.2: 's
    DATA 84,84,0,116,0,0,0.2: 't
    DATA 85,85,0,117,0,0,0.2: 'u
    DATA 86,86,0,118,0,0,0.2: 'v
    DATA 87,87,0,119,0,0,0.2: 'w
    DATA 88,88,0,120,0,0,0.2: 'x
    DATA 89,89,0,121,0,0,0.2: 'y
    DATA 90,90,0,122,0,0,0.2: 'z
    DATA 91,100311,0,0,0,0,-1: 'Left WIN
    DATA 92,100312,0,0,0,0,-1: 'Right WIN
    DATA 93,100319,0,0,0,0,-1: 'Applications (Menu)
    DATA 94,900094,0,0,0,0,0.2: 'Reserved
    DATA 95,900095,0,0,0,0,0.2: 'VK_SLEEP
    DATA 96,48,0,0,0,0,0.2: 'Numpad 0
    DATA 97,49,0,0,0,0,0.2: 'Numpad 1
    DATA 98,50,0,0,0,0,0.2: 'Numpad 2
    DATA 99,51,0,0,0,0,0.2: 'Numpad 3
    DATA 100,52,0,0,0,0,0.2: 'Numpad 4
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 101,53,0,0,0,0,0.2: 'Numpad 5
    DATA 102,54,0,0,0,0,0.2: 'Numpad 6
    DATA 103,55,0,0,0,0,0.2: 'Numpad 7
    DATA 104,56,0,0,0,0,0.2: 'Numpad 8
    DATA 105,57,0,0,0,0,0.2: 'Numpad 9
    DATA 106,42,0,0,0,0,0.2: 'Numpad *
    DATA 107,43,0,0,0,0,0.2: 'Numpad +
    DATA 108,900108,0,0,0,0,0.2: 'VK_SEPARATOR
    DATA 109,51,0,0,0,0,0.2: 'Numpad -
    DATA 110,52,0,0,0,0,0.2: 'Numpad .
    DATA 111,53,0,0,0,0,0.2: 'Numpad /
    DATA 112,15104,0,0,0,0,0.2: 'F1
    DATA 113,15360,0,0,0,0,0.2: 'F2
    DATA 114,15616,0,0,0,0,0.2: 'F3
    DATA 115,15872,0,0,0,0,0.2: 'F4
    DATA 116,16128,0,0,0,0,0.2: 'F5            /
    DATA 117,16384,0,0,0,0,0.2: 'F6
    DATA 118,16640,0,0,0,0,0.2: 'F7
    DATA 119,16896,0,0,0,0,0.2: 'F8
    DATA 120,17152,0,0,0,0,0.2: 'F9
    DATA 121,17408,0,0,0,0,0.2: 'F10
    DATA 122,34048,0,0,0,0,0.2: 'F11
    DATA 123,34304,0,0,0,0,0.2: 'F12
    DATA 124,900124,0,0,0,0,0.2: 'F13
    DATA 125,900125,0,0,0,0,0.2: 'F14
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 126,900126,0,0,0,0,0.2: 'F15
    DATA 127,900127,0,0,0,0,0.2: 'F16
    DATA 128,900128,0,0,0,0,0.2: 'F17
    DATA 129,900129,0,0,0,0,0.2: 'F18
    DATA 130,900130,0,0,0,0,0.2: 'F19
    DATA 131,900131,0,0,0,0,0.2: 'F20
    DATA 132,900132,0,0,0,0,0.2: 'F21
    DATA 133,900133,0,0,0,0,0.2: 'F22
    DATA 134,900134,0,0,0,0,0.2: 'F23
    DATA 135,900135,0,0,0,0,0.2: 'F24
    DATA 136,900136,0,0,0,0,0.2: 'Unassigned
    DATA 137,900137,0,0,0,0,0.2: 'Unassigned
    DATA 138,900138,0,0,0,0,0.2: 'Unassigned
    DATA 139,900139,0,0,0,0,0.2: 'Unassigned
    DATA 140,900140,0,0,0,0,0.2: 'Unassigned
    DATA 141,900141,0,0,0,0,0.2: 'Unassigned
    DATA 142,900142,0,0,0,0,0.2: 'Unassigned
    DATA 143,900143,0,0,0,0,0.2: 'Unassigned
    DATA 144,100300,0,0,0,0,-1: 'NUM LOCK
    DATA 145,100302,0,0,0,0,-1: 'SCROLL LOCK
    DATA 146,900146,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 147,900147,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 148,900148,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 149,900149,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 150,900150,0,0,0,0,0.2: 'OEM SPECIFIC
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 151,900151,0,0,0,0,0.2: 'Unassigned
    DATA 152,900152,0,0,0,0,0.2: 'Unassigned
    DATA 153,900153,0,0,0,0,0.2: 'Unassigned
    DATA 154,900154,0,0,0,0,0.2: 'Unassigned
    DATA 155,900155,0,0,0,0,0.2: 'Unassigned
    DATA 156,900156,0,0,0,0,0.2: 'Unassigned
    DATA 157,900157,0,0,0,0,0.2: 'Unassigned
    DATA 158,900158,0,0,0,0,0.2: 'Unassigned
    DATA 159,900159,0,0,0,0,0.2: 'Unassigned
    DATA 160,100304,0,0,0,0,-1: 'Left Shift
    DATA 161,100303,0,0,0,0,-1: 'Right Shift
    DATA 162,100306,0,0,0,0,-1: 'Left Control
    DATA 163,100305,0,0,0,0,-1: 'Right Control
    DATA 164,100308,0,0,0,0,-1: 'Left Alt
    DATA 165,100309,0,0,0,0,-1: 'Right Alt
    DATA 166,900166,0,0,0,0,0.2: 'Browser back
    DATA 167,900167,0,0,0,0,0.2: 'Browser forward
    DATA 168,900168,0,0,0,0,0.2: 'Browser refresh
    DATA 169,900169,0,0,0,0,0.2: 'Browser stop
    DATA 170,900170,0,0,0,0,0.2: 'Browser search
    DATA 171,900171,0,0,0,0,0.2: 'Browser favorites
    DATA 172,900172,0,0,0,0,0.2: 'Browser home
    DATA 173,900173,0,0,0,0,0.2: 'Mute
    DATA 174,900174,0,0,0,0,0.2: 'Vol Down
    DATA 175,900175,0,0,0,0,0.2: 'Vol Up
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 176,900176,0,0,0,0,0.2: 'Media Next
    DATA 177,900177,0,0,0,0,0.2: 'Media prev
    DATA 178,900178,0,0,0,0,0.2: 'Media stop
    DATA 179,900179,0,0,0,0,0.2: 'Media Play/Pause
    DATA 180,900180,0,0,0,0,0.2: 'Launch mail
    DATA 181,900181,0,0,0,0,0.2: 'Launch media select
    DATA 182,900182,0,0,0,0,0.2: 'Launch app1
    DATA 183,900183,0,0,0,0,0.2: 'Launch app2
    DATA 184,900184,0,0,0,0,0.2: 'Reserved
    DATA 185,900185,0,0,0,0,0.2: 'Reserved
    DATA 186,59,0,58,0,0,0.2: ';:
    DATA 187,61,0,43,0,0,0.2: '=+
    DATA 188,44,0,60,0,0,0.2: ',<
    DATA 189,45,0,95,0,0,0.2: '-_
    DATA 190,46,0,62,0,0,0.2: '.>
    DATA 191,47,0,63,0,0,0.2: '/?
    DATA 192,96,0,126,0,0,0.2: '`~
    DATA 193,900193,0,0,0,0,0.2: 'Reserved
    DATA 194,900194,0,0,0,0,0.2: 'Reserved
    DATA 195,900195,0,0,0,0,0.2: 'Reserved
    DATA 196,900196,0,0,0,0,0.2: 'Reserved
    DATA 197,900197,0,0,0,0,0.2: 'Reserved
    DATA 198,900198,0,0,0,0,0.2: 'Reserved
    DATA 199,900199,0,0,0,0,0.2: 'Reserved
    DATA 200,900200,0,0,0,0,0.2: 'Reserved
    '   Index   Unmodified      Ctrl      Shift       Alt         AltGr     Repeat
    DATA 201,900201,0,0,0,0,0.2: 'Reserved
    DATA 202,900202,0,0,0,0,0.2: 'Reserved
    DATA 203,900203,0,0,0,0,0.2: 'Reserved
    DATA 204,900204,0,0,0,0,0.2: 'Reserved
    DATA 205,900205,0,0,0,0,0.2: 'Reserved
    DATA 206,900206,0,0,0,0,0.2: 'Reserved
    DATA 207,900207,0,0,0,0,0.2: 'Reserved
    DATA 208,900208,0,0,0,0,0.2: 'Reserved
    DATA 209,900209,0,0,0,0,0.2: 'Reserved
    DATA 210,900210,0,0,0,0,0.2: 'Reserved
    DATA 211,900211,0,0,0,0,0.2: 'Reserved
    DATA 212,900212,0,0,0,0,0.2: 'Reserved
    DATA 213,900213,0,0,0,0,0.2: 'Reserved
    DATA 214,900214,0,0,0,0,0.2: 'Reserved
    DATA 215,900215,0,0,0,0,0.2: 'Reserved
    DATA 216,900216,0,0,0,0,0.2: 'Unassigned
    DATA 217,900217,0,0,0,0,0.2: 'Unassigned
    DATA 218,900218,0,0,0,0,0.2: 'Unassigned
    DATA 219,91,0,123,0,0,0.2: '[{
    DATA 220,92,0,124,0,0,0.2: '\|
    DATA 221,93,0,125,0,0,0.2: ']}
    DATA 222,39,0,34,0,0,0.2: ''"
    DATA 223,900223,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 224,900224,0,0,0,0,0.2: 'Reserved
    DATA 225,900225,0,0,0,0,0.2: 'OEM SPECIFIC d
    DATA 226,900226,0,0,0,0,0.2: 'Either the Angle Bracket key,or Backslash on RT 102-key keyboard
    DATA 227,900227,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 228,900228,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 229,900229,0,0,0,0,0.2: 'IME PROCESS key (whatever that is)
    DATA 230,900230,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 231,900231,0,0,0,0,0.2: 'Used to pass UNICODE characters (however that works)
    DATA 232,900232,0,0,0,0,0.2: 'Unassigned
    DATA 233,900233,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 234,900234,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 235,900235,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 236,900236,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 237,900237,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 238,900238,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 239,900239,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 240,900240,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 241,900241,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 242,900242,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 243,900243,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 244,900244,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 245,900245,0,0,0,0,0.2: 'OEM SPECIFIC
    DATA 246,900246,0,0,0,0,0.2: 'VK_ATTN
    DATA 247,900247,0,0,0,0,0.2: 'VK_ATTN
    DATA 248,900248,0,0,0,0,0.2: 'VK_ATTN
    DATA 249,900249,0,0,0,0,0.2: 'VK_ATTN
    DATA 250,900250,0,0,0,0,0.2: 'VK_ATTN
    DATA 251,900251,0,0,0,0,0.2: 'VK_ATTN
    DATA 252,900252,0,0,0,0,0.2: 'Reserved
    DATA 253,900253,0,0,0,0,0.2: 'VK_PA1
    DATA 254,900253,0,0,0,0,0.2: 'VK_OEM_CLEAR
    DATA 0,0,0,0,0,0,0.2: 'END OF DATA
    AltGr(0) = 165
    AltGr(1) = 0
 
    SELECT CASE Language
        CASE "DE"
            RESTORE Microsoft_windows_cp1250
            FOR i = 128 TO 255
                READ unicode
                _MAPUNICODE unicode TO ASCIIcode
            NEXT
            Microsoft_windows_cp1250:
            DATA 8364,0,8218,0,8222,8230,8224,8225,0,8240,352,8249,346,356,381,377
            DATA 0,8216,8217,8220,8221,8226,8211,8212,0,8482,353,8250,347,357,382,378
            DATA 160,711,728,321,164,260,166,167,168,169,350,171,172,173,174,379
            DATA 176,177,731,322,180,181,182,183,184,261,351,187,317,733,318,380
            DATA 340,193,194,258,196,313,262,199,268,201,280,203,282,205,206,270
            DATA 272,323,327,211,212,336,214,215,344,366,218,368,220,221,354,223
            DATA 341,225,226,259,228,314,263,231,269,233,281,235,283,237,238,271
            DATA 273,324,328,243,244,337,246,247,345,367,250,369,252,253,355,729
            'Remap_KeyCode (Which, ASCII, Ctrl , Shift, Alt, AltGr, Repeat AS _FLOAT)
            Remap_KeyCode 226, 60, 0, 62, 124, 92, 0.2 '<>|
            Remap_KeyCode 219, 225, 0, 63, 0, 0, 0.2 '-
            Remap_KeyCode 48, 48, 0, 61, 0, 125, 0.2 '0
            Remap_KeyCode 192, 148, 0, 153, 0, 0, 0.2
            Remap_KeyCode 222, 132, 0, 142, 0, 0, 0.2
            Remap_KeyCode 50, 50, 0, 34, 0, 253, 0.2: '2 .. I don't see a superscript 3 for AltGr codes for the 3 key.
            Remap_KeyCode 51, 51, 0, 35, 0, 0, 0.2: '3 ..I don't see the squiggle for this in the ASCII code.  It needs to be changed, but I dunno with what.
            Remap_KeyCode 54, 54, 0, 38, 0, 0, 0.2: '6
            Remap_KeyCode 55, 55, 0, 47, 0, 123, 0.2: '7
            Remap_KeyCode 56, 56, 0, 40, 0, 91, 0.2: '8
            Remap_KeyCode 57, 57, 0, 41, 0, 93, 0.2: '9
            Remap_KeyCode 186, 129, 0, 154, 0, 0, 0.2: ';:
            Remap_KeyCode 187, 43, 0, 42, 0, 126, 0.2: '=+
            Remap_KeyCode 191, 35, 0, 249, 0, 0, 0.2: '/?
            Remap_KeyCode 81, 81, 0, 113, 0, 64, 0.2: 'q
            Remap_KeyCode 69, 69, 0, 101, 0, 238, 0.2: 'e
            Remap_KeyCode 77, 77, 0, 109, 0, 0, 0.2: 'm -- again, I failed to find the goofy u which AltGr produces in the 256 ASCII set
 
        CASE "WE"
            RESTORE Microsoft_windows_cp1252
            FOR i = 128 TO 255
                READ unicode
                _MAPUNICODE unicode TO ASCIIcode
            NEXT
 
            Microsoft_windows_cp1252:
            DATA 8364,0,8218,402,8222,8230,8224,8225,710,8240,352,8249,338,0,381,0
            DATA 0,8216,8217,8220,8221,8226,8211,8212,732,8482,353,8250,339,0,382,376
            DATA 160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175
            DATA 176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191
            DATA 192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207
            DATA 208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223
            DATA 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239
            DATA 240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255
 
 
            'remap_KeyCode (Which, ASCII, Ctrl , Shift, Alt, AltGr, Repeat AS _FLOAT)
            Remap_KeyCode 188, 44, 0, 59, 0, 0, 0.2: ',;
            Remap_KeyCode 190, 46, 0, 58, 0, 0, 0.2: '.:
            Remap_KeyCode 50, 50, 0, 34, 0, 0, 0.2: '2 "
            Remap_KeyCode 51, 51, 0, 156, 0, 0, 0.2: '3 œ
            Remap_KeyCode 191, 151, 0, 21, 0, 0, 0.2: '£ 
            Remap_KeyCode 222, 133, 0, 248, 0, 35, 0.2: '… ø#
            Remap_KeyCode 192, 149, 0, 128, 0, 64, 0.2: '• € @
            Remap_KeyCode 186, 138, 0, 130, 0, 91, 0.2 'Š ‚ [
            Remap_KeyCode 187, 43, 0, 42, 0, 93, 0.2 ' + * ]
            Remap_KeyCode 54, 54, 0, 38, 0, 0, 0.2 '6 &
            Remap_KeyCode 55, 55, 0, 47, 0, 0, 0.2 '7 /
            Remap_KeyCode 56, 56, 0, 40, 0, 0, 0.2 '8(
            Remap_KeyCode 57, 57, 0, 41, 0, 0, 0.2 '9 )
            Remap_KeyCode 48, 48, 0, 61, 0, 0, 0.2 '0 =
            Remap_KeyCode 219, 39, 0, 63, 0, 0, 0.2 ' ' ?
            Remap_KeyCode 221, 141, 0, 94, 0, 0, 0.2 ' ^
            Remap_KeyCode 226, 60, 0, 62, 0, 0, 0.2 '< >
 
        CASE "IT"
 
            RESTORE ASCII_cp850
            FOR i = 128 TO 255
                READ unicode
                _MAPUNICODE unicode TO ASCIIcode
            NEXT
 
            ASCII_cp850:
            DATA 199,252,233,226,228,224,229,231,234,235,232,239,238,236,196,197
            DATA 201,230,198,244,246,242,251,249,255,214,220,248,163,216,215,402
            DATA 225,237,243,250,241,209,170,186,191,174,172,189,188,161,171,187
            DATA 9617,9618,9619,9474,9508,193,194,192,169,9571,9553,9559,9565,162,165,9488
            DATA 9492,9524,9516,9500,9472,9532,227,195,9562,9556,9577,9574,9568,9552,9580,164
            DATA 240,208,202,203,200,305,205,206,207,9496,9484,9608,9604,166,204,9600
            DATA 211,223,212,210,245,213,181,254,222,218,219,217,253,221,175,180
            DATA 173,177,8215,190,182,167,247,184,176,168,183,185,179,178,9632,160
 
            'remap_KeyCode (Which, ASCII, Ctrl , Shift, Alt, AltGr, Repeat AS _FLOAT)
            Remap_KeyCode 188, 44, 0, 59, 0, 0, 0.2: ',;
            Remap_KeyCode 190, 46, 0, 58, 0, 0, 0.2: '.:
            Remap_KeyCode 50, 50, 0, 34, 0, 0, 0.2: '2 "
            Remap_KeyCode 51, 51, 0, 156, 0, 0, 0.2: '3 œ
            Remap_KeyCode 191, 151, 0, 21, 0, 0, 0.2: '£ 
            Remap_KeyCode 222, 133, 0, 248, 0, 35, 0.2: '… ø#
            Remap_KeyCode 192, 149, 0, 128, 0, 64, 0.2: '• € @
            Remap_KeyCode 186, 138, 0, 130, 0, 91, 0.2 'Š ‚ [
            Remap_KeyCode 187, 43, 0, 42, 0, 93, 0.2 ' + * ]
            Remap_KeyCode 54, 54, 0, 38, 0, 0, 0.2 '6 &
            Remap_KeyCode 55, 55, 0, 47, 0, 0, 0.2 '7 /
            Remap_KeyCode 56, 56, 0, 40, 0, 0, 0.2 '8(
            Remap_KeyCode 57, 57, 0, 41, 0, 0, 0.2 '9 )
            Remap_KeyCode 48, 48, 0, 61, 0, 0, 0.2 '0 =
            Remap_KeyCode 219, 39, 0, 63, 0, 0, 0.2 ' ' ?
            Remap_KeyCode 221, 141, 0, 94, 0, 0, 0.2 ' ^
            Remap_KeyCode 226, 60, 0, 62, 0, 0, 0.2 '< >
    END SELECT
END SUB
 

Please substitutes this SUB in the original posted by Steve and try if your keyboard layout works fine.
On my notebook using original keyboard and USB keyboard it is ok!

Title: Re: Programmable Keyboard Input
Post by: moises1953 on June 06, 2020, 02:42:28 am

The GetKeystate function extract messages from the queue, but may be that processing the message queue is a better solution, including the traslating. See here:

https://docs.microsoft.com/en-us/windows/win32/inputdev/using-keyboard-input

Quote

MSG msg;
BOOL bRet;

while (( bRet = GetMessage(&msg, (HWND) NULL, 0, 0)) != 0)
{
if (bRet == -1);
{
// handle the error and possibly exit
}
else
{
if (TranslateAccelerator(hwndMain, haccl, &msg) == 0)
{
TranslateMessage(&msg);
DispatchMessage(&msg);
}
}
}

Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SMcNeill on December 29, 2019, 12:06:32 am