منتديات مصر اليوم

لأنـنـا نـعـشـق الـتـمـيـز والـمـتـمـيـزين يـشـرفـنـا انـضـمـامـك لـنـا فـى مـنـتـديـات (مـصـر الـيـوم) ..

لـكـى تـسـتـطـيـع أن تـتـحـفـنـا [ بـمـشـاركـاتـك ومـواضـيـعـك مـعـنـا ] .. اثـبـت تـواجـدك وكـن مـن الـمـتـمـيـزين ..
‏ ‏
‏(‏ مـلاحـظـة :. بـعـد إتـمـام تـسـجـيـل عـضـويـتـك يـتـم إرسـال رسـالـة الـتـفـعـيـل عـلـى الـبـريـد الإلـكـتـرونـى الـخـاص بـك .. ويـجــب عـلـيـك تـفـعـيـل اشـتـراكـك عـن طـريـق الإيـمـيـل ..

نـحـن نـنـتـظـر تـسـجــيـلـك ومـشـاركـتـك فـى الـمـنـتـدى .. فـأهـــلاً بـك مــعــنــا ..


وشــكــراً لـكـم ،،،

‏ ‏

منتديات مصر اليوم


 
الرئيسيةبحـثس .و .جالتسجيلدخول
دخول
اسم العضو:
كلمة السر:
ادخلني بشكل آلي عند زيارتي مرة اخرى: 
:: لقد نسيت كلمة السر
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
المواضيع الأخيرة
» مشاكل المراه عند الشحن
الثلاثاء 17 أكتوبر 2017, 1:45 pm من طرف nader alii

» ليموزين العاصمة تقدم افضل خدمة ليموزين مطار القاهرة من و الي جميع محافظات مصر
الخميس 17 أغسطس 2017, 1:37 pm من طرف ready

» كاميرات مراقبة
الإثنين 14 أغسطس 2017, 3:14 pm من طرف فيروز حسين

» تجربتى الشخصية فى اكاديمية سموحة
الإثنين 07 نوفمبر 2016, 1:42 pm من طرف Gudii Mohammed

» لماذا اختار رسول الله صلى الله عليه وسلم أن يرفع عمله وهو صائم
الأحد 22 مايو 2016, 8:49 pm من طرف اسكن عيونى

» اقوى المنتجات الطبيعية للتخسيس بدون رياضة ولا رجيم
الأحد 27 مارس 2016, 5:29 pm من طرف Goods Sale

» استضافة و تصميم مواقع
الجمعة 18 مارس 2016, 10:22 pm من طرف هيثم رمضان

أفضل 10 أعضاء في هذا المنتدى
هيثم رمضان
 
koky20
 
حامد خالد
 
اسكن عيونى
 
البرنسيسة
 
Nemrelnet
 
ahmed sultana
 
مجالس خبراء
 
عمرو سوفت
 
أمير القلوب
 
تابعونا على @ Follow US
Like/Tweet/+1
المتواجدون الآن ؟
ككل هناك 1 عُضو حالياً في هذا المنتدى :: 0 عضو مُسجل, 0 عُضو مُختفي و 1 زائر

لا أحد

أكبر عدد للأعضاء المتواجدين في هذا المنتدى في نفس الوقت كان 19 بتاريخ السبت 16 يونيو 2012, 12:52 am


شاطر | 
 

 شرح كيفية برمجة لعبة tic tac toe بأستخدام الفيجوال بيسك دوت نت vb.net

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
حامد خالد
نائب المدير العام
نائب المدير العام
avatar

النوع : ذكر


مُساهمةموضوع: شرح كيفية برمجة لعبة tic tac toe بأستخدام الفيجوال بيسك دوت نت vb.net    السبت 12 مارس 2011, 3:05 pm

شرح كيفية برمجة لعبة tic tac toe بأستخدام الفيجوال بيسك دوت نت


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

لبرمجة [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] Tic Tac Toe أو XO هو [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]الأزرار Buttons , حيث سيتم وضع 9 أزرار ويكون هناك لاعبين Players : 1 , 2 ويقوم البرنامج عند الضغط على زر معين بقراءه رقم اللاعب , فلو كان اللاعب الحالي هو 1 فانه سيقوم بتغيير نص الزر button text الى X وثم يغير قيمة اللاعب Players الى اللاعب الثاني 2 , والعكس صحيح لو كان الدور للاعب 2.

بدايةً , اعمل مشروع جديد وأضف فيه Buttons بعدد 9

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

وقم بتغيير أسماء الأزرار في الصف الأول من الزر الأيسر الى الأيمن , btn1 , btn 2 , btn3
بحيث تكون ارقامها كالآتي

[center][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

سنقوم بعمل متغير عام نسميه Player وهو دور اللاعب سواء كان 1 او 2 , وفي بداية اللعبة سيكون دور اللاعب 1

واللاعب 1 هو X بينما 2 هو Y

كود PHP:
Dim Player As String



ضع الكود مباشرة تحت Public class form1

والآن سنضيف الكود الآتي الى الحدث Form1_Load

كود PHP:
Timer1.Start()
Player = "1"
Btn1.TabStop = False
Btn2
.TabStop = False
Btn3
.TabStop = False
Btn4
.TabStop = False
Btn5
.TabStop = False
Btn6
.TabStop = False
Btn7
.TabStop = False
Btn8
.TabStop = False
Btn9
.TabStop = False



بعد ذلك أضف تايمر الى المشروع Timer1








لاحظ في كود الحدث Form1_load بدأنا اولا عمل الساعة ثم عرفنا قيمة اللاعب بأنه 1 , وعطلنا ال TabStop لجميع الأزرار وهذا اختياري.

الآن اضف في كل زر الكود الآتي

كود PHP:
If Player = "1" Then
Btn1
.Text = "X"
Btn1.Enabled = False
Player
= "2"
--Player2--
ElseIf
Player = "2" Then
Btn1
.Text = "O"
Btn1.Enabled = False
Player
= "1"
End If



لاحظ أننا عملنا شرط , لو اللاعب = 1 اعمل كذا ولو كان 2 اعمل كذا

يتم تغيير نص الزر الى X or O حسب اللاعب وثم قمنا يتعطيل الزر حتى لا يستطيع اللاعب التحكم فيه مرة اخرى وثم يتم تغيير قيمة متغير اللاعب الى الاعب الاخر...

أضف نفس الكود الى جميع الازرار مع تغيير رقم الزر من 1 الى 9 حسب الزر

الآن لو تشغل المشروع وتضغط على أي زر بتلاحظ أنه بكون X والزر الي بعده O والي بعده X وبعده O وهكذا...

ولاحظ أيضا انه سيتم تعطيل الزر

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

[right]الآن باقي لنا نضيف الزر لتحديد هل اللاعب فاز او لا

توجه الى اخر سطر أي كود حيث توجد كلمة End sub واضف في سطر جديد الآتي

كود PHP:
Private Sub TheWinner()

End sub



وأضف فيه الكود الآتي

كود PHP:
If Btn1.Text = "X" And Btn2.Text = "X" And Btn3.Text = "X" Then
Timer1
.Stop()
MsgBox("Player 1 is the winner")
ElseIf
Btn1.Text = "O" And Btn2.Text = "O" And Btn3.Text = "O" Then
Timer1
.Stop()
MsgBox("Player 2 is the winner")
ElseIf
Btn1.Text = "O" And Btn5.Text = "O" And Btn9.Text = "O" Then
Timer1
.Stop()
MsgBox("Player 2 is the winner")
ElseIf
Btn1.Text = "X" And Btn5.Text = "X" And Btn9.Text = "X" Then
Timer1
.Stop()
MsgBox("Player 1 is the winner")
ElseIf
Btn1.Text = "X" And Btn4.Text = "X" And Btn7.Text = "X" Then
Timer1
.Stop()
MsgBox("Player 1 is the winner")
ElseIf
Btn1.Text = "O" And Btn4.Text = "O" And Btn7.Text = "O" Then
Timer1
.Stop()
MsgBox("Player 2 is the winner")
ElseIf
Btn3.Text = "X" And Btn6.Text = "X" And Btn9.Text = "X" Then
Timer1
.Stop()
MsgBox("Player 1 is the winner")
ElseIf
Btn3.Text = "O" And Btn6.Text = "O" And Btn9.Text = "O" Then
Timer1
.Stop()
MsgBox("Player 2 is the winner")
ElseIf
Btn3.Text = "X" And Btn5.Text = "X" And Btn7.Text = "X" Then
Timer1
.Stop()
MsgBox("Player 1 is the winner")
ElseIf
Btn3.Text = "O" And Btn5.Text = "O" And Btn7.Text = "O" Then
Timer1
.Stop()
MsgBox("Player 2 is the winner")
ElseIf
Btn2.Text = "X" And Btn5.Text = "X" And Btn8.Text = "X" Then
Timer1
.Stop()
MsgBox("Player 1 is the winner")
ElseIf
Btn2.Text = "O" And Btn5.Text = "O" And Btn8.Text = "O" Then
Timer1
.Stop()
MsgBox("Player 2 is the winner")
ElseIf
Btn7.Text = "O" And Btn8.Text = "O" And Btn9.Text = "O" Then
Timer1
.Stop()
MsgBox("Player 2 is the winner")
ElseIf
Btn7.Text = "X" And Btn8.Text = "X" And Btn9.Text = "X" Then
Timer1
.Stop()
MsgBox("Player 1 is the winner")
ElseIf
Btn4.Text = "O" And Btn5.Text = "O" And Btn6.Text = "O" Then
Timer1
.Stop()
MsgBox("Player 2 is the winner")
ElseIf
Btn4.Text = "X" And Btn5.Text = "X" And Btn6.Text = "X" Then
Timer1
.Stop()
MsgBox("Player 1 is the winner")

Else
GameOver()
End If



قد يبدو طويلا الا انه متكرر , حيث يقوم البرنامج بعمل شروط , اذا كانت العناصر متشابهة افقيا او عموديا او كان مائلا الى اليمين او اليسار فانه سوف يوقف التايمر أولا ثم يظهر مسج بوكس يفيد من هو اللاعب الفائز

لاحظ في اخر الكود وجود GameOver() لم يتعرف عليه الفيجوال بيسك

أضف في نهاية كلمة End sub بعد سطر جديد الآتي

كود PHP:
Private Sub GameOver()
If
Btn1.Enabled = False And _
Btn2
.Enabled = False And _
Btn3
.Enabled = False And _
Btn4
.Enabled = False And _
Btn5
.Enabled = False And _
Btn6
.Enabled = False And _
Btn7
.Enabled = False And _
Btn8
.Enabled = False And _
Btn9
.Enabled = False Then
Timer1
.Stop()
MsgBox("Game OVER!")
End If
End Sub



لان في كل ضغطة يتم تعطيل الزر , اذا كان جميع الازرار معطلة فان البرنامج سوق يظهر مسج بوكس فيه خسرت اللعبة

وأخيراً , اضغط مرتين على التايمر وأضف الكود الآتي

كود PHP:
TheWinner()



شغل المشروع , واستمتع باللعب

[center][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
الموضوع منقول للأفادة lol!
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://www.Masr2day.Alafdal.net
 
شرح كيفية برمجة لعبة tic tac toe بأستخدام الفيجوال بيسك دوت نت vb.net
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات مصر اليوم :: منتدى الكمبيوتر والانترنت :: قسم الدروس والشروحات-
انتقل الى: