بازی دوز ساده

[lind73]

سلام دوستان . من میخوام بازی دوز رو بنویسم اما تو یه قسمتش مشکل دارم اونم اینه که وقتی سه تا از خانه ها پر بشه اون بازیکن برنده بشه
خواهشا کمکم کنید که خیلی لازم دارم
خودم 80٪ کد رو نوشتم فقط اون قسمتش مونده
منتظر پاسختون هستم
با تشکر

[kingdaniyal]

یه عکس از فم اصلیت بده تا بهت بگم چجوری کدشو بنویسی

[kingdaniyal]

ببین بازی دوز معمولا 9 تا خانه داره به صورت مربع و ضربدری و افقی و عمودی
اگه فرمت اینجوری باشه کدش مثل زیره(این برای یک قسمت مثلا حالت ضربدری است)

Private Sub CHECK()
a = Button1.Text + Button2.Text + Button3.Text
If a = "XXX" Then
Line1.BorderWidth=3
Line.BorderColor = Color.Red
MsgBox("player 1 win")
Clear
Endif
If a = "OOO" Then
Line1.BorderWidth=3
Line.BorderColor = Color.Red
MsgBox("player 2 win")
Clear
Endif
End Sub

Private Sub Clear()
Dim Inti As Variant
For Each Inti In Controls
If TypeOf Inti Is Btton Then
Inti.Text = ""
End If
If TypeOf Inti Is Line Then
Inti.BorderWidth = 1
Inti.BorderColor = Color.Black
End If
Next Inti
End Sub