Search this site

Home
مقدمه
صفحة المعلم
أهداف المشروع
فعاليات المشروع
مشاريع نهائية للتلاميذ
صور
تلخيص
تقييم
استمارة للتلاميذ

فعالية رقم 4

اعزائي التلاميذ سنتعلم اليوم لعبة X/O ومن اجل تنفيذ هذه مهمة عليكم اتباع الخكوات التالية:

نبدأ بمشروع جديد(New Project) ونعطيه اسم X/O Game:

انظر الى الشريط الايسر وقُم بجر Lable وقُم بتغيير حجم الخط في الشريط الايمن على FontSize:

ثم عُد الى الشريط الايسر واضغط على Layot وقُم بجر TableArrangement:

اذهب الى الشريط الايمن وقُم بتغيير Columns , Rows الى 3 (حتى تحصل على مساحة=9):

قُم بجر Button من الشريط الايسر 9 مرات :

نقوم بجر Button مرة اخرى ونضعه تحت المربع :

قُم بجر Notifier من نفس الشريط :

والان انتقل الى Blocks وقُم بجر initialize global من Variables وأعطيها اسم numturn , وأختار من Math الاولى وضع قيمة 0:

قُم بنسخ ولصق initialize global وتغيير Math الى numturn , Text الى turn :

قُم بنسخ ولصق initialize global وتغيير Math الى turn ,Text الى winner :

قُم بجر to newgame do من Procedures :

اختار set global numturns وضع له قيمة 0 :

اختار بنفس الطريقة set global turn وضع له قيمة X:

اختار set global winner وضع له قيمة * :

اضغط على Screen1 ومن ثم اضغط على Label1 واختار set label1.text to وضع له Text باسم X's turn :

قُم بجر initialize global in من Variables واعطيها اسم grid :

قُم بجر make a list من Lists:

قُم بزيادة item على القائمة 9 مرات:

اضغط على Button1 وقُم بجر Button:

قُم بنسخ وقص Button1 9 مرات وقُم بتغيير الرقم:

اضغط على any component اسفل الشريط:

اضغط على any button واختار set button of component of واعطيه get button , text :

قُم بأخذ Procedures من toProcedure do , واعطيه اسم hasWon:

قُم بأخذ if then من control وأخذ من Logic , المساواة والغير مساواة:

أضف عليها Button1.text , text:

قُم بأخذ Procedures من toProcedure do , واعطيه اسم isWinning:

من ثم أضف input x:

قُم بأخذ if then من control:

من Logic , المساواة والغير مساواة:

أضف get=x , get=x2:

قُم بأخذ Logic من and:

نضيف get=x , get=x3:

قُم بأخذ set global winner to وأضيف اليها getx:

قُم بأخذ Procedures من toProcedure do , واعطيه اسم isWinning , انسخ والصق 3 مرات , Button1.text:

انسخ وألصق is winning , وقُم بتغبير القيم:

أنسخ وألصق is winning , وقُم بتغيير القيم:

قُم بأخذ if then من control:

من Logic , المساواة والغير مساواة , أضف اليها Button2 , text:

انسخ والصق if then كاملة , وقُم بتغيير القيم:

مرة اخرى إنسخ وألصق if then كاملة , وقُم بتغيير القيم:

إنسخ وألصق call is winning كاملة , وقُم بتغيير القيم:

قُم بأخذ Procedures من to one clicked do:

وضع لها متغير button:

إضغط على any button وإختار button text of component وإعطيه متغير button:

أضف اليها متغير text:

إضغط على any button وإختار set button of component of وأعطه get button , text :

و get golbal turn:

أضف et golbal num turns مع متغيرات الجمع من math:

ضع golbal num turns +1:

أضف set golbal turn وضف اليها if then else من control:

من Logic , المساواة والغير مساواة وأضيف اليها get golbal turn = x:

مع then ضع o ومع else ضع x:

قُم بأخذ من label , set label1 test:

أضف اليها join من text مع متغيرات get global turn , 's turn:

أَضف call has win مع if then و call notifier1:

من Logic , المساواة والغير مساواة وأضف اليها get golbal turn = x:

أضف لmessage , join مع get global winner + has won the game

وأضف title , game over

وأضف ل button text , ok

أضف ل else if , get global num turns = 9 :

أضف ل then , call notifier 1

أضف ل message , it is a tie!

وأضف title , game over

وأضف ل button text , ok

أضف when button1 click , call oneclicked button , button:

قُم بتكرير العملية السابقة 9 مرات وتغيير الرقم :

وهكذا يصبح لديك لعبة XO كاملة , عملا ممتعا.

العودة

Google Sites

Report abuse

Google Sites

Report abuse