Banco

"BANCO"

CÓDIGO INTERFAZ PRINCIPAL

Public Class Form1

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

        If TextBox1.Text = "131610182-4" 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

        End

    End Sub

End Class

CÓDIGO 2a INTERFAZ

Public Class Form2

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

        Dim A As New Form4

        A.Show()

        Me.Finalize()

    End Sub

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

        Dim A As New Form3

        A.Show()

        Me.Finalize()

    End Sub

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

        Dim A As New Form1

        A.Show()

        Me.Finalize()

    End Sub

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

    End Sub

End Class

CÓDIGO INTERFAZ SALDO

Public Class Form3

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

        Dim A As New Form1

        A.Show()

        Me.Finalize()

    End Sub

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

        TextBox2.Text = Val(TextBox1.Text) * 0.2

        TextBox3.Text = Val(TextBox3.Text) + Val(TextBox2.Text)

        TextBox1.Text = Val(TextBox1.Text) - Val(TextBox3.Text)

    End Sub

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

        Dim A As New Form2

        A.Show()

        Me.Finalize()

    End Sub

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

    End Sub

End Class

CÓDIGO INTERFAZ CONSULTA SALDO

Public Class Form4

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

        TextBox2.Text = Val(TextBox1.Text) * 0.15

        TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)

    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 Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim A As New Form2

        A.Show()

        Me.Finalize()

    End Sub

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

    End Sub

End Class

EZEQUIEL AGUILAR ÁLVAREZ 

GRUPO: 403

PROGRAMACIÓN ORIENTADA A OBJETOS

PROFESORA: NORMA ANGÉLICA HERNÁNDEZ COLÍN

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