• اضافة إهداء
    (المعذره .. غير مسموح للزوار بإضافة الإهداءات, الرجاء التسجيل في المنتدى)


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





عمل لعبة 2D RBG VB.net

بسم الله الرحمن الرحيم اليوم نبدأ معاكم في صناعة لعبة بسيطة بالفيجوال بيسك دوت نت شكل اللعبة هذه ابسط مراحل تم عملها ..



18-12-2017 01:50 مساء
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 549
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 285
قوة السمعة : 3534
الاعجاب : 834
موقعي : زيارة موقعي
 offline 
بسم الله الرحمن الرحيم
اليوم نبدأ معاكم في صناعة لعبة بسيطة بالفيجوال بيسك دوت نت
شكل اللعبة
MjYwNzA1MQ3030123
MTkxMjY3MQ22321
NDcxMjAx231
هذه ابسط مراحل تم عملها في اللعبة

طريقة عمل اللعبة

الادوات المستخدمة

تلاته PictureBox  للشخصية
واعادة تسميتهم P1  P2  P3
ويوضع بكل اداة صورة معينة للشخصية فالثلاث صور بها الحركات البسيطة للشخصية لتوحي لنا انها تسير
سيتم ارفاق الصور للتطبيق عليها
MjAzNjQzMQ551   Mzk1OTQzMQ552   Mjg4OTMzMQ113
وضع خلفية للفورم كما بالصورة 
Mzg4OTU0MQ87873564
واختيار خلفية اخري ليتم وضعها بالريسورس ليتم التبديل بينهم فيما بعد كما بالصورة
MzU2MTYzMQ9090965

ثم نضع ليبل ونكتب عليه كلمة دخول على باب الخلفية التي قمنا بوضعها اولا
MzMyMjMyMQ8686664564
وتسمية الليبل Lab
ثم نقوم بالتبديل بين الخلفيات ونختار خلفيةالكهف ووضع ليبل اخر في المكان المحدد
MzkxMjkx16513
ونقوم بتسميته Lab2 ونجعل الVisible = False  من الخصائص الخاصة بالليبل
ونقوم بارجاع الخلفية الاولي

اليكم الكود مع الشرح

Public Class Form1

    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        'حدث الضغط على زر
        'شروط الضغط على الازرار
        Select Case e.KeyCode
            'عند الضغط على زر الى اعلي
            Case Keys.Up
                'يتم تنشيط التايمر
                Timer1.Enabled = True
                'تحريك الثلاث صور الى اعلى بمعدل 4 درجات
                P1.Top -= 4
                P2.Top -= 4
                P3.Top -= 4
            Case Keys.Down
                'عند الضغط على الزر اسفل
                Timer1.Enabled = True
                P1.Top += 4
                P2.Top += 4
                P3.Top += 4
            Case Keys.Right
                'عند الضغط على زر يمين
                Timer1.Enabled = True
                P1.Left += 4
                P2.Left += 4
                P3.Left += 4
            Case Keys.Left
                'عند الضغط على زر يسار
                Timer1.Enabled = True
                P1.Left -= 4
                P2.Left -= 4
                P3.Left -= 4
        End Select
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        'عند تفعيل التايمر يتم اظهارالصور الثلاثة للشخصية بصورة متتالية لتعطى انطباع الحركة
        'اذا كانت الصورة الاولي ظاهرة 
        If P1.Visible = True Then
            'يتم اخفائها واظهار الصورة التالية وهكذا مع الثلاث صور
            P1.Visible = False
            P2.Visible = True
        ElseIf P2.Visible = True Then
            P2.Visible = False
            P3.Visible = True
        ElseIf P3.Visible = True Then
            P3.Visible = False
            P1.Visible = True
        End If
        'اذا تقابلت الصورة مع الليبل باعلي الشاشة المكتوب عليه دخول يتم عمل التالي
        If P1.Bounds.IntersectsWith(Lab.Bounds) Then
            'ضبطا لثلاث صور الخاصة بالشخصية في الوضع الجديد داخل الكهف كأنه دخل من هذه النقطة
            P1.Top = 400
            P1.Left = 550
            P2.Top = 400
            P2.Left = 550
            P3.Top = 400
            P3.Left = 550
            'عرض صورة الكهف من الريسورس  وهي _335
            Me.BackgroundImage = (My.Resources._335)
            'اخفاء الليبل الخاص بالدخول واظهار الليبل الخاص بالخروج
            Lab.Visible = False
            Lab2.Visible = True
        End If
        'هنا عكس السابق اذا تقابلت الشخصية مع ليبل الخروج يتم عمل الاتي
        If P1.Bounds.IntersectsWith(Lab2.Bounds) Then
            'يتم تحديد موضع للثلاث صور مرة اخرى وكأنه خرج من الباب في الصورة الاولي
            P1.Top = 120
            P1.Left = 420
            P2.Top = 120
            P2.Left = 420
            P3.Top = 120
            P3.Left = 420
            'اختيار صورة اللعبة من الخارج وكأنه خرج من الكهف
            Me.BackgroundImage = (My.Resources.Map002)
            'اخفاء ليبل الخروج واظهار ليبل الدخول
            Lab2.Visible = False
            Lab.Visible = True
        End If
    End Sub
    Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
        'عند رفع المستخدم يده من على ازرار الاتجاهات يتم ايقاف التايمر لتقف الشخصية بدون حركة
        Timer1.Enabled = False
    End Sub
