منتدى فيجوال بيسك لكل العرب

نسخة كاملة : المراتب العشرية
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لو سمحتو عندي تكست بوكس عم يضهرلي نتيجة جمع ارقام لكن المنازل المعشرية عم تضهر طويلة بدي يضهرلي فقط ثلاثة ارقام بعد الفاصله ياريت المساعدة
السلام عليكم اخي الكريم
تفضل هذا الكود
حيث الرقم 3 هو عدد الخانات بعد الفاصلة
كود :
 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
شكرا اخي الكريم لكن الكود ماضبط انا عم يضهرلي  في التكست ٤,٧٦٧٦٥٤٣٢ الي عاوزو يبقا بعد الفاصلة ٣ ارقام فقط لما وضعت الكود الي ارسلتو حضرتك عم يضهر فقط مجموع الارقام الي بالكود
السّلام عليكم و رحمة الله و بركاته
إضافة لما قدّمه أخي الغالي " إبراهيم إيبو " جزاه الله خير الجزاء و زادها بموازين حسناته إن شاء الله
و فقط .. كشرح تطبيقي لما تمّ كتابته من طرفه ..
هذا مثال أخي الكريم .. و لتغيير عدد المراتب العشرية فقط قم بالتبديل بين الرقم 2 أو 3 المشار إليها باللون الأصفر
تحياتي
السلام عليكم اخي الكريم
تفضل ضع هذا الكود في نهاية كود الجمع عندك مع تغيير اسم التكست بوكس الى الذي عندك
كود :
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))

كلاهما واحد
ولكن الفريق بين الاثنين
اذا كان الكود الاول يحتوى على قيمة نهائية بهذا الشكل 12.230 تلقائي سيعرض الرقم بهذا الشكل 12.23
بينما الكود الثاني سيقوم بعرض الرقم كاملاً وهو 12.230

تحياتى لك
وتمنياتى لك التوفيق
(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

تحياتى لك
وتمنياتى لك التوفيق
شكرا لكل الاخوة الي شاركوا بالحل مشي الحال وكلو تمام