Untitled

'This program was coded by:  Miakel Roberts
'Project number: Lab4
'The purpose of this program is to do: Acts to calculate Change by quantity and denomitation.
'Time spent: 2 hours
'Turned in: June 27, 2005

Option Explicit
    Dim curPaid As Currency
    Dim curDue As Currency
    Dim curChange As Currency
    Dim intDollars As Integer
    Dim intQuarters As Integer
    Dim intDimes As Integer
    Dim intNickels As Integer
    Dim intPennies As Integer
    
        
    
Private Sub cmdCalcChange_Click()
        
    curPaid = Val(txtPaid.Text)
    curDue = Val(txtDue.Text)
    curChange = curPaid - curDue
    intPennies = curChange * 100
    intDollars = intPennies \ 100
    intPennies = intPennies Mod 100
    intQuarters = intPennies \ 25
    intPennies = intPennies Mod 25
    intDimes = intPennies \ 10
    intPennies = intPennies Mod 10
    intNickels = intPennies \ 5
    intPennies = intPennies Mod 5
    
    lblDollars.Caption = intDollars
    lblQuarters.Caption = intQuarters
    lblDimes.Caption = intDimes
    lblNickels.Caption = intNickels
    lblPennies.Caption = intPennies
    lblChange.Caption = Format(curChange, "currency")
    
    
    
       
    
    

End Sub

Private Sub cmdClear_Click()
    
    txtPaid.Text = ""
    txtDue.Text = ""
    lblDollars.Caption = ""
    lblQuarters.Caption = ""
    lblDimes.Caption = ""
    lblNickels.Caption = ""
    lblPennies.Caption = ""
    lblChange.Caption = ""
    
    txtDue.SetFocus
    
End Sub