forked from QB64-Phoenix-Edition/QB64pe
-
Notifications
You must be signed in to change notification settings - Fork 0
KEY(n)
Samuel Gomes edited this page Nov 8, 2022
·
1 revision
KEY(n) assigns, enables, disables or suspends event trapping of a keypress by setting the flag ON, STOP or OFF.
- Predefined and user defined KEY event number assignments to use with KEY(n):
**1 to 10**.............Reserved **F1 to F10** function keys only.
**11, 12, 13 and 14**...Reserved **Up, Left, Right and Down** numeric keypad arrows only
**15 to 29**............**user-defined keys** using value: [CHR$](CHR$)(keyflag) + [CHR$](CHR$)([Keyboard scancodes](Keyboard-scancodes))
**30 and 31**...........Reserved **F11 and F12** function keys only.
- Keypresses can be read during INKEY$, INPUT$ or INPUT procedures without losing the input.
- Key event reads will also interrupt SLEEP.
-
KEY(n) specific status modes are:
- ON enables specific keypress events to be monitored.
- STOP suspends specific keypress reads, but remembers them. When re-enabled the key presses will be returned.
- OFF disables specified keypress reads and will not remember the event.
How to trap the LEFT direction keys on both the dedicated cursor keypad and the numeric keypad.
KEY 15, CHR$(128) + CHR$(75) ' Assign trap for LEFT arrow key on the cursor keypad
ON KEY(15) GOSUB CursorPad
KEY(15) ON ' enable event trapping
ON KEY(12) GOSUB NumericPad ' Trap LEFT key on number pad
KEY(12) ON ' enable event trapping
DO
LOOP UNTIL UCASE$(INKEY$) = "Q" ' Idle loop for demo
SYSTEM
CursorPad:
PRINT "Pressed LEFT key on cursor keypad."
RETURN
NumericPad:
PRINT "Pressed LEFT key on numeric keypad."
RETURN
Trapping the F5 keypress.
KEY(5) ON
ON KEY(5) GOSUB execute
PRINT "Press F5 (or ESC) to quit!)"
DO
LOOP UNTIL INKEY$ = CHR$(27) ' idle loop
SYSTEM
execute:
PRINT "You pressed the F5 key..."
SLEEP 1
PRINT "Press any key to continue..."
SLEEP
- ON KEY(n), KEY n (softkeys)
- _KEYHIT, _KEYDOWN
- Keyboard scancodes