السلام عليكم ورحمة الله وبركته
عندي سوال فيما يخص الهيكس ديسمال
عندي قيمة بالهيكس 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
شكرا لك قم بالعمل علا الالة الحاسبة ستضهر لك النتيجة
طيب انا استخدمت الحاسبة
وسؤالي اقصد منه اني افهم منك
وللعلم انا هنا اتعلم مثل الجميع
عموما شكرا لك
كود :
TextBox1.Text = CDec(Conversion.Hex("&H2580") * 32).ToString
هذي طريقتي لحساب المعادلة
شكر لك مرة اخرى لكني ان استعمل فيجول بسيك 6 لو سمحت حول لي كود الا vb6
ابشر اخوي لكن هل الكود اللي اعطيتك صحيح؟
كود :
TextBox1.Text = CDec(Clng("&H" & HexNum$) * 32).ToString
بصراحة انا مدري اذا كانت الطريقة هذي صحيحة للحل
ولا ادري اذا كانت تناسب vb6 لكن بحثت عن بديل Conversion.hex في فيجوال 6
ملاحظة اعشق الرياضيات لكن للاسف مادرستها عشان كذا سالتك ياغالي
ليس المطلوب اخي
كود :
Dim v
v = Val("&h" & Text1.Text)
a.Caption = ("&H" & Text1.Text) * 50
a.Caption = a.Caption / 32
شكرا لكم تم حل المعادله
طيب لو سمحت اذا تقدر تبسط لي طريقة المعادلة بشكل اكثر اعتقد راح اقدر اساعدك
واللي احتاج افهمه هو طريقة ضرب العدد الستعشري hexadecimal لان الباقي سهل بعون الله
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , هذا مثال للتحويل بين القيم ومع تنفيذ العمليات عليها , بالتوفيق .
تفضل اخي
اخيرا فرفستها وطلعت الطريقة
كود :
'2580 * 32 = 75300 نحولها الى الديسمال وتصبح 480000 نقسمها علا 32 تعطينا النتيجة = 15000
Dim hexString As String = Nothing
hexString = CDec("&H" & 2580) * CDec("&H" & 32)
TextBox1.Text = hexString / 32