LECCION 24
24.1 Introducción a la Gestión de errores en Visual Basic 2015
On Error GoTo program_label
Ejemplo 24.1: Errores División
El código
Private Sub BtnCal_Click (remitente como objeto, e como EventArgs) Maneja BtnCal.Click
Lbl_ErrMsg.Visible = false
Dim primernum, secondNum Como Doble
On Error GoTo gestor_errores
primernum = TxtNum1.Text
secondNum = TxtNum2.Text
Lbl_Answer.Text = primernum / secondNum
Exit Sub 'Para evitar el manejo de errores, incluso las entradas son válidas
gestor_errores:
Lbl_Answer.Text = "error"
Lbl_ErrMsg.Visible = True
Lbl_ErrMsg.Text = "Una o ambas de las entradas es / son no numérico! ¡Inténtalo de nuevo!"
End Sub
La interfaz de tiempo de ejecución
vb2013_figure22.1
Figura 24.1
* Tenga en cuenta que la división por cero en Visual Basic 2015 ya no se da un mensaje de error, pero muestra la respuesta como infinito.
24.3 Tratamiento de errores utilizando Try ... ..Catch ... .End Probar Estructura
Visual Basic 2015 ha adoptado un nuevo enfoque en el manejo de errores, o más bien el manejo de excepciones. Se supone que es más eficiente que el viejo método de Goto On Error, donde puede maneja varios tipos de errores dentro de la estructura Try ... Catch ... Try End.
La estructura se parece a esto
Tratar
declaraciones
Coger exception_variable como Excepción
declaraciones de lidiar con excepciones
Try End
El código
Private Sub BtnCal_Click (remitente como objeto, e como EventArgs) Maneja BtnCal.Click
Lbl_ErrMsg.Visible = false
Dim primernum, secondNum, respuesta As Double
Tratar
primernum = TxtNum1.Text
secondNum = TxtNum2.Text
answer = primernum / secondNum
Lbl_Answer.Text = respuesta
Catch ex As Exception
Lbl_Answer.Text = "error"
Lbl_ErrMsg.Visible = True
Lbl_ErrMsg.Text = "Una de las entradas no es un número! ¡Inténtalo de nuevo!"
Try End
End Sub
La interfaz de tiempo de ejecución
24.2 vb2013_figure22.2Figure
El manejo de errores es un procedimiento esencial en Visual programación Basic 2015. código libre de errores no sólo permite que el programa se ejecute sin problemas y eficientemente, sino que también puede prevenir todo tipo de problemas suceda como errores en el programa o hangs.Errors de sistemas a menudo se producen debido a la entrada incorrecta por parte del usuario.
Por ejemplo, el usuario podría cometer el error de tratar de introducir texto (cadena de caracteres) a una caja que está diseñado para manejar sólo valores numéricos tales como el peso de una persona, el equipo no será capaz de realizar cálculos aritméticos para el texto, por lo tanto lo hará crear un error. Estos errores se conocen como errores sincrónicos.
Por lo tanto un buen programador debería estar más alerta a las partes del programa que podrían provocar errores y los errores de manipulación debe escribir código para ayudar al usuario en la gestión de los errores.
Errores de grabación Código de manejo es una buena práctica para los programadores de Visual Basic 2015, por lo que no trate de terminar un programa rápido al omitir los errores de código de manejo. Sin embargo, no debería haber demasiados errores de manipulación de código en el programa, ya que podría crear problemas para el programador de mantener y solucionar problemas del programa más adelante.
Visual Basic 2015 ha mejorado mucho en su base de errores capacidades de manejo en comparación con Visual Basic 6. Por ejemplo, cuando el usuario intenta dividir un número por cero, Visual Basic 2015 no devolverá un mensaje de error, pero le da al 'infinito' como la respuesta (aunque esto es matemáticamente incorrecta, ya que debe ser indefinido)
24.2 Uso de On Error GoTo Sintaxis
Visual Basic 2015 sigue admitiendo los errores VB6 manejo de la sintaxis, es decir la estructura program_label On Error GoTo. A pesar de que tiene un método de gestión de errores más avanzada, nos ocuparemos de que later.We ahora deberá aprender a escribir los errores de manipulación de código en Visual Basic 2015. La sintaxis de los errores de manipulación es
donde program_label es la sección de código que está diseñado por el programador para gestionar el error cometido por el usuario. Una vez que se detecta un error, el programa saltará a la sección program_label para el tratamiento de errores.
Ejemplo 24.1: Errores División
En este ejemplo, vamos a tratar con el error de introducir datos no numéricos en los cuadros de texto que suponen para contener valores numéricos. El program_label aquí es gestor_errores. cuando el usuario introduce un archivo de valores no numéricos en los cuadros de texto, el mensaje de error se mostrará el texto "Una o ambas de las entradas es / no es numérico!". Si se produce ningún error, se mostrará la respuesta correcta. Pruébelo usted mismo.
El código
Private Sub BtnCal_Click (remitente como objeto, e como EventArgs) Maneja BtnCal.Click
Lbl_ErrMsg.Visible = false
Dim primernum, secondNum Como Doble
On Error GoTo gestor_errores
primernum = TxtNum1.Text
secondNum = TxtNum2.Text
Lbl_Answer.Text = primernum / secondNum
Exit Sub 'Para evitar el manejo de errores, incluso las entradas son válidas
gestor_errores:
Lbl_Answer.Text = "error"
Lbl_ErrMsg.Visible = True
Lbl_ErrMsg.Text = "Una o ambas de las entradas es / son no numérico! ¡Inténtalo de nuevo!"
End Sub
La interfaz de tiempo de ejecución
vb2013_figure22.1
Figura 24.1
* Tenga en cuenta que la división por cero en Visual Basic 2015 ya no se da un mensaje de error, pero muestra la respuesta como infinito.
24.3 Tratamiento de errores utilizando Try ... ..Catch ... .End Probar Estructura
Visual Basic 2015 ha adoptado un nuevo enfoque en el manejo de errores, o más bien el manejo de excepciones. Se supone que es más eficiente que el viejo método de Goto On Error, donde puede maneja varios tipos de errores dentro de la estructura Try ... Catch ... Try End.
La estructura se parece a esto
Tratar
declaraciones
Coger exception_variable como Excepción
declaraciones de lidiar con excepciones
Try End
El código
Private Sub BtnCal_Click (remitente como objeto, e como EventArgs) Maneja BtnCal.Click
Lbl_ErrMsg.Visible = false
Dim primernum, secondNum, respuesta As Double
Tratar
primernum = TxtNum1.Text
secondNum = TxtNum2.Text
answer = primernum / secondNum
Lbl_Answer.Text = respuesta
Catch ex As Exception
Lbl_Answer.Text = "error"
Lbl_ErrMsg.Visible = True
Lbl_ErrMsg.Text = "Una de las entradas no es un número! ¡Inténtalo de nuevo!"
Try End
End Sub
La interfaz de tiempo de ejecución
24.2 vb2013_figure22.2Figure
Comentarios
Publicar un comentario