الدالة التي تحول من النظام السادس عشر الى عشري

انظر لهذا الرابط

/index.php?showtopic=56706

اختكم

زهره

اختي الفاضلة قرأت الموضوع ولم اجد الدالة التي ابحث عنها

والموضوع هو اني اريد تحويل رقم المنتج للمعالج من سادس عشر الى عشري لاجراء بعض العمليات الحسابية عليه

لكي جزيل الشكر

لقد بحثت عن دالة تحويل العدد السادس عشر الى عشري في الهلب و لم اجدها وطلما لم يرد على طلبي احد سوى الاخت زهرة فقررت تصميم الدالة ليستفيد منها الاخوة في المنتدى ولكني مازلت اعتقد انه توجد دالة مبنيهة في لغة الاكسس تقوم بهذه المهمة كما انني اعرف ان الدالة التالية تقوم بتحويل الثوابت فقط من النظام السادس عشر الى النظام العشري و الداله هي

[MSGBOX &H23DF]

لكن الدالة السابقة لم تفلح مع المتغيرات

لذلك قمت تصميم الدالة التالية ولكني لاحظت عليها انها بطيئة في التنفيذ عن الدوال المبنية

Public Function CHTOD(hexn As String) As Double
Dim i As Integer
Dim x As Integer
Dim d As String

Dim p As Double
Dim D2 As Integer
Dim DECN As Double

x = Len(hexn)
p = 1
i = 1
DECN = 0

For i = 1 To x
    d = Mid(hexn, x, 1)
    Select Case d
    Case Is = "A"
        d = "10"
    Case Is = "B"
        d = "11"
    Case Is = "C"
        d = "12"
    Case Is = "D"
        d = "13"
    Case Is = "E"
        d = "14"
    Case Is = "F"
        d = "15"
    End Select
    
    D2 = CInt(d)
    
    DECN = DECN + D2 * p
    p = p * 16
    x = x - 1
Next i
CHTOD = DECN
End Function

وارجو الله ان تكون مفيده

HEXTODEC.rar

اخي العزيز سيد

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

جزاك الله كل خير على هذه الدالة المهمه وقد تم تجربتها وهي تعمل بشكل ممتاز

اخي لقد اشرت لك في المشاركه السابقه الى رابط حماية قاعدة البيانات برقم الهاردسك وتحتوي ضمن الشرح على رابط تحويل الرقم السداسي عشري Hexadecimal الى عشري Decimal او ثنائي binary

http://flor.nl/dec2hex.html

جرب تطبيق هذا الرقم في Hexadecimal

38BC4934

سينتج لديك رقم عشري Decimal

951863604

وايضا رقم ثنائي binary

111000101111000100100100110100

ولو نظرت للـكود الخاص بالصفحه ستجد السكريبت الخاص بالتحويل وتستطيع تحويله الى داله VBA

عموما لا يوجد مشكله طالما انك قمت بهذا العمل الرائع فلك مني كل الشكر والتقدير

اختكم

زهره

الاخت الفاضلة زهرة شكراً لكي على الرد

فانني كنت ابحث عند دالة مبنية في الاكسس لانها تكون اسرع في التنفيذ من الدوال المصممة

كما انني قرأت موضوع الحماية وهو رائع و انا استخدم هذه الحماية منذ عدة سنوات فلقد صممت مجموعة من البرامج المحاسبية و شئون الموظفين و المدارس و الاختبارات على الحاسب واحميها برقم الهارد دسك وفي الوقت الحالي سأعهد بتوزيعها عن طريق بعض الموزعين ولدى هذه الشركات مبرمجين فيستطيعون استخدام بعض البرامج لتغير السيريال نمبر للهارد دسك و بذلك يفكون الحماية وأن الان اصمم طريقة اخرى للحماية مبنية على رقم المنتج للمعالج وسأضع البرنامج في المنتدى في القريب بإذن الله

ابو عمر