منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ملف مفتوح ..تصميم لعبة تحطيم الحواجز يتعديلات جديدة

لسلام عليكم

استفادة من موضوع [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/y5uewumas2...s.rar/file

بالتوفيق

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عبد الهادي بهاب