Programación General > Visual Basic para principiantes
¿Como hago un software para cajero?
trogua_z:
:mellow: interesante gracias, aunque aun no emos empezado a ver matrices, sinceramente apenas empece el curso hace 2 meses (programacion 2) el 1 fue con C++ (no me gusto para nada) y este de ahora es con visual basic 2005.net y la verdad es la primera vez que trabajo con el, pero creo que investigando y trabesiando un poco me familiarisare con su uso. :lol:
Jimbenit:
--- Cita de: "trogua_z" ---:mellow: interesante gracias, aunque aun no emos empezado a ver matrices, sinceramente apenas empece el curso hace 2 meses (programacion 2) el 1 fue con C++ (no me gusto para nada) y este de ahora es con visual basic 2005.net y la verdad es la primera vez que trabajo con el, pero creo que investigando y trabesiando un poco me familiarisare con su uso. :lol:
--- Fin de la cita ---
Hola a todos, okey, aqui coloco mi code sin matrices, basicamente es la misma filosofia que la de Nebire, aqui la dejo en un Module
--- Código: vb.net ---Module Module1 'billetes de 200, 100, 50, 20, 10 Public Sub Repartir(ByVal Cantidad As Integer) Dim Billete200 As Integer Dim Billete100 As Integer Dim Billete50 As Integer Dim Billete20 As Integer Dim Billete10 As Integer Do While Cantidad >= 10 Select Case Cantidad Case Is >= 200 Billete200 = Cantidad 200 Cantidad = Cantidad - Billete200 * 200 Case Is >= 100 Billete100 = Cantidad 100 Cantidad = Cantidad - Billete100 * 100 Case Is >= 50 Billete50 = Cantidad 50 Cantidad = Cantidad - Billete50 * 50 Case Is >= 20 Billete20 = Cantidad 20 Cantidad = Cantidad - Billete20 * 20 Case Is >= 10 Billete10 = Cantidad 10 Cantidad = Cantidad - Billete10 * 10 End Select Loop MsgBox("Hay " & Billete200 & " de 200, " & Billete100 & " de 100, " & Billete50 & " de 50, " & Billete20 & " de 20, " & Billete10 & " de 10, y " & Cantidad & " monedas de 1") End Sub End Module
Saludos, :good:
m0skit0:
Bueno, este foro es de VB6 :P
--- Cita de: "trogua_z" ---el 1 fue con C++ (no me gusto para nada)
--- Fin de la cita ---
:lol: al principio es normal, ya aprenderás a valorarlo como se merece, como C ;)
trogua_z:
--- Citar ---Bueno, este foro es de VB6 :P
trogua_z escribió:el 1 fue con C++ (no me gusto para nada)
:lol: al principio es normal, ya aprenderás a valorarlo como se merece, como C ;)
--- Fin de la cita ---
Si, yo se que C es muy interesante pero el motivo por el cual no me gusto fue porque el profesor que me "enseño" fue uno que solo sabia Pascal y nada de C asi que imaginate que el aprendio junto a nosotros incluso ubieron alumnos que le enseñaban a el profesor. Nunca despejo mis dudas y nos dejaba tareas que nisiquiera el sabia hacer jeje y asi, si alguien conseguia de milagro el elxito en la tarea el prof aprendia al mismo tiempo, muy vivaso el hobre no? :angry: .
calichecal:
pues yo lo ise con un while dentro de un if para cada billete asi =
if cantidad >= 50000 then
while not cantidad < 50000
cantidad = cantidad - 50000
variable50000 = variable50000 + 1
wend
end if
y me funciono perfectamente.
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa