الدوال الرياضيه
ة Abs : ترجع القيمة المطلقة لآي عدد وترجعه من نفس نوع البيانات المعطى للدالة والمقصود
بالقيمة المطلقة هي قيمة العدد بدون إشارة فالقيمة المطلقة ل (-13) مثلا هي (13) وهكذا, فمثلا لو كتبنا الكود التالي
code: MyNumber=Abs(-45.6)
تكست1.تكست=MyNumber
فإن نتيجة تنفيذ الدالة هي MyNumber=45.6
ولاحظ أن القيمة المدخلة للدالة لابد أن تكون عدد أو تعبير عددي فإذا كانت
القيمة المدخلة للدالة Null ستكون النتيجة Null وإذا كانت القيمة المدخلة
للدالة متغير فارغ أو لم يتم تعيين قيمة له ستكون النتيجة (0).
الدالة Sqr : تستخدم هذه الدالة في تحديد الجذر التربيعي لرقم معين وتأخذ الصورة العامة التالية .
code: MyNumber=Sqr(10)
تكست1.تكست=MyNumber
فإن نتيجة تنفيذ الدالة هي MyNumber=3.1622776
الدالة Log : تستخدم هذه الدالة في تحديد قيمة اللوغاريتم العشري لرقم وتأخذ الصورة العامة التالية :
code: MyNumber=Log (20)
تكست1.تكست=MyNumber
فإن نتيجة تنفيذ الدالة هي MyNumber=2.9957327
الدالة Exp : تستخدم هذه الدالة في تحديد القيمة (e) وهي قاعدة اللوغاريتم
الطبيعي مرفوعة بقوة الرقم الذي تتضمنه حيث (e) تساوي تقريبا 2.7182818
وتأخذ الصورة العامة التالية :
code: MyNumber=Exp (رقم)
الدالة Rnd : وتستخدم هذا الدالة في توليد أرقام عشوائية تقع ما بين الصفر و
واحد بحد أقصي 15 رقما عشريا وتأخذ الصورة العامة التالية :
code: MyNumber=Rnd (عدد)
فمثلا الدالة Rnd(10) قد تعطي رقما مثل 0.7055475 وعند تشغيل الدالة مرة أخري ينتج رقما آخر مثل 0.533424 وهكذا .
الدالة Int : وتستخدم هذه الدالة لحساب الجزء الصحيح فقط من رقم يشتمل علي
أرقام صحيحة وعشرية أو بعبارة أخر لحذف الأرقام العشرية الموجودة بعد
العلامة العشرية بدون تقريب وتأخذ الصورة التالية :
code: MyNumber=Int (332.54)
فإن نتيجة تنفيذ الدالة هي MyNumber=332
الدالة Atn : تستخدم هذه الدالة في حساب مقلوب ظل الزاوية "ظتا" للرقم الذي
تشتمل علية مقدار بالتقدير الدائري وتأخذ الصورة العامة التالية :
code: MyNumber=Atn (رقم)
الدالة Tan : تستخدم هذه الدالة في تحديد قيمة ظل زاوية معينة وتأخذ الصورة العامة التالية :
code: MyNumber=Tan (رقم)
الدالة Cos : وتستخدم هذه الدالة في تحديد قيمة جيب تمام الزاوية معينة وتأخذ الصورة العامة التالية :
code: MyNumber=Cos (رقم)
الدالة Sin : : تستخدم هذه الدالة في تحديد قيمة جيب زاوية معينة وتأخذ الصورة العامة التالية :
code: MyNumber=Sin (رقم)
الدوال المثلثيه
Private Sub Command1_Click()
Dim A As Integer, X As Integer
A = Sin(90) ' X دالة الجيب للزاوية
Debug.Print "جيب الزاوي=", A
A = Cos(90) ' xدالة جيب التمام للزاوية
Debug.Print "جيب تمام الزاوية=", A
A = Tan(90) ' X دالة الظل للزاوية
Debug.Print "ظل الزاوية=", A
'A = ATAN(45) ' Xمقلوب دالة الظل للزاوية
'Debug.Print A
End Sub