Code archives/User Input/Keycode scanning...
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
| Some code for dealing with keycode scanning from ELAGUI... This should help with getting keyboard input from the user, it deals with second and third key functions, as well as key delay and next key delay... You can get the key id from the structure elaKeyCode\typeid and use this to incorporate delete/home/end/insert, etc.. | |||||
Graphics 640,480,16
SetBuffer BackBuffer()
;Include "ELAKeyCodeSource.bb" ; Dont forget to include :)
; ////- START INCLUDE -////
;------------------------------------
;
; Elaee Graphical User Interface KeyCode Module: Written By Robert Hutchinson 2000-2001.
; Copyright Robert Hutchinson 2000-2001.
;
; REQUIRES BLITZ BASIC VERSION 1.44 OR HIGHER!
; ELAGUI VERSION: 0.71
;
; Ah, full version due for release later!..
;
; +---------------------------------------------------------------------------------------------+
; ¦ SCANCODE CORE - Codes for keypresses. ¦
; +---------------------------------------------------------------------------------------------+
Const ELA_SCANCODE_TYPEID_ESCAPE = 1
Const ELA_SCANCODE_TYPEID_BACKSPACE = 2
Const ELA_SCANCODE_TYPEID_TAB = 3
Const ELA_SCANCODE_TYPEID_RETURN = 4
Const ELA_SCANCODE_TYPEID_LCTRL = 5
Const ELA_SCANCODE_TYPEID_RCTRL = 6
Const ELA_SCANCODE_TYPEID_LSHIFT = 7
Const ELA_SCANCODE_TYPEID_RSHIFT = 8
Const ELA_SCANCODE_TYPEID_LALT = 9
Const ELA_SCANCODE_TYPEID_LWINKEY = 10
Const ELA_SCANCODE_TYPEID_NUMLOCK = 11
Const ELA_SCANCODE_TYPEID_CAPSLOCK = 12
Const ELA_SCANCODE_TYPEID_SCROLLLOCK = 13
Const ELA_SCANCODE_TYPEID_LMENU = 15
Const ELA_SCANCODE_TYPEID_F1 = 16
Const ELA_SCANCODE_TYPEID_F2 = 17
Const ELA_SCANCODE_TYPEID_F3 = 18
Const ELA_SCANCODE_TYPEID_F4 = 19
Const ELA_SCANCODE_TYPEID_F5 = 20
Const ELA_SCANCODE_TYPEID_F6 = 21
Const ELA_SCANCODE_TYPEID_F7 = 22
Const ELA_SCANCODE_TYPEID_F8 = 23
Const ELA_SCANCODE_TYPEID_F9 = 24
Const ELA_SCANCODE_TYPEID_F10 = 25
Const ELA_SCANCODE_TYPEID_F11 = 26
Const ELA_SCANCODE_TYPEID_F12 = 27
Const ELA_SCANCODE_TYPEID_F13 = 28
Const ELA_SCANCODE_TYPEID_F14 = 29
Const ELA_SCANCODE_TYPEID_F15 = 30
Const ELA_SCANCODE_TYPEID_KANA = 40
Const ELA_SCANCODE_TYPEID_ABNT_C1 = 41
Const ELA_SCANCODE_TYPEID_CONVERT = 42
Const ELA_SCANCODE_TYPEID_NOCONVERT = 43
Const ELA_SCANCODE_TYPEID_YEN = 44
Const ELA_SCANCODE_TYPEID_ABNT_C2 = 45
Const ELA_SCANCODE_TYPEID_NUMPADEQUALS = 46
Const ELA_SCANCODE_TYPEID_PREVTRACK = 47
Const ELA_SCANCODE_TYPEID_AT = 48
Const ELA_SCANCODE_TYPEID_COLON = 49
Const ELA_SCANCODE_TYPEID_UNDERLINE = 50
Const ELA_SCANCODE_TYPEID_KANJI = 51
Const ELA_SCANCODE_TYPEID_STOP = 52
Const ELA_SCANCODE_TYPEID_AX = 53
Const ELA_SCANCODE_TYPEID_UNLABELED = 54
Const ELA_SCANCODE_TYPEID_NEXTTRACK = 55
Const ELA_SCANCODE_TYPEID_NUMPADENTER = 56
Const ELA_SCANCODE_TYPEID_MUTE = 58
Const ELA_SCANCODE_TYPEID_CALCULATOR = 59
Const ELA_SCANCODE_TYPEID_PLAYPAUSE = 60
Const ELA_SCANCODE_TYPEID_MEDIASTOP = 61
Const ELA_SCANCODE_TYPEID_VOLUMEDOWN = 62
Const ELA_SCANCODE_TYPEID_VOLUMEUP = 63
Const ELA_SCANCODE_TYPEID_WEBHOME = 64
Const ELA_SCANCODE_TYPEID_NUMPADCOMMA = 65
Const ELA_SCANCODE_TYPEID_DIVIDE = 66
Const ELA_SCANCODE_TYPEID_SYSRQ = 67
Const ELA_SCANCODE_TYPEID_RMENU = 68
Const ELA_SCANCODE_TYPEID_PAUSE = 69
Const ELA_SCANCODE_TYPEID_HOME = 70
Const ELA_SCANCODE_TYPEID_UP = 71
Const ELA_SCANCODE_TYPEID_PRIOR = 72
Const ELA_SCANCODE_TYPEID_LEFT = 73
Const ELA_SCANCODE_TYPEID_RIGHT = 74
Const ELA_SCANCODE_TYPEID_END = 75
Const ELA_SCANCODE_TYPEID_DOWN = 76
Const ELA_SCANCODE_TYPEID_NEXT = 77
Const ELA_SCANCODE_TYPEID_INSERT = 78
Const ELA_SCANCODE_TYPEID_DELETE = 79
Const ELA_SCANCODE_TYPEID_LWIN = 80
Const ELA_SCANCODE_TYPEID_RWIN = 81
Const ELA_SCANCODE_TYPEID_APPS = 82
Const ELA_SCANCODE_TYPEID_POWER = 83
Const ELA_SCANCODE_TYPEID_SLEEP = 84
Const ELA_SCANCODE_TYPEID_WAKE = 85
Const ELA_SCANCODE_TYPEID_WEBSEARCH = 86
Const ELA_SCANCODE_TYPEID_WEBFAVORITES = 87
Const ELA_SCANCODE_TYPEID_WEBREFRESH = 88
Const ELA_SCANCODE_TYPEID_WEBSTOP = 89
Const ELA_SCANCODE_TYPEID_WEBFORWARD = 90
Const ELA_SCANCODE_TYPEID_WEBBACK = 91
Const ELA_SCANCODE_TYPEID_MYCOMPUTER = 92
Const ELA_SCANCODE_TYPEID_MAIL = 93
Const ELA_SCANCODE_TYPEID_MEDIASELECT = 94
Const ELA_SCANCODE_TYPEID_NUMPAD7 = 95
Const ELA_SCANCODE_TYPEID_NUMPAD8 = 96
Const ELA_SCANCODE_TYPEID_NUMPAD9 = 97
Const ELA_SCANCODE_TYPEID_NUMPAD4 = 98
Const ELA_SCANCODE_TYPEID_NUMPAD5 = 99
Const ELA_SCANCODE_TYPEID_NUMPAD6 = 100
Const ELA_SCANCODE_TYPEID_NUMPAD1 = 101
Const ELA_SCANCODE_TYPEID_NUMPAD2 = 102
Const ELA_SCANCODE_TYPEID_NUMPAD3 = 103
Const ELA_SCANCODE_TYPEID_NUMPAD0 = 104
Const ELA_SCANCODE_TYPEID_OEM102 = 105
Type elaKeyCode
Field typeid ; This is the ID of this keycode, IDs are as above.
Field alpha$ ; This is the character string of the key.
Field ascii ; This is the ASCII representation of the key.
Field seckey.elaKeyCode ; This is the secondary key (upper level key).
Field terkey.elaKeyCode ; This is the tertiary key.
End Type
Function ELACreateKeyCode.elaKeyCode(typeid,alpha$,ascii,seckey.elaKeyCode,terkey.elaKeyCode)
tempKeyCode.elaKeyCode = New elaKeyCode
tempKeyCode\typeid = typeid
tempKeyCode\alpha$ = alpha$
tempKeyCode\ascii = ascii
tempKeyCode\seckey = seckey
tempKeyCode\terkey = terkey
Return tempKeyCode
End Function
Global keycodeDelay = 200
Global keycodeNextKeyDelay = 10
Global keycodeTiming = 0
Global keycodeTimingNext = 0
Dim keycodeBase.elaKeyCode(305)
Dim keycodeValid(255)
Global keycodeLastKeyDown = 0
Global keycodeLastKeyHit = 0
Global keycodeValidTo = 0
Global keycodeCapsLockOn = False
Function ELASetKeyDelay(millidelay)
keycodeDelay = millidelay
End Function
Function ELASetNextKeyDelay(millidelay)
keycodeNextKeyDelay = millidelay
End Function
Function ELASetSpacesPerTab(noofspaces)
keycodeBase(15)\alpha = String(" ",noofspaces)
End Function
Function ELACapsLockStatus(truefalse)
keycodeCapsLockOn = truefalse
End Function
Function ELALastKeyCodeDown.elaKeyCode()
Return keycodeBase(keycodeLastKeyDown)
End Function
Function ELALastScanCodeDown()
Return keycodeLastKeyDown
End Function
Function ELALastKeyCodeHit.elaKeyCode()
Return keycodeBase(keycodeLastKeyHit)
End Function
Function ELALastScanCodeHit()
Return keycodeLastKeyHit
End Function
keycodeBase(256) = ELACreateKeyCode(0,"!",Asc("!"),Null,Null)
keycodeBase(257) = ELACreateKeyCode(0,Chr(34),34 ,Null,Null) ; "
keycodeBase(258) = ELACreateKeyCode(0,"£",Asc("£"),Null,Null)
keycodeBase(259) = ELACreateKeyCode(0,"$",Asc("$"),Null,Null)
keycodeBase(260) = ELACreateKeyCode(0,"%",Asc("%"),Null,Null)
keycodeBase(261) = ELACreateKeyCode(0,"^",Asc("^"),Null,Null)
keycodeBase(262) = ELACreateKeyCode(0,"&",Asc("&"),Null,Null)
keycodeBase(263) = ELACreateKeyCode(0,"*",Asc("*"),Null,Null)
keycodeBase(264) = ELACreateKeyCode(0,"(",Asc("("),Null,Null)
keycodeBase(265) = ELACreateKeyCode(0,")",Asc(")"),Null,Null)
keycodeBase(266) = ELACreateKeyCode(0,"_",Asc("_"),Null,Null)
keycodeBase(267) = ELACreateKeyCode(0,"+",Asc("+"),Null,Null)
keycodeBase(268) = ELACreateKeyCode(0,"Q",Asc("Q"),Null,Null)
keycodeBase(269) = ELACreateKeyCode(0,"W",Asc("W"),Null,Null)
keycodeBase(270) = ELACreateKeyCode(0,"E",Asc("E"),Null,Null)
keycodeBase(271) = ELACreateKeyCode(0,"R",Asc("R"),Null,Null)
keycodeBase(272) = ELACreateKeyCode(0,"T",Asc("T"),Null,Null)
keycodeBase(273) = ELACreateKeyCode(0,"Y",Asc("Y"),Null,Null)
keycodeBase(274) = ELACreateKeyCode(0,"U",Asc("U"),Null,Null)
keycodeBase(275) = ELACreateKeyCode(0,"I",Asc("I"),Null,Null)
keycodeBase(276) = ELACreateKeyCode(0,"O",Asc("O"),Null,Null)
keycodeBase(277) = ELACreateKeyCode(0,"P",Asc("P"),Null,Null)
keycodeBase(278) = ELACreateKeyCode(0,"{",Asc("{"),Null,Null)
keycodeBase(279) = ELACreateKeyCode(0,"}",Asc("}"),Null,Null)
keycodeBase(280) = ELACreateKeyCode(0,"A",Asc("A"),Null,Null)
keycodeBase(281) = ELACreateKeyCode(0,"S",Asc("S"),Null,Null)
keycodeBase(282) = ELACreateKeyCode(0,"D",Asc("D"),Null,Null)
keycodeBase(283) = ELACreateKeyCode(0,"F",Asc("F"),Null,Null)
keycodeBase(284) = ELACreateKeyCode(0,"G",Asc("G"),Null,Null)
keycodeBase(285) = ELACreateKeyCode(0,"H",Asc("H"),Null,Null)
keycodeBase(286) = ELACreateKeyCode(0,"J",Asc("J"),Null,Null)
keycodeBase(287) = ELACreateKeyCode(0,"K",Asc("K"),Null,Null)
keycodeBase(288) = ELACreateKeyCode(0,"L",Asc("L"),Null,Null)
keycodeBase(289) = ELACreateKeyCode(0,":",Asc(":"),Null,Null)
keycodeBase(290) = ELACreateKeyCode(0,"@",Asc("@"),Null,Null)
keycodeBase(291) = ELACreateKeyCode(0,"~",Asc("~"),Null,Null)
keycodeBase(292) = ELACreateKeyCode(0,"|",Asc("|"),Null,Null)
keycodeBase(293) = ELACreateKeyCode(0,"Z",Asc("Z"),Null,Null)
keycodeBase(294) = ELACreateKeyCode(0,"X",Asc("X"),Null,Null)
keycodeBase(295) = ELACreateKeyCode(0,"C",Asc("C"),Null,Null)
keycodeBase(296) = ELACreateKeyCode(0,"V",Asc("V"),Null,Null)
keycodeBase(297) = ELACreateKeyCode(0,"B",Asc("B"),Null,Null)
keycodeBase(298) = ELACreateKeyCode(0,"N",Asc("N"),Null,Null)
keycodeBase(299) = ELACreateKeyCode(0,"M",Asc("M"),Null,Null)
keycodeBase(300) = ELACreateKeyCode(0,"<",Asc("<"),Null,Null)
keycodeBase(301) = ELACreateKeyCode(0,">",Asc(">"),Null,Null)
keycodeBase(302) = ELACreateKeyCode(0,"?",Asc("?"),Null,Null)
keycodeBase(303) = ELACreateKeyCode(0,"¬",Asc("¬"),Null,Null)
keycodeBase(1) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_ESCAPE,"",0,Null,Null)
keycodeBase(2) = ELACreateKeyCode(0,"1",Asc("1"),Null,keycodeBase(256))
keycodeBase(3) = ELACreateKeyCode(0,"2",Asc("2"),Null,keycodeBase(257))
keycodeBase(4) = ELACreateKeyCode(0,"3",Asc("3"),Null,keycodeBase(258))
keycodeBase(5) = ELACreateKeyCode(0,"4",Asc("4"),Null,keycodeBase(259))
keycodeBase(6) = ELACreateKeyCode(0,"5",Asc("5"),Null,keycodeBase(260))
keycodeBase(7) = ELACreateKeyCode(0,"6",Asc("6"),Null,keycodeBase(261))
keycodeBase(8) = ELACreateKeyCode(0,"7",Asc("7"),Null,keycodeBase(262))
keycodeBase(9) = ELACreateKeyCode(0,"8",Asc("8"),Null,keycodeBase(263))
keycodeBase(10) = ELACreateKeyCode(0,"9",Asc("9"),Null,keycodeBase(264))
keycodeBase(11) = ELACreateKeyCode(0,"0",Asc("0"),Null,keycodeBase(265))
keycodeBase(12) = ELACreateKeyCode(0,"-",Asc("-"),Null,keycodeBase(266))
keycodeBase(13) = ELACreateKeyCode(0,"=",Asc("="),Null,keycodeBase(267))
keycodeBase(14) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_BACKSPACE,"",0,Null,Null)
keycodeBase(15) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_TAB ," ",Asc(" "),Null,Null)
keycodeBase(16) = ELACreateKeyCode(0,"q",Asc("q"),keycodeBase(268),keycodeBase(268))
keycodeBase(17) = ELACreateKeyCode(0,"w",Asc("w"),keycodeBase(269),keycodeBase(269))
keycodeBase(18) = ELACreateKeyCode(0,"e",Asc("e"),keycodeBase(270),keycodeBase(270))
keycodeBase(19) = ELACreateKeyCode(0,"r",Asc("r"),keycodeBase(271),keycodeBase(271))
keycodeBase(20) = ELACreateKeyCode(0,"t",Asc("t"),keycodeBase(272),keycodeBase(272))
keycodeBase(21) = ELACreateKeyCode(0,"y",Asc("y"),keycodeBase(273),keycodeBase(273))
keycodeBase(22) = ELACreateKeyCode(0,"u",Asc("u"),keycodeBase(274),keycodeBase(274))
keycodeBase(23) = ELACreateKeyCode(0,"i",Asc("i"),keycodeBase(275),keycodeBase(275))
keycodeBase(24) = ELACreateKeyCode(0,"o",Asc("o"),keycodeBase(276),keycodeBase(276))
keycodeBase(25) = ELACreateKeyCode(0,"p",Asc("p"),keycodeBase(277),keycodeBase(277))
keycodeBase(26) = ELACreateKeyCode(0,"[",Asc("["),Null,keycodeBase(278))
keycodeBase(27) = ELACreateKeyCode(0,"]",Asc("]"),Null,keycodeBase(279))
keycodeBase(28) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_RETURN,"",0,Null,Null)
keycodeBase(29) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_LCTRL ,"",0,Null,Null)
keycodeBase(30) = ELACreateKeyCode(0,"a",Asc("a"),keycodeBase(280),keycodeBase(280))
keycodeBase(31) = ELACreateKeyCode(0,"s",Asc("s"),keycodeBase(281),keycodeBase(281))
keycodeBase(32) = ELACreateKeyCode(0,"d",Asc("d"),keycodeBase(282),keycodeBase(282))
keycodeBase(33) = ELACreateKeyCode(0,"f",Asc("f"),keycodeBase(283),keycodeBase(283))
keycodeBase(34) = ELACreateKeyCode(0,"g",Asc("g"),keycodeBase(284),keycodeBase(284))
keycodeBase(35) = ELACreateKeyCode(0,"h",Asc("h"),keycodeBase(285),keycodeBase(285))
keycodeBase(36) = ELACreateKeyCode(0,"j",Asc("j"),keycodeBase(286),keycodeBase(286))
keycodeBase(37) = ELACreateKeyCode(0,"k",Asc("k"),keycodeBase(287),keycodeBase(287))
keycodeBase(38) = ELACreateKeyCode(0,"l",Asc("l"),keycodeBase(288),keycodeBase(288))
keycodeBase(39) = ELACreateKeyCode(0,";",Asc(";"),Null,keycodeBase(289))
keycodeBase(40) = ELACreateKeyCode(0,"'",Asc("'"),Null,keycodeBase(290))
keycodeBase(41) = ELACreateKeyCode(0,"`",Asc("`"),Null,keycodeBase(303)) ; `
keycodeBase(42) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_LSHIFT,"",0,Null,Null)
keycodeBase(43) = ELACreateKeyCode(0,"#",Asc("#"),Null,keycodeBase(291))
keycodeBase(44) = ELACreateKeyCode(0,"z",Asc("z"),keycodeBase(293),keycodeBase(293))
keycodeBase(45) = ELACreateKeyCode(0,"x",Asc("x"),keycodeBase(294),keycodeBase(294))
keycodeBase(46) = ELACreateKeyCode(0,"c",Asc("c"),keycodeBase(295),keycodeBase(295))
keycodeBase(47) = ELACreateKeyCode(0,"v",Asc("v"),keycodeBase(296),keycodeBase(296))
keycodeBase(48) = ELACreateKeyCode(0,"b",Asc("b"),keycodeBase(297),keycodeBase(297))
keycodeBase(49) = ELACreateKeyCode(0,"n",Asc("n"),keycodeBase(298),keycodeBase(298))
keycodeBase(50) = ELACreateKeyCode(0,"m",Asc("m"),keycodeBase(299),keycodeBase(299))
keycodeBase(51) = ELACreateKeyCode(0,",",Asc(","),Null,keycodeBase(300))
keycodeBase(52) = ELACreateKeyCode(0,".",Asc("."),Null,keycodeBase(301))
keycodeBase(53) = ELACreateKeyCode(0,"/",Asc("/"),Null,keycodeBase(302))
keycodeBase(54) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_RSHIFT,"",0,Null,Null)
keycodeBase(55) = ELACreateKeyCode(0,"*",Asc("*"),Null,Null)
keycodeBase(56) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_LMENU,"",0,Null,Null)
keycodeBase(57) = ELACreateKeyCode(0," ",Asc(" "),Null,Null)
keycodeBase(58) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_CAPSLOCK,"" ,Asc("") ,Null,Null)
keycodeBase(59) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F1 ,"F1",0,Null,Null)
keycodeBase(60) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F2 ,"F2",0,Null,Null)
keycodeBase(61) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F3 ,"F3",0,Null,Null)
keycodeBase(62) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F4 ,"F4",0,Null,Null)
keycodeBase(63) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F5 ,"F5",0,Null,Null)
keycodeBase(64) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F6 ,"F6",0,Null,Null)
keycodeBase(65) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F7 ,"F7",0,Null,Null)
keycodeBase(66) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F8 ,"F8",0,Null,Null)
keycodeBase(67) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F9 ,"F9",0,Null,Null)
keycodeBase(68) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F10,"F10",0,Null,Null)
keycodeBase(69) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NUMLOCK ,"",0,Null,Null)
keycodeBase(70) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_SCROLLLOCK,"",0,Null,Null)
keycodeBase(71) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NUMPAD7 ,"7",Asc("7"),Null,Null)
keycodeBase(72) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NUMPAD8 ,"8",Asc("8"),Null,Null)
keycodeBase(73) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NUMPAD9 ,"9",Asc("9"),Null,Null)
keycodeBase(74) = ELACreateKeyCode(0,"-",Asc("-"),Null,Null)
keycodeBase(75) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NUMPAD4 ,"4",Asc("4"),Null,Null)
keycodeBase(76) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NUMPAD5 ,"5",Asc("5"),Null,Null)
keycodeBase(77) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NUMPAD6 ,"6",Asc("6"),Null,Null)
keycodeBase(78) = ELACreateKeyCode(0,"+",Asc("+"),Null,Null)
keycodeBase(79) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NUMPAD1 ,"1",Asc("1"),Null,Null)
keycodeBase(80) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NUMPAD2 ,"2",Asc("2"),Null,Null)
keycodeBase(81) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NUMPAD3 ,"3",Asc("3"),Null,Null)
keycodeBase(82) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NUMPAD0 ,"0",Asc("0"),Null,Null)
keycodeBase(83) = ELACreateKeyCode(0,".",Asc("."),Null,Null)
keycodeBase(86) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_OEM102 ,"\",Asc("\"),Null,keycodeBase(292))
keycodeBase(87) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F11,"F11",0,Null,Null)
keycodeBase(88) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F12,"F12",0,Null,Null)
keycodeBase(100) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F13,"F13",0,Null,Null)
keycodeBase(101) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F14,"F14",0,Null,Null)
keycodeBase(102) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_F15,"F15",0,Null,Null)
keycodeBase(112) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_KANA ,"",0,Null,Null)
keycodeBase(115) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_ABNT_C1 ,"",0,Null,Null)
keycodeBase(121) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_CONVERT ,"",0,Null,Null)
keycodeBase(123) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NOCONVERT ,"",0,Null,Null)
keycodeBase(125) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_YEN ,"",0,Null,Null)
keycodeBase(126) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_ABNT_C2 ,"",0,Null,Null)
keycodeBase(141) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NUMPADEQUALS ,"=",Asc("="),Null,Null)
keycodeBase(144) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_PREVTRACK ,"",0,Null,Null)
keycodeBase(145) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_AT ,"",0,Null,Null)
keycodeBase(146) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_COLON ,":",Asc(":"),Null,Null)
keycodeBase(147) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_UNDERLINE ,"",0,Null,Null)
keycodeBase(148) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_KANJI ,"",0,Null,Null)
keycodeBase(149) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_STOP ,"",0,Null,Null)
keycodeBase(150) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_AX ,"",0,Null,Null)
keycodeBase(151) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_UNLABELED ,"",0,Null,Null)
keycodeBase(153) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NEXTTRACK ,"",0,Null,Null)
keycodeBase(156) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NUMPADENTER ,"",0,Null,Null)
keycodeBase(157) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_RCTRL ,"",0,Null,Null)
keycodeBase(160) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_MUTE ,"",0,Null,Null)
keycodeBase(161) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_CALCULATOR ,"",0,Null,Null)
keycodeBase(162) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_PLAYPAUSE ,"",0,Null,Null)
keycodeBase(164) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_MEDIASTOP ,"",0,Null,Null)
keycodeBase(174) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_VOLUMEDOWN ,"",0,Null,Null)
keycodeBase(176) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_VOLUMEUP ,"",0,Null,Null)
keycodeBase(178) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_WEBHOME ,"",0,Null,Null)
keycodeBase(179) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NUMPADCOMMA ,",",Asc(","),Null,Null)
keycodeBase(181) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_DIVIDE ,"/",Asc("/"),Null,Null)
keycodeBase(183) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_SYSRQ ,"",0,Null,Null)
keycodeBase(184) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_RMENU ,"",0,Null,Null)
keycodeBase(197) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_PAUSE ,"",0,Null,Null)
keycodeBase(199) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_HOME ,"",0,Null,Null)
keycodeBase(200) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_UP ,"",0,Null,Null)
keycodeBase(201) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_PRIOR ,"",0,Null,Null)
keycodeBase(203) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_LEFT ,"",0,Null,Null)
keycodeBase(205) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_RIGHT ,"",0,Null,Null)
keycodeBase(207) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_END ,"",0,Null,Null)
keycodeBase(208) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_DOWN ,"",0,Null,Null)
keycodeBase(209) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_NEXT ,"",0,Null,Null)
keycodeBase(210) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_INSERT ,"",0,Null,Null)
keycodeBase(211) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_DELETE ,"",0,Null,Null)
keycodeBase(219) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_LWIN ,"",0,Null,Null)
keycodeBase(220) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_RWIN ,"",0,Null,Null)
keycodeBase(221) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_APPS ,"",0,Null,Null)
keycodeBase(222) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_POWER ,"",0,Null,Null)
keycodeBase(223) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_SLEEP ,"",0,Null,Null)
keycodeBase(227) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_WAKE ,"",0,Null,Null)
keycodeBase(229) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_WEBSEARCH ,"",0,Null,Null)
keycodeBase(230) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_WEBFAVORITES ,"",0,Null,Null)
keycodeBase(231) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_WEBREFRESH ,"",0,Null,Null)
keycodeBase(232) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_WEBSTOP ,"",0,Null,Null)
keycodeBase(233) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_WEBFORWARD ,"",0,Null,Null)
keycodeBase(234) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_WEBBACK ,"",0,Null,Null)
keycodeBase(235) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_MYCOMPUTER ,"",0,Null,Null)
keycodeBase(236) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_MAIL ,"",0,Null,Null)
keycodeBase(237) = ELACreateKeyCode(ELA_SCANCODE_TYPEID_MEDIASELECT ,"",0,Null,Null)
; Yes, there IS a reason for this LUT within a LUT! :) 6 milliseconds is the reason! :)
; A small optimisation I know, but an optimisation non the less!
Restore keycodesUseTheseKeyCodes
Read keyScan
While keyScan <> 0
keycodeValidTo = keycodeValidTo + 1
keycodeValid(keycodeValidTo) = keyScan
Read keyScan
Wend
Function ELAScanCode.elaKeyCode()
If KeyHit(58) Then keycodeCapsLockOn = 1 - keycodeCapsLockOn
For keycodeScannedCode = 1 To keycodeValidTo
keyScanTF = KeyDown(keycodeValid(keycodeScannedCode))
If keyScanTF
tempScanCode = keycodeValid(keycodeScannedCode)
If keycodeLastKeyDown <> tempScanCode
keycodeTiming = 0
EndIf
keycodeLastKeyDown = tempScanCode
If keycodeTiming = 0
keycodeTiming = MilliSecs()
keycodeLastKeyHit = tempScanCode
Return ELAKeyCodeReturnKey(tempScanCode)
Else
If MilliSecs() - keycodeTiming > keycodeDelay
If keycodeTimingNext = 0
keycodeTimingNext = MilliSecs()
keycodeLastKeyHit = 0
Return Null
Else
If MilliSecs() - keycodeTimingNext > keycodeNextKeyDelay
keycodeTimingNext = 0
keycodeLastKeyHit = tempScanCode
Return ELAKeyCodeReturnKey(tempScanCode)
Else
keycodeLastKeyHit = 0
Return Null
EndIf
EndIf
Else
Return Null
EndIf
EndIf
EndIf
Next
keycodeTimingNext = 0
keycodeLastKeyDown = 0
keycodeTiming = 0
Return Null
End Function
Function ELAKeyCodeReturnKey.elaKeyCode(scancodeid)
tempShiftDown = KeyDown(42) Or KeyDown(54)
If tempShiftDown <> 0
If keycodeBase(scancodeid)\terkey <> Null
; If keycodeBase(scancodeid)\ascii <> 0
Return keycodeBase(scancodeid)\terkey
; EndIf
Else
; If keycodeBase(scancodeid)\ascii <> 0
Return keycodeBase(scancodeid)
; EndIf
EndIf
Else
If keycodeCapsLockOn <> 0
If keycodeBase(scancodeid)\seckey <> Null
; If keycodeBase(scancodeid)\ascii <> 0
Return keycodeBase(scancodeid)\seckey
; EndIf
Else
; If keycodeBase(scancodeid)\ascii <> 0
Return keycodeBase(scancodeid)
; EndIf
EndIf
Else
; If keycodeBase(scancodeid)\ascii <> 0
Return keycodeBase(scancodeid)
; EndIf
EndIf
EndIf
Return Null
End Function
.keycodesUseTheseKeyCodes:
Data 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30
Data 31,32,33,34,35,36,37,38,39,40,41,43,44,45,46,47,48,49,50,51,52,53,55,56,57,59,60
Data 61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,86,87,88,100
Data 101,102,112,115,121,123,125,126,141,144,145,146,147,148,149,150,151,153,156,157,160
Data 161,162,164,174,176,178,179,181,183,184,197,199,200,201,203,205,207,208,209,210,211
Data 219,220,221,222,223,227,229,230,231,232,233,234,235,236,237,0 ; null terminated
;-------------------------------------------
;////- END INCLUDE -////
; Example:
printtext$ = ""
ELASetKeyDelay(500) ; Delay between next key return in millisecs.
ELASetNextKeyDelay(20) ; Delay between next key return when holding the key, in millisecs.
Repeat
Cls
tempkeycode.elaKeyCode = ELAScanCode()
If tempkeycode <> Null
printtext$ = printtext$ + tempkeycode\alpha
If StringWidth(printtext$)>GraphicsWidth()
printtext$ = ""
EndIf
EndIf
Text 0,0,"Type something...."
Text 0,15,printtext$
Flip
Until KeyDown(1)
End
|
Comments
None.
Code Archives Forum
   |