How do I keep the same number even after I click the button in VB?

Question

Private Sub btnGuess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuess.Click
Dim guess As Integer
Randomize()
' Generate random value between 1 and 100.
Dim x As Integer = CInt(Int((100 * Rnd()) + 1))

guess = CInt(txtGuess.Text)

If guess = x Then
lblHiOrLow.Text = "You guessed it!"
Else
If guess > x Then
lblHiOrLow.Text = "Guess Lower"
Else
lblHiOrLow.Text = "Guess Higher"
End If
End If

Static intCount As Integer

intCount = intCount + 1

If intCount = 1 Then
lblNumber.Text = "You've guessed " & intCount & " time."
Else
lblNumber.Text = "You've guessed " & intCount & " times."
End If
End Sub

In other words the number keeps changing so obviously its a little hard to guess. How do I get the number then store it?

Answer 1

You need two things, a global variable to store the guess and a global variable to store the state of the program.

You then need to initialize a value at the beginning of the process by running the random number generator, then only resetting the value the time after you have guessed it. You can do this by setting and checking the state variable. If it is the firstGuess, then you will set the value, otherwise you will use the old value.

Once you have found the correct value, then set the state back to firstGuess so that the next time a new value is generated.

You will also need to do the proper accounting for intCount.

Private Sub btnGuess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuess.Click


Static guess as Integer
Static firstGuess as Boolean = True

Randomize()
If( firstGuess ) Then
' Generate random value between 1 and 100.
Dim x As Integer = CInt(Int((100 * Rnd()) + 1))

guess = CInt(txtGuess.Text)
firstGuess = False
End If

If guess = x Then
lblHiOrLow.Text = "You guessed it!"
firstGuess = True
Else
If guess > x Then
lblHiOrLow.Text = "Guess Lower"
Else
lblHiOrLow.Text = "Guess Higher"
End If
End If

Static intCount As Integer

intCount = intCount + 1

If intCount = 1 Then
lblNumber.Text = "You've guessed " & intCount & " time."
Else
lblNumber.Text = "You've guessed " & intCount & " times."
End If
End Sub