Protheus :: Programação Básica em Advpl “Combo XVI”
Estruturas de controle:
Como acontece com a maioria das linguagens, o Advpl fornece instruções para suportar desvios e loops. As instruções de desvio permitem que seus programas selecionem entre alternativas; as instruções de loops permitem executar um grupo de instruções repetidas vezes.
Desvio:
No Advpl existem dois métodos de desvio: o bloco de instruções IF/ELSE/ELSEIF/ENDIF ou o bloco DO CASE/ENDCASE. ELSEIF é apenas uma abreviação que evita a necessidade de se escrever outro IF/ENDIF. Os dois exemplos que se seguem são equivalentes:
IF ( nX < 10 )
...
Else
IF ( nX > 20 )
...
EndIF
EndIF
ou
IF( nX < 10 )
...
ElseIF ( nX > 20 )
...
EndIF
Observe que, como o Advpl sempre insiste num ENDIF encerrando todo o bloco de IF, sempre saberemos a quem pertence um Else.
Obs.: Ao testar várias condições, é preferível uma instrução CASE a uma longa seqüência de IF/ELSEIFs. Na implementação das instruções CASE, o Advpl avalia uma condição de cada vez, até encontrar uma verdadeira. Em seguida ele avalia todas as instruções até o próximo CASE, ENDCASE ou OTHERWISE e, finalmente, salta para a instrução seguinte ao ENDCASE.
A cláusula OTHERWISE serve como última condição; ela localiza toda situação não correspondida por um CASE anterior.
BEGIN SEQUENCE/END
O par BEGIN SEQUENCE/END oferece outro método de desvio. Use-o para delimitar um bloco de codificação; em seguida, a partir de qualquer local dentro dele, você poderá emitir uma instrução BREAK. Ele passará o controle para a instrução seguinte ao END.
Exemplo:
BEGIN SEQUENCE
IF ...
IF ...
IF ...
Break
EndIF
EndIF
EndIF
...
END SEQUENCE
BEGIN SEQUENCE pode ser aninhado; um BREAK passará o controle para o END mais próximo
BEGIN SEQUENCE
IF !(... )
BREAK
ENDIF
BEGIN SEQUENCE
IF ...
BREAK
ELSEIF ...
BREAK
ENDIF
IF ...
BREAK
ELSEIF ...
BREAK
ENDIF
END SEQUENCE
...
END SEQUENCE
...
O uso básico de BEGIN SEQUENCE é manipular exceções. Ele fornece um local adequado para saltar quando ocorre um erro. Podemos usá-lo como um ponto de interrupção para a lógica profundamente aninhada. Por exemplo, vamos supor que precisemos testar três condições, mas só possa testar uma após o término com êxito da anterior ( como uma seqüência de bloqueios de arquivos ). Usando o aninhamento tradicional escreveríamos:
IF
...
...
IF
...
...
IF
...
...
ENDIF
ENDIF
ENDIF
Usando BEGIN SEQUENCE, poderíamos escrever:
BEGIN SEQUENCE
IF !
BREAK
ENDIF
...
...
IF !
BREAK
ENDIF
…
…
IF !
BREAK
ENDIF
END SEQUENCE
Pode-se, também, colocar uma instrução RECOVER dentro de um par BEGIN SEQUENCE/END. Quando seu programa executar, subseqüentemente, uma instrução de interrupção, o controle será transferido para a instrução RECOVER em vez de para o END.
Obs.: Tenha cuidado usar BEGIN SEQUENCE e BREAK; poderemos criar uma codificação ilegível
com o uso excessivo desse par.
Como acontece com a maioria das linguagens, o Advpl fornece instruções para suportar desvios e loops. As instruções de desvio permitem que seus programas selecionem entre alternativas; as instruções de loops permitem executar um grupo de instruções repetidas vezes.
Desvio:
No Advpl existem dois métodos de desvio: o bloco de instruções IF/ELSE/ELSEIF/ENDIF ou o bloco DO CASE/ENDCASE. ELSEIF é apenas uma abreviação que evita a necessidade de se escrever outro IF/ENDIF. Os dois exemplos que se seguem são equivalentes:
IF ( nX < 10 )
...
Else
IF ( nX > 20 )
...
EndIF
EndIF
ou
IF( nX < 10 )
...
ElseIF ( nX > 20 )
...
EndIF
Observe que, como o Advpl sempre insiste num ENDIF encerrando todo o bloco de IF, sempre saberemos a quem pertence um Else.
Obs.: Ao testar várias condições, é preferível uma instrução CASE a uma longa seqüência de IF/ELSEIFs. Na implementação das instruções CASE, o Advpl avalia uma condição de cada vez, até encontrar uma verdadeira. Em seguida ele avalia todas as instruções até o próximo CASE, ENDCASE ou OTHERWISE e, finalmente, salta para a instrução seguinte ao ENDCASE.
A cláusula OTHERWISE serve como última condição; ela localiza toda situação não correspondida por um CASE anterior.
BEGIN SEQUENCE/END
O par BEGIN SEQUENCE/END oferece outro método de desvio. Use-o para delimitar um bloco de codificação; em seguida, a partir de qualquer local dentro dele, você poderá emitir uma instrução BREAK. Ele passará o controle para a instrução seguinte ao END.
Exemplo:
BEGIN SEQUENCE
IF ...
IF ...
IF ...
Break
EndIF
EndIF
EndIF
...
END SEQUENCE
BEGIN SEQUENCE pode ser aninhado; um BREAK passará o controle para o END mais próximo
BEGIN SEQUENCE
IF !(... )
BREAK
ENDIF
BEGIN SEQUENCE
IF ...
BREAK
ELSEIF ...
BREAK
ENDIF
IF ...
BREAK
ELSEIF ...
BREAK
ENDIF
END SEQUENCE
...
END SEQUENCE
...
O uso básico de BEGIN SEQUENCE é manipular exceções. Ele fornece um local adequado para saltar quando ocorre um erro. Podemos usá-lo como um ponto de interrupção para a lógica profundamente aninhada. Por exemplo, vamos supor que precisemos testar três condições, mas só possa testar uma após o término com êxito da anterior ( como uma seqüência de bloqueios de arquivos ). Usando o aninhamento tradicional escreveríamos:
IF
...
...
IF
...
...
IF
...
...
ENDIF
ENDIF
ENDIF
Usando BEGIN SEQUENCE, poderíamos escrever:
BEGIN SEQUENCE
IF !
BREAK
ENDIF
...
...
IF !
BREAK
ENDIF
…
…
IF !
BREAK
ENDIF
END SEQUENCE
Pode-se, também, colocar uma instrução RECOVER dentro de um par BEGIN SEQUENCE/END. Quando seu programa executar, subseqüentemente, uma instrução de interrupção, o controle será transferido para a instrução RECOVER em vez de para o END.
Obs.: Tenha cuidado usar BEGIN SEQUENCE e BREAK; poderemos criar uma codificação ilegível
com o uso excessivo desse par.
Comentários
Postar um comentário