حاسب آلى ( الشروط والقرارات)

الحل

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)

· قاعدة استخدام الامر If ……. Then البسيط

If condition Then

Statement block 1

End If

Statement block 2

1. إذا كانت قيمة الشرط True سيقوم البرنامج بتنفيذ مجموعة الأوامر رقم 1 ثم يذهب لتنفيذ مجموعة الأوامر رقم 2 .

2. إذا كانت قيمة الشرط False فان لبرنامج سيذهب مباشرة لتنفيذ مجموعة الأوامر رقم 2 .

مثال

If Age > 16 Then

MsgBox(“You can get an ID card”)

End If

· الفرق بين If ……. Then ……. Else و If ……. Then

1. الأمر If ……. Then ……. Else

سيتم استخدامه في حاله ما إذا كان هناك بديلين ( أ، ب ) وكنا نريد تنفيذ حد البديلين اذا كانت قيمة الشرط True ويتم تنفيذ البديل الأخر إذا كانت قيمة الشرط False .

2. الأمر If ……. Then

سيتم استخدامه في حاله ما إذا كان هناك بديل واحد ( أ) بمعنى انه عند قيمة معينة للشرط يتم تنفيذ البديل (أ) أما عند القيمة الأخرى فلا يتم عمل شئ .

» الشروط والقرارات
» الحاسب الآلى ( الشروط والقرارات)
» الحاسب الآلى ( الفصل الثانى ) الشروط والقرارات
» • الشروط المركبة