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

SET Phonets To

Propósito

Define o tamanho da cadeia de dígitos hexadecimais retornados pela rotina PHONETS. O Default é 8.

Sintaxe

SET PHONETS TO <num> 

Argumentos

<num>

representa o tamanho da cadeia de dígitos que se deseja retornar, onde 2 <= num <=8.

Exemplo

O exemplo a seguir mostra-nos como definir a cadeia de dígitos para dois Bytes.

PROG

palavra = space (50)

SET PHONETS TO 2

DO WHILE .t.

  @ 09,10 SAY "NOME:"GET palavra PIC REP ("!", 50)

  READ

  IF LASTKEY ( ) = 27

    EXIT

  ENDIF

@ 10,10 SAY " "

? PHONETS (palavra,1)

ENDDO

Consulte

PHONAME( ), PHONETS( ), PHONETIC, PHONOPT e WORD( ).

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