CAJERO AUTOMATICO

**alanurb** · 30/03/2009, 12:35

< ="Content-" content="text/; charset=utf-8">< name="ProgId" content="Word.">< name="Generator" content="Microsoft Word 12">< name="Originator" content="Microsoft Word 12"><a href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CCONFIG%7E1%5CT emp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml" target="_blank"><a href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CCONFIG%7E1%5CT emp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx" target="_blank"><a href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CCONFIG%7E1%5CT emp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping. xml" target="_blank"><!--[if gte mso 9]><>
<w:Word>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:Trackatting/>
<w:HyphenationZone>21</w:HyphenationZone>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfInvalid>false</w:SaveIfInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w

onotPromoteQF/>
<w:LidThemeOther>ES-AR</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplex>X-NONE</w:LidThemeComplex>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w

ontGrowAutofit/>
<w:SplitPgBreakAndark/>
<w

ontVertAlignCellWithSp/>
<w

ontBreakConstrainedForcedTables/>
<w

ontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="--"/>
<m:smallFrac m:val="off"/>
<m:dispDef/>
<m:lMargin m:val="0"/>
<m:rMargin m:val="0"/>
<m:defJc m:val="centerGroup"/>
<m:wrapIndent m:val="1440"/>
<m:intLim m:val="subSup"/>
<m:naryLim m:val="undOvr"/>
</m:mathPr></w:Word>
</><![endif]--><>

Se
tiene un cajero automático el cual permite manipular cierta cantidad de dinero
para lo cual dispone de los siguientes billetes: S/. 10.00, S/. 20.00, S/.
50.00, S/. 100.00 y S/. 200.00.
Elaborar una aplicación que permita la lectura de la cantidad a retirar e
indique el menor número de billetes a utilizar.

Porfavor ayudenme con el codigo de este ejercicio

**Knossos** · 31/03/2009, 03:29

Hola..!

La verdad (y sólo mi opinion personal) no esta bién que publiques tus tareas escolares en estos foros. Ya se ha debatido el tema éste en otros tópicos. No es que la gente no quiera ayudar; pero si resolvemos tus problemas...¿para que vas al colegio?, o mejor dicho ¿Que haces mientras el profe explica ? (si es que es una tarea de l uni..! sinó TE PIDO MIL DISCULPAS)

...De todas maneras, te daré algunos consejos que te ayudarán a resolver el tema; mas bien... todos los temas que se te plantean, pero al menos si te dan una tarea a realizar, intenta primero "hacer algo" y luego postea todas tus inquietudes en base a "donde te has perdido".

A ver: Siempre intenta primero enfocar el problema en "papel". En programación hay algo que se llama Capa lógica, o Entorno de Negocio; que mas allá de que resuelva el problema, se encarga de hacer la lógica de lo que el programa tiene que hacer.

En tu caso: un ejemplo sería meterte en un bucle donde le pases por parámetro (o tengas una variable global...tu mismo) el importe a calcular. Luego, le restas el billete MAYOR que corresponda al importe y lo guardas en una variable de tipo contador.

Algo así como (suponiendo que el importe restante son 156 euros)

if... puedoutilizarunbillete de 500 <- no entraria
If... puedoutilizarunbillete de 200 <- no entraria
If... puedoutilizarunbillete de 100 .. esta se cumple
importeacalcular = importeacalcular - 100
ContadorDeBilletesDeCien = ContadorDeBilletesDeCien+1
... y aqui sales de la funcion para que calcule otra vez todo (es necesario que comience desde el de 500)
(Puedes hacer una recursion o bien fuera de esta rutina, un bucle hasta que no haya mas dinero a calcular)

endif

Espero te sirva y puedas resolver el tema.

Un abrazo desde España.

**alanurb** · 02/04/2009, 08:59

Soy nuevo en cuetiones de visual basic el anterior aporte no lo comprendi muy bien de todas maneras gracias.

EL ejercicio del cajero automatico segun tengo como base el es la division de la cantidad por el numero mayor que en este caso seria 200, luego el resultado de esta division se divide por 100 y despues por 50 el problema es que no me se la sintaxis de visualbasic.

Disculpen todos aquellos qeu creen que posteo esto para salir de una tarea pero acudo aqui por que se muchos tienen conocimientos en esta area, no para que me regañen.

Les quedo muy agradecido por su colaboracion de facilitarme la sixtansix en visaul basic

**HAL9000** · 02/04/2009, 09:37

El algoritmo que puso Knossos funciona perfectamente, claro que a casitodos se nos ocurre antes el de la división, y tal y como tú lo explicas... ¡no funciona!. Claro que puede ser una errata en la frase"el resultado de la división".............
Si es por sintaxiste sugierousar sentencias como las siguientes (no necesariamente en ese orden)...:

For i = 1 To ClasesBilletes
'...
Next

UnValor = Int(iCantidad/ValorBillete)

OtroValor = (iCantidad Mod ValorBillete)

Saludos desde España.

**Knossos** · 03/04/2009, 01:57

Hola..!

Es cierto lo de la división para calcular los valores, y luego utilizar el resto para seguir calculándolo. Entonces: ¿Por qué he echo el ejercicio de esa forma?

El tema es que es un "copiar y pegar" de otro ejercicio que tengo para calcular cantidades de líquidos en botellas, y el problema estaba en que nunca sabíamos la cantidad y la capacidad de las botellas, y aún sabiéndolas, tampoco las teníamos ordenadas por "tamaño o capacidad" de las mismas.

