dèmineur avec delphi [الأرشيف] - منتديات الجلفة لكل الجزائريين و العرب

مشاهدة النسخة كاملة : dèmineur avec delphi

كوثروا

2011-11-04, 12:29

:mh92:سلام عليكم
طلب من فضلكم
وهو برمجdemi neur
svp:sdf::sdf::confused::confused:

djamel123

2011-11-04, 14:29

هناك برنامج جاهزة في هذا الموقع (http://www.delphifr.com/listecodes.aspx)
ويمكن تحميل البرنامج من هنـا (http://www.mediafire.com/?1lce19tz9jdmplc)
وإذا أردتي برمجة اللعبة من جديد فسنساعدك إن شاء الله

http://www.delphifr.com/gdi/c/11938.cs.jpg (http://www.mediafire.com/?1lce19tz9jdmplc)

كوثروا

2011-11-04, 15:24

djamel123

2011-11-04, 23:32

شكرا راني باغية البرمجة من جديد .....
بعد أن نوزع عشوائيا القنابل كيف نضع الأرقام
يعني كل قنبلة يجب أن نحيطها بأرقام أم ماذا؟؟

أنا أفهم اللعبة لكن لا أعرف كيف أوزع الأرقام
في البداية

كوثروا

2011-11-05, 17:03

الارقام تدل على عدد القنابل المحيطة يعني 2 تعني يوجد بالجوار قنبلتين لكن انا لا اعرف البرمجة بالدالفى مدابك غير تعاوني تورلي كيفاش ندير

djamel123

2011-11-05, 17:34

الارقام تدل على عدد القنابل المحيطة يعني 2 تعني يوجد بالجوار قنبلتين لكن انا لا اعرف البرمجة بالدالفى مدابك غير تعاوني تورلي كيفاش ندير

راني فاهم اللعبة ...فقط ماكنش عارف كيفاش فالأول نبرمج توزيع الأرقام لكن الآن فهمت
المهم راني نحاول نشرح هنا في هاذا الموضوع الخطوات وان شاء الله ماتمليش وخلاص واللي يحب يدخل من الأعضاء بفكرة أو سؤال أهلا وسهلا بيه

كوثروا

2011-11-05, 18:43

شكرااااااااااااااااااا لك

djamel123

2011-11-05, 21:02

بسم الله الرحمان الرحيم
في هاذا الجزء الأول نقوم بانجاز المربع الذي يحوي خانات اللعبة، وهو مكون من عشر خانات في الطول وعشر خانات في العرض، هذا الجدول سيتم رسمه على مكون من نوع Timage وسنربط هاذه الخانات بجدول، وكل خانة تنعطيها قيمتين القيمة الأولى هي etat وتبين حالة الخانة وهي من نوع string أما القيمة الثانية فهي minee وهي من نوع integer وتأخذ قيمتين، اما واحد واما صفر ...الواحد معناه أنه يوجد قنبلة في تلك الخانة والصفر يعني لاتوجد.

http://www11.0zz0.com/2011/11/05/18/921190220.jpg

نضع مكونين من نوع Timage على الفورم ونسمي الأول plan وهو الذي سيتم رسم فيه الخانات فيما بعد أما العنصر الثاني فهو أيضا من نوع Timage ونسميه descase وهو الصورة التي ستظهر عليها الخانات في البداية وقد اخترنا أن يكون طول الخانة 14 بكسل وعرضها 14 بكسل.وأعطينا للخاصية visible الخاص بهذه الصورة القيمة false حتى لا تظهر هذه الصورة المنفصلة مع بداية البرنامج.

نقوم بتعريف المتغيرات التي نحتاجها في var
http://www10.0zz0.com/2011/11/05/19/393491100.jpg

نذهب الآن الى الخاصية oncreate الخاصة بالفورم ونظغط عليها مرتين حتى نكتب مجموعة الأوامر التي نريد تنفيذها بمجرد ظهور النافذة.

http://www3.0zz0.com/2011/11/05/18/715483803.jpg

ونكتب هذا الكود

http://www11.0zz0.com/2011/11/05/18/372114304.jpg

كلمة nouveau هي اجراء (procedure) سنقوم بتعريفه الآن وهاذا الاجراء يحدث كلما بدأنا لعبة جديدة

http://www7.0zz0.com/2011/11/05/19/703283673.jpg

أرجو أن يكون هذا الجزء واضحا
الكود سورس الخاص بهذا الجزء وضعته في هذا الرابط
(http://www.4shared.com/file/Meb89K2b/demineur1.html)

كوثروا

2011-11-06, 18:26

شكرااااااااااا وااصللل

كوثروا

2011-11-06, 18:43

bessah mechi normalement nekhdemo bli bouton

djamel123

2011-11-06, 18:51

bessah mechi normalement nekhdemo bli bouton

والو تبانلك برك باللي راهي
des boutons
بالصح فالحقيقة كل ماتضغطي في مربع تظهر صورة فارغة أو
صورة رقم أو صورة قنبلة في مكانو
يعني رايحين نخدمو بالصور فقط
وكي تشوفي بقية الشرح ان شاء الله تفهميها

كوثروا

2011-11-06, 21:09

ok et merci

djamel123

2011-11-07, 16:49

بسم الله الرحمان الرحيم
في هذا الجزء الثاني نقوم باظافة ثلاث مكونات الى الفورم كما نقوم بتعريف اجرائين مهمين.
أولا بالنسبة للمكونين هما TTimer و TimageListe كما هو في الصورة، والغرض من هما هو التالي
TTimer هو عبارة عن مؤقت ينطلق مع بداية اللعبة ويتوقف بمجرد الخسارة.
TimageListe هو مكون يحتوي على الصور التي ستوضع في مكان الخانات
وسنرى ما يحتويه بعد قليل
وأخيرا Timage وهو صورة القنبلة واسم الصورة mine.

http://www9.0zz0.com/2011/11/07/14/757322248.jpg

بعد الضغط مرتين على ImageList1 تظهر لدينا مجموعة الصور التي ستظهر في الخانات
وهي عبارة عن صور صغيرة طولها وعرضها 14 بكسل فيها ارقام أو صورة فارغة وبالتالي فقد اكتملت لدينا كل الصور التي نحتاجها.

http://www9.0zz0.com/2011/11/07/14/446239222.jpg

الآن نقوم بتعريف اجرائين مهمين
هما perdu و voircase بالاظافة الى Nouveau الذي عرفناه سابقا.
ونعطي اوامرهما بعد قليل

http://www9.0zz0.com/2011/11/07/14/782365056.jpg

Perdu هو اجراء نقوم بتنفيذه كلما خسر اللاعب
ويقوم هذا الاجراء بتوقيف التوقيت وكشف اماكن القنابل
ويصبح الضغط بالماوس غير متاحا في الخانات

http://www9.0zz0.com/2011/11/07/15/579447148.jpg

الآن نعرف أهم اجراء وهو voircase والذي نعطيه احداثيات الخانة x و y فيقوم بوضع صورة عدد القنابل المحيطة بتلك الخانة أو ينهي اللعبة في حالة الضغط على خانة تحتوي على قنبلة.

http://www9.0zz0.com/2011/11/07/15/797054387.jpg

انتهى تعريف اهم اجراء وبقي اجراء وحيد وهو اجراء
planMouseDown
وهذا الاجراء ينتظر حتى يضغط اللاعب في الخانات
فيأخذ احدائيات الضغطة ويحسب احداثيات الخانة x و y الموافقة ويرسلها الى الاجراء voircase
سنراه ان شاء الله في الجزء الموالي

الكود سورس الخاص بهذا الجزء من هنــا (http://www.4shared.com/file/NMFicOeZ/demineur2.html)

كوثروا

2011-11-07, 18:29

http://im4.gulfup.com/2011-07-01/1309541771751.gif

djamel123

2011-11-07, 19:36

الآن نأتي الى الجزء الأخير في برمجة هذه اللعبة
واذا اردنا اظافة تحسينات واظافات جديدة فنستطيع ذلك طبعا

اجراء planMouseDown كما قلنا سابقا يأخذ احدائيات الضغطة ويحسب احداثيات الخانة x و y الموافقة ويرسلها الى الاجراء voircase
وحتى نكتب أوامر هذا الاجراء علينا أولا أن نضغط مرة واحدة على plan الذي وضعناه في الجزء الأول من هذا الشرح ثم نذهب الى خاصية planMouseDown ونضغط عليها مرتين حتى نكتب الاموامر التي تحدث بمجرد ضغط اللاعب للزر الأيسر للفأرة على plan.

http://www14.0zz0.com/2011/11/07/17/233460190.jpg

الآن نكتب الأوامر التالية

http://www9.0zz0.com/2011/11/07/18/296450184.jpg

الآن برمجة اللعبة انتهت وبقي فقط ان نظيف زر يقوم باعادة اللعبة من جديد في حالة الخسارة وهو من نوع TButton و
سميناه "ابدا من جديد"

http://www14.0zz0.com/2011/11/07/18/272222479.jpg

بعد الضغط مرتين على هذا الزر الأخير نكتب مايلي

http://www9.0zz0.com/2011/11/07/18/763704152.jpg

انتهـت برمجة اللعبة
ولتحميل الكود الأخير اضغط هنــــا (http://www.4shared.com/file/eD6J0-QF/demineur3.html)

كوثروا

2011-11-07, 21:43

http://www.img.gsm-egypt.com/images/02919185842169029236.gif