APLICACION DE CAJERO AUTOMATICO (FOXPRO)

Bueno, a temprana mañana me desperto una muy gran amiga (gracias Brenda, ese dia me hubiese atrasado todo si no me despertas), para preguntarme sobre la aplicacion que publique en mi blog
.

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