EVALUACION 2

CÓDIGO DE INICIO DE CONSULTA 

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

        If TextBox1.Text = "131610535-8" Then

            Dim A As New Form2

            A.Show()

            Me.Finalize()

        Else

            MsgBox("contraseña incorrecta", vbCritical, "seguridad")

        End If

    End Sub

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

        If TextBox1.Text = "131610535-8" Then

            Dim A As New Form3

            A.Show()

            Me.Finalize()

        Else

            MsgBox("contraseña incorrecta", vbCritical, "seguridad")

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

End Class

CÓDIGO DE HORARIO

Public Class Form2

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

    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    End Sub

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

        Dim A As New Form1

        A.Show()

        Me.Finalize()

    End Sub

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

        End

    End Sub

End Class

CÓDIGO DE PROMEDIO DE CALIFICACIONES 

Public Class Form3

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

        Dim m1, m2, m3, m4, m5, m6, m7, m8, T, td, sp, P As Double

        m1 = (TextBox1.Text)

        m2 = (TextBox2.Text)

        m3 = (TextBox3.Text)

        m4 = (TextBox4.Text)

        m5 = (TextBox5.Text)

        m6 = (TextBox6.Text)

        m7 = (TextBox7.Text)

        m8 = (TextBox8.Text)

        T = (m1 + m2 + m3 + m4 + m5 + m6 + m7 + m8)

        td = (TextBox9.Text)

        sp = (td / 8)

        P = (TextBox10.Text)

    End Sub

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

        TextBox9.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text) + Val(TextBox8.Text)

    End Sub

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

        TextBox10.Text = Val(TextBox9.Text) / Val(8)

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

        TextBox9.Text = ""

        TextBox10.Text = ""

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        End

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim A As New Form1

        A.Show()

        Me.Finalize()

    End Sub

End Class