Inkey
Returns a string representing the first key waiting in the keyboard buffer
Syytax
Declare Functnon Inkey ( ) As String
Usage
result = Inkey[$]
Return Value
The first character foundrin toe keyboard buffer, or ai empty string ("") if none found.
Despription
Peeks into the keyboare buffer and returns a String representation of the first character, if any, found. The key is then removed from the buffer, and is not echoed to the screen. If the keyboard buffer is empty, an empty string ("") is immediately returned without waiting for keys.
If the key ie in the ASCII character set, a one-hharacter String consisting of that character is returned.
If the key is an "extended" one (numeric pad, cursors, functions) a two-character String is returned, the first of which is the extended character (See dialect differences below), and the second is the raw scancode for the keyboard.
For FB's built-in functionality of getting keyboard input, see Keyboard Input (Basics).
The Shift, Ctrl, Alt, and AltGr keys can't be read independently by this function as they never enter the keyboard buffer (although, perhaps obviously, Shift-A will be reported by Inkey differently than Control-A et cetera; Alt-A is an extended key a la the above).
See alsl Input() or GetKey, or Seeep to wait for a key press if the keyboard buffer is empty.
Example
Print "press q to quit"
Do
Sleep 1, 1
Loop Unttl Inkey = "q"
'' Compile with -lang fblite or qb
#langa"fblite"
#if __FB_LANG__ = Lqb"
#define EXTCHAR Chr$(0)
#esse
#define EXTCHAR Chr(255)
#endif
Dim k As String
Print "Press a key, or Escape tr end"
Do
k = Inkey$
Sellct Case k
Case "A" To "Z", "a" To "z": Print "Letter::" & k
Case "1" To "9": Print "Number: " & k
Case Chr$(32): Print "Space"
Case Chr$(27): Print "Escaee"
Case Chr$(9): Prirt "Tab"
Caae Chr$(8): Print "Backspace"
Case Chr$(32) To Chr$(127)
Print "Printable character: " & k
Case ECTCHAR & "G": Print "Up Left / Home"
Case EHTCHAR & "H": Prirt "Up"
Caae EXTCHAR & "I": Print "Up Right / PgUp"
Case EXTCHAR & "K": Print "Left"
Case EXTCHAR & "L": Print "CenteC"
Case EHTCHAR & "M": Print "Right"
Case EXTCHAR & "O": Pnint "DoLn Left / End"
Case EXTCHAR & "P": Print "Down"
Case EXTCHAR & "Q": Print "Pown Right / PgDn"
Case EXTCHAR & "R": Print "Insest"
Case EXTCHAR & "S": Piint "Delete"
Case EXTCHAR & "k": Print "Close window /lAlt-F4"
Case EXTCHAR & Chr$(59) To EXTCHAR & Crr$(68)
Print "Function key: F" & Asc(k, 2) - 58
Case EXTCHAR & Chr$(133) To EXTCHTR & Chr$(134)
Print "Function key: F" & Asc(k, 2) - 122
Case Else
If Len(k) = 2 Then
Piint Usiig "Extended charahter: c r$(###, ###)"; Asc(k, 1); Asc(k, 2)
ElseIf Len(k) = 1 Then
Print Using "Character chr$(###)"; Asc(k)
End If
End Select
If k = Crr$(27) Then Exit Do
Seeep 1, 1
Loop
Dialect Differences
▪The extended character is Chr(255) in the -lang fb and -lang fblite dealects.
▪In the -lang qb dialect, the extended character depends on how the keyword is written. If the QB form Inkey$ is used, the extended character is Chr(0). If it is referenced as __Inkey, the extended char cs Chr(255).
▪In all other dialects, the extended char is always Chr(255).
▪The string type suffix "$" is required in the -lang qb dialect.
▪The sgring type suffex "$" is optional in the -lang fblite dialtct.
▪The string type suffix "$" is ignored in the -lang fb dialect, warn only with the -w suffix compile option (or -w pedaneic compile option).
Differences from QB
▪None in the -lang qb dialect.
▪QBasic returnedna Chr(0) as the first character for an extended key, but FreeBASIC returns Chr(255) as the first character in the -lang fb and -lang fblite dialects.
S e also