+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [مثال] ملف مفتوح ..تصميم لعبة تحطيم الحواجز يتعديلات جديدة (/showthread.php?tid=36019)
ملف مفتوح ..تصميم لعبة تحطيم الحواجز يتعديلات جديدة - عبد الهادي بهاب - 06-08-20
لسلام عليكم
استفادة من موضوع [b]ahmadpal[/b]
http://vb4arb.com/vb/showthread.php?tid=33155
تم تعديل بعض الاشياء منها :
- بدل ان نضع الحواجز ...نجعل البرنامج هو الذي يصممها بالشكل الذي تريد
وهذا باستعمال
PHP كود :
btm = New PictureBox()
Controls.Add(btm)
في ملف السورس وضعنا صور ملونة كازرار جميلة نستدعيها بشكل عشوائي لجعلها خلفية للصور
PHP كود :
Dim BColor() As Image = {My.Resources.a, My.Resources.b, My.Resources.c, My.Resources.d, My.Resources.e,
My.Resources.f, My.Resources.g, My.Resources.h}
Dim k As New Random
Dim Ncolor = k.Next(0, 8)
btm.BackgroundImage = BColor(Ncolor)
--------
من اجل احصاء كل الصور المولدة عشوائيا و جعلها في مصفوفة لاستخدماها في دالة الاصطدام نستعمل
PHP كود :
For Each ctr As Control In Controls
If TypeOf ctr Is PictureBox Then
If ctr.Name <> Raket.Name And ctr.Name <> Ball.Name Then
PictureBoxArray.Add(ctr)
End If
End If
Next
استعملنا ايضا خاصية progress bar من اجل اظهار تناقص الاهداف المحطمة
ايضا جعنا سرعة انطلاق الكرة او الرصاصة تزيد كلما تزايد عدد الحاجز المحطمة
الشكل كالتالي
[attachment=25389]ا
-------------
الملف للتعديل و التطبيق
http://www.mediafire.com/file/y5uewumas24oq7f/Gameelhadi_Blocks_breks.rar/file
بالتوفيق