منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] طريقة عرض الرقم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طريقة عرض الرقم (/showthread.php?tid=49798)

طريقة عرض الرقم - MOHAMMED ALZWI - 28-07-24

السلام عليكم ورحمة الله 
اخوتي الكرام  
ارجو المساعدة في تحويل صيغة الرقم من  0.8958333

الى رقم 0.89 
 ارجو المساعدة بكود 

ولكم جزيل الشكر

RE: طريقة عرض الرقم - Taha Okla - 28-07-24

وعليكم السلام ورحمة الله وبركاته
إن كنت لا تريد التقريب أبداً : استخدم الوظيفة (Floor)
ولا تنسى تحديد عدد الخانات التي تريد إظهاراها من خلال الضرب والتقسيم (على واحد جانبه أصفار بعدد الخانات المطلوبة) قبل وبعد الوظيفة
كتبسيط للفهم .. نكتب الكود التالي في حال ارقم الذي ذكرته أعلاه :
كود :
Dim X As Double = 0.8958333
Me.Text = Math.Floor(X * 100) / 100


RE: طريقة عرض الرقم - MOHAMMED ALZWI - 29-07-24

(28-07-24, 05:34 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته
إن كنت لا تريد التقريب أبداً : استخدم الوظيفة (Floor)
ولا تنسى تحديد عدد الخانات التي تريد إظهاراها من خلال الضرب والتقسيم (على واحد جانبه أصفار بعدد الخانات المطلوبة) قبل وبعد الوظيفة
كتبسيط للفهم .. نكتب الكود التالي في حال ارقم الذي ذكرته أعلاه :
كود :
Dim X As Double = 0.8958333
Me.Text = Math.Floor(X * 100) / 100

شكرا اخي الكريم 
 المطلوب اضهار الرقم والفاصلة العشرية ورقمين فقط دون تقريب العدد
الناتج يصبح هكذا =  0.89

جربت عدة طرق 
TextBox3.Text = Format(Val(TextBox3.Text), "0.00")
 TextBox3.Text = FormatNumber(TextBox3.Text, 2)
TextBox3.Text = Math.Round(Val(TextBox3.Text), 2)

RE: طريقة عرض الرقم - asmarsou - 29-07-24

وعليكم السلام و رجمة الله و بركاته
جربها بهذه الصيغة
PHP كود :
Dim y As Double = Math.Floor(Val(TextBox3.Text) * 100D) / 100D
        TextBox3.Text = y 


RE: طريقة عرض الرقم - MOHAMMED ALZWI - 30-07-24

(29-07-24, 08:48 PM)asmarsou كتب : وعليكم السلام و رجمة الله و بركاته
جربها بهذه الصيغة
PHP كود :
Dim y As Double = Math.Floor(Val(TextBox3.Text) * 100D) / 100D
        TextBox3.Text = y 

مشكور اخي الكريم   تم بنجاح