What's new
Fantasy Football - Footballguys Forums

Welcome to Our Forums. Once you've registered and logged in, you're primed to talk football, among other topics, with the sharpest and most experienced fantasy players on the internet.

Any VB programmers? (1 Viewer)

Tecumseh

Tecumseh

Footballguy
Can you tell me why I am stuck in an infinite loop in these two programs?

Program 1- Trying to output the number of years required to double your principle with compound interest:

Code: 
Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click        Dim amount, interest, years, newbalance, total As Double        amount = CDbl(txtAmount.Text)        interest = CDbl(txtInterest.Text)        Do While total <> (2 * amount)             newbalance = (amount * interest)            total = (newbalance * interest)            years += 1        Loop        txtYears.Text = CStr(years)     End Sub
 
Program 2- Trying to output the year that the world population will reach 10 billion

ETA- Solved!

Code: 
Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click        Dim pop As Double = 7000000000, newpop, numyears As Double        Do While newpop < 10000000000            newpop = (pop * 0.0114)            numyears = 2011 + 1        Loop        txtOutput.Text = "World population will reach 10 Billion in " & numyears & "."    End Sub
 
Last edited by a moderator:
Tecumseh said:
Program 2- Trying to output the year that the world population will reach 10 billion

Code: 
Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click        Dim pop As Double = 7000000000, newpop, numyears As Double        Do While newpop < 10000000000            newpop = (pop * 0.0114)            numyears = 2011 + 1        Loop        txtOutput.Text = "World population will reach 10 Billion in " & numyears & "."    End Sub
Click to expand...
Been a while but seems like pop never changes so newpop never changes.
 
Tecumseh said:
Program 2- Trying to output the year that the world population will reach 10 billion

Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click Dim pop As Double = 7000000000, newpop, numyears As Double Do While newpop < 10000000000 newpop = (pop * 0.0114) numyears = 2011 + 1 Loop txtOutput.Text = "World population will reach 10 Billion in " & numyears & "." End Sub
Click to expand...
Is this saying population increases by .0114 % a year? If so change 0.0114 to 1.0114 and you should be good I think.

 
sporthenry said:
Tecumseh said:
Program 2- Trying to output the year that the world population will reach 10 billion

Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click Dim pop As Double = 7000000000, newpop, numyears As Double Do While newpop < 10000000000 newpop = (pop * 0.0114) numyears = 2011 + 1 Loop txtOutput.Text = "World population will reach 10 Billion in " & numyears & "." End Sub
Click to expand...
Been a while but seems like pop never changes so newpop never changes.
Click to expand...
That too.

 
AAABatteries said:
Tecumseh said:
Program 2- Trying to output the year that the world population will reach 10 billion

Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click Dim pop As Double = 7000000000, newpop, numyears As Double Do While newpop < 10000000000 newpop = (pop * 0.0114) numyears = 2011 + 1 Loop txtOutput.Text = "World population will reach 10 Billion in " & numyears & "." End Sub
Click to expand...
Is this saying population increases by .0114 % a year? If so change 0.0114 to 1.0114 and you should be good I think.
Click to expand...
Nope, still freezing.

 
Tecumseh said:
Can you tell me why I am stuck in an infinite loop in these two programs?

Program 1- Trying to output the number of years required to double your principle with compound interest:

Code: 
Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click        Dim amount, interest, years, newbalance, total As Double        amount = CDbl(txtAmount.Text)        interest = CDbl(txtInterest.Text)        Do While total <> (2 * amount)             newbalance = (amount * interest)            total = (newbalance * interest)            years += 1        Loop        txtYears.Text = CStr(years)     End Sub
Click to expand...
Probably just want < instead of <>
 
