تقريب الارقام العشرية

استخدم الكود التالي

System.Math.Round(73.5634156412, 2)

شكرا لك اخي الكريم لكن جربت ومافاد طلع تحت الكود خط ازرق متعرج هل لأن محتوى label يوجد به نص ( %) ارجو التكرم بالاجابة

شكرا

عفواً اخي ،،

بس ياريت ترفق السطر الذي حصل فيه الخطأ

اخي الكريم هونفس السطر لكن تدخل فيه النسبة المئوية كما ذكرت سابقا هكذا

label1.text= System.Math.Round(%73.5634156412, 2)

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

إن شاء الله هذا الكود يمشي معاك

label1.Text = String.Format("%{0}", System.Math.Round(73.5634156412, 2))

الله يعطيك العافية لم اجرب الكود بعد واعتقد انه سيفي بالغرض ان شاء الله

شكرا جزيلا

Label2.Text = String.Format("%{0}", System.Math.Round(Val(Label1.Text), 2))

اخي هذا هو السطر كما هو عندي بالضبط حيث label1.text تحتوي على النسبة المئوية والرقم والخطأ يبين عدم تطابق النوع

شكرا جزيلا

سطر الكود ليش تغير؟!!! :huh: :huh: :huh:

وبصراحة مش فاهم انت ايش تشتي تعمل؟!!!

لكن على العموم جرب الكود بهذا الشكل

Label2.Text = String.Format("%{0}", Math.Round(Decimal.Parse(Label1.Text), 2))

شكرا اخي الكريم والكود لم اغير فيه الا انني وضعت label1.text الذي كما ذكرت لك في بداية السؤال يحتوي على الرقم والنص مكان الرقم الذي وضعته انت وعلى العمو م ماقصرت وعسى ماتعبناك وسأستفيد ايضا مما تفضلت به

شكرا مرة اخرى

Dim r as decimal
 r = lable1.text 
lable2.text = math.round (r*100,2) &"%"

تم ضرب الرقم ب100 ليصبح على الشكل 73.7356341564 ليقوم الكود في السطر الرابع بأخذ أول رقمين بعد الفاصلة

يا اخي الكريم,,,

اعذرني لسؤالي السابق.

واتمنى ان تجرب الكود المرفق وتخبرني بالنتيجة.

منتظر الرد منك.

حاضر اخي الكريم سأجرب واخبرك بالنتيجة ولك الشكر الجزيل

Dim r as decimal

r = lable1.text

lable2.text = math.round (r*100,2) &"%"

اخي لم افهم السطر الاول ارجو التوضيح اكثرقد احسن التعامل مع الكود اذا فهمته اكثر مثلا: لماذا وضعته

السلام عليكم,,,

hamadalkh بارك الله فيه ، قدم نفس الحل بس بشكل آخر.

لكن إذا سمحت جرب الكود هذا وإن شاء الله يمشي معاك

Label2.Text = String.Format("%{0}", Math.Round(Decimal.Parse(Label1.Text), 2))

شكرالكم جميعا لكن الحل على ما أعتقد يكمن في ايجاد طريقة نستطيغ بها حذف الحرف (%) اثناء تنفيذ عملية التقريب ومن ثم اضافته مرة اخرى بعد التقريب فيكون هو والرقم المقرب داخل label كنتيجة نهائية للعملية ولكل امام خطبة اما الكود الاخير فلم ينجح للاسف

وشكرا مرة اخرى

abosaad54 كتب:

Dim r as decimal

r = lable1.text

lable2.text = math.round (r*100,2) &"%"

اخي لم افهم السطر الاول ارجو التوضيح اكثرقد احسن التعامل مع الكود اذا فهمته اكثر مثلا: لماذا وضعته

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

lable1

الى المتغير الذي صرحنا عنه

وبالنسبة لعبارة Siz

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

اخي hamadalkh شكرا جزيلا على الشرح سأجرب مرة اخرى

مشكور اخي hamadalkh ،

وفعلاً طريقتك افضل.