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

CLEAR MESSAGE

Propósito

Limpar a última mensagem enviada ao terminal de vídeo.

Sintaxe

CLEAR MESSAGE

Utilização

Quando se deseja limpar as mensagens enviadas pelo comando MESSAGE.

Na execução de comandos MESSAGE sucessivos, cada comando MESSAGE se encarrega de limpar a mensagem anterior.

CLEAR MESSAGE limpa exatamente o que o MESSAGE anterior exibiu, isto é, envia um MESSAGE com uma cadeia de brancos do tamanho da cadeia enviada pelo último MESSAGE.

Exemplo

O exemplo a seguir mostra-nos a utilização do comando CLEAR MESSAGE, MESSAGE e SAY . Note que os comandos MESSAGE seguidos limpam a mensagem anterior mas quando se necessita imprimir outra expressão na linha de mensagem com outro comando que não o MESSAGE é preciso limpar a linha de mensagem.

MESSAGE "Teste do Comando CLEAR MESSAGE"

WAIT "Tecle algo" TO k

MESSAGE "Esta Mensagem é MENOR que a ANTERIOR"

WAIT "Tecle algo" TO k

** Retire a próxima linha e verifique o resultado

CLEAR MESSAGE

@ 1,1 SAY "Ok LIMPOU"

O exemplo a seguir mostra-nos a simulação de um comando CLEAR MESSAGE.

mensagem = "Simula CLEAR MESSAGE"

MESSAGE mensagem

WAIT "Tecle algo" TO k

MESSAGE SPACE(LEN(mensagem)) && CLEAR MESSAGE

Consulte

$NOSCREEN, @ ... SAY, MESSAGE, SET ATRIBUTE, SET DEVICE e SET MESSAGE

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