Last edited by a moderator:
Tecumseh said:
AAABatteries said:
Tecumseh said:
Program 2- Trying to output the year that the world population will reach 10 billion

Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click Dim pop As Double = 7000000000, newpop, numyears As Double Do While newpop < 10000000000 newpop = (pop * 0.0114) numyears = 2011 + 1 Loop txtOutput.Text = "World population will reach 10 Billion in " & numyears & "." End Sub
Click to expand...
Is this saying population increases by .0114 % a year? If so change 0.0114 to 1.0114 and you should be good I think.
Click to expand...
Nope, still freezing.
Click to expand...
as mentioned above, the vale of pop is always 7000000000. 7000000000 x small number isn't greater then 10000000000 looping no matter how many times you loop

run the debug and step through

 
crush304 said:
Tecumseh said:
AAABatteries said:
Tecumseh said:
Program 2- Trying to output the year that the world population will reach 10 billion

Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click Dim pop As Double = 7000000000, newpop, numyears As Double Do While newpop < 10000000000 newpop = (pop * 0.0114) numyears = 2011 + 1 Loop txtOutput.Text = "World population will reach 10 Billion in " & numyears & "." End Sub
Click to expand...
Is this saying population increases by .0114 % a year? If so change 0.0114 to 1.0114 and you should be good I think.
Click to expand...
Nope, still freezing.
Click to expand...
as mentioned above, the vale of pop is always 7000000000. 7000000000 x small number isn't greater then 10000000000 looping no matter how many times you loop

run the debug and step through
Click to expand...
Yeah, I fixed that, but it's still getting stuck in a loop.

 
Tecumseh said:
crush304 said:
Tecumseh said:
AAABatteries said:
Tecumseh said:
Program 2- Trying to output the year that the world population will reach 10 billion

Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click Dim pop As Double = 7000000000, newpop, numyears As Double Do While newpop < 10000000000 newpop = (pop * 0.0114) numyears = 2011 + 1 Loop txtOutput.Text = "World population will reach 10 Billion in " & numyears & "." End Sub
Click to expand...
Is this saying population increases by .0114 % a year? If so change 0.0114 to 1.0114 and you should be good I think.
Click to expand...
Nope, still freezing.
Click to expand...
as mentioned above, the vale of pop is always 7000000000. 7000000000 x small number isn't greater then 10000000000 looping no matter how many times you looprun the debug and step through
Click to expand...
Yeah, I fixed that, but it's still getting stuck in a loop.
Click to expand...
how did you fix it?
 
Last edited by a moderator:
shadyridr said:
Tecumseh said:
crush304 said:
Tecumseh said:
AAABatteries said:
Tecumseh said:
Program 2- Trying to output the year that the world population will reach 10 billion

Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click Dim pop As Double = 7000000000, newpop, numyears As Double Do While newpop < 10000000000 newpop = (pop * 0.0114) numyears = 2011 + 1 Loop txtOutput.Text = "World population will reach 10 Billion in " & numyears & "." End Sub
Click to expand...
Is this saying population increases by .0114 % a year? If so change 0.0114 to 1.0114 and you should be good I think.
Click to expand...
Nope, still freezing.
Click to expand...
as mentioned above, the vale of pop is always 7000000000. 7000000000 x small number isn't greater then 10000000000 looping no matter how many times you looprun the debug and step through
Click to expand...
Yeah, I fixed that, but it's still getting stuck in a loop.
Click to expand...
how did you fix it?
Click to expand...
Did what AAA said. Changed from .0114 to 1.0114

 
Tecumseh said:
Steeler said:
Change this line: total = (newbalance * interest)

To this: total = (total + newbalance)
Click to expand...
Huh. It's not looping, but the result is wrong. Should be 24 years, but it outputted 67 years.
Click to expand...
It's not compounding, how about something like this...

newbalance = amount

Do While total < (2 * amount)

newbalance = newbalance + (newbalance * interest)

total = (total + newbalance)

years += 1

Loop

 
Last edited by a moderator:
Steeler said:
Tecumseh said:
Steeler said:
Change this line: total = (newbalance * interest)

To this: total = (total + newbalance)
Click to expand...
Huh. It's not looping, but the result is wrong. Should be 24 years, but it outputted 67 years.
Click to expand...
It's not compounding, how about something like this...

