---
title: "Hur man gör en datorspelare i luffarschack...."
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/27711-hur-man-gör-en-datorspelare-i-luffarschack"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "LearningASP"
published: "2001-12-20T08:59:00.000Z"
updated: "2001-12-20T08:59:00.000Z"
replies: 0
views: 282
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/27711-hur-man-gör-en-datorspelare-i-luffarschack"
---

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

## #1 — LearningASP, 2001-12-20T08:59Z

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

Permalänk: https://www.webforum.nu/p/27711

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/27711-hur-man-gör-en-datorspelare-i-luffarschack