Post on 13-Apr-2018
7/27/2019 29954528 Cajero Automatico Codigo
1/6
CAJERO AUTOMATICO
Interfaces
Interfaz de Bienvenida:
Interfaz contrasea:
7/27/2019 29954528 Cajero Automatico Codigo
2/6
Interfaz men cajero:
Interfaz de retiro de dinero:
Proramaci!n de "a contrasea :
PrivateSubButton1_Click(ByValsender AsSystem.Object, ByVale AsSystem.ventAr!s" #andlesButton1.Click
$%(&e'tBo'1.&e't doc1 And&e'tBo').&e't cont1" &*en cont cont1 saldoac saldo1 nusu 1 +orm.S*o-("
7/27/2019 29954528 Cajero Automatico Codigo
3/6
e.#ide("
lse$%(&e'tBo'1.&e't doc) And&e'tBo').&e't cont)" &*en cont cont) saldoac saldo) nusu ) +orm.Visible &rue
e.Visible +alse
lse$%(&e'tBo'1.&e't doc And&e'tBo').&e't cont" &*en cont cont saldoac saldo nusu +orm.Visible &rue e.Visible +alse lse cont cont / 1 s!Bo'(0clave incorrecta0" s!Bo'(cont" $%(cont " &*en
s!Bo'(0suero el numero de intentos0" e.Visible +alse +orm1.Visible &rue
nd$%
nd$% &e'tBo'1.2eset&e't(" &e'tBo').2eset&e't(" ndSub
PrivateSub+orm)_3oad(ByValsender AsSystem.Object, ByVale AsSystem.ventAr!s" #andlesyBase.3oad 4imcont As$nte!er cont 5 ndSub
Com#ro$aci!n de retiro #or medio de %c&e$o'( ms$o')
$%(C*eckBo'1.C*eckState C*eckState.C*ecked" &*en $%(saldoac 6 75555" &*en s!Bo'(0su retiro es de 875.5550" valret 75555 saldonv saldoac 9 valret
saldo saldonv +orm:.Visible &rue e.Visible +alse
nd$% nd$% $%(C*eckBo').C*eckState C*eckState.C*ecked" &*en $%(saldoac 6 155555" &*en s!Bo'(0su retiro es de 8155.5550"
7/27/2019 29954528 Cajero Automatico Codigo
4/6
valret 155555 saldonv saldoac 9 valret saldo saldonv +orm:.Visible &rue e.Visible +alse
nd$%
nd$% $%(C*eckBo'.C*eckState C*eckState.C*ecked" &*en $%(saldoac 6 )55555" &*en s!Bo'(0su retiro es de 8)55.5550" valret )55555 saldonv saldoac 9 valret saldo saldonv +orm:.Visible &rue e.Visible +alse
nd$%
nd$%
$%(C*eckBo';.C*eckState C*eckState.C*ecked" &*en $%(saldoac 6 55555" &*en s!Bo'(0su retiro es de 855.5550" valret 55555 saldonv saldoac 9 valret saldo saldonv +orm:.Visible &rue e.Visible +alse
nd$%
nd$% $%(C*eckBo'7.C*eckState C*eckState.C*ecked" &*en
$%(saldoac 6 ;55555" &*en s!Bo'(0su retiro es de 8;55.5550" valret ;55555 saldonv saldoac 9 valret saldo saldonv +orm:.Visible &rue e.Visible +alse
nd$%
nd$% $%(C*eckBo'
7/27/2019 29954528 Cajero Automatico Codigo
5/6
Contrasea * sa"do de cada +s+ario #or medio de" form+"ario , * +n mod+"o
PrivateSub+orm1_3oad(ByValsender AsSystem.Object, ByVale AsSystem.ventAr!s" #andlesyBase.3oad doc1 =51
7/27/2019 29954528 Cajero Automatico Codigo
6/6
Interfaz de cam$io de contrasea de" +s+ario
C!dio de este form+"ario #ara cam$iar "a contrasea de" +s+ario:
PublicClass+orm=
PrivateSubButton1_Click(ByValsender AsSystem.Object, ByVale AsSystem.ventAr!s" #andlesButton1.Click $%(cont Val(&e'tBo'1.&e't"" &*en $%(cont cont1" &*en cont1 &e'tBo').&e't lse$%(cont cont)" &*en
cont) &e'tBo').&e't lse$%(cont cont" &*en cont &e'tBo').&e't
nd$% s!Bo'(0su clave a sido cambiada0" lse s!Bo'(0contrase>a incorrecta0" nd$% +orm).Visible &rue e.Visible +alse
ndSub
Teniendo en c+enta e" c!dio de" form+"ario de contrasea #ara -+e "as
varia$"es conc+erden.