الفيزياء والحياة




 
الرئيسيةبحـثالتسجيلدخول
       تفضل

شاطر | 
 

 كود فيجوال للحركة المستقيمة المتغيرة بانتظام

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
Alarbeed
المدير العام

avatar

عدد المساهمات : 89
تاريخ التسجيل : 23/01/2010
العمر : 47

04022010
مُساهمةكود فيجوال للحركة المستقيمة المتغيرة بانتظام

اعتمدت في صناعة هذا الكود على 3 قوانين فيزيائية لدراسة الحركة المستقيمة :
1 - المسافة = نصف التسارع بمربع الزمن + سرعة الصفر ضرب الزمن
2 - السرعة النهائية = التسارع ضرب الزمن + سرعة الصفر
3 - مربع السرعة النهائية - مربع سرعة الصفر = ضعفي التسارع ضرب المسافة.

و مع أن الدوال التي قمت بإنشائها عددها قليل و يمكن استخراج أكثر من هذا العدد إلى انني قمت بعمل هذا البرنامج للتأكد من بعض الأمور ونقله ألى الجوال

الكود مكتوب بلغة الفيجوال بيسك البسيطة و لعمل المشروع المطلوب هو ما يلي
عمل 5 صناديق نص و زر واحد
الاول للتسارع - و الثاني للزمن - و الثالث لسرعة الصفر - و الرابع للسرعة النهائية - و الخامس لحساب المسافة
انتبه للمقصود في كل مما يلي:

fspeed : هي سرعة الصفر
stime : هو الزمن
lspeed : السرعة النهائية
spaceget : هي المسافة
accele : هو التسارع

في النموذج يمكن لصق الكود التالي :

الكود البرمجي

Private Function spaceget(ByVal accel As Long, stime As Long, fspeed As Long) As Long
'دالة حساب المسافة الكلية
spaceget = (accel * 0.5) * stime ^ 2 fspeed * stime
End Function


Private Function lspeed(ByVal accel As Long, stime As Long, fspeed As Long) As Long
'دالة حساب السرعة النهائية
lspeed = (accel * stime) fspeed
End Function


Private Function accele(stime As Long, fspeed As Long, lspeed As Long) As Long
'دالة حساب التسارع
accele = (lspeed - fspeed) / stime
End Function


Private Function stime(lspeed As Long, fspeed As Long, tasaro As Long) As Long
'دالة حساب الزمن
stime = (lspeed - fspeed) / tasaro
End Function

Private Function fspeed(accel As Long, stime As Long, lspeed As Long) As Long
'دالة حساب سرعة الصفر
fspeed = (accel * stime) - lspeed
End Function


Private Function acc2(lspeed As Double,fspeed As Double, spaceget As Double) As Double
'دالة حساب التسارع بدون الزمن
acc2= ((lspeed ^ 2) - (fspeed ^ 2)) / (2 * spaceget )
End Function

و في الزر يمكن لصق أحد أو جميع الأسطر :

private sub command1_click()
' طريقة حساب التسارع
Text1.Text = accele(Text2.Text, Text3.Text, Text4.Text)

' طريقة حساب الزمن
Text2.Text = stime(Text1.Text, Text3.Text, Text4.Text)

'طريقة حساب سرعة الصفر
Text3.Text = fspeed(Text1.Text, Text2.Text, Text4.Text)

'طريقة حساب المسافة الكلية
Text5.Text = spaceget(Text1.Text, Text2.Text, Text3.Text)

'طريقة حساب السرعة النهائية
Text4.Text = lspeed(Text1.Text, Text2.Text, Text3.Text)

'طريقة حساب التسارع بدون وجود الزمن
Text1.Text = acc2(Text4.Text, Text3.Text, Text5.Text)

end sub
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://physicswa.physicsboards.com
مُشاطرة هذه المقالة على: diggdeliciousredditstumbleuponslashdotyahoogooglelive

كود فيجوال للحركة المستقيمة المتغيرة بانتظام :: تعاليق

لا يوجد حالياً أي تعليق
 

كود فيجوال للحركة المستقيمة المتغيرة بانتظام

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 

صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الفيزياء والحياة :: الدروس :: فيزياء ثاني ثانوي-
انتقل الى: