3. COMPARADOR IF-ELSE

En este programa lo que se hizo fue comenzar a utilizar el comparador “If y Else” y lo hicimos, haciendo un programa como el anterior solo cambiando la sentencia “If If”  a un “If-Else”, el programa lo que hace es mirar las notas que pongas y te diga si perdió o paso. Sabiendo que de 0-29 “perdió” y de 30-50 “Paso”. Hay que decir que en este blog no vamos a ver la sentencia “If Else” cumplen la misma función de comparador pero la sentencia no se hace de la misma forma.

A continuación se mostrara el código que se utilizó:

Public Class Form1

    Dim Nota_1, Nota_2, Nota_3, Def As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Nota_1 = 0

        Nota_2 = 0

        Nota_3 = 0

        Def = 0

        TextBox1.Text = Nota_1

        TextBox2.Text = Nota_2

        TextBox3.Text = Nota_3

        Label1.Text = Def

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Nota_1 = Val(TextBox1.Text)

        Nota_2 = Val(TextBox2.Text)

        Nota_3 = Val(TextBox3.Text)

        Def = (Nota_1 * 0.3) + (Nota_2 * 0.3) + (Nota_3 * 0.4)

        If Def >= 30 Then

            Label1.Text = Def

            MsgBox("Paso")

        Else

            Label1.Text = Def

            MsgBox("Perdio")

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Nota_1 = 0

        Nota_2 = 0

        Nota_3 = 0

        Label1.Text = 0

        TextBox1.Text = Nota_1

        TextBox2.Text = Nota_2

        TextBox3.Text = Nota_3

    End Sub

End Class

La parte gráfica de este programa se ve así:

COMPARADOR IF-ELSE

EL ENLACE DONDE PUEDEN DESCARGAR ESTE PROGRAMA ES:  

https://www.dropbox.com/s/ixnchfp9wl8fnpf/COMPARADOR%20IF-ELSE.rar