[عبد الهادي بهاب]

لسلام عليكم

استفادة من موضوع [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  من اجل  اظهار تناقص الاهداف المحطمة
ايضا جعنا سرعة انطلاق الكرة او الرصاصة تزيد كلما تزايد عدد الحاجز المحطمة 

الشكل كالتالي
    ا

-------------
الملف للتعديل و التطبيق
http://www.mediafire.com/file/y5uewumas2...s.rar/file

بالتوفيق