[wolf1120]

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

عندي سوال فيما يخص الهيكس ديسمال 


عندي قيمة بالهيكس  2580 


المعالة التى اريديها كالتالي 

2580 * 32  = 75300 نحولها الى الديسمال وتصبح  480000 نقسمها علا 32  تعطينا النتيجة = 15000 

علا العموم حولت لكن لم اجد الحل لها

كود :

Dim v
v = Val("&h" & Text1.Text)
A.Caption = ("&H" & Text1.Text) * 32

[معاند الحظ]

عفوا كيف صار ناتج العملية 2580 * 32 = 75300 كذا
لان الناتج راح يكون 2580 * 32 = 82560

[wolf1120]

شكرا لك قم بالعمل علا الالة الحاسبة ستضهر لك النتيجة

[معاند الحظ]

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

---

كود :

 TextBox1.Text = CDec(Conversion.Hex("&H2580") * 32).ToString

هذي طريقتي لحساب المعادلة

[wolf1120]

شكر لك مرة اخرى لكني ان استعمل فيجول بسيك 6 لو سمحت حول لي كود الا vb6

[معاند الحظ]

ابشر اخوي لكن هل الكود اللي اعطيتك صحيح؟

---

كود :

TextBox1.Text = CDec(Clng("&H" & HexNum$) * 32).ToString

بصراحة انا مدري اذا كانت الطريقة هذي صحيحة للحل
ولا ادري اذا كانت تناسب vb6 لكن بحثت عن بديل Conversion.hex في فيجوال 6

ملاحظة اعشق الرياضيات لكن للاسف مادرستها عشان كذا سالتك ياغالي

[wolf1120]

ليس المطلوب اخي

كود :

Dim v
v = Val("&h" & Text1.Text)
a.Caption = ("&H" & Text1.Text) * 50
a.Caption = a.Caption / 32

شكرا لكم تم حل المعادله

[معاند الحظ]

طيب لو سمحت اذا تقدر تبسط لي طريقة المعادلة بشكل اكثر اعتقد راح اقدر اساعدك
واللي احتاج افهمه هو طريقة ضرب العدد الستعشري hexadecimal لان الباقي سهل بعون الله

[Ahmed_Mansoor]

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

أهلا بك أخي الكريم , هذا مثال للتحويل بين القيم ومع تنفيذ العمليات عليها , بالتوفيق .

[معاند الحظ]

تفضل اخي
اخيرا فرفستها وطلعت الطريقة

كود :

'2580 * 32  = 75300 نحولها الى الديسمال وتصبح  480000 نقسمها علا 32  تعطينا النتيجة = 15000
        Dim hexString As String = Nothing

        hexString = CDec("&H" & 2580) * CDec("&H" & 32)

        TextBox1.Text = hexString / 32