2. COMPARADOR IF

En este programa lo que se hizo fue comenzar a utilizar el comparador “If” y lo hicimos, haciendo un programa que mire las notas que pongas y te diga si perdió o paso. Sabiendo que de 0-29 “perdió” y de 30-50 “Paso”.

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")

        End If

        If Def < 30 Then

            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

EL ENLACE DONDE PUEDEN DESCARGAR ESTE PROGRAMA ES:  

https://www.dropbox.com/s/jzikphp84in3ez0/COMPARADOR%20IF.rar