Programa monetario
Hola, bueno necesito hacer un programa en VB que consiste en digitar cierta cantidad de dinero, y que me aparezca cuantos billetes significan esa cantidad de dinero.
Por ejemplo, en moneda chilena(peso):
ingrese cantidad: | 1250 | `texbox
20.000 = 0 ' 0 es textobox asi como todos los demas
10.000 = 0
5.000 = 0
2.000 = 0
1.000 = 1
500 = 0
100 = 2
50 = 1
10 = 0
5 = 0
1 = 0
También un botón que borre todos los textbox llamado otro ingreso
Gracias
Por ejemplo, en moneda chilena(peso):
ingrese cantidad: | 1250 | `texbox
20.000 = 0 ' 0 es textobox asi como todos los demas
10.000 = 0
5.000 = 0
2.000 = 0
1.000 = 1
500 = 0
100 = 2
50 = 1
10 = 0
5 = 0
1 = 0
También un botón que borre todos los textbox llamado otro ingreso
Gracias
1 respuesta
Respuesta de Luis Angel Octavio Alcaraz Barajas
1
lo que quieres hacer es separar la cadena de acurdo la unidad
dim i as integer = 0 'contador
while i< textbox.text.leng ' i es el contador y textbox es el textbox donde escribes tu cantidad
dim chobtener as char ' va a contener el caracter a buscar
chobtener= textbox.char(i)
select case i
case 0
textboxunidades.text= chobtener ' escribe el primer carcter
case 1
textBoxdecena.text= chobtener ' escribe el segundo caracter
case 2
textBoxcentena.text = chobtener ' escribe el tercer caracter
case ...
case n
textBoxn.text= chobtener 'escribe el caracter n
i+= 1
end while
dim i as integer = 0 'contador
while i< textbox.text.leng ' i es el contador y textbox es el textbox donde escribes tu cantidad
dim chobtener as char ' va a contener el caracter a buscar
chobtener= textbox.char(i)
select case i
case 0
textboxunidades.text= chobtener ' escribe el primer carcter
case 1
textBoxdecena.text= chobtener ' escribe el segundo caracter
case 2
textBoxcentena.text = chobtener ' escribe el tercer caracter
case ...
case n
textBoxn.text= chobtener 'escribe el caracter n
i+= 1
end while
Tengo una acotación...
El programa debe sumar todos los valores encontrados en un label o en un textbox, da lo mismo, el asunto es que sume todos los valores...
Por ejemplo:
ingrese cantidad: | 1325 |
20.000 = 0 '0 es textbox al igual que todos los otros
10.000 = 0
5.000 = 0
2.000 = 0
1.000 = 1
500 = 0
100 = 3
50 = 0
10 = 2
5 = 1
1 = 0
(otro ingreso) ' boton otro ingreso, limpia todo
Y también poder escribir en los textbox cantidades, y que estos los multiplique por la cantidad teniendo como resultado una cantidad monetaria por ejemplo:
20.000 = 3
10.000 = 0
5.000 = 1
2.000 = 0
1.000 = 0
500 = 0
100 = 0
50 = 0
10 = 0
5 = 0
1 = 1
Total = 65001
El programa debe sumar todos los valores encontrados en un label o en un textbox, da lo mismo, el asunto es que sume todos los valores...
Por ejemplo:
ingrese cantidad: | 1325 |
20.000 = 0 '0 es textbox al igual que todos los otros
10.000 = 0
5.000 = 0
2.000 = 0
1.000 = 1
500 = 0
100 = 3
50 = 0
10 = 2
5 = 1
1 = 0
(otro ingreso) ' boton otro ingreso, limpia todo
Y también poder escribir en los textbox cantidades, y que estos los multiplique por la cantidad teniendo como resultado una cantidad monetaria por ejemplo:
20.000 = 3
10.000 = 0
5.000 = 1
2.000 = 0
1.000 = 0
500 = 0
100 = 0
50 = 0
10 = 0
5 = 0
1 = 1
Total = 65001
Lo puedes hacer a través de la condición modulo empezando con la parte más grande que tengas ejemplo tienes una cantidad 67,350
primero deberías dividirlo entre 20,000 esto te daría 3 y sobraría 7,350
segundo dividirlo entre 10,000 esto te daría 0 y te sobraría 7,350
y así sucesivamente hasta que llegue la cantdad a cero cuando pones una cantidad 3%2 esto se le llama modulo
saludos espero que te sirva
primero deberías dividirlo entre 20,000 esto te daría 3 y sobraría 7,350
segundo dividirlo entre 10,000 esto te daría 0 y te sobraría 7,350
y así sucesivamente hasta que llegue la cantdad a cero cuando pones una cantidad 3%2 esto se le llama modulo
saludos espero que te sirva