El tema era el siguiente: Dado un Barril de 500 litros, vendíamos una botela de 1 litro, luego una de 3/4, luego OTRA de 1 litro, luego, una de esas de 5 litros, etc, etc. Entonces, debíamos no solo saber cuanto liquido nos quedaba, sino que además teniamos que hacer un informe de la cantidad de botellas utilizadas al final del día, y luego otro informe de las botellas mas utilizadas y como se habia "desglozado" el barril.

El tema del cajero es algo más simple, porque siempre sabemos la cantidad a retirar y los billetes que hay....pero.....¿que pasa si necesitamos hacer este programa/rutina de forma que funcione en otras partes del mundo? ... o algo más común (que tal vez tu profesor no ha tenido en cuenta) ¿Y si el cajero no dispone de cierto(s) billete(s) en determinado momento?

Aqui en españa hay billetes de 200....pero no estoy seguro de que los haya en otros lados; por lo cual, si a la funcion le pasamos por referencia un array con los billetes de los que existen (o dispone la máquina; porque hay que evaluar TAMBIEN la disponibilidad de billetes dentro del aparato), la rutina funciona bien, ya que dentro es casi imopsible anidar unos Iffss si no sabemos la cantidad de unidades distintas a tratar...

Si sólo nos quedan 3 billetes de 200 euros para restarle a la cantidad de 1500...pues... por más division que hagamos (nos retornaría 7 billetes)... no los hay fisicamente..!!!!!!!!!!! y la división se va al traste; pero si utilizamos un contador interno de los billetes, pues smiplemente, mientras los sumamos a lo que hay que darle al cliente, lo descontamos del "stock" de papelitos de colores de los que dispone el cajero.

Espero que esto le sirva a alguien.

Un abrazo desde España.

**HAL9000** · 03/04/2009, 08:06

Pues a mí me gustó tu algoritmo de "llenado" (o "vaciado" según como se mire... jeje). No estoy nada seguro de que sea más eficiente la manera rutinaria de las divisiones, sobre todo teniendo en cuenta los posibles problemas que apuntas del "mundo real" de que falten billetes de algún tipo... o que no se controle que el usuario ponga cifras terminadas en 5 por poner otro ejemplo... (Divido, me da 5 billetes, pero sólo tengo 3... tengo que calcular de otra manera el resto.. etc
Así quedaría un ejemplito facil de lo que dices (sin Ifs anidados, claro):

Código:

Public Function RetiradaFondos(intCantidad As Integer) As BilletesSalida

 Dim Billetes(1 To 5) As BilletesCajero
 Billetes(1).Valor = 200: Billetes(1).Cantidad = 5
 Billetes(2).Valor = 100: Billetes(2).Cantidad = 10
 Billetes(3).Valor = 50: Billetes(3).Cantidad = 15
 Billetes(4).Valor = 20: Billetes(4).Cantidad = 20
 Billetes(5).Valor = 10: Billetes(5).Cantidad = 25
 
 Dim intFalta As Integer, i As Integer
 Dim HayBilletes As Boolean
 
 intFalta = intCantidad
 HayBilletes = True
 
 Do While intFalta <> 0 And HayBilletes
 HayBilletes = False
 i = 1
 Do While i <=UBound(Billetes) And Not HayBilletes
 HayBilletes = Billetes(i).Cantidad > 0 And Billetes(i).Valor <= intFalta
 If HayBilletes Then
 Billetes(i).Cantidad = Billetes(i).Cantidad - 1
 RetiradaFondos.Cantidad(i) = RetiradaFondos.Cantidad(i) + 1
 intFalta = intFalta - Billetes(i).Valor
 End If
 i = i + 1
 Loop
 Loop
 
 RetiradaFondos.Ok = HayBilletes
 
End Function

Quitando la inicialización para el ejemplo (que no sería necesaria si la función fuera miembro de la clase clsCajero que ya guardaría los datos)...y si VB6 fuera un lenguaje más decente la función sería mucho más compacta. Por ejemplo, retorna esto para una entrada de 2160:

Watch : - : RetiradaFondos : : BilletesSalida : Principal.RetiradaFondos
- : Cantidad : : Integer(1 to 5) : Principal.RetiradaFondos
: Cantidad(1) : 5 : Integer : Principal.RetiradaFondos
: Cantidad(2) : 10 : Integer : Principal.RetiradaFondos
: Cantidad(3) : 3 : Integer : Principal.RetiradaFondos
: Cantidad(4) : 0 : Integer : Principal.RetiradaFondos
: Cantidad(5) : 1 : Integer : Principal.RetiradaFondos
: Ok : Verdadero : Boolean : Principal.RetiradaFondos

Yo creo que es una seria alternativa al otro método, que dudo diera un código más claro y más eficiente... a veces el copiar/pegar tiene buenos efectos secundarios... jaja

Saludos.

**Knossos** · 06/04/2009, 01:42

:-)

Recursos Visual Basic.NET, VB.NET, Manuales de programación, Tutoriales, Foros de programación, Comunidad de programadores

Foros de programación, recursos, tutoriales, sistemas operativos...

Tema: CAJERO AUTOMATICO

LinkBack

Herramientas

Buscar tema

Visualizar

Temas similares

codigo fuente, simulador de cajero automatico

Sacar el RFC en automatico

Pantalla de cajero (arbol de menús)

Llenado automatico textbox

Login automatico en una web

Permisos de publicación