Retornar o código ASCII correspondente uma tecla pressionada.
INKEY ()
A função INKEY () representa um estado de espera. Ao ser executada, aguarda que uma tecla seja pressionada e retorna um valor numérico correspondente ao código ASCII da tecla.
Para que a função INKEY () não aguarde a digitação de uma tecla, utilize o comando SET NOWAIT ON.
Pode-se executar qualquer PROCEDURE indicada no comando SET KEY.
Muito útil para confeccionar menus próprios ou aguardar a digitação de valores, possibilitando criticar caracter por caracter.
O exemplo a seguir mostra-nos a utilização desta função para criar um menu de opções.
@ 23,01 SAY "Inclui, Altera, Exclui"
DO WHILE .T.
var_num = INKEY ()
IF var_num = 27 && Tecla {ESC}
QUIT (0)
ENDIF
DO CASE
CASE UPPER (CHR (var_num)) = "I"
DO inclui
CASE UPPER (CHR (var_num)) = "A"
DO altera
CASE UPPER (CHR (var_num)) = "E"
DO exclui
ENDCASE
END DO
SET NOWAIT, SLEEP, WAIT, ASC(), CHR(), LASTKEY() e READKEY().