تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سوال بخصوص الهيكس ديسمال
#1
السلام عليكم ورحمة الله وبركته 

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


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


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

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

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

كود :
Dim v
v = Val("&h" & Text1.Text)
A.Caption = ("&H" & Text1.Text) * 32
الرد
تم الشكر بواسطة:
#2
عفوا كيف صار ناتج العملية 2580 * 32 = 75300 كذا
لان الناتج راح يكون 2580 * 32 = 82560
الرد
تم الشكر بواسطة: Ahmed_Mansoor , asemshahen5
#3
شكرا لك قم بالعمل علا الالة الحاسبة ستضهر لك النتيجة
الرد
تم الشكر بواسطة: Ahmed_Mansoor , asemshahen5
#4
طيب انا استخدمت الحاسبة
وسؤالي اقصد منه اني افهم منك
وللعلم انا هنا اتعلم مثل الجميع
عموما شكرا لك

كود :
 TextBox1.Text = CDec(Conversion.Hex("&H2580") * 32).ToString

هذي طريقتي لحساب المعادلة
الرد
#5
شكر لك مرة اخرى لكني ان استعمل فيجول بسيك 6 لو سمحت حول لي كود الا vb6
الرد
تم الشكر بواسطة: معاند الحظ , Ahmed_Mansoor , asemshahen5
#6
ابشر اخوي لكن هل الكود اللي اعطيتك صحيح؟

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

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

ملاحظة اعشق الرياضيات لكن للاسف مادرستها عشان كذا سالتك ياغالي
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , Ahmed_Mansoor , asemshahen5
#7
ليس المطلوب اخي

كود :
Dim v
v = Val("&h" & Text1.Text)
a.Caption = ("&H" & Text1.Text) * 50
a.Caption = a.Caption / 32
شكرا لكم تم حل المعادله
الرد
تم الشكر بواسطة: Ahmed_Mansoor , asemshahen5
#8
طيب لو سمحت اذا تقدر تبسط لي طريقة المعادلة بشكل اكثر اعتقد راح اقدر اساعدك
واللي احتاج افهمه هو طريقة ضرب العدد الستعشري hexadecimal لان الباقي سهل بعون الله
الرد
تم الشكر بواسطة: Ahmed_Mansoor , asemshahen5
#9
وعليكم السلام ورحمة الله وبركاته

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


الملفات المرفقة
.rar   VB Project - Base Convertion.rar (الحجم : 5.65 ك ب / التحميلات : 4)
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة: معاند الحظ , wolf1120 , asemshahen5
#10
تفضل اخي
اخيرا فرفستها وطلعت الطريقة

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

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

        TextBox1.Text = hexString / 32
الرد
تم الشكر بواسطة: asemshahen5 , wolf1120



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم