_VK_NUMPAD

[Walt Decker]

_VK_NUMPAD appears to be failing on the odd numbers with "when characterInput".

EDIT:  I was in a slight rush (and had one of those senior moments) when I posted this so a little more explanation is in order. Unless the NUMLOCK key is pressed, the LB Inkey$ function should not work at all when a number on the number pad is pressed, but it does and interprets the odd numbers as something different. The even numbers it interprets as arrow keys, hence there is no additional choice for the even numbers.

'
FUNCTION FN.RightChar(Key$, BYREF NewPosX, BYREF NewPosY)

DQ$ = CHR$(34)

NewPosX = 0
NewPosY = 0
Action  = 0

Char$ = RIGHT$(Key$, 1)

SELECT CASE Char$
 CASE Chr$(_VK_LEFT)
   NewPosX = -1
   Action = 1
 CASE Chr$(_VK_RIGHT)
   NewPosX = 1
   Action = 1
 CASE Chr$(_VK_DOWN)
   NewPosY = 1
   Action = 1
 CASE Chr$(_VK_UP)
   NewPosY = -1
   Action = 1
 CASE Chr$(_VK_UP)
   NewPosY = -1
   Action = 1
 CASE Chr$(_VK_NUMPAD1), "#"
   NewPosX = -1
   NewPosY = 1
   Action = 1
 CASE Chr$(_VK_NUMPAD4)
   NewPosX = -1
   Action = 1
 CASE Chr$(_VK_NUMPAD7), "$"
   NewPosX = -1
   NewPosY = -1
   Action = 1
 CASE Chr$(_VK_NUMPAD8)
   NewPosY = 1
   Action = 1
 CASE Chr$(_VK_NUMPAD9), "!"
   NewPosX = 1
   NewPosY = -1
   Action = 1
 CASE Chr$(_VK_NUMPAD6)
   NewPosX = 1
   Action = 1
 CASE Chr$(_VK_NUMPAD3), DQ$
   NewPosX = 1
   NewPosY = 1
   Action = 1
 CASE Chr$(_VK_NUMPAD2)
   NewPosY = 1
   Action = 1
END SELECT

FN.RightChar = Action
END FUNCTION
'

[tsh73]

so
I fire this program

 'INKEY.BAS  - how to use the Inkey$ variable

 open "Inkey$ example" for graphics as #graph
 print #graph, "when characterInput [fetch]"

[mainLoop]
 print #graph, "setfocus"
 input r$

[fetch]  'a character was typed!

 key$ = Inkey$
 print len(  key$), asc(left$(  key$,1)), asc(mid$(  key$,2,1))


 goto [mainLoop]


and pressed numpad keys, with and without NUM LOCK
Without I just got single byte with digit code
?1            48            0
?1            49            0
?1            50            0
?1            51            0
?1            52            0
?1            53            0
?1            54            0
?1            55            0
?1            56            0
?1            57            0

with - two bytes, first byte 0, looks like same codes as arrows/Home/pgUp/End etc
?2            0             45
?2            0             35
?2            0             40
?2            0             34
?2            0             37
?2            0             12
?2            0             39
?2            0             36
?2            0             38
?2            0             33


But with both scenarios I got nothing similar to
print _VK_NUMPAD0
print _VK_NUMPAD1
print _VK_NUMPAD2
print _VK_NUMPAD3
print _VK_NUMPAD4
print _VK_NUMPAD5
print _VK_NUMPAD6
print _VK_NUMPAD7
print _VK_NUMPAD8
print _VK_NUMPAD9

(numbers from 96 to 105)

Looks like _VK_NUMPAD# just doesn't relate to LB INKEY$, at all.
(probably could be used for some API keyboard reading)

[Rod]

Liberty only knows a certain number of virtual key codes. So some need literal values rather than _virtualpointers

[Walt Decker]

Works on my computer. Try the code in the last post in "Share Your Snippets (Function) III"

[tsh73]

If I leave only _VK_NUMPAD# and make NumLock off
- it just doesn't work, prints 0 0 all the time
SELECT CASE Char$
 CASE Chr$(_VK_NUMPAD1)
   NewPosX = -1
   NewPosY = 1
   Action = 1
 CASE Chr$(_VK_NUMPAD4)
   NewPosX = -1
   Action = 1
 CASE Chr$(_VK_NUMPAD7)
   NewPosX = -1
   NewPosY = -1
   Action = 1
 CASE Chr$(_VK_NUMPAD8)
   NewPosY = 1
   Action = 1
 CASE Chr$(_VK_NUMPAD9)
   NewPosX = 1
   NewPosY = -1
   Action = 1
 CASE Chr$(_VK_NUMPAD6)
   NewPosX = 1
   Action = 1
 CASE Chr$(_VK_NUMPAD3)
   NewPosX = 1
   NewPosY = 1
   Action = 1
 CASE Chr$(_VK_NUMPAD2)
   NewPosY = 1
   Action = 1
END SELECT



[tsh73]

For me it happens that these codes work for GetAsyncKeyState with NumLock ON.
while 1
   scan
    if GetAsyncKeyState(_VK_NUMPAD0) then print "_VK_NUMPAD0"
    if GetAsyncKeyState(_VK_NUMPAD1) then print "_VK_NUMPAD1"
    if GetAsyncKeyState(_VK_NUMPAD2) then print "_VK_NUMPAD2"
    if GetAsyncKeyState(_VK_NUMPAD3) then print "_VK_NUMPAD3"
    if GetAsyncKeyState(_VK_NUMPAD4) then print "_VK_NUMPAD4"
    if GetAsyncKeyState(_VK_NUMPAD5) then print "_VK_NUMPAD5"
    if GetAsyncKeyState(_VK_NUMPAD6) then print "_VK_NUMPAD6"
    if GetAsyncKeyState(_VK_NUMPAD7) then print "_VK_NUMPAD7"
    if GetAsyncKeyState(_VK_NUMPAD8) then print "_VK_NUMPAD8"
    if GetAsyncKeyState(_VK_NUMPAD9) then print "_VK_NUMPAD9"
wend
end

function GetAsyncKeyState(key)
   calldll #user32, "GetAsyncKeyState",key as long,GetAsyncKeyState as long
   if GetAsyncKeyState<>0 then GetAsyncKeyState=1
end function