الدالتان Fix و InT من الدوال الرياضية المهمة و الكثيرة الاستخدام .
ملاحظة :الأعداد العشرية مثل: 12.3 ، 1.68456 ، 0.454 ، 15.6-
وظيفة الدالة Fix: تقوم بارجاع الجزء الصحيح من العدد العشري دون تقريب أو بعبارة أخرى تقوم بحذف الأرقام العشرية الموجودة بعد العلامة العشرية بدون تقريب و ارجاع الجزء الصحيح من العدد
بمعنى لو كان لدينا العدد 1.33 وقمنا باستخدام الدالة Fix فان الناتج يكون 1 و هكذا...
الآن قم بانشاء مشروع جديد في الفيجوال بيسك و أضف Button ثم انقر عليه بالماوس نقرا مزدوجا للدخول الى نافذة الكود و اكتب الكود التالي:
MsgBox(Fix(-1.992)) 'الناتج -1
MsgBox(Fix(5.999999)) ' 5 الناتج
MsgBox(Fix(99.222)) '99 الناتج
MsgBox(Fix(-15.7)) '-15 الناتج
MsgBox(Fix(0.32992)) '0 الناتج
أما الدالة InT فلها نفس وظيفة الدالة Fix تماما الا أن الاختلاف بينها يظهر مع الأرقام السالبة .
فالدالتان ترجعان نفس القيمة اذا كان العدد العشري موجبا .مثال:
Dim new_number As Integer
new_number = Fix(9.9) ' الناتج 9new_number = Int(9.9) ' الناتج 9
new_number = Fix(10.99) ' الناتج 10new_number = Int(10.33) ' الناتج 10
أما اذا كان العدد العشري سالبا فهنا الاختلاف :
لاحظ المثال:
Dim new_number As Integer
new_number = Fix(-9.9) ' -الناتج 9
new_number = Fix(-10.99) ' -الناتج 10
new_number = Fix(-3.55) ' -الناتج 3
new_number = Fix(-100.2) ' -الناتج 100
new_number = Fix(-10.99) ' -الناتج 10
new_number = Fix(-3.55) ' -الناتج 3
new_number = Fix(-100.2) ' -الناتج 100
'''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''
new_number = Int(-9.9) ' -الناتج 10
new_number = Int(-9.3) ' -الناتج 10
new_number = Int(-44.67567) ' -الناتج 45
new_number = Int(-10.33) ' -الناتج 11
new_number = Int(-0.9) ' -الناتج 1
new_number = Int(-9.3) ' -الناتج 10
new_number = Int(-44.67567) ' -الناتج 45
new_number = Int(-10.33) ' -الناتج 11
new_number = Int(-0.9) ' -الناتج 1
أتمنى يكون المثال واضح .
تسلم على التوضيح
ردحذفموضوع ممتاز جداا
ردحذفشكرا على الايضاح
ردحذفمعلومات قيمة جدا
ردحذفموضوع رائع وممتاز جداا
ردحذفموضوع رائع وممتاز جداا
ردحذفمدونة مميزة ... بموضوعاتها المتنوعة :)
ردحذفمتشكر لك على هذا الموضوع المميز
ردحذفشكرا على الموضوع
ردحذفشكرا ع الموضوع
ردحذفشكرا على الموضوع
ردحذفشكرا موضوع ممتاز جدا
ردحذفكيف اصمم مدونة مثل هذة المدونة؟؟؟؟؟؟؟؟؟؟؟
ردحذفرائع جدا ...نشكر القائمين على الموقع ... أجزل الله لك العطاء
ردحذف