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
