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

[rery fared]

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


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

[بوب2050]

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

[rery fared]

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

[سيف سالم]

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

موظف يتقاضى مرتب شهرى (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

[rery fared]

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

هل كل هذا سيعرض في 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

[rery fared]

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