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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=31943)



استفسار كود ترقية العدد - m.n.hakami - 01-11-19

اخواني ابحث عن كود يرقي العدد العشري لتالي يعني لو عندي 2.1 يرقي العدد للرقم 3
الدالة  Math.Round استخدمتها فكانت تقرب العدد للعدد الاقرب لو عندي 2.3 تبقي العدد 2 ولو القيمه العشريه زادت عن 5 مثلا 2.6 تقربه لـ 3 أنا اريد في كل الحالات يرقي الرقم بكود بسيط مثل الكود التالي دالة التقريب 
كود :
((Me.TextBox3.Text = Math.Round(Val(TextBox1.Text) - Val(TextBox2.Text



RE: استفسار كود ترقية العدد - Rabeea Qbaha - 01-11-19

استخدم ال Ceiling :

PHP كود :
Math.Ceiling 



RE: استفسار كود ترقية العدد - m.n.hakami - 01-11-19

(01-11-19, 07:16 PM)Rabeea Qbaha كتب : استخدم ال Ceiling :

PHP كود :
Math.Ceiling 

لم ينجح ارفقت لك الملف


RE: استفسار كود ترقية العدد - AbdoDabak - 01-11-19

تفضل اخي
TextBox3.Text = Math.Round(Val(TextBox1.Text), 0) - Math.Round(Val(TextBox2.Text), 0)