andy
06 de Diciembre del 2005

hola espero que me puedas ayudat tengo un problema con un formulario por que no se que codigo debo usar el problema es el siguientede entrada tengo que indicar una cantidad y el formilario me tien e que desir la menor cantidad de billetes a usar los billetes son de 10,20,50,100 espero que me puedas ayudar

sgomez
06 de Diciembre del 2005

Ahí vá. Obviamente tenés que chequear que no introduzcan valores que no sean multiplos de 10, que es el valor minimo ya que se escaparian (por ejemplo: billetes de 5)


local cantidad100,cantidad50,cantidad20,cantidad10,resto
store 0 to cantidad100,cantidad50,cantidad20,cantidad10
resto=thisform.text1.value
cantidad100=int(resto/100)
resto=resto-(cantidad100*100)
cantidad50=int(resto/50)
resto=resto-(cantidad50*50)
cantidad20=int(resto/20)
resto=resto-(cantidad20*20)
cantidad10=int(resto/10)
resto=resto-(cantidad10*10)

messagebox("Billetes de 100:"+alltrim(str(cantidad100))+chr(10)+"Billetes de 50:"+alltrim(str(cantidad50))+chr(10)+"Billetes de 20:"+alltrim(str(cantidad20))+chr(10)+"Billetes de 10:"+alltrim(str(cantidad10))+chr(10))