CODIGO

                                                                       CODIGO

RECUERDO

En lo particular ami me gusta mucho trabajar con mis compañeros por que con ellos yo siempre tengo confianza, Y CONFIÓ EN ELLOS, son los mejores amigos, con ellos es verdaderamente trabajar en equipo, con ellos nunca hay errores. siempre tenemos solución a todos los trabajos.

EZEQUIEL
JUAN
EMMANUEL
DIEGO

Esos son los chingones, hágala ellos nunca cambien.

IMAGENES DEL BANCO

PROYECTO FINAL "ENSAYO"

ENSAYO DEL BANCO

DOCUMENTACIÓN DEL BANCO

DOCUMENTACION

PROYECTO FINAL BANCO

BANCK INDUSTRY INTERNATIONAL INC.

MANUAL DEL BANCO

HABILIDADES

HABILIDADES

ARRIAGA SANTES NATANAEL

*Desarrollo del la aplicacion BANCO INDUSTRY INTERNATIONAL

AGUILAR ALVAREZ EZEQUIEL

*Diseño de la aplicacion

LEMUS CONTRERAS DIEGO ANGEL

*Creacion de la base de datos REGISTROS

LOPEZ ROMERO MIGUEL EMMANUEL

*Desarrollo del la aplicacion BANCO INDUSTRY INTERNATIONAL

GONZALEZ SERRANO JUAN

*Desarrollo del la aplicacion BANCO INDUSTRY INTERNATIONAL

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