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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] حساب النسبة المئوية (/showthread.php?tid=37705)

حساب النسبة المئوية - dubai.eig - 04-02-21

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

اريد اعمل كود يحسب نسبة مئوية

كمثال

300
+
20
+
30
+
5%
=
367.5

هذا الكود الي كنت احاول في بس ما ضبط

كود :
TextBox3.Text = Val(TextBox1.Text) + Val("20") + Val("30") + Val("5%")


اتمنى الافاده بارك الله فيكم

وشكرا

RE: حساب النسبة المئوية - ابراهيم ايبو - 05-02-21

السلام عليكم اخي العزيز Dubai.eig
حتى نفهم العمليات الحسابية بشكل جيد يجب معرفة اسبقيات العمليات الحسابية
يمكنك الرجوع اليها
انت تريد جمع 3 قيم ثم جمعها مع النسبة المئوية لمجموعها
اي ان العمليات هي 3 
1 جمع القيم
2- ايجاد النسبة المئوية لمجموع القيم
3 جمع احاصل جمع القيم مع حاصل النسبة المئوية لمجموع القيم
انا جعلتها كلها في عملية واحدة
المهم في هذا الكود اعتبرت ان الارقام مجردة وغير مدخلة من ادوات ادخال 


كود :
Dim kk As Double = (300 + 20 + 30) + ((300 + 20 + 30) * 5) / 100
       MsgBox(kk.ToString)

اما هذ الكود فاعتبرت ان الارقام تأتي من ادوات ادخال ويمكن ان تتغير حتى النسبة المئوية ايضا

كود :
  '  اما ان كانت من مربعات نصوص مثلا فيجب تحويلها الى دبل من اجل الفاصلة
       Dim kk As Double = (CDbl(Textbox1.text) + CDbl(Textbox2.text) + CDbl(Textbox3.text)) + ((CDbl(Textbox1.text) + CDbl(Textbox2.text) + CDbl(Textbox3.text)) * CDbl(Textbox4.text)) / 100
       MsgBox(kk.ToString)


RE: حساب النسبة المئوية - اسلام الكبابى - 10-09-21

يكون حساب ال367.5 هكذا
 X = 1.05 * (300 + 20 + 30)

واذا أردت حساب ال 5% وحدها دون جمعها على ال 350 فيكون حسابها هكذا
X = 0.05 * (300 + 20 + 30)

هذا طبعآ بعد عمل الDIM للمتغير X
وان كانت هذه ال 5% متغيرة  (5% أو  6% أو  7%  أو........)
أى تريد وضعها كمتغير اسمه A مثلآ (أى يضعه المستخدم 5 أو  6 أو  7 أو........)
فتكون الأكواد السابقة هكذا
X = (1 + A / 100) *  (300 + 20 + 30)

X = A / 100 *  (300 + 20 + 30)

RE: حساب النسبة المئوية - اسلام الكبابى - 13-09-21

لم يرد علينا الأخ/dubai.eig

ألم تصلح هذه الأكواد معه؟