Saltar para o conteúdo principal
Versão: Próximo

GOTO XY

GOTO XY ( x ; y )

ParâmetroTipoDescrição
xIntegerposição x (horizontal) do cursor
yIntegerposição y (vertical) do cursor

Esse comando não é seguro para thread e não pode ser usado em código adequado.

Descrição

O comando GOTO XY se utiliza conjuntamente com o comando MESSAGE quando mostra mensagens em uma janela aberta pelo comando Open window.

GOTO XY determina a posição do cursor de inserção de caracteres (um cursor invisível) para definir a localização da seguinte mensagem na janela.

A esquina superior esquerda representa as coordenadas 0,0. O cursor é localizado automaticamente em 0,0 quando uma janela se abre e depois é executada ERASE WINDOW.

Depois de que GOTO XY defina a posição do cursor, pode utilizar MESSAGE para mostrar os caracteres na janela.

Exemplo 1

Ver o exemplo do comando MESSAGE.

Exemplo 2

Ver o exemplo do comando Milliseconds.

Exemplo 3

O exemplo a seguir:

 Open window(50;50;300;300;5;"Esta é só um teste")
 For($vlFila;0;9)
    GOTO XY($vlFila;0)
    MESSAGE(String($vlFila))
 End for
 For($vlLinea;0;9)
    GOTO XY(0;$vlLinea)
    MESSAGE(String($vlLinea))
 End for
 $vhHoraInicio:=Current time
 Repeat
 Until((Current time-$vhHoraInicio)>†00:00:30†)

Mostra a janela a seguir (em Macintosh) por 30 segundos:

Ver também

MESSAGE