منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعده في الفيجوال باسيك اكسل للمختصين - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مساعده في الفيجوال باسيك اكسل للمختصين (/showthread.php?tid=15902)



مساعده في الفيجوال باسيك اكسل للمختصين - hady27 - 24-05-16


اخواني اريد المساعده في بحث خاص بالفيجوال باسيك انا ادرس الكيمياء 

المشكله انا  اعلم اساسيات اللغه ولكنني لا اعلم كيف اطبق في هذه الوظيفه 
الوظيفه تتناول هذا القانون    P=K(P0/T0)T -1

المطلوب ايجاد K 
من اجل التجربه نصنع جدول ثنائي الابعاد 500*500 خليه 
وبه 1000 جسيم غاز 
درجه الحراره البدائيه 300 K

الضغط البدائي هو 1
 كل جسيم يمكنه الحركه بواسطه سرعه متجهها بين -5 و 5 في كل محور حركه X و Y  مثال ل 3 حركات ممحكنه لجسيم 

يجب اهمال التصادم بين الجسيمات ويمكن ان ياخذ جسيم نفس مكان جسيم اخر 
بعد ان يصطدم الجسم يرتد حسب قوانين الانعكاس للضوء 
في كل جوله حركه نقوم بعد كميه التصادمات بجدران الجدول 
نعاود العمليه حتى نصل لوضع وبه الانحراف المعياري للمعدل المتراكم طول الزمن لكميه التصادمات اصغر ب 10% من المعدل المتراكم 
بعد ان نصل الى هذه الحاله  نقيس الضغط ونزيد درجه الحراره ب 20 k 
ازدياد درجه الحراره ب 20 k تعني زياده سرعه 20% من الجسيمات (الاختيار عشوائي )

وايضا سرعه الجسيم من المختار منهم تزداد ب 2  حسب المحور المعطي 
اي ان ان كانت احداثيه السرعه سالبه يزداد -2 للمحور السالب 
نعاود الكره وكل مره نزيد 20 K حتى نصل الى 700 k 
بعدها نرسم رسم بياني للضغط كداله لدرجه الحراره !!
المشكله لا ادري كيف ابدأ هذا الشيء !! 
انا اعلم اساسيات اللغه ولكن كيف اعبر عن هذا الاشياء في الاكسل