ACTIVIDAD 6 Y 7

FORM DE VACACIONES

LINK DE FORM1 INTERFAZ PRINCIPAL

Public Class Form1

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

        Dim A As New Form2

        A.Show()

        Me.Finalize()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.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

        End

    End Sub

End Class

LINK DE FORM2 INTERFAZ  DE IMAGENES

Public Class Form2

    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

End Class

LINK DE FORM3 INTERFAZ COMENTARIO

Public Class Form3

    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

End Class

FORM DE BANCO

FORM PRINCIPAL PANTALLA

Public Class Form1

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

        Dim A As New Form2

        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

FORM DE LA PANTALLA 1

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

FORM DE LA PANTALLA 1

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

FORM DE LA PANTALLA 4

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