تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] حساب النسبة المئوية
#1
السلام عليكم ورحمةالله

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

كمثال

300
+
20
+
30
+
5%
=
367.5

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

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


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

وشكرا
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم اخي العزيز 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)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: معاند الحظ , أبووسم , أبووسم , dalas
#3
يكون حساب ال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)
الرد }}}
تم الشكر بواسطة: اسامه الهرماوي , dalas , ابراهيم ايبو
#4
لم يرد علينا الأخ/dubai.eig

ألم تصلح هذه الأكواد معه؟
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم