CAPÍTULO 7
TRATAMENTO DE ERROS

1

2

3

4

5

6

7

8

9

10

11

12

Se fôssemos capazes de desenvolver programas perfeitos, e se os usuários fossem perfeitos, e se o Usinas fosse perfeito, então não precisaríamos nos preocupar com tratamento de erros. Infelizmente, no Usinas em que vivemos arquivos desaparecem misteriosamente, disquetes não estão posicionados quando necessário e os usuários fazem o possível para descobrir novas formas de "travar" o seu programa. Sem rotinas de tratamento de erros, qualquer erro deste tipo seria fatal, isto é, acarretaria na interrupção do programa.
 

Existem basicamente três tipos de erros que podem ocorrer em um programa:
 

• Erros de sintaxe: Estes erros ocorrem durante a escrita e depuração de programas e geralmente não afetam o usuário final. Entretanto, se você não estiver compilando em código nativo, pode ser que alguns erros de sintaxe só aparecam durante a execução. Isto ocorre porque na "compilação" em pseudo-código o VB não monta realmente o programa, pois trata-se de uma execução interpretada.
• Erros de execução: Este tipo de erros ocorrem em programas perfeitos do ponto de vista sintático, mas falhos do ponto de vista de tratamento de erros. Erros de execução ocorrem quando dispositivos não podem ser acessados, etc.
• Erros de lógica: Estes são os piores. Embora a sintaxe possa estar perfeita, se a lógica do programa não estiver bem planejada é possível que o computador entre por um longo caminho sem volta, como é o caso dos famosos "loops infinitos".

ERROS ACUSÁVEIS
 

Erros acusáveis são aqueles detectados pelo VB em tempo de compilação ou execução. Os mais comuns são mostrados na tabela 19 abaixo.

  Tabela 19 - Erros acusáveis mais comuns

A INSTRUÇÃO "On Error"
 

Qualquer gerenciador de erros começa com esta instrução, que admite as seguintes formas de sintaxe:

  On Error GoTo linha: a execução do código é desviada para o rótulo descrito pelo parâmetro linha. Rótulos são identificadores não executáveis e são inseridos digitando-se dois pontos no final do nome. Por exemplo: Rótulo:.Quando se usa esta instrução, o rótulo identifica o início de uma rotina de tratamento de erros.
 

• On Error Resume Next: a execução é desviada para a instrução imediatamente subsequente àquela que gerou o erro.
•  On Error GoTo 0: desabilita qualquer gerenciador de erros ativo na procedure atual.

Uma rotina de tratamento de erros não é uma rotina do tipo Sub ou Function, mas sim um bloc de código identificado por um rótulo.
 
 

O OBJETO "Err"

 
Este objeto contém informações sobre erros em tempo de execução. A propriedade padrão é Number, que é um valor correspondente a um número válido de erro. Quando um erro ocorre, a seguinte sintaxe pode ser usada para acessar o número do erro: Err.Number.

A FUNÇAO "Error"
 

Esta função retorna uma mensagem de erro que corresponde a um número de erro especificado.  

Sintaxe: Error[(Número_Do_Erro)}

 
Se o parâmetro Número_Do_Erro for omitido, a função retornará o número do erro mais recente. Se Número_Do_Erro for inválido, um erro ocorrerá. As mensagens retornadas por esta função são expressas em inglês, naturalmente. Para obter as mensagens em português você deve implementar um gerenciador que capture o número do erro e exiba a mensagem traduzida.

O MÉTODO "Raise"

 
Este método do objeto Err simula um erro em tempo de execução e é ótimo para se verificar o funcionamento de rotinas de tratamento de erros.
 

Sintaxe: Err.Raise Número_Do_Erro

A instrução Error (Visual Basic 3.0) ainda é aplicável, mas apenas por compatibilidade. Para escrever programas que possam ser compilados por futuras versões do VB é preferível usar sempre os métodos e propriedades do objeto Err.

Exemplo:

 
Este exemplo primeiro usa a instrução On Error GoTo para especificar a localização de uma rotina de tratamento de erros dentro de uma procedure. No exemplo, uma tentativa é feita de se deletar um arquivo aberto, gerenado-se o erro número 55. O controle é então enviado para o comando que causou o erro e o comando On Error GoTo 0 desliga o tratamento de erros.
 

Sub OnErrorStatementDemo()
    On Error GoTo ErrorHandler ' Habilita o trataemento de erros.
    Open "TESTFILE" For Output As #1 ' Abre um arquivo para saída
    Kill "TESTFILE" ' Tenta deletar o arquivo
    On Error Goto 0 ' Desabilita o tratamento de erros.
    On Error Resume Next
    ObjectRef = GetObject("MyWord.Basic") ' Tenta inicializar um objeto inexistente.
    If Err.Number = 440 Or Err.Number = 432 Then
        Msg = "Houve um erro tentando abrir o objeto !"
        MsgBox Msg, , "Teste de erros"
        Err.Clear ' Apaga os campos do objeto Err.
    End If
    Exit Sub ' Abandona o procedimento para evitar a rotina de erros.
ErrorHandler: ' Rotina de tratamento de erros.
    Select Case Err.Number ' Obtém o número do erro.
        Case 55 ' Arquivo já aberto.
            Close #1 ' Fecha o arquivo.
        Case Else
            ' Insira outras situações aqui...
    End Select
Resume ' Continua a execução na mesma linha que causou o erro.
End Sub  

Copyright © 1998/1999 - Desenvolvido por Alvaro Augusto de Almeida (isso significa que você pode manter cópias para uso particular, mas não para divulgação). Dúvidas e sugestões serão bem vindas.   

	Acessos desde 30.01.99: