SET Phonets

• Propósito
• Sintaxe
• Argumentos
• Exemplo
• Consulte

Propósito

Define o tamanho da cadeia de dígitos hexadecimais retornados pela função 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(), SET PHONOPT e WORD( ).