BMax Keyboard Checking

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|42\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz Max -> BMax Keyboard Checking
Sat, 09 Jan 2010, 05:01
Jayenkai	God damnit, they had to screw up my lovely scancode list, didn't they!! sigh OK, if you have BlitzMax running, start a new test proggy, add a little loop with this in it so you can test each key.. a=getkey() if a>0 then return a+":"+KeyName(a) --v And then lob these functions down the bottom. Function KeyName$(n) Select n Case KEY_BACKSPACE Return "Backspace" Case KEY_TAB Return "Tab" Case KEY_CLEAR Return "Clear" Case KEY_RETURN Return "Return" Case KEY_ENTER Return "Enter" Case KEY_PAUSE Return "Pause" Case KEY_ESCAPE Return "Escape" Case KEY_SPACE Return "Space" Case KEY_PAGEUP Return "Page Up" Case KEY_PAGEDOWN Return "Page Down" Case KEY_END Return "End" Case KEY_HOME Return "Home" Case KEY_LEFT Return "Left" Case KEY_UP Return "Up" Case KEY_RIGHT Return "Right" Case KEY_DOWN Return "Down" Case KEY_SELECT Return "Select" Case KEY_PRINT Return "Print" Case KEY_EXECUTE Return "Execute" Case KEY_SCREEN Return "Screen" Case KEY_INSERT Return "Insert" Case KEY_DELETE Return "Delete" Case KEY_HELP Return "Help" Case KEY_0 Return "0" Case KEY_1 Return "1" Case KEY_2 Return "2" Case KEY_3 Return "3" Case KEY_4 Return "4" Case KEY_5 Return "5" Case KEY_6 Return "6" Case KEY_7 Return "7" Case KEY_8 Return "8" Case KEY_9 Return "9" Case KEY_A Return "A" Case KEY_B Return "B" Case KEY_C Return "C" Case KEY_D Return "D" Case KEY_E Return "E" Case KEY_F Return "F" Case KEY_G Return "G" Case KEY_H Return "H" Case KEY_I Return "I" Case KEY_J Return "J" Case KEY_K Return "K" Case KEY_L Return "L" Case KEY_M Return "M" Case KEY_N Return "N" Case KEY_O Return "O" Case KEY_P Return "P" Case KEY_Q Return "Q" Case KEY_R Return "R" Case KEY_S Return "S" Case KEY_T Return "T" Case KEY_U Return "U" Case KEY_V Return "V" Case KEY_W Return "W" Case KEY_X Return "X" Case KEY_Y Return "Y" Case KEY_Z Return "Z" Case KEY_LSYS Return "Sys Left" Case KEY_RSYS Return "Sys Right" Case KEY_NUM0 Return "0" Case KEY_NUM1 Return "1" Case KEY_NUM2 Return "2" Case KEY_NUM3 Return "3" Case KEY_NUM4 Return "4" Case KEY_NUM5 Return "5" Case KEY_NUM6 Return "6" Case KEY_NUM7 Return "7" Case KEY_NUM8 Return "8" Case KEY_NUM9 Return "9" Case KEY_NUMMULTIPLY Return "*" Case KEY_NUMADD Return "+" Case KEY_NUMSUBTRACT Return "-" Case KEY_NUMDECIMAL Return "." Case KEY_NUMDIVIDE Return "/" Case KEY_F1 Return "F1" Case KEY_F2 Return "F2" Case KEY_F3 Return "F3" Case KEY_F4 Return "F4" Case KEY_F5 Return "F5" Case KEY_F6 Return "F6" Case KEY_F7 Return "F7" Case KEY_F8 Return "F8" Case KEY_F9 Return "F9" Case KEY_F10 Return "F10" Case KEY_F11 Return "F11" Case KEY_F12 Return "F12" Case KEY_NUMLOCK Return "NumLock" Case KEY_SCROLL Return "ScrollLock" Case KEY_LSHIFT Return "LShift" Case KEY_RSHIFT Return "RShift" Case KEY_LCONTROL Return "LControl" Case KEY_RCONTROL Return "RControl" Case KEY_LALT Return "LAlt" Case KEY_RALT Return "RAlt" Case KEY_TILDE Return "'" Case KEY_MINUS Return "-" Case KEY_EQUALS Return "=" Case KEY_OPENBRACKET Return "[" Case KEY_CLOSEBRACKET Return "]" Case KEY_BACKSLASH Return "\" Case KEY_SEMICOLON Return ";" Case KEY_QUOTES Return "#" Case KEY_COMMA Return "," Case KEY_PERIOD Return "." Case KEY_SLASH Return "/" ' Additional stuff because this list missed some keys. Case 145 Return "ScrollLock" 'Shrugs Case 144 Return "NumLock" 'Shrugs 2 Case 19 Return "Pause" Case 223 Return "`" Case 220 Return "\" Case 20 Return "CapsLock" ' Multimedia Keys Case 173 Return "Mute" Case 174 Return "Volume Down" Case 175 Return "Volume Up" ' FFS no distinguishing between Return and Enter ' THANKS FOR THAT!! FFS.. End Select End Function Function GetKey() For n=1 To 255 If KeyDown(n) Then Return n Next End Function --v Give it all a whirl, and let me know if it's missing anything important, along with the names and numbers of those keys. Thanks all. Note : I'm 100% expecting the "Not letters and numbers" keys to be all out of order, because a few of them already are, on my keyboard!! -=-=- ''Load, Next List!''
Tue, 12 Jan 2010, 02:39
Afr0	FFS, use BlitzMax as it's supposed to be used instead of trying to make it into something it's not!! -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Tue, 12 Jan 2010, 04:31
Jayenkai	Some people prefer to learn things.
Tue, 12 Jan 2010, 04:47
Afr0	This is not an effective way to learn BlitzMax. You're trying to recreate Blitz/Blitz3D in BlitzMax, based on what you already know. It'll make programming in BlitzMax slow and cumbersome, and in the end will not allow you to learn the language effectively (if at all). -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Tue, 12 Jan 2010, 05:05
Jayenkai	No, I'm trying to get good redefinable keys, whilst returning a value that I can use to draw different images with text overlays for the illustrations of what keys the player has set for their controls. It'd be a total bitch if you had.. "If Player1Up = Key_Up and KeyDown(Key_Up) then Move player 1 up." and then repeated that for every key, every player and every direction. What I've done is referenced everything by a number, so I can shove the numbers in an array, return a name for the screen, and use the number for that teensy tiny itty bitty little function at the bottom of the code. I'd like to know if the button names are accurate on other systems, but no buggers helping me as usual. -=-=- ''Load, Next List!''
Tue, 12 Jan 2010, 05:25
Afr0	I don't see why the button names wouldn't be valid on other systems, save for Macs. At least throw the functions in a class, and make GetKey() work on an internal array... -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Tue, 12 Jan 2010, 05:55
JL235	If supply a compiled version of the programs with output then I'd imagine you'll get more people testing. Not everyone has BMax installed, that's the reason why I'm not testing it. Are those KEY constants definined by you or BMax? If it's BMax then I'd presume they are right and just move on.
Tue, 12 Jan 2010, 05:59
Jayenkai	Except that on my keyboard, Tilde and Quotes are already wrong, and mine's just English. I can only imagine things getting worse from there on in. And, I can't really do a compiled version for.. let's say Mac, because.. I ain't got one! -=-=- ''Load, Next List!''
Tue, 12 Jan 2010, 06:01
JL235	You could ask Cower to build a copy for you. He has BMax and a Mac!