End Class


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

يتبع
 
 
  image.zip   تحميل zip مرات التحميل :(15)
الحجم :(475.696) KB
  Game RBG 2D By Yasser Elaraby.zip   تحميل zip مرات التحميل :(15)
الحجم :(2355.341) KB


أثارت هذه المشاركة إعجاب: الصقر، مالك ماريه، YasserKhalil،


توقيع :Yasser Elaraby
663013020


18-12-2017 01:51 مساء
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 660
الجنس : ذكر
الدعوات : 3
يتابعهم : 0
يتابعونه : 208
قوة السمعة : 3805
الاعجاب : 895
 offline 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
333




18-12-2017 03:29 مساء
مشاهدة مشاركة منفردة [2]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 448
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 5
يتابعونه : 63
قوة السمعة : 1251
الاعجاب : 443
 Online 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
الله عليك يا فنان الله عليك يا حبيب ولديك منتظر الاصدار النهائى للعبة بفارغ الصبر

أثارت هذه المشاركة إعجاب: الصقر،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

18-12-2017 04:04 مساء
مشاهدة مشاركة منفردة [3]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 549
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 285
قوة السمعة : 3534
الاعجاب : 834
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
المشاركة الأصلية كتبت بواسطة: محمود ابو الدهب »
الله عليك يا فنان الله عليك يا حبيب ولديك منتظر الاصدار النهائى للعبة بفارغ الصبر


انت عايز تلعب ولا تتعلم عموما انا اصلا معنديش الفكرة اللي  انهيها بها ممكن انت تحط طريقة اللعب وعدد الغرف والهدف من اللعبة ممكن مراحل مع اسئلة وتجاوب تعدى 
ممكن تقابل شخصيات وتحاربها ؟؟؟
المجال مفتوح
وفي الاخر توصل للنهاية السعيدة والبطل يتجوز البطلة ويعيشوا في تبات ونبات ويخلفوا صبيان وبنات  MzEwMzA0MQ25255

جربت الاصدار التجريبي يعني ولا بتقول كدا وخلاص لو فتح المشروع هتلاقي في فولدر الbin  وداخله فولدر Debug بداخله ملف التشغيل exe جرب وشوف
تحياتي
 
 


أثارت هذه المشاركة إعجاب: YasserKhalil، malik،


توقيع :Yasser Elaraby
663013020


18-12-2017 07:07 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 448
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 5
يتابعونه : 63
قوة السمعة : 1251
الاعجاب : 443
 Online 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
