Hur man gör en datorspelare i luffarschack....

Jag håller på med ett luffarschack och jag vill ha att man kan spela mot en dator men hur skall man kolla att rutan är ledig som den ska markera och hur skall man slumpa vilken ruta den väljer ???

Spelplanen är dynamisk så man kan byta till större spelplan.

detta är min <font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">

Option Explicit
Dim ruta(100, 100) As Object
Dim markering As String
Dim Rad As Byte
Dim Kol As Byte
Dim knappindex As Byte
Dim Spelplan As Byte

' rensar spelplanen på knappar.
Private Sub Rensaspelplan()
On Error Resume Next
For Rad = 0 To Spelplan
For Kol = 0 To Spelplan
Unload ruta(Rad, Kol)
Next
Next
cmdKnapp(0).Caption = ""
End Sub

' skapar spelplanen dynamiskt beroende på vad man matar in för värde.
Private Sub spelplan_pro(Spelplan)

On Error Resume Next

knappindex = 0
For Rad = 0 To Spelplan
For Kol = 0 To Spelplan
Set ruta(Rad, Kol) = cmdKnapp(knappindex)
knappindex = knappindex + 1
Load ruta(Rad, Kol)
With ruta(Rad, Kol)
.Left = Kol * ruta(Rad, Kol).Width
.Top = Rad * ruta(Rad, Kol).Height
.Visible = True
End With
Next
Next

End Sub

Function CompPlayer()

End Function

Private Sub cmdKnapp_Click(Index As Integer)

If cmdKnapp(Index).Caption \<\> "" Then
    MsgBox ("Den är redan markerad, välj en annan ruta!")
Else
    If markering = "O" Then
      cmdKnapp(Index).Caption = "X"
    Else
        cmdKnapp(Index).Caption = "O"
    End If
End If

markering = cmdKnapp(Index).Caption

If optComp = True Then
    Call CompPlayer
End If

End Sub

Private Sub Form_Load()
Call spelplan_pro(2)
End Sub

Private Sub mnu3_Click()
Call Rensaspelplan
Spelplan = 2
Call spelplan_pro(Spelplan)
End Sub

Private Sub mnu6_Click()
Call Rensaspelplan
Spelplan = 5
Call spelplan_pro(Spelplan)
End Sub

Private Sub mnu9_Click()
Call Rensaspelplan
Spelplan = 8
Call spelplan_pro(Spelplan)
End Sub

Private Sub mnuAvsluta_Click()
Unload frmLuffar
End Sub

Private Sub mnuNytt_Click()
Call Rensaspelplan
Call spelplan_pro(2)
End Sub

Private Sub optO_Click()
markering = "X"
End Sub

Private Sub optX_Click()
markering = "O"
End Sub

------------------
Varje dag är en ny lektion ;)