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

KEYBOARD

Propósito

Preencher o buffer do teclado com uma expressão tipo cadeia.

Sintaxe

KEYBOARD <exp.C>

Argumentos

<exp.C>

representa os caracteres enviados ao buffer do teclado.

Utilização

Simula a digitação de um conjunto de teclas representadas em <exp.c>,evitando que o usuário digite desnecessariamente, quando sabe o que deve ser digitado. Usado em conjunto de comandos e funções que esperam entrada de dados via teclado.

Exemplo

O exemplo a seguir mostra a utilidade deste comando em uma função executada pelo comando SET KEY.

$NOLIB

PROG

FUNC func_cod(l)

SET CONFIRM ON

SET KEY 28 TO func_cod

cod = 0

@ 08,10 SAY "Em Caso de Duvida tecle F1" BLINK

@ 10,10 SAY "Codigo do Produto " GET cod PIC "99" VALID func_cod(cod)

READ

QUIT(0)

FUNCTION func_cod

PARAMETERS p.cod(n)

If p_cod >= 1 .AND. p_cod <= 5

  RETURN(.T.)         && Retorna Verdadeiro pois esta no limite

ENDIF

DECLARE vet_cod[05] = SPACE(30)

vet_cod[01] = "01 - Parafuso 01"

vet_cod[02] = "02 - Parafuso 02"

vet_cod[03] = "03 - Parafuso 03"

vet_cod[04] = "04 - Parafuso 04"

vet_cod[05] = "05 - Parafuso 05"

opt = ACHOICE(01, 01, 07, 31, vet_cod)

@ 01,01 CLEAR TO 07,31

opt = IIF(opt = -1, opt + 2, opt + 1)

KEYBOARD LEFT(vet_cod[opt], 2)

RETURN(.F.)

Consulte

@ ... GET, RETURN, SET KEY, SET PF, CHR( ), INKEY( ), LASTKEY( ), READKEY( ), STR( ) e VAL( ).

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