+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : العمليات الحسابية في القسمة (/showthread.php?tid=33467)
الصفحات:
1
2
العمليات الحسابية في القسمة - alshandodi - 20-02-20
لقد استخدمت هذا الكود ولكن دون جدوى وحاولت ان اجعل السعر دابل او ديسمل ولكن نفس المشكله اعلم انكم دائما في دعم المبرمجين المبتدئين
[attachment=24011]
RE: العمليات الحسابية في القسمة - alsalamoni - 20-02-20
(20-02-20, 07:26 AM)alshandodi كتب : لقد استخدمت هذا الكود ولكن دون جدوى وحاولت ان اجعل السعر دابل او ديسمل ولكن نفس المشكله اعلم انكم دائما في دعم المبرمجين المبتدئين
استخدم /
RE: العمليات الحسابية في القسمة - Sorax - 20-02-20
مثل م كال [b]alsalamoni [/b]
كود :
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)RE: العمليات الحسابية في القسمة - alshandodi - 20-02-20
شكرا جزيلا على تفاعلكم ومساعدتي
RE: العمليات الحسابية في القسمة - alsalamoni - 20-02-20
(20-02-20, 12:27 PM)alshandodi كتب : شكرا جزيلا على تفاعلكم ومساعدتي
العفو اخي
RE: العمليات الحسابية في القسمة - alshandodi - 20-02-20
إذا كان الناتج 1.08333333333
هل يمكن تقريبه الى 1.084
RE: العمليات الحسابية في القسمة - alsalamoni - 20-02-20
(20-02-20, 01:08 PM)alshandodi كتب : إذا كان الناتج 1.08333333333
هل يمكن تقريبه الى 1.084
كود :
Dim r = Val(TextBox1.Text) / Val(TextBox2.Text)
TextBox3.Text = r.ToString("0.000")RE: العمليات الحسابية في القسمة - alshandodi - 20-02-20
اخي صار عندي ولكن صار انه 1.083
RE: العمليات الحسابية في القسمة - alsalamoni - 20-02-20
(20-02-20, 01:54 PM)alshandodi كتب : اخي صار عندي ولكن صار انه 1.083
كود :
Dim r = Val(TextBox1.Text) / Val(TextBox2.Text)
r = Math.Ceiling(r * 1000) / 1000
TextBox3.Text = r.ToString("0.000")RE: العمليات الحسابية في القسمة - alshandodi - 20-02-20
شكرا جزيلا اخي alsalamoni
واكرر شكري لك اعضاء المنتدى الرائع