التحويل من النظام العشري إلى النظام الثنائي ثم من الثنائي إلى الثماني وأخيراً جمع الناتج

[هاوي اكسل]

 

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

اريد عمل الاتي

1 حذف الفاصلة من العدد دون ان يتأثر العدد نهائيا

2 تحويل العدد بعد حذف الفاصلة الى ثنائي 

3 تحويل ناتج العدد الثنائي الى عشري

4 جمع العدد العشري بحيث يكون رقم واحد

 

 

 

 

 

Book1.rar

[علاء رسلان]

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

بالنسبة لتحويل من عشرى لثنائى يفيدك هذا الرابط ان شاء الله و خصوصا للأعداد الكبيرة

http://www.officena.net/ib/?showtopic=44372

الحلول المقدمة للأساتذة الأفاضل طارق محمود و ياسر أبو البراء ، ان شاء الله تجد بقيه الحلول بمتابعة الموضوع

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

أخي الفاضل

أعتقد أنه تمت الإجابة في الموضوع المطروح من قبل عن بعض النقاط ...

سؤالي الأول : هل تريد أن تتم العمليات كل عملية منفصل عن الأخرى كما وضحت بالملف أم أنك تقصد بالخطوات المكتوبة الخطوات المراد اتباعها للوصول للحل النهائي ..

بمعنى آخر هل تريد الناتج النهائي مرة واحدة أم بخطوات لكل خطوة كما وضحت

نقطة أخرى غير مفهومة : في العمود E ذكرت "تحويل الثنائي صحيح" ماذا تعني بهذا التحويل ؟

[هاوي اكسل]

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

بالنسبة لتحويل من عشرى لثنائى يفيدك هذا الرابط ان شاء الله و خصوصا للأعداد الكبيرة

http://www.officena.net/ib/?showtopic=44372

الحلول المقدمة للأساتذة الأفاضل طارق محمود و ياسر أبو البراء ، ان شاء الله تجد بقيه الحلول بمتابعة الموضوع

الله يعطيك العافية اخي الكريم

[هاوي اكسل]

أخي الفاضل

أعتقد أنه تمت الإجابة في الموضوع المطروح من قبل عن بعض النقاط ...

سؤالي الأول : هل تريد أن تتم العمليات كل عملية منفصل عن الأخرى كما وضحت بالملف أم أنك تقصد بالخطوات المكتوبة الخطوات المراد اتباعها للوصول للحل النهائي ..

نعم اخي الكريم اريد ان تتم العمليات كل عملية منفصلة عن الاخرى

بمعنى آخر هل تريد الناتج النهائي مرة واحدة أم بخطوات لكل خطوة كما وضحت

نقطة أخرى غير مفهومة : في العمود E ذكرت "تحويل الثنائي صحيح" ماذا تعني بهذا التحويل ؟

تحويل من عدد ثنائي الى مايقابلها من اعداد عشرية

الله يعطيك العافية ابو البراء

 

 

تم تعديل يونيو 6, 2015 بواسطه هاوي اكسل

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

أخي الكريم

أنت تقول تحويل من عدد ثنائي إلى ما يقابلها من أعداد عشرية ..طيب إحنا لسه محولين العدد العشري إلى عدد ثنائي

فمن المنطقي أنه عند تحويل العدد الثنائي إلى عدد عشري مرة أخرى سينتج نفس الرقم الأول وليس كما في مثالك الموضح في المرفق ..

نقطة هامة لابد من الرد عليها

شيء آخر : ممكن نعرف ايه الغرض من مثل هذه الخطوات ؟ ما الهدف منها ؟ يمكن نتعلم معلومة جديدة

[هاوي اكسل]

أخي الكريم

أنت تقول تحويل من عدد ثنائي إلى ما يقابلها من أعداد عشرية ..طيب إحنا لسه محولين العدد العشري إلى عدد ثنائي

فمن المنطقي أنه عند تحويل العدد الثنائي إلى عدد عشري مرة أخرى سينتج نفس الرقم الأول وليس كما في مثالك الموضح في المرفق ..

نقطة هامة لابد من الرد عليها

