محاكاة الذكاء الإصطناعي بالفيجوال بيسيك ....

السلام عليكم
حاولت برمجة مثال للذكاء الإصطناعي .... يحاكي ذكاء النمسيس في ريزدنت ايفل 3 .. حيث يتبعك في ارجاء الغرفة اينما ذهبت .
و توصلت إلى هذه النتيجة " حسب مستوايي المبتدئ في البرمجة".

نزلت الفايل بس ما اقدر اشغلة لاني ما استخدم الفجيوال بيسك .... بس علي ما اعتقد مافي صعوبه لو كان الوحش يتبعك داخل الغرفة ... ولكن الصعوبة لو كان يتبعك داخل دهليز او متاهه:cool:

انا ما عندي فكرة كيف ... ولكن نقدر ان نستفيد منك:0)

للأسف ملف ال Example ما إشتغل عندي ... و لكنها فكرة جميلة منك ;) ... أتمنى أن تصل لنتائج طيبة بإذن الله :)

اقتباس:

---

بس علي ما اعتقد مافي صعوبه لو كان الوحش يتبعك داخل الغرفة ... ولكن الصعوبة لو كان يتبعك داخل دهليز او متاهه

---

البرنامج حلو و فكرته جميلة بس فيه خطأ . إنت خليت الطاقة تتناص عندما يلامس النمسيس البطل حتى تجاوز العداد الصفر و أصبحت الطاقة بالسالب بس مو مشكلة المهمة الفكرة و شكراً على إهتمامك بالبرمجة و لا تستخف بقدراتك حتى ولو كانت بسيطة أخوي (مبرمج الالعاب) و حاول الاستمرار و بالتوفيق

السلام عليكم
شكرا على ردودكم.
الأخ Son Of UAE .... ارفقت الملف من جديد مع ملف الـ EXE لتستطيع تشغيل المثال إن كانت ملفات DLL للفيجوال بيسيك موجودة على جهازك.
الأخ MR. BLACK MAN حاول تنزيل المثال من الوصلة :
http://www.geocities.com/sahoob_1985/Example.zip
إضغط بالزر الأيمن و أختر save targe as ....
الأخ Wolf Sniper ... شكرا على التشجيع و بالنسبة لتجاوز الطاقة للصفر ... فلقد قمت بهذا عمداً و عداد الطاقة لم اضعه الا لكي يتحقق شيء ما من التصادم.

....

فكرة جميلة... وبالتوفيق

السلام عليكم

ممتاز :)

" إن كانت ملفات DLL للفيجوال بيسيك موجودة على جهازك "
هو ملف واحد حجمه 600 كيلو بايت على مااذكر وكل الاجهزة فيه هذا الملف واسمه على ماظن VbRun.dll

للأسف الجهاز اللي شغال عليه الحين مافيه VB "ما اقدر اشوف الملف المصدر :( "

النقد :
1- لم تفعل أي زر للخروج .
2- أتوقع ان الكود كالتالي :
if picture1.left < picture2.left then picture1.left = picture1.left + 10

وهكذا ...

عرفت ذلك عندما رأيت أن الشخصية تعامل الleft والTop على حدة ...
المعنى : انها عندما يتحرك الوحش ليلاحق البطل فانه يقترب من التوب واللفت حتى ينتهي من احدهما يكمل إلى الاخر (التوب أو اللفت) ... المفروض ان ينتهي من الاثنين معاً
كيف تفعل ذلك ؟ بواسطة المتجهات (تحسب الزاوية بينهما ثم تقوم بإعطاء قيم الإزاحة للفت والتوب )

بالطبع عمل ممتاز منك .... اعطيك 10 من 10 (سوا مدرس :6 )

تحياتي :-)