بوابة الثانوية العامة المصرية - ضروري حل هذا السؤال

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)

- أرشيف المنتدى (https://www.thanwya.com/vb/forumdisplay.php?f=513)

- - ضروري حل هذا السؤال (https://www.thanwya.com/vb/showthread.php?t=414078)

ضروري حل هذا السؤال

موظف يتقاضى مرتب شهرى (salary) ويعمل ساعات إضافية (overtime) فإذا كان المرتب وقيمة الساعات الإضافية ( Total)) أكبر من أو يساوى 2000 جنيها تكون الضرائب (Tax) بنسبة 15% ، وإلا تصبح الضرائب 10% .. المطلوب : أكتب كود البرنامج الذى يحقق أجمالى المرتب ونسبة الضرائب وصافى الدخل الشهرى (Netsalary).

ضروري حل هذا السؤال مع الشرح

بس مش محدد قيمة الاضافى ؟؟؟؟؟؟؟؟؟؟
يعنى تحل على كده ولا فى حاجة ناقصة

مفيش حاجة ناقصة
السؤال كدة

اقتباس:

المشاركة الأصلية كتبت بواسطة rery fared (المشاركة 4388903)

Dim salary, overtime, Total, Tax, Netsalary As Decimal
salary = Val(TextBox1.Text)1
overtime = Val(TextBox2.Text)1
Total = salary + overtime
If Total >= 200 Then
Tax = Total * 15 / 100
Else
Tax = Total * 10 / 100
End If
Netsalary = Total - Tax
MsgBox(" salary=" & salary & " overtime=" & overtime & " Total=" & Total & " Tax=" & Tax & " Netsalary=" & Netsalary)1

شكرررررررررررررا بارك الله فيك وجعله في ميزان حسناتك

هل كل هذا سيعرض في MsgBox

ممكن نستغنى عن معامل الربط و نظهر الصافى فقط كما هو موضح؟

Dim total, tax, N As Decimal

total = Val(TextBox1.Text)

If total >= 2000 Then

tax = total * 15 / 100

N = total - tax

MsgBox(N)

Else

tax = total * 10 / 100

N = total - tax

MsgBox(N)

End If

حنعلن عن overtime , salary ولا لالالالالالالا