06-08-20, 04:12 PM
(آخر تعديل لهذه المشاركة : 06-08-20, 04:15 PM {2} بواسطة عبد الهادي بهاب.)
لسلام عليكم
استفادة من موضوع [b]ahmadpal[/b]
http://vb4arb.com/vb/showthread.php?tid=33155
تم تعديل بعض الاشياء منها :
- بدل ان نضع الحواجز ...نجعل البرنامج هو الذي يصممها بالشكل الذي تريد
وهذا باستعمال
في ملف السورس وضعنا صور ملونة كازرار جميلة نستدعيها بشكل عشوائي لجعلها خلفية للصور
من اجل احصاء كل الصور المولدة عشوائيا و جعلها في مصفوفة لاستخدماها في دالة الاصطدام نستعمل
استعملنا ايضا خاصية progress bar من اجل اظهار تناقص الاهداف المحطمة
ايضا جعنا سرعة انطلاق الكرة او الرصاصة تزيد كلما تزايد عدد الحاجز المحطمة
الشكل كالتالي
ا
-------------
الملف للتعديل و التطبيق
http://www.mediafire.com/file/y5uewumas2...s.rar/file
بالتوفيق
استفادة من موضوع [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
بالتوفيق
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك