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


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

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

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

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


ضروري حل هذا السؤال مع الشرح
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 ولا لالالالالالالا