Enamorate

SUSCRIBETE

Recibe en tu correo lo ultimo del blog totalmente gratis

¡suscribete ya!

Escribe tu correo electronico:

Delivered by FeedBurner

Creacion de un simulador de cajero electronico
En esta ocacion diseñare la simulación de un cajero electronico en el cual útilizare 3 formularios, el primer formulario hare lo siguiente:

ahora solo codificare el boton iniciar con lo siguiente:
If Text1 = "" Then
MsgBox " DEBE INGRESAR EL NUMERO DE SU TARJETA DE CREDITO"
Else
Text1 = Val(Text1)

Form2.Show
Me.Visible = False
End If

el segundo formulario es el siguiente:

para eso la codificación que realizare sera l siguiente:

en este caso retirar saldo sera el formulario 3 y el otro consultar saldo sera el 4
la cual quedaria asi
en el form3 haciendo doble clic sobre retirar saldo pondre:
Form3.Show
Me.Visible = False
y en el otro = solo que en ves de sera el 4.


el formulario 3 que vemos arriba de nosotros llebara lo siguiente:
.....................................................................................
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox " DEBE INGRESAR LA CANTIDAD A RETIRAR"
ElseIf Text1 = Val(Text1) Then
Label2.Caption = "¡SU SALDO HA SIDO RETIRADO CON EXITO!"
Label2.ForeColor = RGB(0, 0, 0)
Label2.FontBold = True
If Text1 <= 499 Then Label2.Caption = "SOLO PUEDE RETIRAR MAS DE $500 PESOS " Label2.ForeColor = RGB(0, 0, 0) Label2.FontBold = True ElseIf Text1 >= 10000 Then
Label2.Caption = " SU TARJETA NO CUENTA CON SUFICIENTE SALDO PARA REALIZAR ESTA ACCION"
Label2.ForeColor = RGB(0, 0, 0)
Label2.FontBold = True

End If
End If
End Sub

.....................................................................................
Private Sub Command2_Click()
Text1 = ""
TEXT2 = ""


End Sub
.............................................................................
Private Sub Command3_Click()
Form2.Show
Me.Visible = False
End Sub
...............................................................................
En el formulario 4 realizare lo siguiente:


La codificación en cada boton seria la siguiente:

Como podras ver en el formulario eh ingrese dos label "etiquetas" la primera dice su saldo actual es y la segunda no se pero se mostrara al darle al boton Ok.


Private Sub Command1_Click()
If Command1 Then
Label2 = " $10000 PESOS"

End If
End Sub

Private Sub Command2_Click()
Form2.Show
Me.Visible = False


End Sub

Private Sub Command3_Click()
End
End Sub


Ver videotutorial: