Evaluación 2

EVALUACIÓN 2

CODIGO INTERFAZ PRINCIPAL

PublicClassForm1

PrivateSub Button1_Click(ByValsenderAsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
If TextBox1.Text = "131610182-4"Then
Dim A AsNewForm2
A.Show()
Me.Finalize()
Else
MsgBox("Contraseña Incorrecta", vbCritical, "Segurida­d")
EndIf
EndSub
PrivateSub Button2_Click(ByValsenderAsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
If TextBox1.Text = "131610182-4"Then
Dim A AsNewForm3
A.Show()
Me.Finalize()
Else
MsgBox("Contraseña Incorrecta", vbCritical, "Segurida­d")
EndIf
EndSub
PrivateSub Button3_Click(ByValsenderAsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click
End
EndSub
EndClass

CODIGO INTERFAZ HORARIO

PublicClassForm2

PrivateSub Button1_Click(ByValsenderAsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Dim A AsNewForm1
A.Show()
Me.Finalize()
EndSub
PrivateSub Button2_Click(ByValsenderAsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
End
EndSub
EndClass

CODIGO INTERFAZ PROMEDIO

PublicClassForm3

PrivateSub Label1_Click(ByValsenderAsSystem.Object, ByVal e AsSystem.EventArgs) Handles Label1.Click
Dim v1, v2, v3, v4, v5, v6, v7, vp, r AsInteger
        v1 = (TextBox1.Text)
        v2 = (TextBox2.Text)
        v3 = (TextBox3.Text)
        v4 = (TextBox4.Text)
        v5 = (TextBox5.Text)
        v6 = (TextBox6.Text)
        v7 = (TextBox7.Text)
vp = (v1 + v2 + v3 + v4 + v5 + v6 + v7)
        r = (TextBox8.Text)
EndSub
PrivateSub Button1_Click(ByValsenderAsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
        TextBox8.Text = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text) + Val(TextBox7.Text)) / 7
EndSub
PrivateSub Button2_Click(ByValsenderAsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button2.Click
End
EndSub
PrivateSub Button3_Click(ByValsenderAsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click
Dim A AsNewForm1
A.Show()
Me.Finalize()
EndSub
EndClass

 

 

EZEQUIEL AGUILAR ÁLVAREZ

GRUPO: 403

PROGRAMACIÓN ORIENTADA A OBJETOS

PROFESORA: NORMA ANGELICA HERNÁNDEZ COLIN