+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : التقريب الى العشرات (/showthread.php?tid=14489)
التقريب الى العشرات - حافظ حافظ - 23-01-16
السلام عليكم
أحبابي الاخوة الأشقاء اتشرف باالانضمام اليكم
منتدى رائع ربنا يبارك لكم في مجهوداتكم التي تقدموها لخدمة الاعضاء
تعبت في البحث عن نتيجة التي اريدها و املي ان اجد من يساعدني واكون له من الشاكرين
كيف اجعل النتيجة في التاكست 6 مقربة إلى العشرات الأصغر
شرحت الموضوع على الفورم للتوضيح
بارك الله فيكم اخواني على المساعدة
RE: التقريب الى العشرات - حريف برمجة - 24-01-16
(23-01-16, 09:02 PM)حافظ حافظ كتب : السلام عليكم
أحبابي الاخوة الأشقاء اتشرف باالانضمام اليكم
منتدى رائع ربنا يبارك لكم في مجهوداتكم التي تقدموها لخدمة الاعضاء
تعبت في البحث عن نتيجة التي اريدها و املي ان اجد من يساعدني واكون له من الشاكرين
كيف اجعل النتيجة في التاكست 6 مقربة إلى العشرات الأصغر
شرحت الموضوع على الفورم للتوضيح
بارك الله فيكم اخواني على المساعدة
وعليكم السلام
جرب الاسطر التاليه :
كود :
Text6.Text = Val(Text1.Text) - (Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text))
Text6.Text = Fix(Text6.Text)
Text6.Text = Val(Text6.Text) - Right(Text6.Text, 1)
Text6.Text = Format(Text6.Text, "0.00")RE: التقريب الى العشرات - حافظ حافظ - 24-01-16
تحية الى حريف برمجة
هذا هو المطلوب مضبوط 100 بالمئة ربنا يجازيك خير الجزاء
كل الشكر و التقدير
بارك الله ونفع بك الاسلام و المسلمين
RE: التقريب الى العشرات - حريف برمجة - 24-01-16
(24-01-16, 01:17 AM)حافظ حافظ كتب : تحية الى حريف برمجة
هذا هو المطلوب مضبوط 100 بالمئة ربنا يجازيك خير الجزاء
كل الشكر و التقدير
بارك الله ونفع بك الاسلام و المسلمين
العفو اخوي وتسلم على الدعوات الله يجزاك خير .