دليل استخدام إجراءات VBAppAss.dll للمبرمجين بلغة Visual Basic 6.0

الدالة IsBitSet

تحديد ما إذا كانت بت (Bit) معينة قيمتها 1 أم لا.

الصيغة:

Function IsBitSet(TestValue As Long, BitNumber As Long) As Boolean

الصنف:
TNumber.

الوسائط (Parameters):

الشرح:
إذا كنت تريد التعامل مع عدد صحيح باعتباره مجموعة من البتات فإن هذه الدالة تعيد True إذا كانت البت التي رقمها BitNumber قيمتها 1، و تعيد False إذا كانت قيمة تلك البت 0. قيمة البارامتر BitNumber يجب أن تكون بين 0 و 31، و أي قيمة خارج هذا النطاق ستعيد False.

الاستخدام:

Dim ObjNumber As New TNumber
Dim Result As Boolean

Result = ObjNumber.IsBitSet(11, 0)  ' Result = True (11 = 00001011, Bit0 = 1)
Result = ObjNumber.IsBitSet(10, 0)  ' Result = False (10 = 00101010, Bit0 = 0)

انظر أيضاً:
الدالة IsBitMaskSet

بداية الصفحة