المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : لعبة حلوة من كم سطر

me&delphi
13-04-2009, 03:17 AM
السلام عليكم

هده لعبة على الفجوال بيسك دوت نت لأحد الأساتدة قمت بتحويلها الى دلفي مع بعض التغييرات :)

التحميل في المرفقات
AL-MOB4RM3G
13-04-2009, 05:45 PM
السلام عليكم

هده لعبة على الفجوال بيسك دوت نت لأحد الأساتدة قمت بتحويلها الى دلفي مع بعض التغييرات :)

التحميل في المرفقات

ما شاء الله اخي,, لعبة جميلة ورائعة,,

جربتها و الجميل فيها انّها button :eek: اعجبتني كثيرا,,

لكن لم افهم ما مهمت ال label في اعلى اليسار,,

بارك الله فيكم جميعا
I_Tiger
13-04-2009, 07:11 PM
ال label موجود ليعطيك اربع محاولات ويتم عرض رسالة Game Over اذا كان اكبر تماما من السفر

تمعن في الكود

عدد المحاولات الافتراظي

Life:Integer = 4;

انقاص محاولة عند الخسارة

Life:= Life -1;

عرض الرسالة اذا كان عدد المحاولات اقل تماما من 0

if Life < 0 then
begin
Timer1.Enabled:= False;
MessageBox(Form1.Handle,PChar('Game Over'),PChar('Try Again'),MB_OK);
AL-MOB4RM3G
13-04-2009, 07:34 PM
ال label موجود ليعطيك اربع محاولات ويتم عرض رسالة game over اذا كان اكبر تماما من السفر

تمعن في الكود

نعم بارك الله فيك اخي

كيف لم انتبه لهذا ,,

بارك الله فيك
me&delphi
14-04-2009, 02:18 AM
لعبة جيدة اخي ;)

الممتع فيها انه لا احد يستطيع الخسارة :d

قمت بتعديل بسيط ادا استطعت ان تلعب بدون خسارة فانك أسرع من الحاسوب ;)

بارك الله فيكم جميعا :)
I_Tiger
14-04-2009, 07:15 AM
عذرا اخي لم الاحظ التعديل

ما هو
me&delphi
14-04-2009, 11:38 PM
عذرا اخي لم الاحظ التعديل

ما هو


زيادة السرعة بشكل كبير
Speed:= Speed+1;
AL-MOB4RM3G
16-04-2009, 08:50 AM
قمت بتعديل بسيط ادا استطعت ان تلعب بدون خسارة فانك أسرع من الحاسوب


جربت العبة الجديدة اخي,,, :)

وكانت اسهل من ما كنت اتصوّر,,, :eek: كنت اسرع من الجهاز :cool:,,, او على الأقل اذكى منه ,,

تريد تعرف كيف ؟

نعم,, بما ان borders كان Sizeable كان الأمر سهل جدا,,,

نعم,, انت تعرف البقية :eek:

والسلام عليكم
me&delphi
23-04-2009, 12:11 AM
بما ان borders كان sizeable كان الأمر سهل جدا

بدون غش :d
hocine cheniki
24-08-2009, 10:04 AM
بارك الله فيك على الرائعة
لكن..
البرنامج مصاب بفيروس Win32.Induc.a
قوموا بفحصه
musvc
24-08-2009, 10:12 AM
البرنامج مصاب بفيروس Win32.Induc.a
قوموا بفحصه

الفايروس في جهازك و يقوم بحقن نفسه في البرنامج
فلأخ لم يرفق ملف exe فقط قام بأرفاق السورس :laugh:
hocine cheniki
24-08-2009, 10:38 AM
الفايروس في جهازك و يقوم بحقن نفسه في البرنامج
فلأخ لم يرفق ملف exe فقط قام بأرفاق السورس :laugh:

لا ليس كدلك فقد قام برنامج الكاسبر بالقضاء عليه فور انتهاء التحميل :bye1:
STRELiTZIA
24-08-2009, 10:53 AM
لا ليس كدلك فقد قام برنامج الكاسبر بالقضاء عليه فور انتهاء التحميل

هل انت متأكد ؟
المرفق الأول و الثاني نظيفين...

اي المرفقين حملت اخي العزيز ؟

و لتتاكد نهائيا قم بارفاق اي ملف تنفيذي ينتجه دلفي...قم بعمل الملف الان...

بالتوفيق ان شاء الله
B.M.AbdelAziZ
24-08-2009, 11:03 AM
قام برنامج الكاسبر بالقضاء عليه فور انتهاء التحميل :bye1:

لو كان كسبرسكي يصوم لقلنا اصابه دوار من الصيام :laugh:
المضاد يهذي يا اخي الملفات مصدرية ولا فيروس ولا شي
hocine cheniki
24-08-2009, 11:16 AM
لكنه تم حدف الفيروس واليك تقرير الكاسبر

http://www.monsterup.com/upload/1251105356783.png (http://www.monsterup.com)
STRELiTZIA
24-08-2009, 11:21 AM
تاكد اخي ان الفيروس في جهازك...
قم بعمل Scan في المجلد المنصب فيه دلفي للتخلص منه نهائيا...

و بعدها اعد تشغيل الخهاز ليتم عمله، الملاحظة واضحة فوق في Status
musvc
24-08-2009, 11:24 AM
لقد عملت للملف Complie !
وليس السورس المصاب :)
hocine cheniki
24-08-2009, 11:39 AM
حسنا لقد قمت بفحص الدلفي ولم أجد أي فيروس ولكن لم لأفهم لمادا قام الكاسبر بتنبيهي أن الملف مفيرس
مع اعلم أنه يقضي على أي فيروس تلقائيا.
اليك نتيجة الفحص
http://www.monsterup.com/upload/1251106662968.png (http://www.monsterup.com)

لم أقم بإعادة تشغيل الجهاز لاأني في حاجة إليه الآن سأفعل دلك لاحقا
B.M.AbdelAziZ
24-08-2009, 11:46 AM
داخل مجلد دلفي، ادخل مجلد Lib
http://www.delphi4arab.com/forum/showpost.php?p=9745&postcount=10
http://www.delphi4arab.com/forum/showpost.php?p=9858&postcount=6