Multiple calculation error

[Heri.R]

Public Class Form6

Private Sub btncalculate_Click(sender As Object, e As EventArgs) Handles btncalculate.Click
Dim loanedanedamount, totalinterest, paymentperiod, totalloanrepaymentamount, interestrate, monthlypayement As Double
monthlypayement = CDbl(Monthly_paymentTextBox.Text)
interestrate = CDbl(Interest_RateTextBox.Text)
totalloanrepaymentamount = CDbl(Total_Repayment_AmountTextBox.Text)
totalinterest = CDbl(Total_InterestTextBox.Text)
paymentperiod = CDbl(Period_of_repayment_in_monthsTextBox.Text)
loanedanedamount = CDbl(Loaned_AmountTextBox.Text)

Total_InterestTextBox.Text = loanedanedamount * interestrate * paymentperiod
Total_Repayment_AmountTextBox.Text = loanedanedamount + totalinterest
Monthly_paymentTextBox.Text = loanedanedamount / paymentperiod



End Sub

Continue reading...