Mensajes

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

Código (vb) [Seleccionar] Expandir

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

que no entendiste del código?

podrias agregarle:

y el largo del texto en mi textbox no sea mayor a 2.

saludos

PD: esto va en .Net

Hola. Podrías hacer algo masomenos así.

Código (vb) [Seleccionar] Expandir

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

a lo que me refiero que no te dio por programar sino por convertir. 

Bueno hace días vi un efecto muy bueno en el foro de Autoit. hoy me dio por portarlo a vb6.

[youtube=640,360]Ex8ohlpldqs[/youtube]

Código Fuente.

http://www.sendspace.com/file/qo1gmx

no te dio por programar te dio porque alguien te haga un programa 

Eso solo te retorna el modo en que fue abierto el archivo.

saludos

Y que llevas hecho hasta ahora? 

Que bien espero ver el proyecto terminado.

saludos