مثال فيزيائي تعليمي .. باستخدام VB .. من مجلة F1 تم اضافة نص الموضوع كاملا ( الشرح)

السلام عليكم ..

هذا مثال فيزيائي من اعداد F1 magazine .. المتميزة .
http://www.f1-mag.com/


المثال تقريبا من الاعداد الاولى من المجلة .

المثال على الفيجوال بيسك .


الشرح وهو كله من اعداد المجلة .. :



تصميم الألعاب و مراعاة الفيزياء

في تصميم الألعاب تعتبر مراعاة القوانين الفيزيائية حجر الأساس للحكم على مصداقية اللعبة ومطابقتها للواقع .
لاشك أن ألعاباً ضخمة كـ Splinter Cell أو Half Life 2 قد طورت بشكل كبير لجعلها تحاكي الواقع (الفيزياء) بشكل كبير لتؤثر في نفوس اللاعبين إلى درجة يقول فيها أحدهم "عندما أطلقت النار على الأعداء كان سقوطهم على الأرض حقيقاً جداً "، أما الآخر فيقول "أنا أيضاً عندما أطلقت النار على المصباح انطفئ الضوء وتغير ضوء الغرفة بشكل كلي .... رائع !!!" بالطبع يتطلب هذا طاقماً من المبرمجين المتمرسين ، ومشورة عدد من دارسي الفيزياء لكي ينجحوا هكذا عمل.


ما الذي سنقوم به الآن ؟
حسناً .. المثال الذي سنشرحه هو برنامج يبين لنا تأثير الفيزياء على ألعاب ككرة القدم أو المغامرات ، حيث يتأثر عناصر اللعبة ببعضها البعض عبر الاصطدام أو تغير سرعة الرياح.
ستقوم أنت بركل الكرة عن طريق تحريك زر الفأرة الأيسر ، في المنطقة المخصصة ، ثم
ستلاحظ أثناء حركة الكرة حوادث فيزيائية كثيرة و بحركة واقعيّة (صدم – جاذبية – ارتداد .... الخ) .



شرح الكود البرمجي الخاص بلعبتنا الفيزيائيّة :

في قسم التصريحات العام General نقوم بتعريف بعض المتغيّرات التي سوف نتعامل معها .

Dim Force As Integer
Dim Wind As Integer
Dim Bounc As Integer
Dim Bounce As String
Dim PiC As Integer
Dim bForce As Integer
Dim bWind As Integer

MsgBox "لتحريك الكرة قم بالنقر باستمرار ضمن المربّع جانباً", 64, "F1 Magazine"
lnWind.X1 = Picture5.Width / 2
lnWind.Y1 = Picture5.Height / 2
lnWind.X2 = lnWind.X1 + 1000
lnWind.Y2 = lnWind.Y1
Bounce = 0.3
Wind = (lnWind.X1 - lnWind.X2) / 15
Force = (lnWind.Y1 - lnWind.Y2) / 15

Private Sub Picture5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
lnWind.X2 = X
lnWind.Y2 = Y
End Sub

Private Sub Picture5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button <> 0 Then
lnWind.X2 = X
lnWind.Y2 = Y
End If
End Sub

Private Sub Picture5_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
lnWind.X2 = X
lnWind.Y2 = Y
Wind = (lnWind.X1 - lnWind.X2) / 15
Force = (lnWind.Y2 - lnWind.Y1) / 15
End Sub

لاحظ أننا قمنا في الأسطر الأخيرة بإسناد قيم جديدة للمتغيرات Wind و Force حسب التغيير الذي تم على طول المستقيم .

الآن سنقوم بإنشاء أداتي مؤقت (تايمر) لهما وظيفتين منفصلتين و متكاملتين في آن واحد
كيف ذلك ؟

احد المؤقتين يقوم بمهمة تدوير الكرة حول نفسها، حيث يقوم بإظهار أربع صور مختلفة و متناظرة للكرة في تتابع زمني منتظم لتبدو الكرة و كأنها تدور حول نفسها (على طريقة الرسوم المتحركة تقريباً).

