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

الدالة IsBitMaskSet

تحديد ما إذا كانت قناع (مجموعة) من البتات مضبوطة (قيمة كل منها = 1) ضمن مجموعة من البتات.

الصيغة:

Function IsBitMaskSet(TestValue As Long, BitMask As Long) As Boolean

الصنف:
TNumber.

الوسائط (Parameters):

الشرح:
إذا كنت تريد التعامل مع عدد صحيح باعتباره مجموعة من البتات فإن هذه الدالة تعيد True إذا كانت القيمة المحددة في TestValue تحتوي على القناع BitMask، و تعيد False إذا كانت غير ذلك.

الاستخدام:

Dim ObjNumber As New TNumber
Dim Result As Boolean

Result = ObjNumber.IsBitMaskSet(43, 11)  ' Result = True (43 = 00101011, 11 = 00001011)
Result = ObjNumber.IsBitMaskSet(43, 40)  ' Result = True (43 = 00101011, 40 = 00101000)
Result = ObjNumber.IsBitMaskSet(43, 12)  ' Result = False (43 = 00101011, 12 = 00001100)

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

بداية الصفحة