Manipulacion Estructurada de Errores

Cada vez que programamos usualmente siempre nos encontramos con algunos errores como en la escritura, a la hora de la depuracion de  nuestra compilación del programa ó también con errores lógicos del programa. 


En los esquemas de errores existen dos Elementos que son:

• El error
• La excepción

Estos dos elementos tiene su propia finalidad dentro de los procesos de tratamientos de los errores.

Error

Es el evento que se produce en el momento de la ejecución del programa que estemos ejecutando.

Excepción

Es el objeto que es generado por un error, el cual contiene información acerca del error que se ha cometido e la ejecución del programa.


Para dar respuesta a nuestros errores utilizaremos la estructura de control del lenguaje que nos servira para esta funcionalidad que este casi es Try..  EndTry.
Esta estructura de control es sensible a errores con las diferentes manipuladores de excepción que contiene dentro de ella.


Sintaxis:


Try ' Código que es sencible al error
.
.
.
Catch es As Excepción  ' Posible respuesta en caso en que se produzca el error


EndTry 

El código que se encuentre dentro de las palabras Try y Catch será el código que este sensible a error que se pueda producir.
Se puede usar Catch de un modo general pudiendo tener solo la manipulación de excepciones.




Ejemplos:


Ejemplo #1

  Sub Main()

        Dim sValor As String

        Dim iNumero As Integer

        Try

            'Aqui comienza el control de errores

            Console.WriteLine("Introducir un número")

            sValor = Console.ReadLine

            'Si no hemos introducido ningún número

            iNumero = sValor 'aquí se producira un error

        Catch

            'Si se produce un error, se generará una excepción

            'que capturamos en este bloque de código

            'manipulador de excepción, definido por Catch

            Console.WriteLine("Error al introducir el número" & ControlChars.CrLf & "el valor {0} es incorrecto", sValor)

        End Try

        Dim dtFecha As Date

        Console.WriteLine("Introducir una fecha")

        'Si ahora se produce un error,

        'al no disponer de una estructura para controlarlo

        'se cancelará la ejecución

        dtFecha = Console.ReadLine

        Console.WriteLine("La fecha es {0}", dtFecha)

        Console.ReadLine()

    End Sub

    

Ejemplo #2

  Sub Main()

        Dim sValor As String

        Dim iNumero As Integer

        Try

            'Aqui comienza el control de errores

            Console.WriteLine("Introducir un número")

            sValor = Console.ReadLine

            'Si no hemos introducido ningún número

            iNumero = sValor 'aquí se producira un error

        Catch

            'Si se produce un error, se generará una excepción

            'que capturamos en este bloque de código

            'manipulador de excepción, definido por Catch

            Console.WriteLine("Error al introducir el número" & ControlChars.CrLf & "el valor {0} es incorrecto", sValor)

        End Try

        Console.Read()

    End Sub