السلام عليكم ورحمةالله
اريد اعمل كود يحسب نسبة مئوية
كمثال
300
+
20
+
30
+
5%
=
367.5
هذا الكود الي كنت احاول في بس ما ضبط
كود :
TextBox3.Text = Val(TextBox1.Text) + Val("20") + Val("30") + Val("5%")
اتمنى الافاده بارك الله فيكم
وشكرا
السلام عليكم اخي العزيز 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)
يكون حساب ال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)
لم يرد علينا الأخ/dubai.eig
ألم تصلح هذه الأكواد معه؟