.
Bueno le hice unas modificaciones (ya que me toco hacer se ejercicio mas tarde en mi clase) y he aqui el codigo del programa:
Aclaro: mi formulario tiene lo siguiente
TextBoxes:
Text1 (donde se ingresara la cantidad)
Estos que siguen no los tenemos que tocar por lo tanto, al menos yo lo hice, desabiliten cada textbox en la propiedad "Enabled" de "True" a "False"
Text2 (billete de a 5)
Text3 (billete de a 10)
Text4 (billete de a 20)
Text5 (billete de a 50)
Text6 (billete de a 100)
Command Buttons:
command1 (Calcular)
command2 (limpiar)
command3 (Salir)
Codigo del command1 (el de calcular)
IF (thisform.Text1.Value % 5) = 0
temp = thisform.Text1.Value
thisform.Text6.Value = INT(temp/100)
temp = temp%100
thisform.Text5.Value = INT(temp/50)
temp = temp%50
thisform.Text4.Value = INT(temp/20)
temp = temp%20
thisform.Text3.Value = INT(temp/10)
temp = temp%10
thisform.Text2.Value = INT(temp/5)
THISFORM.command2.SetFocus
THISFORM.command2.Enabled = .T.
THISFORM.command1.Enabled = .F.
ELSE
MESSAGEBOX("LA CANTIDAD INGRESADA NO ES VALIDA",16,"CAJERO AUTOMATICO (ATM)")
thisform.Text1.SetFocus
ENDIF
Codigo del command2 (limpiar)
thisform.Text1.Value = 0
thisform.Text2.Value = ""
thisform.Text3.Value = ""
thisform.Text4.Value = ""
thisform.Text5.Value = ""
thisform.Text6.Value = ""
thisform.Text1.setFocus
thisform.command1.Enabled = .T.
thisform.command2.Enabled = .F.
thisform.Refresh
Codigo del command3 (Salir)
IF (MESSAGEBOX("DESEA FINALIZAR?",1,"CAJERO AUTOMATICO (ATM)")) = 1
thisform.Release
ENDIF
Ok, mas adelante editare para que quede mas claro lo que hace cada cosa ok
saludos
Diseño de código y depurado por: MaxxDJ
5 comentarios:
grax, carlitos gracias a tu info entendi el programita y pude hacerlo en el lab ;P, siempre me salvas xD segui con tu blog esta chivo y es de mucha ayuda
que tal amigo me da este error: function argument value, type, or count is invalid.
tambien quisiera saber a que le llamas temp
avisame cuanto pagan en mi trabajo municipal
tengo la misma duda ayudaaa
No me funciona ayuda
Publicar un comentario