PureBasic Forums - English

Code: Select all

; GetKey() routine by PB -- do what you want with it.  :)
; Obviously it can be expanded to handle more keys...
; Function: Waits for a keypress and returns ASCII code of the key.
; Usage: c=GetKey() ; c = ASCII value of pressed key.

For k=0 To 255 : GetAsyncKeyState_(k) : Next ; Clear all key buffers.

Procedure GetKey()
  Repeat
    Sleep_(1) ; To stop 100% CPU usage.
    For k=8 To 13 ; Check backspace, tab, enter keys.
      If GetAsyncKeyState_(k)=-32767 : r=k : EndIf ; Pressed!
    Next
    For k=48 To 57 ; Check number keys.
      If GetAsyncKeyState_(k)=-32767 : r=k : EndIf ; Pressed!
    Next
    For k=65 To 90 ; Check letter keys.
      If GetAsyncKeyState_(k)=-32767 : r=k : EndIf ; Pressed!
    Next
    ; Check other keys (add more here if you like).
    If GetAsyncKeyState_(#VK_SPACE)=-32767 : r=32 : EndIf ; Space pressed.
    If GetAsyncKeyState_(#VK_ESCAPE)=-32767 : r=27 : EndIf ; Escape pressed.
  Until r <> 0
  ProcedureReturn r
EndProcedure

Debug "Click here and type something!"

Repeat
  c=GetKey() ; Pause app until a number or letter key has been pressed.
  Debug Str(c)+" "+Chr(c) ; Display ASCII code of pressed key.
Until c=27 ; Quit due to Escape being pressed.