نوشتن قانون بازی X,O

سلام من یه بازی X,O ساختم اما نمی تونم قانونش رو بنویسم یعنی نمیتونم بگم که در چه صورت کدومشون برنده هستن
من از چند کامند استفاده کردم و از دو آپشن باکس برای تعیین بازی کننده گذاشتم و با چند خط کامند ها و به هم وصل



ممنون میشم کمکم کنید:n01:

داش بازیتو نوشتی سورسشو بزاری دمت جییییییییییییییییییییز

سلام
من از این روش استفاده کردم:
خونه ها رو از a تا i نام گذاری کردم. برای هر خونه سه حالت ممکنه رخ بده:
حالت 0 خونه خالی باشه ):
حالت 1 خونه با ایکس پر شده باشه
حالت 2 خونه با اُ پر شده باشه
(شکل پایین)

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خب بعد از هر حرکت برنامه باید مقادیر لازم رو به خونه مورد نظر بده بعد همه ردیفا رو چک کنه که یه ردیف با هم 1 یا 2 نباشه. مثلا برای ردیف پایین(g,h,i) اگه همه خونه ها 2 باشند برنامه باید اُ رو برنده اعلام کنه...
:n16:

ممنون از جوابتون ولی من کامندها رو به صورت آرایه درست کردم کاری رو هم که شما می گید هم یه مقدار غیر حرفه ای هستش اگه می تونید ممنون میشم راه ساده تری رو بگید منظور ام اینه که
باید برای هر ردیف چند کد نوشت چون در چند حالت های مختلف برنده مشخص می شه که در روشی که شما نوشتید اینطوری میشه

کد:

---

If( a.Caption=b.Caption=c.Caption)="O" then
MsgBox "Second Player is winer"
End If

---

و همین طور برای خط های مورب و غیره

این هم سورسش دوست من امیدوارم که چیزی که می خواهی باشه اگه مشکلی هم بود من در خدمتم اما نتونستم که قانونش رو بنویسم :n03:
اول 1 کامند تو فرم ایجاد می کنید و بعد تا نه تا از او کپی می کنید من اسم اون هارو cmd گذاشتم بعد از Paste کردن پیام رو Yes بزن و بعد این کد رو توی کامند تایپ کنید
دو تا OptionBox هم به فرمتون اضافه کنید اما من اسم شون رو تغییر ندادم

کد:

---

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

---

امید وارم چیزی که می خواهید باشه :n16: