[درس] الذكاء الإصطناعى فى الفيجوال بيسيك
بسم الله الرحمن الرحيم
الفكرة مقتبسة من فكرة العضو d.a.m.h للذكاء الإصطناعى على الجيم ميكر
اوكي نبداء
اول حاجة هنعمل تيكست جديد ونسميه Text1
ونختار من خاصية invisable خاصية False
ونكتب الكود ده فى الـForm Load
كود PHP:
Text1.Text = Int((3 * Rnd) + 1)
ونعمل Timer جديد ونسميه Timer1
ونغير الـIntervel لـ "3000"
ونحط الكود ده فى التايمر
كود PHP:
if text1.text = "1" then
Label1.visible = true
end if
if text1.text = "2" then
Label2.visible = true
end if
if text1.text = "3" then
Label3.visible = true
end if
قبل كل شئ نسيت اقولكم نعمل Label1 و Label2 و Label3
ونكتب فى الـCaption بتاع الليبل الأول "قفزة"
وفى الـCaption بتاع الليبل الثاني "ضربة"
اما Caption الليبل الثالث نكتب "صد هجوم"
وبعد كده نعمل Run للعبة وشوف النتائج :D
اتمنى يكون الدرس افادكم وسأشرح الأكواد قريبا
الى اللقاء فى درس قادم
رد: [درس] الذكاء الإصطناعى فى الفيجوال بيسيك
بطريقتك دى ..... العدو مش هيتحرك بطريقة طبيعيه كل اللى هيعمله حركات عشاوائية يعنى مفيهاش أى ذكاء ؟؟؟؟.... بصراحة انت محتاج لتعديل فى مفهوم الذكاء "الغباء " الإصطناعى عندك^^&
رد: [درس] الذكاء الإصطناعى فى الفيجوال بيسيك
انا عندي مشكلة في أمر الأعداد العشوائية
Text1.Text = Int((3 * Rnd) + 1)
ما يجيب لي إلا رقم 3 دائماً
حوالت 32 مرة وطلع نفس الرقم مدري وش القصة
أظن أن الكمبيوتر عندي يتعاطى حشيش
رد: [درس] الذكاء الإصطناعى فى الفيجوال بيسيك
رد: [درس] الذكاء الإصطناعى فى الفيجوال بيسيك
هذه يا اخي سنايبر تعتبر خدع و ليس بذكاء رغم نقص معرفتي اوافق اخي الصقر و حظ سعيد
رد: [درس] الذكاء الإصطناعى فى الفيجوال بيسيك
لو تبغى تطور الذكاء شوية خليه يتأكد من ردة فعل اللاعب
مثلا إذا كان اللاعب على وشك الضرب فإن هناك إحتمالين إما أن يصد الهجوم أو لا يصده
كذا يمكن يسمونه ذكاء غباء إصطناعي
رد: [درس] الذكاء الإصطناعى فى الفيجوال بيسيك
اخوي هذا مو ذكاء اصطناعي :confused:
كل اللي اشفه عبارة if و else !!
1 مرفق
رد: [درس] الذكاء الإصطناعى فى الفيجوال بيسيك
اقتباس:
المشاركة الأصلية كتبت بواسطة ||Saker||
بطريقتك دى ..... العدو مش هيتحرك بطريقة طبيعيه كل اللى هيعمله حركات عشاوائية يعنى مفيهاش أى ذكاء ؟؟؟؟.... بصراحة انت محتاج لتعديل فى مفهوم الذكاء "الغباء " الإصطناعى عندك^^&
غباء إصطناعى عندى.... اليست هذه إهانة :أفكر: على العموم الله يسامحك
على فكرة يا احمد طريقتك ديه موش هتنفعك بأى حاجة :أفكر:
اقتباس:
المشاركة الأصلية كتبت بواسطة ساموجي
انا عندي مشكلة في أمر الأعداد العشوائية
Text1.Text = Int((3 * Rnd) + 1)
ما يجيب لي إلا رقم 3 دائماً
حوالت 32 مرة وطلع نفس الرقم مدري وش القصة
أظن أن الكمبيوتر عندي يتعاطى حشيش
لول الكومبيوتر لا يتعاطى حشيش :D بل العيب من الفيجوال بيسيك نفسه :(
اقتباس:
المشاركة الأصلية كتبت بواسطة AZPC
وانا ايضا لا ارى اى ذكاء :D
اقتباس:
المشاركة الأصلية كتبت بواسطة الزن دل حليمة
هذه يا اخي سنايبر تعتبر خدع و ليس بذكاء رغم نقص معرفتي اوافق اخي الصقر و حظ سعيد
رغم نقص معرفتك :أفكر: خلاص متكلمش طالما انت موش عارف
هذه (الخدعة) تم تجريبها على الجيم ميكر من قبل العضو d.a.m.h
راجع ارشيف المنتدى قبل الرد :أفكر:
ولو تعرف ان برمجة الألعاب اساسا كلها خدع :أفكر:
اقتباس:
المشاركة الأصلية كتبت بواسطة ساموجي
لو تبغى تطور الذكاء شوية خليه يتأكد من ردة فعل اللاعب
مثلا إذا كان اللاعب على وشك الضرب فإن هناك إحتمالين إما أن يصد الهجوم أو لا يصده
كذا يمكن يسمونه ذكاء غباء إصطناعي
انا ارفقت مثال لكى اوضح الأمر ;)
اقتباس:
المشاركة الأصلية كتبت بواسطة GOGENDANTESS
اخوي هذا مو ذكاء اصطناعي :confused:
كل اللي اشفه عبارة if و else !!
شوف المثال اللى انا كونته من If و End if وعلى فكرة مفيش else فى الموضوع كله وده يدل على انك مفهمتش الكود :أفكر:
فى النهاية انا ارفقت مثال للتوضيح
رد: [درس] الذكاء الإصطناعى فى الفيجوال بيسيك
شكراً يا معلم على المثال ده (مطب صناعي) قصدي "إستهبال صناعي" لكن فيه نوع من الذكاء
رد: [درس] الذكاء الإصطناعى فى الفيجوال بيسيك
الصرااااااااااااااااااااااااااااااااااااااااحة
أنا أحس انه أنجاز ولأن طريقة نفس طريقة أخوي داما
وشخضيا انا مستخدمها لكن عيوبها انه مانقدر نتحكم بالافكار العدو كواقعية
لكن لعمل للعبة عشوائية أرشح هذه طريقة مثلا نفترض سفينة فضاء وفيه وحش عشوائية على المنطقة
هذا راي بكل صراحة
Keep It Up Sniper
وياليتك تعملنا نفس طريقة على جيم ميكر قد يستفيد بها الاعضاء هنا أكثر
رد: [درس] الذكاء الإصطناعى فى الفيجوال بيسيك
اشكرك اخي سنايبر على الموضوع .
لي خبرة لا باس بها في الفيجول بيسك , الذكاء الذي استخدمته ليس بذكاء وانما حركات عشوائية يتم تنفيذها في كل مره , وفي هذه الحالة اللاعب يعرف حركات العدو المكررة عنده مثل "قفزة" و"ضربة"و"صد " , مثل لعبة ورقة ,جحر , مقص .
يعني العدو لا يستطيع مفاجأة اللاعب بحركة رابعة مثلا "السلاح " , حتي اذا اضفنا حركة رابعة للعدو سوف تكون معروفة للاعب , لان اللاعب في هذه الحالة يكون اذكاء من العدو وذلك بتسجيل كل حركات العدو .
بهذه الطريقة يكون ذكاء العدو محدود جدا ومفهوم عند اللاعب .
رد: [درس] الذكاء الإصطناعى فى الفيجوال بيسيك
اقتباس:
المشاركة الأصلية كتبت بواسطة ساموجي
شكراً يا معلم على المثال ده (مطب صناعي) قصدي "إستهبال صناعي" لكن فيه نوع من الذكاء
شكرا على ردك ساموجي انا اقتبست الطريقة من d.a.m.h وهو كان عاملها على الجيم ميكر
وانا فكرت انقلها على الفيجوال بيسيك :)
اقتباس:
المشاركة الأصلية كتبت بواسطة Prince of Sorrow
الصرااااااااااااااااااااااااااااااااااااااااحة
أنا أحس انه أنجاز ولأن طريقة نفس طريقة أخوي داما
وشخضيا انا مستخدمها لكن عيوبها انه مانقدر نتحكم بالافكار العدو كواقعية
لكن لعمل للعبة عشوائية أرشح هذه طريقة مثلا نفترض سفينة فضاء وفيه وحش عشوائية على المنطقة
هذا راي بكل صراحة
Keep It Up Sniper
وياليتك تعملنا نفس طريقة على جيم ميكر قد يستفيد بها الاعضاء هنا أكثر
شكرا على ردك وتشجيعك يا برنس ;)
على العموم d.a.m.h كان عامل موضوع فى المنتدى لنفس الطريقة ديه بس على الجيم ميكر
بس موش فاكر كان فين الموضوع ده اعتقد لفة بسيطة على ارشيف المنتدى هتلاقي حل للمشكلة :)
وشكرا مره أخرى على المرور والرد :D
رد: [درس] الذكاء الإصطناعى فى الفيجوال بيسيك
اقتباس:
المشاركة الأصلية كتبت بواسطة nash2
اشكرك اخي سنايبر على الموضوع .
لي خبرة لا باس بها في الفيجول بيسك , الذكاء الذي استخدمته ليس بذكاء وانما حركات عشوائية يتم تنفيذها في كل مره , وفي هذه الحالة اللاعب يعرف حركات العدو المكررة عنده مثل "قفزة" و"ضربة"و"صد " , مثل لعبة ورقة ,جحر , مقص .
يعني العدو لا يستطيع مفاجأة اللاعب بحركة رابعة مثلا "السلاح " , حتي اذا اضفنا حركة رابعة للعدو سوف تكون معروفة للاعب , لان اللاعب في هذه الحالة يكون اذكاء من العدو وذلك بتسجيل كل حركات العدو .
بهذه الطريقة يكون ذكاء العدو محدود جدا ومفهوم عند اللاعب .
افتح المثال وشوف فكرتى عملت ايه :)
رد: [درس] الذكاء الإصطناعى فى الفيجوال بيسيك
اقتباس:
غباء إصطناعى عندى.... اليست هذه إهانة :أفكر: على العموم الله يسامحك
على فكرة يا احمد طريقتك ديه موش هتنفعك بأى حاجة :أفكر:
حرررااام عليك ياراجل ...انما الأعمال بالنيات ... وان كنت شايف إن كلامى فيه إهانه ليك يبقى إنت غلطان ...... أنا مش قصدى ان عندك غباء إصطناعى " بالزمه فى حاجة اسمها انت عندك غبائ إصطناع " أنا قصدى على الأكواد اللى احنا بنكتبها ونقول عليها ذكاء إصطناعى وهى للأسف مفهاش شبه خالص بالذكاء الإصطناعى
: أسف على كلامى بالعامية بس أنا متعود أتكلم كده مع أى حد بلدياتى ^^:
رد: [درس] الذكاء الإصطناعى فى الفيجوال بيسيك
ادا اردت اقدملك دروس في الفيجوال بيسك يا سيد و انا مند ان دخلت هدا المنتدى و انت ترد بطريقة... يا سيد انا ماقلتلك اي شيئ مجرد راي و من عادة المبرمجين احترام راي الاخرين ختى نتمكن من اكمال الفكرة الرئيسية اليس كدلك يا سنايبر التواضع هو اساس النجاح تواضع لله يرفعك و حظ موفق في لعبتك
