ayuda cajero automatico

Iniciado por themindmaster, 20 Septiembre 2013, 21:34 PM

0 Miembros y 2 Visitantes están viendo este tema.

themindmaster

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:
El sabio no se sienta para lamentarse, sino que se pone alegremente a su tarea de reparar el daño hecho.

crazykenny

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.
A nivel personal, lo que me da mas miedo no son los planteamientos y acciones individuales, sino las realizadas en grupo, ya que estas ultimas pueden acabar con consecuencias especialmente nefastas para todos.
Se responsable, consecuente y da ejemplo.
http://informaticayotrostemas.blogspot.com.es/2013/12/situacion-de-la-educacion-actual-en.html
https://informaticayotrostemas.blogspot.com/

themindmaster

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:
Código (vb) [Seleccionar]

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! :-(
El sabio no se sienta para lamentarse, sino que se pone alegremente a su tarea de reparar el daño hecho.

crazykenny

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.
A nivel personal, lo que me da mas miedo no son los planteamientos y acciones individuales, sino las realizadas en grupo, ya que estas ultimas pueden acabar con consecuencias especialmente nefastas para todos.
Se responsable, consecuente y da ejemplo.
http://informaticayotrostemas.blogspot.com.es/2013/12/situacion-de-la-educacion-actual-en.html
https://informaticayotrostemas.blogspot.com/

themindmaster

bueno gracias krazykenny vere si hago algo pero XD buscare como hacer matrices en visual basic a ver si funciona :)
El sabio no se sienta para lamentarse, sino que se pone alegremente a su tarea de reparar el daño hecho.

Pédrin-2

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
Pido disculpas por las pifias que pueda decir. el unico fin es ayudar y aprender.
        Un Saludo

Danyfirex

Hola. Podrías hacer algo masomenos así.

Código (vb) [Seleccionar]
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

themindmaster

XD no entendi el codigo buscare para que sirve lo que no entienda y vere si me funciona gracias!!
El sabio no se sienta para lamentarse, sino que se pone alegremente a su tarea de reparar el daño hecho.

themindmaster

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



ese es el diseño y los codigos son:
Código (vb) [Seleccionar]

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!
El sabio no se sienta para lamentarse, sino que se pone alegremente a su tarea de reparar el daño hecho.

Danyfirex

que no entendiste del código?