الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود لعبة Tic-tac-Toe

مغلق
بدأه zemzemh في 11 أبريل 2003 · 3 رد · 1,926 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

الاخوة الاعزاء الرجاء المساعدة

اريد الكود الخاص بلعبة

Tic-tac-Toe

مصمم بالفيجوال بيسك

لكى استفيد منه فهل احد يدلنى على ذلك

#2

فكرة لعبة tic tac toe او ما تسمي x o سهلة جدا و هذه هي اسهل فكرة:

ضع 9 ازرار لتكون علي شكل مربعات و ليبل و اكتب في اليبل 1 ثم اكتب هذا الكود في كل زر:

If Label1.Caption = "1" Then

Command1.Caption = "X"

Label1.Caption = "2"

Command1.Enabled = True

ElseIf Label1.Caption = "2" Then

Command1.Caption = "O"

Label1.Caption = "1"

Command1.Enabled = True

End If

و كرر الكود في كل زر مع الازرار مع تغيير الرقم..

و اكتب هذا الكود في تايمر مع انترفال 1:

If Command1.Caption = "X" And Command2.Caption = "X" And Command3.Caption = "X" Then

MsgBox "X Wins"

End If

و كرر الكود مع تغيير ارقام الازرار اذا كان افقي او رأسي ولا تنسي نكريرها مع O..

#3

فكرة رائعة Bibo2002 (f) شكراً لك(f)

ani.gif
#4

شكرا على مجهودك(f)

هذا الموضوع مغلق.

مواضيع مشابهة