تابع كاربر- تعريف در اكسل VBA in Excel
برنامه نويسي
با استفاده از VBA ميتوان فرمولهائي را تعريف كرد و آنها را نظير توابع كتاب خانه اي اكسل داخل سلولها نوشت و به كار برد. حروف VBA تقطيع عبارت Visual Basic for Applications است كه يك زبان برنامه نويسي است كه در داخل نرم افزارهاي Microsoft Office نظير Word, Excel تعبييه شده است.
مثال: سرعت يك چتر باز را از لحظه پرش تا زماني كه به سرعت يكنواخت برسد، در لحطات مختلف با آناليز عددي به دست آورده و منحني آن را رسم كنيد. وزن چترباز را با m ، و ضريب مقاومت هوا را با cv نشان دهيد.
حل: نيروي وارد به چترباز در لحظه t1 برابر نيروي ثقل زمين منهاي نيروئي است كه در اثر مقاومت هوا درجهت خلاف نيروي ثقل وارد ميشود. نيروي مقاومت هوا با سرعت متناسب، و برابر است با:
Fair(t1) = cv * v(t1)
در نتيجه شتاب معكوس حاصل از مقاومت هوا برابر است با:
accair = (cv/m)*v(t1)
شتاب كل در لحظه t1 مساوي شتاب گرانش خواهد بود منهاي شتاب معكوس:
acc(t1) = g – (cv/m)*v(t1)
شتاب تقريبي در لحظه t1 ميشود (زيرنويس appr همان approximated يعني تقريبي است):
accappr = [v(t1+DELt) – v(t1)]/DELt
عدد ثابت DELt رشد زمان را نشان ميدهد. حال مقدار واقعي شتاب را با مقدار تقريبي آن برابر قرار ميدهيم:
accappr ≈ acc(t1) → [v(t1+DELt) – v(t1)]/DELt ≈ g – (cv/m)*v(t1) v(t1+DELt) = v(t1) + [g-(cv/m)v(t1)] * DELt
v(t1+DELt) = v(t1) + acc * DELt
زمان رشد از پس سرعت عبارت فوق را اگر بخواهيم به صورت كامپيوتري بنويسيم ميشود:
v = v + acc * DELt
حال از منيوي اصلي Tools_Macro_Visual Basic Editor را اجرا و تابع زير را در اديتور VBA نوشته و ضبط ميكنيم. زبان VBA قواعد خاصي دارد و تا حدي شبيه Quick Basic است.
Function Vnum(DELt, t1, t2, v1, m, cv)
Dim t As Single, dvBdt As Single, acc As Single, v As Single
Const g As Single = 9.8
t = t1
v = v1
Do
acc = g – (cv / m) * v
v = v + acc * DELt
t = t + DELt
If t >= t2 Then Exit Do
Loop
Vnum = v
End Function
در اين تابع زمان را بين t1 و t2 به قطعات DELt ثانيهاي تقسيم كرده ايم. سپس در داخل حلقه DO … LOOP زمان بعد از DELt را مساوي زمان قبل از آن به علاوه رشد زمان قرار داده ايم يعني: (t = t + DELt)
همچنين سرعت بعد از DELt را مساوي سرعت قبل از آن به علاوه رشد سرعت قرار داده ايم يعني:
(v = v + acc * DELt).
در هر تكرار، سرعت در داخل حلقه حساب ميشود تا به زمان t2 برسيم و حلقه تمام شود . سرعت در t2 به عنوان خروجي تابع برگشت داده ميشود. سرعت و زمان اوليه، ضريب مقاومت هوا، و شتاب ثقل آرگومانهاي ديگر تابع Vnum هستند. اين تابع جمعاٌ شش آرگومان دارد.
نویسنده: مصطفی همت آبادی
مقاله متلب,مطلب,متلب,مقاله برق,مقاله قدرت,مقاله مطلب,مقاله سیمولینک,دانلود متلب,دانلود مقاله متلب,مقالهmatlab ,آموزش متلب,مطلب,متلب,آموزش برق,آموزش قدرت,آموزش مطلب,آموزش سیمولینک,دانلود متلب,دانلود آموزش متلب,آموزشmatlab ,پروژه متلب,مطلب,متلب,پروژه برق,پروژه قدرت,پروژه مطلب,پروژه سیمولینک,دانلود متلب,دانلود پروژه متلب,پروژهmatlab ,
