[compucrazy]

 Please help, I think I did all the calculations correctly, but when I hit the analyze button nothing happens when it is supposed to perform the calculations and output the results in the two textboxes. Please help!

Attached is what it is supposed to do...mine looks right but just doesn't output the calculations.

Thank you!!!!


Dim TotalInterest As Double
Dim Payment As Double
Dim P As Double
Dim R As Double
Dim N As Integer

Private Sub btnAnalyze_Click(sender As System.Object, e As System.EventArgs) Handles btnAnalyze.Click

P = txtAmount.Text
N = txtDuration.Text
R = txtInterestRate.Text

Payment = P * R / (1 - (1 + R) ^ (-N))
TotalInterest = N * Payment - P


Double.TryParse(txtPayment.Text, Payment)
Double.TryParse(txtInterest.Text, TotalInterest)

If Not Double.TryParse(txtAmount.Text, P) Then
MessageBox.Show("Please enter in loan amount")
End If

If Not Integer.TryParse(txtDuration.Text, N) Then
MessageBox.Show("Please enter in duration of loan")
End If

If Not Double.TryParse(txtInterestRate.Text, R) Then
MessageBox.Show("Please enter in interest rate")
End If

Here is the attachment...

[Mina-no-Hime]

For starters, this is VB.NET, not VB6.

Let's step through your code:

Dim TotalInterest As Double
Dim Payment As Double
Dim P As Double
Dim R As Double
Dim N As Integer

You should really use more descriptive variable names. P, R and N tell me nothing about their purpose.

Private Sub btnAnalyze_Click(sender As System.Object, e As System.EventArgs) Handles btnAnalyze.Click

P = txtAmount.Text
N = txtDuration.Text
R = txtInterestRate.Text

This isn't right. You should be using Double.TryParse and Integer.TryParse to get the Double or Integer values from a string.

Payment = P * R / (1 - (1 + R) ^ (-N))
TotalInterest = N * Payment - P

I'm going to just assume these are correct.

Double.TryParse(txtPayment.Text, Payment)
Double.TryParse(txtInterest.Text, TotalInterest)

I'm assuming you're trying to set the value of the two text fields -- you're doing it wrong. Double.TryParse attempts to get a double from the value in a string -- meaning it's trying to get the value of txtPayment.Text and txtInterest.Text, not setting anything to that. You'll want to go with txtPayment.Text = Payment.

If Not Double.TryParse(txtAmount.Text, P) Then
MessageBox.Show("Please enter in loan amount")
End If

If Not Integer.TryParse(txtDuration.Text, N) Then
MessageBox.Show("Please enter in duration of loan")
End If

If Not Double.TryParse(txtInterestRate.Text, R) Then
MessageBox.Show("Please enter in interest rate")
End If

This should be up at the start, in place of the code you're trying to use to set the values of the integers. Not down here. And simply showing a message box up there won't do -- you'll want to stop the function at that point, as well (otherwise you're making pointless calculations on erroneous data).

[compucrazy]

Ok I made those corrections and now I just get zero's in the textboxes (progress from before) but still not doing the calculations? What else am I doing wrong?

 Dim TotalInterest As Double
    Dim Payment As Double
    Dim P As Double
    Dim R As Double
    Dim N As Integer

    Private Sub btnAnalyze_Click(sender As System.Object, e As System.EventArgs) Handles btnAnalyze.Click

        Double.TryParse(txtAmount.Text, P)
        Double.TryParse(txtDuration.Text, N)
        Double.TryParse(txtInterestRate.Text, R)
        Double.TryParse(txtPayment.Text, Payment)
        Double.TryParse(txtInterest.Text, TotalInterest)

        If Not Double.TryParse(txtAmount.Text, P) Then
            MessageBox.Show("Please enter in loan amount")
        End If

        If Not Integer.TryParse(txtDuration.Text, N) Then
            MessageBox.Show("Please enter in duration of loan")
        End If

        If Not Double.TryParse(txtInterestRate.Text, R) Then
            MessageBox.Show("Please enter in interest rate")
        End If


        txtPayment.Text = Payment
        txtInterest.Text = TotalInterest

        Payment = (P * R / (1 - (1 + R) ^ (-N)))
        TotalInterest = (N * Payment - P)

      
    End Sub

[maj3091]

You're updating your textboxes before doing the calculations......

       txtPayment.Text = Payment
       txtInterest.Text = TotalInterest

       Payment = (P * R / (1 - (1 + R) ^ (-N)))
       TotalInterest = (N * Payment - P)

[compucrazy]

what does that mean exactly?

[torind_2000]

compucrazy, on 01 October 2012 - 08:25 AM, said:

what does that mean exactly?

Exactly what it says.

do the math first.

Payment = (P * R / (1 - (1 + R) ^ (-N)))
TotalInterest = (N * Payment - P)

txtPayment.Text = Payment
txtInterest.Text = TotalInterest

also, you need to convert the numbers back into strings before you can apply them to a label.
you can use

txtPayment.Text = Payment.tostring("C2")
txtInterest.Text = TotalInterest.tostring("C2")

gives them currency format with two decimal places