مراجعة على الفصل الثانى حاسب آلى الثالث الإعدادى ترم ثانى قبل الامتحان بساعات

مراجعة على الفصل الثانى حاسب آلى الثالث الإعدادى ترم ثانى قبل الامتحان بساعات
الفصل الثاني الشروط والقرارات
(1)استخدام التعبيرات الشرطية
التعبير الشرطي : هو عبارة عن صياغة للعلاقة بين كميتين أي من هاتين الكميتين من الممكن أن تكون متغير أو خاصية أو ثابت أو قيمة مجردة .للتعبير الشرطي قيمة تتوقف على صحة العلاقة أو عدم صحتها .فإذا كانت العلاقة غير صحيحة فتكون قيمة التعبير الشرطي False .والعكس إذا كانت العلاقة صحيحة فتكون قيمة التعبير الشرطي True .
- لصياغة التعبيرات الشرطية فإننا نقوم باستعمال بعض المعاملات تسمى معاملات المقارنة
مثال
A = 50 B = 60
النتيجة مثال العلاقة العلامة
A > B اكبر من >
A < B اصغر من <
A = B يساوي =
A < > B لا يساوي < >
A>=B اكبر من او تساوي >=
A<=B اصغر من او تساوي <=

(2)قاعدة استخدام الأمر If ……. Then ……. Else
If condition ( شرط) Then
Statement Block1 ( مجموعة الأوامر رقم 1)
Else
Statement Block2 ( مجموعة الأوامر رقم 2)
End If
Statement Block3 ( مجموعة الأوامر رقم 3)

1. إذا كانت قيمة الشرط True سيقوم البرنامج بتنفيذ مجموعة الأوامر رقم 1 ويهمل مجموعة الأوامر رقم 2 ثم يذهب لتنفيذ مجموعة الأوامر رقم 3 .
2. إذا كانت قيمة الشرط False سيقوم البرنامج بتنفيذ مجموعة الأوامر رقم 2 ويهمل مجموعة الأوامر رقم 1 ثم يذهب لتنفيذ مجموعة الأوامر رقم 3 .
• الشكل العام للأمر If ……. Then ……. Else
If condition1 Then
Statement block 1
Else If condition2 Then
Statement block 2

Else
Statement block n
End If

الحل

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)

(3)قاعدة استخدام الامر 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
سيتم استخدامه في حاله ما إذا كان هناك بديل واحد ( أ) بمعنى انه عند قيمة معينة للشرط يتم تنفيذ البديل (أ) أما عند القيمة الأخرى فلا يتم عمل شئ .

(4)الشروط المركبة
تستخدم في حالة ما إذا كنا سنستخدم قرارا معينا بناءا على تحقق شرطين وليس شرط واحد
ويمكننا عمل الشرط لمركب بالربط بين أكثر من شرط بأحد المعاملات التي تسمى المعاملات المنطقية وهي
Or, And, Not

جدول or اذا كان احد الشرطين صحيح او احداهما صحيح يكون الشرط المركب صحيح
النتيجة A or B B A
True True True
True False True
True True False
False False False
جدول and اذا كان كلا من الشرطين صحيح يكون الشرط المركب صحيح
النتيجة A and B B A
True True True
False False True
False True False
False False False
جدول not اذا كان صحيح صحيح يكون الشرط المركب خطأ والعكس بالعكس
Not A A
False True
True False
مثال
تقوم احد الشركات بتحديد قيمة الاجر لكل ساعة عمل لوظيفة معينة طبقا لعدد سنوات الخبرة كما هو موضح

والمطلوب كتابة معالج حدث النقر Click Event Hander بحيث يتيح لمستخدم البرنامج ادخال عدد سنوات الخدمة وعدد ساعات العمل بحساب كل من الاجر للساعة ويقوم بتخزينه في متغير WageRate والراتب الكلي Salary ويقوم بعرضهما في مربع رسالةعلى ان تكون الواجهة كما بالشكل

