[درس] الذكاء الإصطناعى فى الفيجوال بيسيك

[S.N.I.P.E.R]

بسم الله الرحمن الرحيم


الفكرة مقتبسة من فكرة العضو d.a.m.h للذكاء الإصطناعى على الجيم ميكر


اوكي نبداء


اول حاجة هنعمل تيكست جديد ونسميه Text1


ونختار من خاصية invisable خاصية False


ونكتب الكود ده فى الـForm Load



Text1.Text = Int((3 * Rnd) + 1)


ونعمل Timer جديد ونسميه Timer1


ونغير الـIntervel لـ "3000"


ونحط الكود ده فى التايمر



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 مرة وطلع نفس الرقم مدري وش القصة
أظن أن الكمبيوتر عندي يتعاطى حشيش

[AZPC]

لا أرى اي ذكاء -.-



(&)

[الزن دل حليمة]

هذه يا اخي سنايبر تعتبر خدع و ليس بذكاء رغم نقص معرفتي اوافق اخي الصقر و حظ سعيد

[سامي.خ]

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

[GOGENDANTESS]

اخوي هذا مو ذكاء اصطناعي :confused:
كل اللي اشفه عبارة if و else !!

[S.N.I.P.E.R]

بطريقتك دى ..... العدو مش هيتحرك بطريقة طبيعيه كل اللى هيعمله حركات عشاوائية يعنى مفيهاش أى ذكاء ؟؟؟؟.... بصراحة انت محتاج لتعديل فى مفهوم الذكاء "الغباء " الإصطناعى عندك^^&

غباء إصطناعى عندى.... اليست هذه إهانة :أفكر: على العموم الله يسامحك

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


انا عندي مشكلة في أمر الأعداد العشوائية
Text1.Text = Int((3 * Rnd) + 1)
ما يجيب لي إلا رقم 3 دائماً
حوالت 32 مرة وطلع نفس الرقم مدري وش القصة
أظن أن الكمبيوتر عندي يتعاطى حشيش

لول الكومبيوتر لا يتعاطى حشيش :D بل العيب من الفيجوال بيسيك نفسه :(






لا أرى اي ذكاء -.-







(&)


وانا ايضا لا ارى اى ذكاء :D


هذه يا اخي سنايبر تعتبر خدع و ليس بذكاء رغم نقص معرفتي اوافق اخي الصقر و حظ سعيد

رغم نقص معرفتك :أفكر: خلاص متكلمش طالما انت موش عارف

هذه (الخدعة) تم تجريبها على الجيم ميكر من قبل العضو d.a.m.h

راجع ارشيف المنتدى قبل الرد :أفكر:

ولو تعرف ان برمجة الألعاب اساسا كلها خدع :أفكر:


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

انا ارفقت مثال لكى اوضح الأمر ;)


اخوي هذا مو ذكاء اصطناعي :confused:
كل اللي اشفه عبارة if و else !!

شوف المثال اللى انا كونته من If و End if وعلى فكرة مفيش else فى الموضوع كله وده يدل على انك مفهمتش الكود :أفكر:


فى النهاية انا ارفقت مثال للتوضيح

[سامي.خ]

شكراً يا معلم على المثال ده (مطب صناعي) قصدي "إستهبال صناعي" لكن فيه نوع من الذكاء

[PrinceOfSorrow]

الصرااااااااااااااااااااااااااااااااااااااااحة

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

هذا راي بكل صراحة

Keep It Up Sniper

وياليتك تعملنا نفس طريقة على جيم ميكر قد يستفيد بها الاعضاء هنا أكثر

[nash2]

اشكرك اخي سنايبر على الموضوع .
لي خبرة لا باس بها في الفيجول بيسك , الذكاء الذي استخدمته ليس بذكاء وانما حركات عشوائية يتم تنفيذها في كل مره , وفي هذه الحالة اللاعب يعرف حركات العدو المكررة عنده مثل "قفزة" و"ضربة"و"صد " , مثل لعبة ورقة ,جحر , مقص .


يعني العدو لا يستطيع مفاجأة اللاعب بحركة رابعة مثلا "السلاح " , حتي اذا اضفنا حركة رابعة للعدو سوف تكون معروفة للاعب , لان اللاعب في هذه الحالة يكون اذكاء من العدو وذلك بتسجيل كل حركات العدو .

بهذه الطريقة يكون ذكاء العدو محدود جدا ومفهوم عند اللاعب .

[S.N.I.P.E.R]

شكراً يا معلم على المثال ده (مطب صناعي) قصدي "إستهبال صناعي" لكن فيه نوع من الذكاء

شكرا على ردك ساموجي انا اقتبست الطريقة من d.a.m.h وهو كان عاملها على الجيم ميكر

وانا فكرت انقلها على الفيجوال بيسيك :)


الصرااااااااااااااااااااااااااااااااااااااااحة

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

هذا راي بكل صراحة

Keep It Up Sniper

وياليتك تعملنا نفس طريقة على جيم ميكر قد يستفيد بها الاعضاء هنا أكثر

شكرا على ردك وتشجيعك يا برنس ;)

على العموم d.a.m.h كان عامل موضوع فى المنتدى لنفس الطريقة ديه بس على الجيم ميكر

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

وشكرا مره أخرى على المرور والرد :D

[S.N.I.P.E.R]

اشكرك اخي سنايبر على الموضوع .
لي خبرة لا باس بها في الفيجول بيسك , الذكاء الذي استخدمته ليس بذكاء وانما حركات عشوائية يتم تنفيذها في كل مره , وفي هذه الحالة اللاعب يعرف حركات العدو المكررة عنده مثل "قفزة" و"ضربة"و"صد " , مثل لعبة ورقة ,جحر , مقص .


يعني العدو لا يستطيع مفاجأة اللاعب بحركة رابعة مثلا "السلاح " , حتي اذا اضفنا حركة رابعة للعدو سوف تكون معروفة للاعب , لان اللاعب في هذه الحالة يكون اذكاء من العدو وذلك بتسجيل كل حركات العدو .

بهذه الطريقة يكون ذكاء العدو محدود جدا ومفهوم عند اللاعب .

افتح المثال وشوف فكرتى عملت ايه :)

[||صقر||]

غباء إصطناعى عندى.... اليست هذه إهانة :أفكر: على العموم الله يسامحك

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


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

[الزن دل حليمة]

ادا اردت اقدملك دروس في الفيجوال بيسك يا سيد و انا مند ان دخلت هدا المنتدى و انت ترد بطريقة... يا سيد انا ماقلتلك اي شيئ مجرد راي و من عادة المبرمجين احترام راي الاخرين ختى نتمكن من اكمال الفكرة الرئيسية اليس كدلك يا سنايبر التواضع هو اساس النجاح تواضع لله يرفعك و حظ موفق في لعبتك