i am not sure what is wrong

[ineedvbhelp]

This s my code. it is exercise 2 chapter 6 in the micrsoft vb book version 5 and 6 by the Lawrenceville Press
i need the number of times this is run put into a label, but everytime i run i highlightsthe counter = counter +1 please help thank you

Private Sub cmdcalculate_Click()
Dim initial As Double
Dim interest As Double
Dim value As Double
Dim year As Double
Dim counter As Integer

initial = txtinitial.Text
interest = txtinterest.Text
value = txtendvalue.Text
counter = 0

Do While value > year
year = (initial * (interest / 100)) + initial
counter = counter + 1
Loop

lbloutput.Caption = counter

End Sub

Private Sub Command1_Click()
Unload Me
End Sub

[nishantp]

Which runtime error is it?

[egiggey]

does it give you an error? if so what error does it give?

[ineedvbhelp]

it is run time error 6 overflow

[egiggey]

then somhow your counter variable is exceding 32,000 I think try typinhg in the imedate window the following
debug.print counter and see what the value is

[rjlohan]

Do While value > year
year = (initial * (interest / 100)) + initial
counter = counter + 1
Loop


The technical reason for this error, is that you try to assign counter = 32767 + 1 (Which is 1 more than the limit of an integer variable)

I don't know what this code is actually supposed to do, but the loop never ends when value > year in the first place, since nothing within the loop ever changes. AS you can see, from above, for this loop to ever exit, once it had entered, you would need to change the loop code; perhaps this is what it wants -

year = year + (initial * (interest / 100)) + initial

And is that how it was in the book?
Cause that's pretty bad coding style...

[ineedvbhelp]

it dosent let me type that in in the immediate window, it just automatically goes back to the code

[nishantp]

Make the change rjlohan stated, and it should work.

[egiggey]

rjlohan is right now that I see that duh i think I need sleep now

[ineedvbhelp]

Thanks rjlohan it worked now