Cajero Automatico En Visual 6.0

CODIGO

Private Sub Form_Load()

Dim MILES, RMILES, QUINIENTOS, RQUINIENTOS, DOSCIENTOS, RDOSCIENTOS, CIEN, RCIEN, CINCUENTA, RCINCUENTA, VEINTE, RVEINTE, DIEZ, RDIEZ, CINCO, RCINCO, DOS, RDOS, UNO, RUNO, CENTAVOS As Double

End Sub

Private Sub CMDCALCULAR_Click()

X = Val(TXTCANTIDAD)

If X > 0 Then

CANTIDAD = TXTCANTIDAD

MILES = Int(CANTIDAD / 1000)

RMILES = CANTIDAD - (MILES * 1000)

QUINIENTOS = Int(RMILES / 500)

RQUINIENTOS = RMILES - (QUINIENTOS * 500)

DOSCIENTOS = Int(RQUINIENTOS / 200)

RDOSCIENTOS = RQUINIENTOS - (DOSCIENTOS * 200)

CIEN = Int(RDOSCIENTOS / 100)

RCIEN = RDOSCIENTOS - (CIEN * 100)

CINCUENTA = Int(RCIEN / 50)

RCINCUENTA = RCIEN - (CINCUENTA * 50)

VEINTE = Int(RCINCUENTA / 20)

RVEINTE = RCINCUENTA - (VEINTE * 20)

DIEZ = Int(RVEINTE / 10)

RDIEZ = RVEINTE - (DIEZ * 10)

CINCO = Int(RDIEZ / 5)

RCINCO = RDIEZ - (CINCO * 5)

DOS = Int(RCINCO / 2)

RDOS = RCINCO - (DOS * 2)

UNO = Int(RDOS / 1)

RUNO = RDOS - (UNO * 1)

CENTAVOS = RUNO

If CENTAVOS >= 0.5 Then

CENTAVOS = 1

Else

If CENTAVOS < 0.5 Then

CENTAVOS = 0

End If

End If

End If

TXTMIL = MILES

TXTQUINIENTOS = QUINIENTOS

TXTDOSCIENTOS = DOSCIENTOS

TXTCIEN = CIEN

TXTCINCUENTA = CINCUENTA

TXTVEINTE = VEINTE

TXTDIEZ = DIEZ

TXTCINCO = CINCO

TXTDOS = DOS

TXTUNO = UNO

TXTCENTAVOS = CENTAVOS

End Sub

Private Sub CMDCANCELAR_Click()

TXTMIL = " "

TXTQUINIENTOS = " "

TXTDOSCIENTOS = " "

TXTCIEN = " "

TXTCINCUENTA = " "

TXTVEINTE = " "

TXTDIEZ = " "

TXTCINCO = " "

TXTDOS = " "

TXTUNO = " "

TXTCENTAVOS = " "

End Sub

Private Sub CMDSALIR_Click()

End

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

...