معلش تلميذك يعرف يلعب121 بس انما يفكر gصعب 30
عليك التفكير وعلينا العب 142111 بس بجد بتاعبك وبحاول اتعلم من التنفيذ والتعرض للخطأ حتى يتم الصواب وشكرا لك 

أثارت هذه المشاركة إعجاب: Yasser Elaraby،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

23-12-2017 04:51 مساء
مشاهدة مشاركة منفردة [5]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 549
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 285
قوة السمعة : 3534
الاعجاب : 834
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
 
 
  Game move.zip   تحميل zip مرات التحميل :(4)
الحجم :(1715.175) KB


أثارت هذه المشاركة إعجاب: محمود ابو الدهب، YasserKhalil، malik،


توقيع :Yasser Elaraby
663013020


24-12-2017 06:03 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
menu_open
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 448
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 56
يتابعهم : 5
يتابعونه : 63
قوة السمعة : 1251
الاعجاب : 443
 Online 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
كدا بتقفل السكة في وشى وتطردنى وتسبنى بره في الساقعة
 


تم تحرير المشاركة بواسطة :محمود ابو الدهب
بتاريخ:24-12-2017 06:04 مساء


أثارت هذه المشاركة إعجاب: Yasser Elaraby،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب

24-12-2017 08:50 مساء
مشاهدة مشاركة منفردة [7]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 549
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 285
قوة السمعة : 3534
الاعجاب : 834
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
ههه مهو انت اللي رخمت عليا وانا مش فايق
هعمل نظام مصالحه في اللعبة بعد ما ازهق اخليك تروح الكهف تجيب حاجه او تجاوب سؤال عشان افتح لك الاكاديمية
63

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،


توقيع :Yasser Elaraby
663013020


29-12-2017 01:15 مساء
مشاهدة مشاركة منفردة [8]
Kamel meraghni
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 182
المشاركات : 76
الجنس : ذكر
تاريخ الميلاد : 23-10-1984
يتابعهم : 4
يتابعونه : 4
قوة السمعة : 438
الاعجاب : 80
 offline 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
ما شاء الله مبدع في كل المجالات اللهم لا حسد

أثارت هذه المشاركة إعجاب: Yasser Elaraby،


توقيع :Kamel meraghni

الحمد لله وكفى والصلاة والسلام على الحبيب المصطفى



142


29-12-2017 07:11 مساء
مشاهدة مشاركة منفردة [9]
مجدى يونس
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-10-2017
رقم العضوية : 811
المشاركات : 16
الجنس : ذكر
تاريخ الميلاد : 26-8-1954
يتابعهم : 0
يتابعونه : 7
قوة السمعة : 207
الاعجاب : 23
 offline 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
ابداع ماشاء الله


أثارت هذه المشاركة إعجاب: Yasser Elaraby،



30-12-2017 08:39 صباحا
مشاهدة مشاركة منفردة [10]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 549
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 285
قوة السمعة : 3534
الاعجاب : 834
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
جزاكم الله خيرا 
اخي الكريم كامل
واستاذنا الغالي مجدي يونس
تقبلوا فائق احترامي
142



توقيع :Yasser Elaraby
663013020


30-12-2017 07:32 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1912
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 195
قوة السمعة : 5319
الاعجاب : 1524
 offline 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
بارك الله فيك أخي الحبيب ياسر العربي ومشكور على الجهود الرائعة المبذولة في سبيل الرقي بالأعضاء

أثارت هذه المشاركة إعجاب: Yasser Elaraby،



31-12-2017 10:06 صباحا
مشاهدة مشاركة منفردة [12]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 549
الجنس : ذكر
الدعوات : 9
يتابعهم : 2
يتابعونه : 285
قوة السمعة : 3534
الاعجاب : 834
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
وبارك فيك حبيبي عودا حميدا
142



توقيع :Yasser Elaraby
663013020




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية تحريك الشخصية داخل اللعبة VB.net Yasser Elaraby
0 63 Yasser Elaraby

الكلمات الدلالية
لعبة ، VB.net ،


 







الساعة الآن 03:12 صباحا