05-02-21, 10:59 AM
(آخر تعديل لهذه المشاركة : 05-02-21, 11:04 AM {2} بواسطة ابراهيم ايبو.)
السلام عليكم اخي العزيز Dubai.eig
حتى نفهم العمليات الحسابية بشكل جيد يجب معرفة اسبقيات العمليات الحسابية
يمكنك الرجوع اليها
انت تريد جمع 3 قيم ثم جمعها مع النسبة المئوية لمجموعها
اي ان العمليات هي 3
1 جمع القيم
2- ايجاد النسبة المئوية لمجموع القيم
3 جمع احاصل جمع القيم مع حاصل النسبة المئوية لمجموع القيم
انا جعلتها كلها في عملية واحدة
المهم في هذا الكود اعتبرت ان الارقام مجردة وغير مدخلة من ادوات ادخال
اما هذ الكود فاعتبرت ان الارقام تأتي من ادوات ادخال ويمكن ان تتغير حتى النسبة المئوية ايضا
حتى نفهم العمليات الحسابية بشكل جيد يجب معرفة اسبقيات العمليات الحسابية
يمكنك الرجوع اليها
انت تريد جمع 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)اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات