Computer Programming Concepts and Visual Basic David I. Schneider

Call InputData(principal, yearlyRate, numMonths)
Call ShowAmortSched(principal, yearlyRate, numMonths)
End Sub
Private Sub cmdPayment_Click()
Dim principal As Single ‘Amount of loan
Dim yearlyRate As Single ‘Annual rate of interest
Dim numMonths As Integer ‘Number of months to repay loan
Call InputData(principal, yearlyRate, numMonths)
Call ShowPayment(principal, yearlyRate, numMonths)
End Sub
Private Sub cmdQuit_Click()
End
End Sub
Private Sub cmdRateTable_Click()
Dim principal As Single ‘Amount of loan
Dim yearlyRate As Single ‘Annual rate of interest
Dim numMonths As Integer ‘Number of months to repay loan
Call InputData(principal, yearlyRate, numMonths)
Call ShowInterestChanges(principal, yearlyRate, numMonths)
End Sub
Private Sub InputData(prin As Single, yearlyRate As Single, numMs As Integer)
Dim percentageRate As Single, numYears As Integer
‘Input the loan amount, yearly rate of interest, and duration
prin = Val(txtAmt.Text)
percentageRate = Val(txtApr.Text)
numYears = Val(txtYrs.Text)
yearlyRate = percentageRate / 100
numMs = numYears * 12
End Sub
Private Function Payment(prin As Single, mRate As Single, numMs As Integer) As Single
Dim payEst As Single
If numMs = 0 Then
payEst = prin
ElseIf mRate = 0 Then
payEst = prin / numMs
Else
payEst = prin * mRate / (1 - (1 + mRate) ^ (-numMs))
End If
If payEst Round(payEst, 2) Then
Payment = Round(payEst + .005, 2) ‘round up to nearest cent
End If
End Function
Private Sub ShowAmortSched(prin As Single, yearlyRate As Single, numMs As Integer)
Dim msg As String, startMonth As Integer, mRate As Single
Dim monthlyPayment As Single, totalInterest As Single
Dim yearInterest As Single, oldBalance As Single
Dim monthNum As Integer, newBalance As Single
Dim principalPaid As Single, interestPaid As Single
Dim reducPrin As Single, loanYears As Integer
‘Display amortization schedule
A Case Study: Analyze a Loan 151