أكتب برنامجاً لحساب الراتب الأسبوعى لموظف بشرط لو كانت ساعات عمل الموظف
أقل من أو تساوى 40 ساعة فإن أجره عن الساعة يكون 5 جنيهات .أما إذا كانت ساعات العمل أكثرمن 40 ساعة فإن الراتب
يتم حسابه كالآتى
أ خمسة جنيهات فى الساعة لأول 40ساعة
ب عشرة جنيهات فى الساعة لما يزيد عن الأربعين ساعة الأولى
أى أن الراتب سيتم حسابه كما يلى
الراتب
= 40*5(ساعات العمل-40)*10
الحـــــــــــل
| Dim HoursWorked, OverTime, Salary as Decimal
HoursWorked=Decimal.parse(textbox1.text)
If HoursWorked > 40 Then
OverTime = 10 * (HoursWorked -40)
Salary = 40* 5 + OverTime
Else
Salary = 5 * HoursWorked
End If
MsgBox(“The salary is equal to “ & Salary)
|