كيف تحويل رقم من النظام العشري الى الرقم المكافئ له بالنظام الثنائي

[أبو جريد]

السلام عليكم ورحمة الله وبركاتة

اخواني ممكن مساعدة في كيفية عمل دالة DEC2BIN لتحويل رقم عشري إلى رقم ثنائي او بالاصح اريد دالة تعطيني الرقم المكافى

بالنظام الثنائي

مثلا خلية A فيها رقم 123 اريد الدالة التي تعطيني الرقم المكافئ له بالنضام الثنائي في الخلية B

ارجو ان يكون المثال واضح

[طارق محمود]

السلام عليكم

أخي العزيز

تفضل المرفق

تحويل رقم عشري إلى رقم ثنائي.rar

[ياسر خليل أبو البراء]

أخي وحبيبي الباشمهندس طارق

بارك الله فيك

لك بصمة وعلامة في موضوعات كثيرة بالمنتدى

 

إشارة لطلب الأخ هاوي الإكسيل فيما يخص طلبه بهذا الخصوص

أقدم له دالة تتعامل مع الأرقام الكبيرة

Function DecToBin(ByVal DecimalIn As Variant, Optional NumberOfBits As Variant) As String
'تقوم الدالة المعرفة بتحويل الأرقام بالنظام العشري إلى النظام الثنائي
' The DecimalIn argument is limited to 79228162514264337593543950245
' (approximately 96-bits) - large numerical values must be entered
' as a String value to prevent conversion to scientific notation. Then
' optional NumberOfBits allows you to zero-fill the front of smaller
' values in order to return values up to a desired bit level.
'=DEC2BIN(MOD(QUOTIENT(A1,256^3),256),8)&DEC2BIN(MOD(QUOTIENT(A1,256^2),256),8)&DEC2BIN(MOD(QUOTIENT(A1,256^1),256),8)&DEC2BIN(MOD(QUOTIENT(A1,256^0),256),8)
'---------------------------------------------------------------------
    DecToBin = ""
    DecimalIn = CDec(DecimalIn)
    Do While DecimalIn <> 0
        DecToBin = Trim$(Str$(DecimalIn - 2 * Int(DecimalIn / 2))) & DecToBin
        DecimalIn = Int(DecimalIn / 2)
    Loop
    If Not IsMissing(NumberOfBits) Then
        If Len(DecToBin) > NumberOfBits Then
            DecToBin = "Error - Number too large for bit size"
        Else
            DecToBin = Right$(String$(NumberOfBits, "0") & DecToBin, NumberOfBits)
        End If
    End If
End Function

كما يوجد بالملف المرفق حل بالمعادلات وحل آخر عن طريق الفورم

 

تقبل تحياتي

Decimal To Binary.rar