05-04-19, 07:52 PM
لو سمحتو عندي تكست بوكس عم يضهرلي نتيجة جمع ارقام لكن المنازل المعشرية عم تضهر طويلة بدي يضهرلي فقط ثلاثة ارقام بعد الفاصله ياريت المساعدة
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim aa As Decimal = 7.33
Dim bb As Decimal = 3.45
TextBox1.Text = FormatNumber(aa + bb, 3)
End Sub
TextBox1.Text = FormatNumber(Val(TextBox1.Text), 3)
(06-04-19, 02:54 AM)ابراهيم ايبو كتب : [ -> ]السلام عليكم اخي الكريمتفضل ضع هذا الكود في نهاية كود الجمع عندك مع تغيير اسم التكست بوكس الى الذي عندككود :
TextBox1.Text = FormatNumber(Val(TextBox1.Text), 3)
MsgBox(Math.Round(Val(TextBox1.Text), 3))
MsgBox(FormatNumber(Val(123.65952), 3))
(06-04-19, 09:18 PM)elgokr كتب : [ -> ]شكرا لكل الاخوة الي شاركوا بالحل مشي الحال وكلو تماممرحباً اخى الكريماضافة لما قدمع اخوتى الكرام
يمكنك ايضاً استخدام
كود :
MsgBox(Math.Round(Val(TextBox1.Text), 3))
فهو وظيفته تقريب اقرب رقم عشري
كما اشار اليه الاخوة من كود
كود :
MsgBox(FormatNumber(Val(123.65952), 3))
كلاهما واحدولكن الفريق بين الاثنيناذا كان الكود الاول يحتوى على قيمة نهائية بهذا الشكل 12.230 تلقائي سيعرض الرقم بهذا الشكل 12.23بينما الكود الثاني سيقوم بعرض الرقم كاملاً وهو 12.230
تحياتى لكوتمنياتى لك التوفيق