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

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

حساب المبلغ الاجمالي - العيدروس - 29-03-24

السلام عليكم و رحمة الله
اخواني هذا مثال لتفقيط الوزن للاخ Taha Okla بارك الله فيه و جزاه خيرا ان شاء الله
لو سمحتوا كيف يمكن ايجاد المبلغ الاجمالي بالتاكست بوكس رقم 4 
انا شرحت بالملف و شكرا للجميع

RE: حساب المبلغ الاجمالي - Taha Okla - 29-03-24

وعليكم السلام ورحمة الله وبركاته

PHP كود :
TextBox4.Text = Val(TextBox1.Text) * Val(TextBox3.Text) 


RE: حساب المبلغ الاجمالي - العيدروس - 29-03-24

كثر الف خيرك اخي طه و جزاك الله كل خير يا رب
فقط نقطة اخيرة لو تكرمت كيف يمكن جعل رقمين فقط بعد الفاصلة في التاكست بوكس 4 بدلا من ثلاثة ارقام بعد الفاصلة

RE: حساب المبلغ الاجمالي - أبو خالد الشكري - 29-03-24

مرحبا أخي العيدروس
جرب الكود التالي :

كود :
TextBox4.Text = Format(Val(TextBox1.Text) * Val(TextBox3.Text), "0.##")


RE: حساب المبلغ الاجمالي - العيدروس - 29-03-24

تمام اخي ابو خالد الشكري
بارك الله فيك و جزاك خيرا اشتغل الكود تمام و الحمد لله

RE: حساب المبلغ الاجمالي - أبو خالد الشكري - 29-03-24

بالتوفيق إن شاء الله

RE: حساب المبلغ الاجمالي - Taha Okla - 29-03-24

استخدم هذا الكود : لأن كتابة الأرقام بعد الفاصلة تخصع لطريقة التقريب التي تحب التعامل بها مع الغير :

للتقريب القياسي (الوسطي) نستخدم هذا الكود : 
كود :
TextBox4.Text = Math.Round(Val(TextBox1.Text) * Val(TextBox3.Text), 2)

للتقريب لأقل قيمة ممكنة نستخدم الكود :
PHP كود :
TextBox4.Text = Math.Floor(Val(TextBox1.Text) * Val(TextBox3.Text) * 100) / 100 


للتقريب لأعلى قيمة ممكنة نستخدم الكود :

PHP كود :
TextBox4.Text = Math.Ceiling(Val(TextBox1.Text) * Val(TextBox3.Text) * 100) / 100 


RE: حساب المبلغ الاجمالي - العيدروس - 29-03-24

شكرا اخ طه ماقصرت بارك الله فيك و انعم عليك و زادك من علمه و فضله يا رب