Author Topic: Programmable Keyboard Input (Read 4573 times)

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.)

SMcNeill · « **Reply #1 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. :)

TempodiBasic · « **Reply #2 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.

SMcNeill · « **Reply #3 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. ;)

RhoSigma · « **Reply #4 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)

SMcNeill · « **Reply #5 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. ;)

TempodiBasic · « **Reply #6 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

SMcNeill · « **Reply #7 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. ;)

SMcNeill · « **Reply #8 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. ;)

RhoSigma · « **Reply #9 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...

TempodiBasic · « **Reply #10 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.

SMcNeill · « **Reply #11 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...

SMcNeill · « **Reply #12 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. ;)

RhoSigma · « **Reply #13 on:** December 30, 2019, 11:19:53 am »

Works perfect :)

Thanks

RhoSigma · « **Reply #14 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
 
 

News:

Author Topic: Programmable Keyboard Input (Read 4573 times)

SMcNeill

Programmable Keyboard Input

SMcNeill

Re: Programmable Keyboard Input

TempodiBasic

Re: Programmable Keyboard Input

SMcNeill

Re: Programmable Keyboard Input

RhoSigma

Re: Programmable Keyboard Input

SMcNeill

Re: Programmable Keyboard Input

TempodiBasic

Re: Programmable Keyboard Input

SMcNeill

Re: Programmable Keyboard Input

SMcNeill

Re: Programmable Keyboard Input

RhoSigma

Re: Programmable Keyboard Input

TempodiBasic

Re: Programmable Keyboard Input

SMcNeill

Re: Programmable Keyboard Input

SMcNeill

Re: Programmable Keyboard Input

RhoSigma

Re: Programmable Keyboard Input

RhoSigma

Re: Programmable Keyboard Input