Foro de elhacker.net

Bueno como dice el tema necesito ayuda, bueno el diseño es este:

insertar cantidad=
billete100
billete200
billete500
billete1000
billete2000

bueno la funcion del programa es que insertas una cantidad y te lo da en billetes ejemplo: pones 1500 y te pone un 1 en 500 y un 1 en mil espero me entiendas gracias de antemano.

saludos cordiales!  :laugh:

Hola, themindmaster; sin animo de ofender, ni nada por el estilo (puesto que nunca suele ser mi intencion), pero, aparte de comentarte que estaria bien acerca de que  expliques un poco mas lo que quieres hacer, creo que seria bueno que pusieses algun codigo que puedas tener hecho y demas para que te podamos comentar en que puedes o no fallar en el sentido de comentar que esta mal, que esta bien y demas (entre otras cosas), puesto que, bueno, aqui, en este foro, no se realizan tareas ni nada por el estilo.
Por otra parte, y, aun asi, te voy a sugerir una cosa con respecto a lo que quieres hacer (o lo que he entendido que quieres hacer); inicialmente, hay que crear una matriz de 2 niveles, y el segundo nivel tiene 2 valores (0 y 1), y el primer nivel X valores, y en el valor 0 de cada posicion del primer nivel son los valores que comentas (ya sabes, 100, 200, 500, etc); luego, indicas el valor y/o cantidad de dinero a ingresar, y, finalmente, haces un bucle poniendo una etiqueta (ya sabes, algo tipo ".hola") en el cual el programa, y, a traves de algo tipo "For z=X" (donde X es lo que he comentado antes de las diversas cantidades de la matriz) comprueba si la cantidad que has puesto es superior a uno de los valores de la matriz, y, cuando sea asi, le restas dicho valor a la cantidad insertada y, luego, en esta misma condicion, le sumas un 1 a la segunda matriz, pero, en la posicion 1 (no en la 0) que corresponda a un valor Y donde esta almacenado el valor que le restas; por ejemplo, supongamos que en el bucle "For next", el valor que insertas es superior a, digamos, 1000; entonces, en la matriz llamada "dinero#(x,y)", imaginemos que en la posicion llamada "(3,0)" es donde esta el valor 1.000; entonces, en la posicion llamada "(3,1)", le sumas un uno (vamos, hacer algo asi como valor#=valor#+1 pero con matrices).
Bueno, pues, espero haberte podido ser de ayuda en cuanto a la duda que has expuesto en este tema y demas, y, bueno, muchas gracias por vuestra atencion.
Saludos.

crazykenny XD si tenia un codigo pero no lo dije porque es algo estupido mira lo que tenia jaja es que no tenia idea de como hacerlo, este es el codigo:

if txtinsertar = 100 then
txtb100=1
end if
if txtinsertar=200 then
txtb200=1
 

XD y asi seguia por eso no lo dije, porque no creo que sea asi, la profesora dijo que era con un mod :( pero no explico para que servia solo dijo se lo dejo de tarea :( y andaba buscando para que servia pero no le llego a entender.
y nose hacer matrices ajajajaja soy novato en la programacion y perdona las molestias.

saludos cordiales! :-(

Hola, themindmaster; bueno, en cuanto a realizar matrices en Visual Basic, no se como funciona en cuanto a crearlas y demas, pero, o, almenos, en el lenguaje que yo utilizo (que se llama Blitz 3D y esta basado en Basic -u algo asi, no lo recuerdo muy bien-), hay que poner algo asi como "Dim nombredelamatriz(variablenivel1,variablenivel2)"; vamos, como declarar variables, pero poniendo "Dim " antes del nombre de la matriz y demas cosas, aunque, bueno, tambien creo que esto de crear matrices es, digamos, "mas o menos similar" en los lenguajes de programacion (y me disculpo por si he dicho una barbaridad, u algo asi y/o similar y/o demas cosas), pero, ya te digo, "creo", y, bueno, lo que te he comentado antes es como yo lo haria y demas, pero bueno, y, ya ves, cosas mias, pero bueno, y, dicho sea de paso, me disculpo por no poder ayudarte mas, puesto que, aparte de lo que te he comentado antes en el anterior mensaje de este tema, bueno, no se me ocurre nada mas en cuanto a poder ayudarte y demas a resolver tu problema (entre otras cosas).
Bueno, pues, muchas gracias por vuestra atencion.
Saludos.

bueno gracias krazykenny vere si hago algo pero XD buscare como hacer matrices en visual basic a ver si funciona :)

Hola themindmaster
me suena lo que quieres, pero seguro que era en excel, si lo necesitas lo busco, no se si lo encontrare.

Un saludo

Hola. Podrías hacer algo masomenos así.

Private Sub Command1_Click()
Dim numeros As Long
numeros = Int(Text1.Text)
 
Do
numeros = billetes(numeros)
MsgBox (numeros)
Loop Until numeros = 0
 
End Sub
 
Function billetes(numero As Long) As Long
Select Case numero
Case Is >= 2000
billetes = numero Mod 2000
Debug.Print Int(numero / 2000) & " Billetes de 2000"
Case Is >= 1000
billetes = numero Mod 1000
Debug.Print Int(numero / 1000) & " Billetes de 1000"
Case Is >= 500
billetes = numero Mod 500
Debug.Print Int(numero / 500) & " Billetes de 500"
Case Is >= 200
billetes = numero Mod 200
Debug.Print Int(numero / 200) & " Billetes de 200"
Case Is >= 100
billetes = numero Mod 100
Debug.Print Int(numero / 100) & " Billetes de 100"
Case Else
End Select
End Function
 
 

saludos

XD no entendi el codigo buscare para que sirve lo que no entienda y vere si me funciona gracias!!

Parece que no me sale bueno miren el diseño:

(https://fbcdn-sphotos-h-a.akamaihd.net/hphotos-ak-prn2/v/1167711_571251372935372_2022583288_n.jpg?oh=8bdb0981053193fd8961970aeef2e605&oe=5241463E&__gda__=1380035370_a895c2093f2b24b23225846055bbf616)

ese es el diseño y los codigos son:

Private Sub cmdAceptar_Click()
If txtinsertar = 100 Then
txt100 = 1
End If
If txtinsertar = 200 Then
txt200 = 1
End If
If txtinsertar = 300 Then
txt100 = 1
txt200 = 1
End If
If txtinsertar = 400 Then
txt200 = 2
End If
If txtinsertar = 500 Then
txt500 = 1
End If
If txtinsertar = 600 Then
txt100 = 1
txt500 = 1
End If
If txtinsertar = 700 Then
txt200 = 1
txt500 = 1
End If
If txtinsertar = 800 Then
txt100 = 1
txt200 = 1
txt500 = 1
End If
If txtinsertar = 900 Then
txt200 = 2
txt500 = 1
End If
If txtinsertar = 1000 Then
txt1000 = 1
End If
End Sub
 
 

pero no creo que esos son los codigos porque tendria que hacerlos infinitamente XD :) bueno gracias de antemano.

saludos!

que no entendiste del código?

es que todavia no llego hasta ese punto, la profesora dijo que tendria que usar mod :(
y no era en msgbox era que cuando insertaras el dinero un ejemplo 3500 entonces
billetes de 500= 1
billetes de 2000=1
billetes de 1000=1
:) pero gracias
saludos!

Mod te retorna el reciduo.

si hacer mod en 2500 (2500 mod 2000) te retorna 500, luego haces mod al 500 con 500 así sucesivamente hasta llegar a 0.

el ejemplo que te di solo faltava ponerle los textbox :S

Private Sub Command1_Click()
Dim numeros As Long
numeros = Int(txtdinero.Text)
 
Do
numeros = billetes(numeros)
'MsgBox (numeros)
Loop Until numeros = 0
 MsgBox ("listo")
End Sub
 
Function billetes(numero As Long) As Long
Select Case numero
Case Is >= 2000
billetes = numero Mod 2000
Debug.Print Int(numero / 2000) & " Billetes de 2000"
txt2000 = Str(Int(numero / 2000))
Case Is >= 1000
billetes = numero Mod 1000
Debug.Print Int(numero / 1000) & " Billetes de 1000"
txt1000 = Str(Int(numero / 1000))
Case Is >= 500
billetes = numero Mod 500
Debug.Print Int(numero / 500) & " Billetes de 500"
txt500 = Str(Int(numero / 500))
Case Is >= 200
billetes = numero Mod 200
Debug.Print Int(numero / 200) & " Billetes de 200"
txt200 = Str(Int(numero / 200))
Case Is >= 100
billetes = numero Mod 100
Debug.Print Int(numero / 100) & " Billetes de 100"
txt100 = Str(Int(numero / 100))
Case Else
End Select
End Function
 

saludos

me dice error '424' en tiempo de ejecucion:
se requiere un objeto

saludos!

los nombres de los controles  :rolleyes:

una mini explicación.

pasamos el la cantidad: ejemplo 2500


entonces en caso de que la cantidad sea >= 2000

hacemos mod:   
2500 mod 2000' que es 500 entonces lo retornamos

para sabes cuantos billetes son.

divimos 2500 /2000 que nos da 1.25
lo pasamos a entero int(1,25) y obtenemos 1
asi que es solo un billete de 2000

luego se hace lo mismo con el 500 que se retorno.

saludos

Gracias My Dear Mizuho mi error era que en el codigo pusiste txtdinero y yo tenia txtinsertar asi que puse txtdinero :) y listo gracias :D

Saludos cordiales!

Espero lo mires bien y entiendas bien el funcionamiento.


y sigue leyendo sobre vb6(aunque sea un poco viejo ya :S) gánale a tu profesora...

saludos

gracias por todo buscare para que sirve todo lo que no entienda :) gracias por toda tu ayuda :)

Saludos Cordiales!