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

LOOP

Propósito

Voltar ao início de um comando de repetição (laço).

Sintaxe

LOOP

Utilização

Comando LOOP é utilizado em conjunto com os comandos FOR ... NEXT e DO WHILE ... ENDDO e retorna o fluxo de controle para o início destes comandos. Muito útil para se evitar a execução de determinados comandos dentro do laço, simplificando o trabalho do programador que para isto deveria criar um conjunto de IF ... ENDIF muito complicado dependendo da aplicação.

Quando utilizado com o comando FOR ... NEXT a variável de controle é incrementada.

Exemplo

O exemplo a seguir mostra a utilização do comando LOOP com o comando FOR só exibindo os números ímpares.

FOR i = 1 TO 100

  IF i % 2 = 0         && Verifica se i e múltiplo de 2

    LOOP

  ENDIF

  ? i, " e impar"

NEXT

O exemplo a seguir mostra a utilização do comando LOOP com o comando DO WHILE ... ENDDO simulando um VALID para um GET onde só serão aceitos determinados caracteres.

DO WHILE .not. EOF( )

  @ 10,10 SAY "inclui , altera ou exclui ? " GET op PIC "x"

  READ

  IF op $ "iaeIAE"

    LOOP         && Retorna o controle ao inicio do laço.

  ELSEIF LASTKEY( ) = 27

    EXIT         && Termina laço se foi teclado {<ESC-ESC>}

  ENDIF

ENDDO

Consulte

DO WHILE, EXIT, FOR ... NEXT, RETURN e QUIT.

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