SET Nowait

• Propósito
• Sintaxe
• Argumentos
• Utilização
• Exemplo
• Consulte

Propósito

Aguardar ou não a digitação de uma tecla na função INKEY() ou executar uma procedure enquanto espera digitação.

Sintaxe

SET NOWAIT on | OFF | TO [<nome>]

Argumentos

<nome>

representa o nome da PROCEDURE que será executada quando o programa entrar em qualquer estado de espera de digitação de uma tecla.

Utilização

Quando ligada (ON), a função INKEY() não causará uma pausa na execução do programa.

Ao associar este comando a uma PROCEDURE, o programa executará esta PROCEDURE enquanto o programa estiver aguardando a entrada de dados via teclado. Para desativar a execução da PROCEDURE, basta declarar o comando sem declarar uma procedure, da seguinte forma: SET NOWAIT TO.

Exemplo

O exemplo a seguir mostra-nos a influência deste comando sobre a função INKEY( ).

PROG

SET NOWAIT ON     && Retire esta linha e verifique o resultado

DO WHILE .T.

    a = INKEY( )

    IF a = 27

      EXIT

    ENDIF

    ? "INKEY sem espera bata {ESC} para parar"

ENDDO

O exemplo a seguir mostra a utilização do comando SET NOWAIT TO <nome>.

PROG

SET NOWAIT TO animacao

nome = ""

@ 10,10 SAY "Entre com seu nome " GET nome PIC "!!!!!!!!!!!!!!"

READ

QUIT

PROC animacao

STATIC coluna(n)

@ 23, coluna say " "

++ coluna

@ 23, coluna SAY "DIGITE SEU NOME" BOLD

RETURN

Consulte

INKEY(), READ, ACCEPT, MENU.