Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!

SET Nowait

Propósito

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

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.

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( ).

Anterior Sumário Próximo OpenBASE! o Banco de Dados inteligente. Fale conosco!