newbalance = amount

Do While total < (2 * amount)

newbalance = newbalance + (newbalance * interest)

total = (total + newbalance)

years += 1

Loop
Click to expand...
That made the output 2 years.

 
Tecumseh said:
Steeler said:
Tecumseh said:
Steeler said:
Change this line: total = (newbalance * interest)

To this: total = (total + newbalance)
Click to expand...
Huh. It's not looping, but the result is wrong. Should be 24 years, but it outputted 67 years.
Click to expand...
It's not compounding, how about something like this...

newbalance = amount

Do While total < (2 * amount)

newbalance = newbalance + (newbalance * interest)

total = (total + newbalance)

years += 1

Loop
Click to expand...
That made the output 2 years.
Click to expand...
Try changing this: newbalance = newbalance + (newbalance * interest)

To this: newbalance = (newbalance * interest)

 
Steeler said:
Tecumseh said:
Steeler said:
Tecumseh said:
Steeler said:
Change this line: total = (newbalance * interest)

To this: total = (total + newbalance)
Click to expand...
Huh. It's not looping, but the result is wrong. Should be 24 years, but it outputted 67 years.
Click to expand...
It's not compounding, how about something like this...

newbalance = amount

Do While total < (2 * amount)

newbalance = newbalance + (newbalance * interest)

total = (total + newbalance)

years += 1

Loop
Click to expand...
That made the output 2 years.
Click to expand...
Try changing this: newbalance = newbalance + (newbalance * interest)

To this: newbalance = (newbalance * interest)
Click to expand...
I think that's where we started. Put me back in infinite loop.

 
Tecumseh said:
Can you tell me why I am stuck in an infinite loop in these two programs?

Program 1- Trying to output the number of years required to double your principle with compound interest:

Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click Dim amount, interest, years, newbalance, total As Double amount = CDbl(txtAmount.Text) interest = CDbl(txtInterest.Text) Do While total <> (2 * amount) newbalance = (amount * interest) total = (newbalance * interest) years += 1 Loop txtYears.Text = CStr(years) End Sub
Click to expand...
Somebody already pointed out that
Code: 
Do While total <> (2 * amount)
needs to be < rather than <>. But, you get stuck in a loop because NewBalance never changes (because Amount and Interest are static), so Total never changes. You really should have it print out the key variables (NewBalance and Total) every time through the loop so you can see what is happening.

I'm too lazy to test it, but try:

Code: 
        StartingAmount = amount        Do While total < (2 * StartingAmount )             amount= (amount * (1 + interest)            total = amount            years += 1        Loop
 
Last edited by a moderator:
FBG26 said:
Tecumseh said:
Can you tell me why I am stuck in an infinite loop in these two programs?

Program 1- Trying to output the number of years required to double your principle with compound interest:

Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click Dim amount, interest, years, newbalance, total As Double amount = CDbl(txtAmount.Text) interest = CDbl(txtInterest.Text) Do While total <> (2 * amount) newbalance = (amount * interest) total = (newbalance * interest) years += 1 Loop txtYears.Text = CStr(years) End Sub
Click to expand...
Somebody already pointed out that
Code: 
Do While total <> (2 * amount)
needs to be < rather than <>.But, you get stuck in a loop because NewBalance never changes (because Amount and Interest are static), so Total never changes. You really should have it print out the key variables (NewBalance and Total) every time through the loop so you can see what is happening.

I'm too lazy to test it, but try:

StartingAmount = amount Do While total < (2 * StartingAmount ) amount= (amount * (1 + interest) total = amount years += 1 Loop
Click to expand...
Doubling time = 23695 years.

 
Tecumseh said:
Program 2- Trying to output the year that the world population will reach 10 billion

Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click Dim pop As Double = 7000000000, newpop, numyears As Double Do While newpop < 10000000000 newpop = (pop * 0.0114) numyears = 2011 + 1 Loop txtOutput.Text = "World population will reach 10 Billion in " & numyears & "." End Sub
Click to expand...
newpop is always 7000000000 * .0114 since pop never changes.

newpop is unncessary, just use pop = pop * 1.0114

 
Last edited by a moderator:
BroadwayG said:
Tecumseh said:
Program 2- Trying to output the year that the world population will reach 10 billion

Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click Dim pop As Double = 7000000000, newpop, numyears As Double Do While newpop < 10000000000 newpop = (pop * 0.0114) numyears = 2011 + 1 Loop txtOutput.Text = "World population will reach 10 Billion in " & numyears & "." End Sub
Click to expand...
newpop is always 7000000000 * .0114 since pop never changes.

newpop is unncessary, just use pop = pop * 1.0114
Click to expand...
Hmm. It only added 1 year.

 
Tecumseh said:
BroadwayG said:
Tecumseh said:
Program 2- Trying to output the year that the world population will reach 10 billion

Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click Dim pop As Double = 7000000000, newpop, numyears As Double Do While newpop < 10000000000 newpop = (pop * 0.0114) numyears = 2011 + 1 Loop txtOutput.Text = "World population will reach 10 Billion in " & numyears & "." End Sub
Click to expand...
newpop is always 7000000000 * .0114 since pop never changes.

newpop is unncessary, just use pop = pop * 1.0114
Click to expand...
Hmm. It only added 1 year.
Click to expand...
numyears = numyears + 1

set numyears = 2011 before the do loop

 
Last edited by a moderator:
BroadwayG said:
Tecumseh said:
BroadwayG said:
Tecumseh said:
Program 2- Trying to output the year that the world population will reach 10 billion

Private Sub btnDetermine_Click(sender As Object, e As EventArgs) Handles btnDetermine.Click Dim pop As Double = 7000000000, newpop, numyears As Double Do While newpop < 10000000000 newpop = (pop * 0.0114) numyears = 2011 + 1 Loop txtOutput.Text = "World population will reach 10 Billion in " & numyears & "." End Sub
Click to expand...
newpop is always 7000000000 * .0114 since pop never changes.

newpop is unncessary, just use pop = pop * 1.0114
Click to expand...
Hmm. It only added 1 year.
Click to expand...
numyears = numyears + 1

set numyears = 2011 before the do loop
Click to expand...
Edit: Nevermind, that did it!! Thank you!

 
Last edited by a moderator:
Your interest formula was wrong; see this link And you don;t need the "newbalance" variable.

Do While total < (2 * amount)

years += 1
total = amount * Math.Pow(1 + interest, year)
Loop
 
Steeler said:
Your interest formula was wrong; see this link And you don;t need the "newbalance" variable.

Do While total < (2 * amount)

years += 1
total = amount * Math.Pow(1 + interest, year)
Loop
Click to expand...
That's giving me 25 years. Should be 24, but I'll take it.

Thanks for all your help on this.

 
Tecumseh said:
Steeler said:
Your interest formula was wrong; see this link And you don;t need the "newbalance" variable.

Do While total < (2 * amount)

years += 1
total = amount * Math.Pow(1 + interest, year)
Loop
Click to expand...
That's giving me 25 years. Should be 24, but I'll take it.

Thanks for all your help on this.
Click to expand...
make sure years = 0 before the loop starts, or move the year increment line below the calculation.

 
Steeler said:
Tecumseh said:
Steeler said:
Your interest formula was wrong; see this link And you don;t need the "newbalance" variable.

Do While total < (2 * amount)

years += 1
total = amount * Math.Pow(1 + interest, year)
Loop
Click to expand...
That's giving me 25 years. Should be 24, but I'll take it.

Thanks for all your help on this.
Click to expand...
make sure years = 0 before the loop starts, or move the year increment line below the calculation.
Click to expand...
I set years to -1 before the loop, and it still came to 25.

 
You must log in or register to reply here.

Users who are viewing this thread

Total: 2 (members: 0, guests: 2)
Top