‘Variables declaration
1 Dim YearsOfServiceShort As Short
2 Dim HoursWorkedDecimal As Decimal
3 Dim WageRateDecimal As Decimal
4 Dim SalaryDecimal As Decimal
5 Try
6 YearsOfServiceShort = Short.Parse(Me.txtYears.Text)
7 HoursWorkedDecimal = Decimal.Parse(Me.txtHoursWorked.Text)
8 If YearsOfServiceShort < 5 Then 'Years < 5
9 WageRateDecimal = 5
10 ElseIf YearsOfServiceShort < 10 Then ' 5<= Years <10
11 WageRateDecimal = 7
12 ElseIf YearsOfServiceShort < 15 Then ' 10<= Years <15
13 WageRateDecimal = 10
14 ElseIf YearsOfServiceShort < 20 Then ' 15<= Years <20
15 WageRateDecimal = 12
16 Else
17 WageRateDecimal = 15 ' Years >= 20
18 End If
19 SalaryDecimal = WageRateDecimal * HoursWorkedDecimal
20 MsgBox("Your Wage Rate = " & WageRateDecimal & vbCrLf & _
21 "Your salary = " & SalaryDecimal)
22 Catch
23 MsgBox("Check your inputs ")
24 End Try

VbCrLf تعني اذهب لسطر جديد اي ما قبلها يكتب في سطر وما بعدها في السطر التالي
ـــــ تعني ان السطر الثاني في الامر هو استكمال للسطر السابق

(5)مقارنة القيم والمتغيرات الحرفية( String )
**نستطيع ان نقارن المتغيرات الحرفية بمتغيرات او ثوابت او خصائص حرفية لمتعيرات اخرى
**تتم عملية المقارنة بمقارنة الرمز الموجود في اقصى اليسار لكلا المتغيرين ونتقدم رمزا رمزا حتى نجد رمزين مختلفين فتتوقف عملية المقارنة
**يتم مقارنة المتغيرات الحرفية عن طريق تحديد رتبة كل رمز طبقا لطريقة تخزين الرموز في ذاكرة الحاسب وهذه الطريقة تسمى
ANSI= American National Standards Institute
وهي تعطي كل حرف أو رقم أو رمز خاص رتبة معينة وهذه الرتبة هي رقم ثابت لا يتغير كما في الجدول

i True
ii False
iii True
iv False
(6)استخدام الامر IF مع الادوات Radio Button CheckBox GroupBox
• الاداة Radio Button
تتيح للمستخدم مجموعة من البدائل لاختيار واحدة منها فقط
تستخدم في عرض البدائل المتاحة في البرنامج على ان يقوم المستخدم باختيار بديل واحد فقط
• خصائص الاداة Radio Button

مثال علي أشكال Radio Button

Radio1.checked=True
Radio3.checked=True
• الاداة CheckBox
تتيح للمستخدم مجموعة من البدائل لاختيار أي عدد منها
• خصائص الاداة CheckBox
مثال

• الاداة GroupBox
- تستخدم لتنظيم الأدوات علي النموذج .
- تسمح للمبرمج أن يقسم عدد من الأداة Radio Button و Checked Box إلي مجموعات ويقوم لمستخدم باختيار واحدة فقط من كل مجموعة .
• خصائص الاداة GroupBox
مثال
Group1.Text="sex(الجنس )"
Group2.Text="Birth Place( محل الميلاد)"

مثال يريد مدير معمل تحاليل كتابة برنامج يستطيع من خلاله تحرير فواتير بحيث يسمح للمشغل ان يدخل اسم المريض وتحديد التحاليل ويجب عدم اصدار فاتورة الا بعد ادخال الاسم وفي حالة عدم ادخال اسم يظهر رسالة خطأ ويبين الجدول الخدمات المتاحة واسعارها والشهل 1 يبين واجهة المستخدم والشكل 2 في حالة عدم ادخال اسم والشكل 3 الشكل النهائي بعد ادخال جميع البيانات

lblTotal.Text = ""
If txtName.Text = "" Then
MessageBox.Show("Please enter a name and check at least one item",
"Incomplete information", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Else
Dim total As Decimal = 0.0
If chkCBC.Checked = True Then
total = total + 21.0
End If
If chkTIC.Checked = True Then
total = total + 7.5
End If
If chkRBC.Checked = True Then
total = total + 5.5
End If
If chkHB.Checked = True Then
total = total + 5.0
End If
lblTotal.Text = total
End If