For Loop not working

Question

emily1989 0 Newbie Poster

13 Years Ago

Hi there,

I am new here, and i humbly seek your assistance, when i try to increment the for loop it jumps to case 5 of the select case statement. What i actually want is when i press the Next button it shows me a set of options which is case 2, but now it straight away jumps to case 5.

Please help me.

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        Dim counter1 As Byte = 1

        For counter1 = 1 To 5
            Select Case counter1
                Case 1
                    lblQuestion.Text = "What is the country of this flag?"
                    GroupBox1.Text = "Question 1 of 5"
                    RadioButton1.Text = "Singapore"
                    RadioButton2.Text = "Malaysia"
                    RadioButton3.Text = "Indonesia"
                    RadioButton4.Text = "China"

                    picQuiz.Image = Image.FromFile("singaporeflag.gif")
                    picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

                Case 2
                    lblQuestion.Text = "What is the country of this flag?"
                    GroupBox1.Text = "Question 2 of 5"
                    RadioButton1.Text = "Singapore"
                    RadioButton2.Text = "Malaysia"
                    RadioButton3.Text = "Indonesia"
                    RadioButton4.Text = "China"

                    picQuiz.Image = Image.FromFile("china-flag.gif")
                    picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

                Case 3
                    lblQuestion.Text = "What is the country of this flag?"
                    GroupBox1.Text = "Question 3 of 5"
                    RadioButton1.Text = "Singapore"
                    RadioButton2.Text = "Malaysia"
                    RadioButton3.Text = "Indonesia"
                    RadioButton4.Text = "China"

                    picQuiz.Image = Image.FromFile("id-lgflag.gif")
                    picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

                Case 4
                    lblQuestion.Text = "What is the country of this flag?"
                    GroupBox1.Text = "Question 4 of 5"
                    RadioButton1.Text = "Singapore"
                    RadioButton2.Text = "Malaysia"
                    RadioButton3.Text = "Indonesia"
                    RadioButton4.Text = "China"

                    picQuiz.Image = Image.FromFile("malaysia-flag.jpg")
                    picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

                Case 5
                    lblQuestion.Text = "What is the country of this flag?"
                    GroupBox1.Text = "Question 5 of 5"
                    RadioButton1.Text = "Singapore"
                    RadioButton2.Text = "Malaysia"
                    RadioButton3.Text = "Indonesia"
                    RadioButton4.Text = "China"

                    picQuiz.Image = Image.FromFile("united-states-flag.gif")
                    picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

            End Select
            counter1 += 1
        Next

        'Next counter1

    End Sub
End Class

vb.net

5 Contributors
8 Replies
139 Views
2 Days Discussion Span
Latest Post 13 Years Ago Latest Post by Riga

RDSchaefer 0 Newbie Poster

13 Years Ago

Why are you incrementing counter1 twice?

zinnqu 7 Junior Poster in Training

13 Years Ago

If that is what you need to do then change the for loop to a while loop.

this will allow you to set a command loop where you control the increments and allow you to wait for the input of the user.

public sub Button1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
While Counter1 <= 5

Select Case counter1

Case 1

lblQuestion.Text = "What is the country of this flag?"

GroupBox1.Text = "Question 1 of 5"

RadioButton1.Text = "Singapore"

RadioButton2.Text = "Malaysia"

RadioButton3.Text = "Indonesia"

RadioButton4.Text = "China"

 

picQuiz.Image = Image.FromFile("singaporeflag.gif")

picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

 

Case 2

lblQuestion.Text = "What is the country of this flag?"

GroupBox1.Text = "Question 2 of 5"

RadioButton1.Text = "Singapore"

RadioButton2.Text = "Malaysia"

RadioButton3.Text = "Indonesia"

RadioButton4.Text = "China"

 

picQuiz.Image = Image.FromFile("china-flag.gif")

picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

 

Case 3

lblQuestion.Text = "What is the country of this flag?"

GroupBox1.Text = "Question 3 of 5"

RadioButton1.Text = "Singapore"

RadioButton2.Text = "Malaysia"

RadioButton3.Text = "Indonesia"

RadioButton4.Text = "China"

 

picQuiz.Image = Image.FromFile("id-lgflag.gif")

picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

 

Case 4

lblQuestion.Text = "What is the country of this flag?"

GroupBox1.Text = "Question 4 of 5"

RadioButton1.Text = "Singapore"

RadioButton2.Text = "Malaysia"

RadioButton3.Text = "Indonesia"

RadioButton4.Text = "China"

 

picQuiz.Image = Image.FromFile("malaysia-flag.jpg")

picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

 

Case 5

lblQuestion.Text = "What is the country of this flag?"

GroupBox1.Text = "Question 5 of 5"