لاحظ الشكل التالي :



تتم العمليّة هذه عن طريق الكود البرمجي التالي :

Private Sub Timer2_Timer()
If PiC = 1 Then
PiC = 2
Ball.Picture = Picture3.Picture
Exit Sub
End If
If PiC = 2 Then
PiC = 3
Ball.Picture = Picture4.Picture
Exit Sub
End If
If PiC = 3 Then
PiC = 0
Ball.Picture = Picture1.Picture
Exit Sub
End If
If PiC = 0 Then
PiC = 1
Ball.Picture = Picture2.Picture
End If
End Sub

Timer2.Interval = Abs(Wind) * 5

If Box.Left + Box.Width > Me.Width Then
bWind = -(bWind * Bounce)
Box.Left = Me.Width - Box.Width
End If

If Box.Left < 0 Then
bWind = -(bWind * Bounce)
Box.Left = 0
End If

If Ball.Left + Ball.Width > Box.Left And Ball.Left < Box.Left + Box.Width And Ball.Top + Ball.Height > Box.Top And Ball.Top < Box.Top + Box.Height Then

If Box.Top + Box.Height < Ball.Top + Box.Height / 8 Then
bForce = -(bForce * Bounce)
Box.Top = Ball.Top - Box.Height - 1
Exit Sub
End If

If Ball.Top + Ball.Height < Box.Top + Box.Height / 3 Then
Force = -(Force * Bounce)
If Wind > 0 Then
Wind = Wind - 1
End If
If Wind < 0 Then
Wind = Wind + 1
End If

Ball.Top = Box.Top - Ball.Height - 1
Exit Sub
End If

'للطرف الأيسر
If Abs(Ball.Left + Ball.Width - Box.Left) < Abs(Ball.Left - Box.Left - Box.Width) Then
Ball.Left = Box.Left - Ball.Width - 2
Wind = -(Wind * Bounce) / 2
bWind = bWind + Wind * 3
If Force > 0 Then
bForce = (bForce + Force) * 2
Else
bForce = (bForce - Force) / 2
End If
Exit Sub
End If

'للطرف الأيمن
If Ball.Left < Box.Left + Box.Width Then
Ball.Left = Box.Left + Box.Width + 2
Wind = -(Wind * Bounce)
bWind = bWind + Wind * 3
bForce = -((bForce + Force) * 0.2)
If Force > 0 Then
bForce = (bForce + Force) * 2
Else
bForce = (bForce - Force) / 2
End If
Exit Sub
End If

End If

If Box.Top + Box.Height >= Line1.Y1 Then
bForce = -(bForce * Bounce)
Box.Top = Line1.Y1 - Box.Height
Else
bForce = bForce + 1
End If

Box.Top = Box.Top + bForce
Box.Left = Box.Left + bWind

If bWind > 0 Then
bWind = bWind - 1
End If
If bWind < 0 Then
bWind = bWind + 1
End If
If Slider1.Value = 10 Then Slider1.Value = 9
If Slider1.Value < 10 Then
Bounce = "0." & Slider1.Value
Else
Bounce = Slider1.Value
Bounce = Right(Bounce, Len(Bounce) - 1)
End If
If Ball.Left + Ball.Width > Me.Width Then
Ball.Left = Me.Width - Ball.Width
Wind = -(Wind * Bounce)
End If
If Ball.Left < 0 Then
Ball.Left = 0
Wind = -(Wind * Bounce)
End If
Force = Force + 1
Ball.Left = Ball.Left - Wind
Ball.Top = Ball.Top + Force

If Ball.Top + Ball.Height >= Line1.Y1 Then
If Force <= 1 Then
Force = 0
If Wind > 0 Then
Wind = Wind - 1
End If
If Wind < 0 Then
Wind = Wind + 1
End If
Ball.Top = Line1.Y1 - Ball.Height
Exit Sub
End If

Ball.Top = Line1.Y1 - Ball.Height
Force = -(Force * Bounce)
End If