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

SET Point

Propósito

Permitir na digitação de valores numéricos a aceitação do ponto decimal.

Sintaxe

SET POINT ON | off

Utilização

Quando ligado (ON), permite a digitação da vírgula, alinhando a parte inteira e aguardando a digitação da parte decimal.

Quando desligado (OFF), não permite a digitação da vírgula, alinhando todo o número a direita logo que {RETURN} for digitado.

Exemplo

O exemplo a seguir mostra-nos como este comando funciona. Para testar digite para os dois campos "10,2". Note que no primeiro campo não será possível digitar a vírgula ou ponto.

PROG

num1,num2=0

SET DECIMALS TO 2 ON num1,num2

SET POINT OFF

@ 10,10 SAY "SET POINT OFF " GET num1 PIC 999,99"

READ

SET POINT ON

@ 11,10 SAY "SET POINT ON " GET num2 PIC "999,99"

READ

?

? "SET POINT OFF " , num1, " repare não alinhou" + " decimais"

? "SET POINT ON " , num2, " repare que a parte" +" decimal foi alinhada"

Consulte

@ ... GET, SET ALIGN, SET DECIMALS, SET DIVDEC e TRANSFORM( ).

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