Evitar División por Cero

Hola espero que tengan un buen día, y bueno pidiendo disculpas por el retraso de mi tercer entrega que la verdad quizá llega un poco tarde porque ya hay como 20 nuevas versiones de Visual Basic pero bueno igual habrá uno que otro interesado en aprender un poco del viejo VB 2005.

Y bien pasando a lo importante esta ves traigo algo que quizá falto un poco a la anterior calculadora que es algo importantisimo y es la "División por cero" cosa que ya de por si nos da una "excepción" y para los que no saben que es esto pues les diré que es un error que nos salta cuando utilizamos el programa que estamos haciendo y peor cuando alguna otra persona lo esta utilizando, podríamos decir que es algo grave ya que si no la controlamos pues llega a cerrar el programa y como programadores hace que quedemos mal parados ante cualquier persona.

Esta ves no haré el manejo de excepciones propiamente hablando que se hace con el Try y Catch sino que esta ves a manera de ejemplo lo manejare simplemente con un If y un Else estructura muy conocida y muy pero muy utilizada en la programación para toma de decisiones en los programas, y ya para no aburrirlos voy a lo importante la explicación del código:

Primero veamos la estructura del IF

IF <> then         // En este espacio ponemos la condicion que queremos validar
        //en este espacio iría el código que queremos ejecutar si se cumple la condición
else                                      // Esta palabra significa "sino" osea caso contrario
        //en este espacio iría el código que queremos ejecutar si no se cumple la condición
End if                                   // Esto significa que la condición finalizo



Y bien este seria el código que he utilizado para el ejemplo:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Val(TextBox2.Text) = 0 Then
            TextBox3.Text = "Error, Division por cero"
        Else
            TextBox3.Text = TextBox1.Text / TextBox2.Text

        End If

    End Sub


Y pueden notar que con esto ya control que no vaya a dar un error que haria que se derrumbe nuestro pequeño programa.

Y bueno aquí dejo el ejemplo para los que les gusta descargarlo y ver directamente como funciona:
Ejemplo:

Esto era todo espero les sirva y hagan lo posible por practicar lo mas posible; tratare de venir con mas entregas lo mas pronto posible, quizá en esta semana traiga varias mas ya que estoy de vacaciones y espero aprovecharlas. Saludos....


PD.: Los links de los otros ejemplos fueron reparados y ya se pueden descargar sin problemas...