أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil نتيجة تقرير اكسيل اسئله واجابات


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



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





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

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



18-12-2017 01:50 مساء
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1077
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 578
قوة السمعة : 7619
الاعجاب : 161
موقعي : زيارة موقعي
 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 مرات التحميل :(25)
الحجم :(475.696) KB
  Game RBG 2D By Yasser Elaraby.zip   تحميل zip مرات التحميل :(23)
الحجم :(2355.341) KB




توقيع :Yasser Elaraby
663013020




18-12-2017 01:51 مساء
مشاهدة مشاركة منفردة [1]
الصقر
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1630
الجنس : ذكر
الدعوات : 13
يتابعهم : 0
يتابعونه : 542
قوة السمعة : 16872
الاعجاب : 119
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
333



توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



18-12-2017 03:29 مساء
مشاهدة مشاركة منفردة [2]
محمود ابو الدهب
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 859
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 197
قوة السمعة : 3062
الاعجاب : 22
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
الله عليك يا فنان الله عليك يا حبيب ولديك منتظر الاصدار النهائى للعبة بفارغ الصبر



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

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


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


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

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




توقيع :Yasser Elaraby
663013020



18-12-2017 07:07 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 859
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 197
قوة السمعة : 3062
الاعجاب : 22
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
معلش تلميذك يعرف يلعب121 بس انما يفكر gصعب 30
عليك التفكير وعلينا العب 142111 بس بجد بتاعبك وبحاول اتعلم من التنفيذ والتعرض للخطأ حتى يتم الصواب وشكرا لك 



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

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


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




توقيع :Yasser Elaraby
663013020



24-12-2017 06:03 مساء
مشاهدة مشاركة منفردة [6]
محمود ابو الدهب
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 859
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 58
يتابعهم : 6
يتابعونه : 197
قوة السمعة : 3062
الاعجاب : 22
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif عمل لعبة 2D RBG VB.net
كدا بتقفل السكة في وشى وتطردنى وتسبنى بره في الساقعة
 


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




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

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


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




توقيع :Yasser Elaraby
663013020



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



توقيع :Kamel meraghni

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



142




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






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




توقيع :Yasser Elaraby
663013020



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





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




توقيع :Yasser Elaraby
663013020




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
لعبة من سيربح المليون مصممه بأكواد vba emad eldwady
16 1208 salim5d
لعبة Golf بالاكسل مجدى يونس
6 106 مجدى يونس
لعبة Roaler_Coaster بالاكسل مجدى يونس
0 101 مجدى يونس
لعبة Tennis Challenge بالاكسل مجدى يونس
0 88 مجدى يونس
لعبة الصورة المتحركة مجدى يونس
9 225 مجدى يونس

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


 







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



الساعة الآن 01:24 مساء

أعلن هنا
أعلن هنا
أعلن هنا