RadioButton1.Text = "Singapore"

RadioButton2.Text = "Malaysia"

RadioButton3.Text = "Indonesia"

RadioButton4.Text = "China"

 

picQuiz.Image = Image.FromFile("united-states-flag.gif")

picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

 

End Select

counter1 += 1
End Sub

Delcare couter1 as a global Integer

All is well!

Edited 13 Years Ago by zinnqu because: n/a

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

emily1989 0 Newbie Poster · Answer 1 · 2011-01-12T21:21:29+00:00

am i incrementing the counter twice? i though i only am initiating it once at line 62?

emily1989 0 Newbie Poster · Answer 2 · 2011-01-12T21:22:05+00:00

after the alteration, however it still goes to case 5 :(

zinnqu 7 Junior Poster in Training · Answer 3 · 2011-01-13T01:38:14+00:00

First Change the counterl to an integer type, second remove line 62. This will allow the counter to increment correctly. The Byte type cannot be treated as a integer while in a Select Case, as the values are reference differently. For a better understanding look Here as this gives a better understanding of your Select Case statement. Bytes also increment differently in a For Loop, as a byte is looked at in machine addressing and values rather than as an integer.

emily1989 0 Newbie Poster · Answer 4 · 2011-01-13T22:24:43+00:00

First Change the counterl to an integer type, second remove line 62. This will allow the counter to increment correctly. The Byte type cannot be treated as a integer while in a Select Case, as the values are reference differently. For a better understanding look Here as this gives a better understanding of your Select Case statement. Bytes also increment differently in a For Loop, as a byte is looked at in machine addressing and values rather than as an integer.

So what do you propose if i want to increment the counter1 by 1 so that every time i click the next button it will show a new set of options.

For example: the default value is case 1, when i click next button i want to increment the counter by 1 so that it will proceed to case 2 and so on and so forth. I have tried Do while loop however to no avail.

lolafuertes 145 Master Poster · Answer 5 · 2011-01-13T22:50:17+00:00

The question here is that every time you launch the button click event, you fire a loop, always ending at 5.

Istead you can
1) declare the counter outside the button click procedure
2) monitor their value to start at 1 showing the button when the forms Load, and hidding the button when his value is greater than 5 after incrementing it in the button click procedure.
3)Finally, remove the For and the Next sentences.

Hope this helps.

Riga 0 Newbie Poster · Answer 6 · 2011-01-14T15:29:51+00:00

If that is what you need to do then change the for loop to a while loop.

this will allow you to set a command loop where you control the increments and allow you to wait for the input of the user.

public sub Button1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
While Counter1 <= 5

Select Case counter1

Case 1

lblQuestion.Text = "What is the country of this flag?"

GroupBox1.Text = "Question 1 of 5"

RadioButton1.Text = "Singapore"

RadioButton2.Text = "Malaysia"

RadioButton3.Text = "Indonesia"

RadioButton4.Text = "China"

 

picQuiz.Image = Image.FromFile("singaporeflag.gif")

picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

 

Case 2

lblQuestion.Text = "What is the country of this flag?"

GroupBox1.Text = "Question 2 of 5"

RadioButton1.Text = "Singapore"

RadioButton2.Text = "Malaysia"

RadioButton3.Text = "Indonesia"

RadioButton4.Text = "China"

 

picQuiz.Image = Image.FromFile("china-flag.gif")

picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

 

Case 3

lblQuestion.Text = "What is the country of this flag?"

GroupBox1.Text = "Question 3 of 5"

RadioButton1.Text = "Singapore"

RadioButton2.Text = "Malaysia"

RadioButton3.Text = "Indonesia"

RadioButton4.Text = "China"

 

picQuiz.Image = Image.FromFile("id-lgflag.gif")

picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

 

Case 4

lblQuestion.Text = "What is the country of this flag?"

GroupBox1.Text = "Question 4 of 5"

RadioButton1.Text = "Singapore"

RadioButton2.Text = "Malaysia"

RadioButton3.Text = "Indonesia"

RadioButton4.Text = "China"

 

picQuiz.Image = Image.FromFile("malaysia-flag.jpg")

picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

 

Case 5

lblQuestion.Text = "What is the country of this flag?"

GroupBox1.Text = "Question 5 of 5"

RadioButton1.Text = "Singapore"

RadioButton2.Text = "Malaysia"

RadioButton3.Text = "Indonesia"

RadioButton4.Text = "China"

 

picQuiz.Image = Image.FromFile("united-states-flag.gif")

picQuiz.SizeMode = PictureBoxSizeMode.StretchImage

 

End Select

counter1 += 1

End While

End Sub

Delcare couter1 as a global Integer

All is well!

Don't forget for the END WHILE :) :)