شيء آخر : ممكن نعرف ايه الغرض من مثل هذه الخطوات ؟ ما الهدف منها ؟ يمكن نتعلم معلومة جديدة

عند التحويل من عشري الى ثنائي يختلف تحويله الى عشري مره اخرى  ولا يأتي بنفس الرقم

انظر الى الصورة المرفقة

الغرض منها دراسات مالية

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

أخي الفاضل

النظام ليس هو النظام العشري بل هو النظام الثماني ..

إليك الملف المرفق فيه ما تريد إن شاء الله

Sub ConvertProcess()
    Dim I As Long
    Dim strbinnum, BitValue, BinNumSize, PlaceValue, lngBaseX
    Dim intNumber, intRemainder, strRemainder, strOctalNumber
    
    Application.ScreenUpdating = False
        Range("B2:F1000").ClearContents
        For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            Cells(I, 2).Value = RemovePeriods(Cells(I, 1).Text) + 0
            Cells(I, 3).Value = DecimalToBinary(Cells(I, 2))
            Cells(I, 4).Value = BinaryToOctal(Cells(I, 3).Text)
            Cells(I, 5).Value = SumDigits(Cells(I, 4))
            Cells(I, 6).Formula = "=IF(" & Cells(I, 4).Address & "="""","""",MOD(" & Cells(I, 4).Address & "-1,9)+1)"
            Cells(I, 6).Value = Cells(I, 6).Value
        Next I
    Application.ScreenUpdating = True
End Sub

Public Function RemovePeriods(ByVal Txt)
    Application.Volatile
        If TypeOf Txt Is Range Then
            Txt = Txt.Text
        End If
    RemovePeriods = Replace(Txt, ".", "")
End Function

Public Function DecimalToBinary(DecimalNum As Long) As String
    Dim Tmp As String
    Dim N As Long

    N = DecimalNum

    Tmp = Trim(Str(N Mod 2))
    N = N \ 2

    Do While N <> 0
        Tmp = Trim(Str(N Mod 2)) & Tmp
        N = N \ 2
    Loop

    DecimalToBinary = Tmp
End Function

Function BinaryToOctal(strbinnum As String)
    Dim BitValue As String, BinNumSize As Long, PlaceValue, lngBaseX As Long, intNumber As Long, intRemainder As Long, strRemainder As String, strOctalNumber As String
    BinNumSize = Len(strbinnum)

    For PlaceValue = 0 To BinNumSize - 1
        BitValue = Mid(strbinnum, BinNumSize, 1)
        BinNumSize = BinNumSize - 1
        lngBaseX = (2 ^ PlaceValue * CInt(BitValue)) + lngBaseX
    Next PlaceValue

    intNumber = lngBaseX
    Do While intNumber >= 1
        intRemainder = intNumber Mod 8
        strRemainder = CStr(intRemainder)
        intNumber = intNumber \ 8
        strOctalNumber = strRemainder & strOctalNumber
    Loop
    BinaryToOctal = strOctalNumber
End Function

Function SumDigits(Number)
    Dim I As Long
    For I = 1 To Len(Number)
        SumDigits = SumDigits + Val(Mid(Number, I, 1))
    Next I
End Function

تقبل تحياتي

Decimal & Binary & Octal Conversion.rar

[هاوي اكسل]

 

الله يعطيك العافية يابو البراء ممتاز جدا

لكن ان استطعت ان تكون معادلات دون الفورم يكون افضل

وجزاك الله خير

وبلغك الله رمضان وجعلك من عتقائه من النار

 

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

أخي لا يوجد فورم بالملف

إنما هي أكواد ودوال معرفة مجمعة معاً لتؤدي الغرض

بالنسبة للمعادلات يوجد معادلات للتحويل بين الأنظمة العددية ولكنها لن تؤدي الغرض وستعطيك خطأ NUM ..

والأكواد أفضل في النتائج من المعادلات خصوصاً مع البيانات الكثيرة حيث أن المعادلات في حالة البيانات الكثيرة تؤدي إلى كبر حجم الملف وبطء في التعامل معه ..

وانتظر الأخوة الأعضاء لعلهم يفيدونك في حل بالمعادلات ...