+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : سوال بخصوص الهيكس ديسمال (/showthread.php?tid=32627)
الصفحات:
1
2
سوال بخصوص الهيكس ديسمال - wolf1120 - 21-12-19
السلام عليكم ورحمة الله وبركته
عندي سوال فيما يخص الهيكس ديسمال
عندي قيمة بالهيكس 2580
المعالة التى اريديها كالتالي
2580 * 32 = 75300 نحولها الى الديسمال وتصبح 480000 نقسمها علا 32 تعطينا النتيجة = 15000
علا العموم حولت لكن لم اجد الحل لها
كود :
Dim v
v = Val("&h" & Text1.Text)
A.Caption = ("&H" & Text1.Text) * 32RE: سوال بخصوص الهيكس ديسمال - معاند الحظ - 21-12-19
عفوا كيف صار ناتج العملية 2580 * 32 = 75300 كذا
لان الناتج راح يكون 2580 * 32 = 82560
RE: سوال بخصوص الهيكس ديسمال - wolf1120 - 21-12-19
شكرا لك قم بالعمل علا الالة الحاسبة ستضهر لك النتيجة
RE: سوال بخصوص الهيكس ديسمال - معاند الحظ - 21-12-19
طيب انا استخدمت الحاسبة
وسؤالي اقصد منه اني افهم منك
وللعلم انا هنا اتعلم مثل الجميع
عموما شكرا لك
كود :
TextBox1.Text = CDec(Conversion.Hex("&H2580") * 32).ToStringهذي طريقتي لحساب المعادلة
RE: سوال بخصوص الهيكس ديسمال - wolf1120 - 21-12-19
شكر لك مرة اخرى لكني ان استعمل فيجول بسيك 6 لو سمحت حول لي كود الا vb6
RE: سوال بخصوص الهيكس ديسمال - معاند الحظ - 21-12-19
ابشر اخوي لكن هل الكود اللي اعطيتك صحيح؟
كود :
TextBox1.Text = CDec(Clng("&H" & HexNum$) * 32).ToStringبصراحة انا مدري اذا كانت الطريقة هذي صحيحة للحل
ولا ادري اذا كانت تناسب vb6 لكن بحثت عن بديل Conversion.hex في فيجوال 6
ملاحظة اعشق الرياضيات لكن للاسف مادرستها عشان كذا سالتك ياغالي
RE: سوال بخصوص الهيكس ديسمال - wolf1120 - 21-12-19
ليس المطلوب اخي
كود :
Dim v
v = Val("&h" & Text1.Text)
a.Caption = ("&H" & Text1.Text) * 50
a.Caption = a.Caption / 32RE: سوال بخصوص الهيكس ديسمال - معاند الحظ - 21-12-19
طيب لو سمحت اذا تقدر تبسط لي طريقة المعادلة بشكل اكثر اعتقد راح اقدر اساعدك
واللي احتاج افهمه هو طريقة ضرب العدد الستعشري hexadecimal لان الباقي سهل بعون الله
RE: سوال بخصوص الهيكس ديسمال - Ahmed_Mansoor - 21-12-19
وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , هذا مثال للتحويل بين القيم ومع تنفيذ العمليات عليها , بالتوفيق .
RE: سوال بخصوص الهيكس ديسمال - معاند الحظ - 21-12-19
تفضل اخي
اخيرا فرفستها وطلعت الطريقة
كود :
'2580 * 32 = 75300 نحولها الى الديسمال وتصبح 480000 نقسمها علا 32 تعطينا النتيجة = 15000
Dim hexString As String = Nothing
hexString = CDec("&H" & 2580) * CDec("&H" & 32)
TextBox1.Text = hexString / 32