DEFINEKEY k, sub
Binds a keycode k to a user defined sub routine sub. When the key is pressed, the coresponding sub routine will be called. To unbind the keycode definition pass 0 as the sub argument.
Keycodes for PC keyboard
| Key | Keycode |
|---|---|
| A to Z | asc("a") to asc("z") |
| 0 to 9 | asc("0") to asc("9") |
| Backspace | 8 |
| Delete | 127 |
| Break | 3 |
| Tab | 9 |
| Enter / Return | 13 |
| Space | 32 |
| Escape | 27 |
| Page Up / Prior | 0xFF01 |
| Page Down / Next | 0xFF02 |
| Left | 0xFF04 |
| Right | 0xFF05 |
| Up | 0xFF09 |
| Down | 0xFF0A |
| Insert | 0xFF10 |
| Home | 0xFF11 |
| End | 0xFF12 |
| Menu | 0xFF1F |
| F1 to F15 | 0xFFF0+1 to 0xFFF0+15 |
| Ctrl + A to Z | 0x71000000 + asc("a") to 0x71000000 + asc("z") |
| Alt + A to Z | 0x72000000 + asc("a") to 0x72000000 + asc("z") |
| Shift + A to Z | asc("A") to asc("Z") |
Example 1: Bind keystroke for left and right arrow key
defineKey 0xFF04, Increase 'Left arrow defineKey 0xFF05, Decrease 'Right arrow sub Increase x = x + 1 end sub Decrease x = x - 1 end while(1) t = ticks() at 0,0: print t + ": " + x + " " delay(50) wend DEFINEKEY 0xFF04, 0 ' DEFINEKEY demo.bas SmallBASIC 0.12.2 [B+=MGA] 2016-03-30 'remember Etch-A-Sketch? 'definekey key,sub 'example: definekey 0xFF04, moveleft 'press left arrow definekey 0xFF05, moveright 'press right arrow definekey 0xFF09, moveup 'press up arror definekey 0xFF0A, movedown 'press down arrow definekey 99, togglecolor 'press c for color toggle black (erase), blue, red, white definekey 115, togglestepper 'press s for stepper 1,5,10,50 definekey 27, quit 'press esc to quit colr=15 stepper=1 tx=xmax/2 ty=ymax/2 pset tx,ty,0 while 1 color 0,0 locate 0,0:? spc(100) color colr,0 locate 0,0 if colr=0 then color colr,15 ?"tx= ";tx;" ty= ";ty;" c= ";colr;" s=";stepper; if colr=0 then color colr,0 lc=(lc+1) mod 2 if lc then pset step 0,0,14 else pset step 0,0,0 delay 60 wend sub moveleft pset step 0,0 if tx-stepper>=0 then tx-=stepper:line step -stepper,0 else beep end sub moveright pset step 0,0 if tx+stepper<=xmax then tx+=stepper:line step stepper,0 else beep end sub moveup pset step 0,0 if ty-stepper>=0 then ty-=stepper:line step 0,-stepper else beep end sub movedown pset step 0,0 if ty+stepper<=ymax then ty+=stepper:line step 0,stepper else beep end sub togglecolor select case colr case 0 : colr=9 case 9 : colr=12 case 12: colr=15 case 15: colr=0 end select end sub togglestepper select case stepper case 1 : stepper=5 case 5 : stepper=10 case 10: stepper=50 case 50: stepper=1 end select end sub quit stop end ' Note: ' * You may Include "definekey_const.bas" file in another file to make your code more clear. ' ' * Created using SmallBASIC version 0.12.2 (on Linux Mint 17.3). ' * More keys might be included in future/other versions of SmallBASIC. ' * Values for DEFINEKEY cannot be used for INKEY. ' * I could not verify all keys (especially CTRL & ALT seems not to work). ' * Key codes are from "keymap.h": https://sourceforge.net/p/smallbasic/code/HEAD/tree/trunk/smallbasic/src/keymap.h ' ' Demo - add these lines to another BAS file: ' ------------------------------------------ ' Include "definekey_const.bas" ' ' Definekey DK_LEFT, left_arrow ' ' Sub left_arrow: i++: ? i; " "; ' End Sub ' ' ? "Press Left-Arrow key, or Ctrl+B to stop...": Pause ' While 1: Wend ' ------------------------------------------ ' definekey_const.bas - DEFINEKEY key codes (keymap.h; 30/4/2010) ' Note: bind a regular character with 'DEFINEKEY Asc("a"), sub' Const IS_PALM_OS = (Left(OSNAME, 1) = "P") ' Else is_UNIX / is_Windows ' PalmOS - H/W keys: Const DK_PALM_PGUP = 0xFF01 Const DK_PALM_PGDN = 0xFF02 Const DK_PALM_BTN1 = 0xFF03 Const DK_PALM_BTN2 = 0xFF04 Const DK_PALM_BTN3 = 0xFF05 Const DK_PALM_BTN4 = 0xFF06 Const DK_PALM_FIND = 0xFF07 Const DK_PALM_CALC = 0xFF08 Const DK_BREAK = Iff(IS_PALM_OS, DK_PALM_BTN4, 0x3) ' MemoPad, Ctrl+C Const DK_DELETE = 127 ' (in keymap.h: DELETE = 8, BACKSPACE = 127) Const DK_BACKSPACE = 8 Const DK_TAB = 9 Const DK_ENTER = 13 ' 13 is CR (in keymap.h: ENTER = '\\n') ' Common with Handhelds (0xFF00 to 0xFF0F): Const DK_PGUP = 0xFF01 Const DK_PRIOR = DK_PGUP Const DK_PGDN = 0xFF02 Const DK_NEXT = DK_PGDN Const DK_LEFT = 0xFF04 Const DK_RIGHT = 0xFF05 Const DK_UP = 0xFF09 Const DK_DN = 0xFF0A Const DK_DOWN = DK_DN ' Common on PCs (0xFF10 to 0xFF1F): Const DK_INSERT = 0xFF10 Const DK_HOME = 0xFF11 Const DK_END = 0xFF12 ' Other application keys: Const DK_MENU = 0xFF1F ' Function keys (16 codes), e.g. Definekey DK_FUNC(1): Def DK_FUNC(x) = 0xFFF0 + x ' -- Verified with 1-12 (F1-F12) Def DK_SFUNC(x) = 0xFFE0 + x ' ( ...is it for F13-F16 ? ) ' Control keys, e.g. Definekey DK_CTRL(ASC("R")): Def DK_CTRL(x) = x - 64 ' x must be a capital character ' Alt keys, e.g. Definekey DK_ALT(ASC("r")): Def DK_ALT(x) = 0xFF20 + (x - Iff(x >= 97, 57, 31)) ' Keypad: Const DK_KP_DIV = 0xFFDA Const DK_KP_MUL = 0xFFDB Const DK_KP_MINUS = 0xFFDC Const DK_KP_PLUS = 0xFFDD Const DK_KP_ENTER = 0xFFDE Const DK_KP_HOME = 0xFFD7 Const DK_KP_UP = 0xFFD8 Const DK_KP_PGUP = 0xFFD9 Const DK_KP_LEFT = 0xFFD4 Const DK_KP_CENTER = 0xFFD5 Const DK_KP_RIGHT = 0xFFD6 Const DK_KP_END = 0xFFD1 Const DK_KP_DOWN = 0xFFD2 Const DK_KP_PGDN = 0xFFD3 Const DK_KP_INS = 0xFFD0 Const DK_KP_DEL = 0xFFDF ' Mouse: Const DK_MK_PUSH = 0xFFC0 Const DK_MK_DRAG = 0xFFC1 Const DK_MK_MOVE = 0xFFC2 Const DK_MK_RELEASE = 0xFFC3 Const DK_MK_WHEEL = 0xFFC4 Const DK_MK_FIRST = DK_MK_PUSH Const DK_MK_LAST = DK_MK_WHEEL 