تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طريقة عرض الرقم
#1
السلام عليكم ورحمة الله 
اخوتي الكرام  
ارجو المساعدة في تحويل صيغة الرقم من  0.8958333

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

ولكم جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته
إن كنت لا تريد التقريب أبداً : استخدم الوظيفة (Floor)
ولا تنسى تحديد عدد الخانات التي تريد إظهاراها من خلال الضرب والتقسيم (على واحد جانبه أصفار بعدد الخانات المطلوبة) قبل وبعد الوظيفة
كتبسيط للفهم .. نكتب الكود التالي في حال ارقم الذي ذكرته أعلاه :
كود :
Dim X As Double = 0.8958333
Me.Text = Math.Floor(X * 100) / 100
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: MOHAMMED ALZWI , asmarsou
#3
(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)
الرد }}}
تم الشكر بواسطة:
#4
وعليكم السلام و رجمة الله و بركاته
جربها بهذه الصيغة
PHP كود :
Dim y As Double Math.Floor(Val(TextBox3.Text) * 100D) / 100D
        TextBox3
.Text 
الرد }}}
تم الشكر بواسطة: MOHAMMED ALZWI
#5
(29-07-24, 08:48 PM)asmarsou كتب : وعليكم السلام و رجمة الله و بركاته
جربها بهذه الصيغة
PHP كود :
Dim y As Double Math.Floor(Val(TextBox3.Text) * 100D) / 100D
        TextBox3
.Text 

مشكور اخي الكريم   تم بنجاح
الرد }}}
تم الشكر بواسطة: asmarsou



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


يقوم بقرائة الموضوع: