CODIGO BANCO "IRIOR"

BANCO - IRIOR

 

 

Public Class Form1

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
EndEnd Sub

    End Class

 
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



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





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