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