Autor
|
Tema: ayuda cajero automatico (Leído 7,406 veces)
|
themindmaster
Desconectado
Mensajes: 32
|
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!
|
|
|
En línea
|
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.
|
|
|
En línea
|
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. https://informaticayotrostemas.blogspot.com/Mi canal de Youtube: https://www.youtube.com
|
|
|
themindmaster
Desconectado
Mensajes: 32
|
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!
|
|
|
En línea
|
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.
|
|
|
En línea
|
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. https://informaticayotrostemas.blogspot.com/Mi canal de Youtube: https://www.youtube.com
|
|
|
themindmaster
Desconectado
Mensajes: 32
|
bueno gracias krazykenny vere si hago algo pero XD buscare como hacer matrices en visual basic a ver si funciona
|
|
|
En línea
|
El sabio no se sienta para lamentarse, sino que se pone alegremente a su tarea de reparar el daño hecho.
|
|
|
Pédrin-2
Desconectado
Mensajes: 171
|
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
|
|
|
En línea
|
Pido disculpas por las pifias que pueda decir. el unico fin es ayudar y aprender. Un Saludo
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
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
|
|
|
En línea
|
|
|
|
themindmaster
Desconectado
Mensajes: 32
|
XD no entendi el codigo buscare para que sirve lo que no entienda y vere si me funciona gracias!!
|
|
|
En línea
|
El sabio no se sienta para lamentarse, sino que se pone alegremente a su tarea de reparar el daño hecho.
|
|
|
themindmaster
Desconectado
Mensajes: 32
|
Parece que no me sale bueno miren el diseño: 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!
|
|
|
En línea
|
El sabio no se sienta para lamentarse, sino que se pone alegremente a su tarea de reparar el daño hecho.
|
|
|
Danyfirex
Desconectado
Mensajes: 493
My Dear Mizuho
|
que no entendiste del código?
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Cajero automatico
Programación Visual Basic
|
ellandax
|
2
|
4,279
|
5 Noviembre 2013, 21:04 pm
por dainodaibouken
|
|
|
Primer cajero automático de bitcoins
Noticias
|
wolfbcn
|
0
|
1,739
|
31 Octubre 2013, 02:05 am
por wolfbcn
|
|
|
Instalan en Helsinki el primer cajero automático de bitcoin
Noticias
|
wolfbcn
|
0
|
1,607
|
17 Diciembre 2013, 00:26 am
por wolfbcn
|
|
|
Abren el primer cajero automático de bitcoin en Irlanda
Noticias
|
wolfbcn
|
1
|
1,665
|
14 Marzo 2014, 02:11 am
por Gh057
|
|
|
[BATCH] Necesito ayuda con Simulador de cajero automatico
Scripting
|
elkpo32
|
0
|
3,203
|
7 Octubre 2015, 22:16 pm
por elkpo32
|
|