Proyecto Final
 |
Clic para ver Código |
Código
EZEQUIEL AGUILAR ÁLVAREZ
miércoles, 17 de junio de 2015
martes, 16 de junio de 2015
Recuerdo
Recuerdo:
Bueno pues en lo particular, siempre me ha gustado
trabajar con mis compañeros, ya que siempre nosotros cinco, nos
apoyamos, en cualquier cosa que necesitemos cada uno de nosotros.
Espero que
nunca cambien ya que no solo son unas excelentes personas, si no también
unos excelentes AMIGOS en los cuales cualquier persona
podría confiar.
EZEQUIEL AGUILAR ÁLVAREZ
GRUPO: 403
PROGRAMACIÓN ORIENTADA A OBJETOS
PROFESORA: NORMA ANGÉLICA HERNÁNDEZ COLÍN
Proyecto Final Visual Basic Interfaz
Proyecto Final
Interfaces
EZEQUIEL AGUILAR ÁLVAREZ
GRUPO: 403
PROGRAMACIÓN ORIENTADA A OBJETOS
PROFESORA: NORMA ANGÉLICA HERNÁNDEZ COLÍN
Proyecto Final Visual Basic Documentación
Proyecto Final
 |
| Clic para ver Documentación |
EZEQUIEL AGUILAR ÁLVAREZ
GRUPO: 403
PROGRAMACIÓN ORIENTADA A OBJETOS
PROFESORA: NORMA ANGÉLICA HERNÁNDEZ COLÍN
Proyecto Final Visual Basic Ensayo
Proyecto Final
 |
| Clic para ver Ensayo |
EZEQUIEL AGUILAR ÁLVAREZ
GRUPO: 403
PROGRAMACIÓN ORIENTADA A OBJETOS
PROFESORA: NORMA ANGÉLICA HERNÁNDEZ COLÍN
Proyecto Final Visual Basic Manual de Usuario
miércoles, 6 de mayo de 2015
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
Suscribirse a:
Entradas (Atom)