Super, evo forum je bio down nekoliko dana, pa nisam mogao nista da postavim, ovo sa FOCUS mi radi, hvala mnogo, i Randomize() mi radi
stavio sam ovako...
Code:
Dim temp As Integer, numberOfGuess As Integer = 0
Private Sub frmMagicNumber_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
temp = Int(100 * Rnd()) + 1
numberOfGuess = 0
btnNewGame.Hide()
End Sub
Private Sub btnGuess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuess.Click
Dim guess As Integer, intValue As Integer
guess = txtGuess.Text
intValue = temp
numberOfGuess = numberOfGuess + 1
If (IsNumeric(intValue)) Then
If Val(intValue) > guess Then
lblGuess.Text = guess & " is too LOW, try again."
ElseIf Val(intValue) < guess Then
lblGuess.Text = guess & " is too HIGH, try again."
Else
lblGuess.Text = "You got it in " & numberOfGuess & " tries."
btnNewGame.Show()
btnNewGame.Focus()
End If
End If
End Sub
Private Sub btnNewGame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewGame.Click
txtGuess.Text = Nothing
numberOfGuess = Nothing
lblGuess.Text = Nothing
End Sub
E sada sta je problem, daje on meni random number i sve je to cool, medjutim kada kliknem na New Game, na kraju onda mi ponavlja isti broj koji sam prvi put gadjao i ne daje mi novi broj sve dok ne bude nova forma se ulodovala, i napravila...???
Kako da ovo resim,....