Question about Control Typeof

[bigz60]

Hello.
I am trying to create a simple tic-tac-toe game as a learning experience. I am stuck on getting the computer to play "his turn."

What I am trying to do is create a random number, and then loop through all of the buttons on the form that are empty, counting each empty button until the count has reached the random number. Here is an example:

dim rdm as new random()
dim targetnumber as integer
dim count as integer = 0
dim buttons as Control
targetnumber = rdm.next(10,100)

While count < targetnumber
    For each buttons in Me.controls
         If type(buttons) is Button then 
              If buttons.text = "" then
               count +=1
                    If count = targetnumber thne
                    buttons.text="O"
                 Exit for
           End if
          End If
          End If
     Next
End While

I have done some debug.writeline and it appears that the "count" variable is not increasing. I'm not sure if i have the for structured incorrectly, or what.

Thank you.

 

[BobRodes]

You may find this helpful:

http://www.developer.com/tech/article.php/930661

Also, I knocked up something in VB6 (you should be able to translate pretty easily), that does nothing but put a O at random in an empty square for the computer's turn. (an array of 9 text boxes is assumed.)

Private Sub txtSquare_Click(Index As Integer)
Dim i As Integer
Dim count As Integer
Dim OpenSquares() As Integer
Dim intRnd As Integer
If txtSquare(Index).Text = "" Then
    txtSquare(Index) = "X"
End If
For i = 0 To 8
    If txtSquare(i) = "" Then
        count = count + 1
        ReDim Preserve OpenSquares(count - 1)
        OpenSquares(count - 1) = i
    End If
Next
intRnd = Int(Rnd(Now) * count)
txtSquare(OpenSquares(intRnd)) = "O"
End Sub

HTH

Bob

 

[Qik3Coder]

Example of 2.0 Random, in use:


Dim a As Integer = New Random().Next / 9

-The answer to your problem may not be the answer to your question.