ساخت بازی X ,O و قانون آن
سلام دوستان من تونستم قانون بازی رو بنویسم می خواستم توی پست قبلی بنویسم ولی گفتم شاید کسی دیگه اونجا نره.
این کد رو توی یه ماژول بنویسید
کد:
Public Sub Restart()
Form1.Option1.Value = True
For i = 0 To 8
Form1.cmd(i).Enabled = True
Form1.cmd(i).Caption = ""
Next i
End Sub
Public Sub Winer(strChr1 As String, strChr2 As String, strChr3 As String)
Dim strWiner As String
strWiner = strChr1 & strChr2 & strChr3
If strWiner = "XXX" Then
MsgBox "Congratulations The " & Form1.Option1.Caption & " is winer.", vbInformation, "Winer Box"
Restart
ElseIf strWiner = "OOO" Then
MsgBox "Congratulations The " & Form1.Option2.Caption & " is winer.", vbInformation, "Winer Box"
Restart
End If
End Sub
و این کد هارو توی یه کامند که به صورت آرایه هستند بنویسید(برای تولید کامند آرایه ای باید یک کامند را کپی کرده و بعد آن را در فرم Paste کنید و پیغامی که ظاهر میشه رو Yes بزنید)
کد:
For i = 0 To 8
If Index = i Then
If Option1.Value = True Then
cmd(i).Caption = "X"
Option2.Value = True
Else
cmd(i).Caption = "O"
Option1.Value = True
End If
cmd(i).Enabled = False
End If
Next i
Winer cmd(0).Caption, cmd(1).Caption, cmd(2).Caption
Winer cmd(0).Caption, cmd(3).Caption, cmd(6).Caption
Winer cmd(0).Caption, cmd(4).Caption, cmd(8).Caption
'--------------------------
Winer cmd(2).Caption, cmd(4).Caption, cmd(6).Caption
Winer cmd(2).Caption, cmd(5).Caption, cmd(7).Caption
Winer cmd(1).Caption, cmd(4).Caption, cmd(7).Caption
'--------------------------
Winer cmd(3).Caption, cmd(4).Caption, cmd(5).Caption
Winer cmd(6).Caption, cmd(7).Caption, cmd(8).Caption
البته همونطور که می دونید اسم کامند ها cmd هست و دو OptionButton گذاشتم برای تعیین بازی کننده گان هست
امید وارم خوشتون بیاد البته شما می تونید با Menu Editor تغیرات و قابلیت های خوبی را در آن اعمال کنید
موفق باشید:n01:
