إشترك

تعلم كيف تصنع لعبة أسئلة و أجوبة


بسم الله الرحمان الرحيم
السلام عليكم و رحمة الله تعلى و بركاته في درس اليوم سنتعلم كيف نصنع لعبة أسئلة و أجوبة مثل لعبة وزنك ذهب أو لعبة من سيربح المليون و بمناسبة عيد الفطر أريد أن أقدم لكم بعض الإضافات الرائعة لزيادة الجمال في البرنامج و السبب الذي جعلني أقوم بكتابة هذا الدرس هو أن هناك أسئلة كثيرة في قسم الأسئلة تتعلق بالموضوع و نبدأ على بركة الله :
المراحل : 
   ·        مرحلة التصميم
   ·       مرحلة البرمجة
مرحلة التصميم و البرمجة
هذه المرحلة سهلة و لا يوجد فيها أي صعوبة يجب إتباع خطوات التصميم خطوة بخطوة و ستجد البرنامج قم تم تصميمه :
فكرة اللعبة : أول شيء يراه اللاعب هو شاشة الدخول التي تطلب منه إدخال اسمه و بعدها يضغط على زر الدخول للدخول إلى اللعبة و هذه هي صورة النموذج الأول أثناء التصميم و المكونات واضحة :
أما عن خصائصها فهي كالتالي :



sEdit1 هي edit  
الخاصية
كيف تصبح
Text
أكتب اسمك من فضلك
Button1
Caption
دخول اللعبة
خصائص النموذج رقم 1
Caption
RahicheSoft<dakii>
AutoSize
True
BorderStyle
bsDialog
Cilentheight
500
Clientwidth
700
أما المكون الآخر الظاهر في الصورة فهو لوضع مظهر جميل للعبة و يمكن الحصول عليه من خلال تدويناتي السابقة " لمن أراده يبحث عنه " و الآن سنضيف النموذج الثاني و بعدها أكتب الكود التالي في حدث الضغط على button1  


Form2.caption:='hello'+ sedit1.text ;
form2.Show;
و في هذا الكود سيقوم البرنامج أثناء التصميم عند الطلب بالتنفيذ بالربط بين النموذجين وافق و بعدها عند التنفيذ عند كتابة الاسم و الضغط على الزر سيصبح عنوان النموذج الثاني هو مرحبا + الاسم و الآن سنشرح الفكرة البرمجية للعبة .
الفكرة البرمجية للعبة :

أنت ترى بأن هناك اختلاطا كبيرا في الأحرف في الجزء العلوي و هذا يعني و جود أكثر من عنصر Label  أما عن button  فأنت ترى بأنها منظمة لكن تحت كل button  يوجد أخر و لتنضيم العمل قمت بالتالي : 
    1 -   تسمية الأزرار  button  حسب ترتيبها كالأتي : b1 /b2 /b3 /…..
    2 -   تسمية label  الخاصة بالسؤال بالترتيب ك الآتي . q1 / q2 /q3
صناعة لعبة أصعب من صناعة برنامج بكثير
                                                            
و الآن أنت قمت بإضافة  4button  و كتبت الاختيارات فيها ثم كتبت السؤال قم بسمية الbutton  الأربعة على التالي : b1.b2.b3.b4   بالترتيب ثم اجعل اسم مكون label1  هو q1  و الآن هناك ثلاثة أجوبة خاطئة مثلا هي موجودة في b1.b2.b3  أم الجواب فهو في b4  قم بالضغط على b1.b2.b3  من شجرة العناصر

ثم توجه إلى محرر الخواص و بعدها للأحداث المتعلقة بالمكونات الثلاثة و اختر الحدث  OnClic  و بهذا يكون الأمر الذي سنوجهه الآن سيطبق على كل من  b1.b2.b3  أكتب الأمر التالي  :
form2.Close;
form1.Caption:='game over  '  + form1.sEdit1.Text;
يعني عندما يجيب خطأ يخرج البرنامج من النموذج الثاني و ينتقل للنموذج الأول و يجعل عنوانه هو  game over  بالإضافة إلى الاسم الذي اخترناه في بداية اللعبة و الآن ما هو الكود اللازم عندما يجب صح ؟؟ الكود يجب أن يخفي السؤال الأول و جميع الاقتراحات الخاصة بالسؤال الأول و يظهر لنا السؤال الثاني و اقتراحاته و هذا هو الكود اللازم :
q2.Visible:=true;
q1.Visible:=false;
b1.Visible:=false;
b2.Visible:=false  
b3.Visible:=false;  
b4.Visible:=false;   
b5.Visible:=true;
b6.Visible:=true;
b7.Visible:=true;
b8.Visible:=true;
و نعاود الكرة مع السؤال الثاني أم بالنسبة للكود الذي يمنح النقاط فهو هنا :
بما اسم المكون الذي يقوم بإظهار النقاط لنا هو slabel2   فسنضيف الكود التالي إلى الكود السابق
slabel2.Caption:=(inttostr(strtoint(slabel2.Caption) +1));
و يمكنكم طرح أي استفسار أو أي سؤال . لأن هذا الدرس هدفه النقاش لأنه لا توجد مواضيع تتحدث عن الألعاب " النقاش في مدونة تعلم دلفي"


و السلام عليكم و رحمة الله تعلى و بركاته

جميع الحقوق محفوظة لــ تعلم دلفي بالعربية 2015 ©