How do I make the random number generate at the beginning but not every time i click btnGuess?

Question

Public Class Form1

Private Sub btnGuess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuess.Click
Dim guess As Integer
Dim x As Integer
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
guess = CInt(txtGuess.Text)
Randomize()
x = CInt(Int((100 * Rnd()) + 1))
If guess = x Then
' Generate random value between 1 and 100.
x = CInt(Int((100 * Rnd()) + 1))
intCount = 0
lblGuess.Text = "You geussed it!"
Else
If guess > x Then
lblGuess.Text = "Guess lower."
Else
If guess < x Then
lblGuess.Text = "Guess Higher."
End If

Do I just use the onLoad function? Can I make the generator only happen when the form is opened? Feel free to put in the proper code and I can give it a try

Visual Basic. I want a random number at the opening of the program and then a new one only when i guess the correct number. Right now I am getting a new random every time I guess (click btnGuess after typing a number into txtGuess). You guys are awesome by the way on answering my previous questions.

Answer 1

You can use a boolean variable to Lockout the random number generation after is has been done once. The boolean value can be set when loading the form and when a correct guess is made this will enable the random nmber to be generated. Immeadiately after the random number is generated the boolean is reset to lock out further updates until a correct guess is made.


declare module level variable

private m_AllowUpdate as boolean

in the load event initialize the variable m_AllowUpdate = true


in your guess button click event


if m_AllowUpdate then
place random number generation code here
disable further updates by setting m_AllowUpdate = false
end if


in the match checking rotine

if match then
reactivate random number generation m_AlloUpdate = true