Ayuda sobre un cajero automatico...

alexlg44
07 de Noviembre del 2003
Hola de antemano gracias, estoy pidiendo ayuda por que soy principiante en VBasic pero estoy trabajando con unos ejercicios para aprender y uno de los ejercicion es hacer un programa tipo cajero automatico donde tu pongas cierta cantidad de dinero a retirar y el programa te tiene que dar el numero de billetes que utilizaras de manera que utilizes los menos billetes posibles las denominaciones son 20, 50, 100, 200, 500 nose como hacerlo, ya hice que la cantidad a retirar la dividiera entre cada denominacion y me da cuantos billetes de 500 necesitarias o de 20 pero no me da lo que se me pide ayudenme por favor... [email protected] gracias...

alexlg44
07 de Noviembre del 2003
muchas gracias baltasar ya me salio aunque lo modifique para ponerlo con las variables que yo ya habia asignado para no hacerme bolas muchas gracias...

Baltasar
07 de Noviembre del 2003
Hola

pon en un formulario varios textbox y llámalos:

TxtCantidad, Txt500, Txt200, Txt100, Txt50, Txt25 y TxtRexto

y además un commandbutton llamado command1

agrega este código:

Dim MCantidad As Long
Dim m500, m200, m100, m50, m25 As Long

Private Sub Command1_Click()
m500 = 0
m200 = 0
m100 = 0
m50 = 0
m25 = 0
MCantidad = Val(TxtCantidad)
If MCantidad >= 500 Then
m500 = Int(MCantidad / 500)
MCantidad = MCantidad - (m500 * 500)
End If
If MCantidad >= 200 Then
m200 = Int(MCantidad / 200)
MCantidad = MCantidad - (m200 * 200)
End If
If MCantidad >= 100 Then
m100 = Int(MCantidad / 100)
MCantidad = MCantidad - (m100 * 100)
End If
If MCantidad >= 50 Then
m50 = Int(MCantidad / 50)
MCantidad = MCantidad - (m50 * 50)
End If
If MCantidad >= 25 Then
m25 = Int(MCantidad / 25)
MCantidad = MCantidad - (m25 * 25)
End If
Txt500 = m500
Txt200 = m200
Txt100 = m100
Txt50 = m50
Txt25 = m25
TxtResto = MCantidad
End Sub


y sólo falta introducir la cantidad en txtcantidad y pulsar el botón.

Saludos

Baltasar
07 de Noviembre del 2003
Ahora que me fijo, falta un detalle que es importante, jeje. Falta hacer que la aplicación "decida" usar diferentes combinaciones de billetes para "redondear", me explico: si pides 30, que no te dé un billete de 25 y quede un resto de 5. Bueno, vete mirando este ejemplo que te he puesto y lo miraré con calma.

Baltasar
07 de Noviembre del 2003
Es que no tengo remedio!

el posible error que he puesto no es correcto, el problema sería si tuvieras billetes de 10, que no los tienes! (en España sí, jeje) Pues por lo que veo no vas a encontrarte con problemas, ya que con esos billetes parece que no se presentan esas cosas.

Saludos