منهج الحاسب الالى للصف الثالث 2

الفصل الثانى
الشروط والقرارات

التعبير الشرطى : هو عبارة عن صياغة للعلاقة بين كميتين. اى من هاتين الكميتين من الممكن ان تكون متغير او خاصية او ثابت او قيمة مجردة

إذا كانت العلاقة صحيحة فان قيمة التعبير الشرطي true أما إذا كانت العلاقة غير صحيحة فقيمة التعبير الشرطي هي false

لصياغة التعبير الشرطي نقوم باستعمال بعض المعاملات تسمى معاملات المقارنة وهى > اكبر من ، < اصغر من ، <> لا تساوى ، <= اقل من أو تساوى ، >= اكبر من او يساوى

الأمر If …… Then……..Else) )
يتم استخدام هذا الأمر في حالة ما إذا كان هناك بديلين ( أ ، ب) وكنا نريد أن يتم تنفيذ احد البديلين إذا كانت قيمة الشرط true ويتم تنفيذ البديل الآخر إذا كانت قيمة الشرط false
القاعدة العامة لاستخدام الأمر if …… then ………else ))
If (condition) الشرط then
statment1( الجمل التي تحقق الشرط ( يعنى قيمة التعبير الشرطي صحيحة)
Else
Statment2 الجمل التي لا تحقق الشرط ( يعنى قيمة التعبير الشرطي غير صحيحة )
End if
معنى ذلك إذا كان الشرط صحيحة يتم تنفيذ الجمل اللي بعد then ويهمل مجموعة الأوامر اللي بعد else

وإذا كان الشرط خاطئ فيتم إهمال الجمل اللي بعد then ويتم تنفيذ الجمل اللي بعد else
****************************************************
مثال اكتب برنامجا لحساب ناتج قسمة عددين لتصميم اى مشروع فى vb.net
الخطوة الأولى : نقوم بفتح مشروع جديد
7- من قائمة ملف ) file ) واختيار مشروع جديد ( new project ) او الضغط على create project
8- من المربع الحواري نقوم باختيار windows من نوع المشروع (project type ) ومن قوالب ( templates ) نختار windows application
9- ومن المربع أيضا نقوم بكتابة اسم المشروع ويكون اسم يدل على المشروع ثم نضغط موافق
الخطوة الثانية : تصميم واجهة البرنامج form من خلال
1- رسم الأدوات المطلوبة على form
2- وتنسيقها وذلك من خلال صندوق الخصائص وذلك بتحديد الأداة فتظهر خصائصها في صندوق الخصائص وإذا لم تجد صندوق الأدوات أمامك نظهره من خلال فتح القائمة المختصرة للأداة واختيار خصائص properties او من خلال قائمة عرض view واختيار صندوق الخصائص properties window او من خلال الضغط على الاداة من شريط الأدوات او من الخلال الوقوف بعيد عن الفورم وفتح القائمة المختصرة واختيار خصائص أيضا
الخطوة الثالثة تحديد الاداة التى سيتم كتابة الكود بداخلها( الاداة التى سيتم الضغط عليها لتنفيذ الامر )
ويتم الدخول لنافذة البرمجة من خلال الضغط مرتين متتاليتين على الأداة
داخل نافذة البرمجة يتم الاتى
اولا تعريف المتغيرات او الثوابت الموجودة بالبرنامج
تخزين البيانات داخل المتغيرات باستخدام امر التخصيص
اجراء العمليات المختلفة على البيانات
اظهار الناتج على form من خلال اداة textbox او label

رابعا تشغيل البرنامج من خلال الضغط على مفتاح f5 أو من قائمة debug نختار start او الضغط على رمز من شريط الأدوات

ولايقاف التشغيل نضغط على رمز من شريط الأدوات او من قائمة debug ونختار stop






Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim first, second, result As Decimal
first = Decimal.Parse(TextBox1.Text)
second = Decimal.Parse(TextBox2.Text)
If second = 0 Then
MsgBox("القسمة على صفر مستحيلة")
Else
result = first / second
Label3.Text = result.ToString
End If
End Sub

End Class




ولإضافة الأمر try / catch لاكتشاف الخطأ اذا قام المستخدم بإدخال قيمة حرفية فيصبح الكود بالشكل
Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim first, second, result As Decimal
Try
first = Decimal.Parse(TextBox1.Text)
second = Decimal.Parse(TextBox2.Text)
Catch
MsgBox("لقد ادخلت قيمة جرفية")
End Try

If second = 0 Then
MsgBox("القسمة على صفر مستحيلة")
Else
result = first / second
Label3.Text = result.ToString
End If
End Sub
واذا ادخلت قيم حرفية سيظهر مربع حواري مكتوب فيه لقد أدخلت قيمة حرفية كما فى المثال الاول
**************************************************

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

القاعدة العامة لاستخدام الأمر
If (condition) الشرط then
الجمل التي تحقق الشرط
End if
then اى عندما يكون الشرط صحيح يتم تنفيذ الجمل اللي بعد
End if وعندما يكون الشرط غير صحيحة يتم تنفيذ الجمل اللي بعد
********************************************************
If …….. Then ……… Else الشكل العام للأمر
If الشرط 1 then
1 نفذ الجمل
Else if الشرط2 then
نفذ الجمل 2
Else if الشرط 3 then
نفذ الجمل4
..............
....................
....................
Else
N نفذ الجمل
End if

شرح الأمر
عند الوصول إلى أول قيمة true يتم تنفيذ مجموعة الأوامر الخاصة بها أما باقي الأوامر فيتم تجاهلها
أما إذا لم توجد اى قيمة true فيتم تنفيذ الأوامر اللي بعد else
أما في حالة عدم وجود أوامر بعد Else وعدم وجود اى شرط ذي قيمة true فلا يتم تنفيذ اى أمر ويذهب البرنامج إلى أول أمر بعد end if


مقارنة القيم والمتغيرات الحرفية ( string )
في vb.net نستطيع أن نقارن بين المتغيرات الحرفية بمتغيرات حرفية أخرى أو ثوابت حرفية أو خصائص حرفية لمتغيرات أخرى
كيفية المقارنة
تتم المقارنة فى vb بمقارنة الرمز الموجود في أقصى اليسار للمتغير الأول بالرمز المناظر للمتغير الثاني ثم نتقدم رمزا واحدا جهة اليمين وهكذا وبمجرد ان نجد رمزين متناظرين مختلفين تتوقف عملية المقارنة ، ويعتبر المتغير او القيمة الموجود به الرمز ذو الرتبة الأقل هو الأصغر من الأخر
ويتم تحديد رتبة كل رمز طبقا لطريقة تخزين الرموز في ذاكرة الحاسب وهذه الطريقة تسمى ANSI code
ANSI code : تعطى كل حرف او رقم او رمز خاص رتبة معينة وهذه الرتبة هى رقم ثابت لا يتغير كما هو موضح بالجدول 2-5 صفحة 59-60 في الكتاب المدرسي
الأرقام عند معاملتها كرموز لإجراء عمليات المقارنة عليها لا يمكن إجراء العمليات الحسابية عليها
الأرقام لها رتب اقل من رتب الحروف
مثال : حدد قيمة هذا الشرط hala > 45123
الحل : الشرط hala >45123 سيكون True لان بالمقارنة بين الرقم 4 والحرف h نجد ان رتبة الحرف h اكبر من رتبة الرقم 4
لمعرفة رتبة الحروف
الحروف من A ,B ,C……………………………Z
رتبتها من 90..................................65,66,76
والحروف من a , b , c,………………………………..z
رتبتها من 122.......................................97,98،99
نلاحظ هنا أن رتبة الحروف small اكبر من رتبة الحروف capital
مثال :حدد اى من الشروط التالية ستكون قيمته true وأيهم سيكون false
"NEHAD"<"NEHAL"
الحل : بالمقارنة من ناحية اليسار نجد ان رتبة الحرف N تساوى رتبة الحرف N فى المتغير الآخر وهكذا إلى ان نأتي إلى الحرفين D,L وبمعرفة رتبتهم سيتحدد قيمة الشرط فالبحث فى جدول ANSI code نجد أن رتبة الحرف L هي 76 ورتبة الحرف D هى 68 فان قيمة الشرط تساوى True
2- "salah salem"<"salah"
بالمقارنة نجد أن قيمة الشرط ستحدد من خلال معرفة رتبة الحرف s ورتبة المسافة بعد كلمة salah فنجد ان رتبة المسافة 32 ورتبة الحرف s 115 وعلى ذلك فان قيمة الشرط هى false
استخدام الأمر if مع الأدوات check box ، radio button ، group box
الأداة radio button
تتيح للمستخدم مجموعة من البدائل لاختيار واحد منها فقط
خصائص الأداة
الخاصية العمل
Name اسم الأداة داخل كود البرمجة
BackColor لاختيار لون لخلفية الأداة
Appearance لتحديد شكل الأداة ما اذا كان الشكل التقليدي للأداة او شكل button
Checked تحديد ما إذا كانت الأداة تم اختيارها إما لا
Enabled تحديد ما إذا كانت الأداة تستطيع التعامل معها أم لا
Forecolor تحديد لون الخط على الأداة
Height تحديد ارتفاع الأداة
Image تحديد الصورة التي ستظهر على الأداة
Text تحديد الكتابة التي ستظهر على الأداة
Visible تحديد ما إذا كانت الأداة مرئية على الفورم ام غير مرئية
Width تحديد عرض الأداة
الأداة check box
تتيح للمستخدم مجموعة من البدائل لاختيار اى عدد منها فى نفس الوقت او لا نختار اى منها
خصائص الأداة هي نفس خصائص الأداة radio button

الأداة group box
تستخدم فى تنظيم وضع الأدوات على النموذج وتظهر الأداة على شكل مستطيل يحيط بمجموعة الأدوات التي تتبعه وتستخدم الخاصية text للأداة group box لتعريف العلاقة التي تربط بين مجموعة الأدوات الموجودة بداخلها

الخاصية العمل
Name اسم الأداة داخل كود البرمجة
Flat Style تحديد شكل الأداة ويوجد لدينا أربعة اختيارات لهذه الأداة وهى system ( الافتراضية) flat ,popup ,standard
Enabled تحديد ما إذا كانت الأداة تستطيع التعامل معها أم لا
Text تحديد الكتابة التي ستظهر على الأداة
Visible تحديد ما إذا كانت الأداة مرئية على الفورم ام غير مرئية
مشروع
صمم واجهة البرنامج الآتية المطلوب عند اختيار اللون الأحمر يتم تلوين الخلفية باللون الأحمر وكذلك عن اختيار اللون الأخضر يتم تلوين الخلفية باللون الأخضر







Public Class Form1

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Me.BackColor = Color.Green
End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Me.BackColor = Color.Red
End Sub
Me هنا هى الخاصية name لــ form لان المطلوب هو تغيير لون الخلفية للفورم
إجابة أسئلة الفصل الثاني
السؤال الأول : اختر الإجابة الصحيحة مما يلي
1- جملة if………then………..else تنتهي بكلمات ( end if )
ـــــــــــــــــــــــــــــــــــــــ
2- الجملة الآتية يتم تنفيذها فقط في حالة أن يكون الشرط يساوى
If (condition)
Msgbox("n is divisible by d)معناها ان تقبل القسمة على .
End if
الإجابة (n mod d ) =0 معناها أن باقي القسمة على يساوى صفر
ـــــــــــــــــــــــــــــــــــــــــــــــــــ
3- الخاصية checked تقوم بإعطاء قيمة لملصق الــ check box
ـــــــــــــــــــــــــــــــــــــــــــــــــــ
4- عدد check box الممكن اختيارها فى المرة الواحدة هو الإجابة : اى عدد ممكن تحديده
ـــــــــــــــــــــــــــــــــــــــــــــــــــ











أسئلة الوزارة
السؤال الأول: اختر للعمود الأول ( أ ) ما يناسبه من العمود الثاني (ب)
( أ ) (ب)
1- الرمز < يسمى
2- الرمز < = يسمى
3- الرمز > يسمى
4- الرمز >= يسمى
5- الرمز <> يسمى
6- الرمز = يسمى ( أ )
( ب )
( ج )
( د )
( هـ)
( و ) أكبر من أو يساوي.
لا يساوي.
أصغر من.
يساوي.
أصغر من أو يساوي.
أكبر من


السؤال الثاني: إذا كانت قيمة التغير A تساوي 20 وقيمة المتغير B تساوي 15
ضع علامة () أمام الإجابة الصحيحة وعلامة ( X ) أمام العبارة الخطأ.

‌أ- ناتج الشرط A>B يساوي TRUE. ( )
‌ب- ناتج الشرط A>=B يساوي FALSE. ( )
‌ج- ناتج الشرط B<A يساوي TRUE. ( )
‌د- ناتج الشرط B<=A يساوي FALSE. ( )
هـ - ناتج الشرط A<>B يساوي FALSE. ( )
و- ناتج الشرط A-B>B يساوي TRUE. ( )
ز- ناتج الشرط A-5<=B يكون TRUE. ( )






السؤال السادس:أقرأ التعليمات التالية:
A=……..
If A>=90 Then
Msgbox “ممتاز”
End If

If A<90 And A>=75 Then
MsgBox “جيد جدا”
End If

If A<75 And A>=50 Then
MsgBox “ناجح”
End If

If A<50 Then
MsgBox “راسب”
End If
بعد قراءة التعليمات السابقة ضع علامة ( ) أمام الإجابة الصحيحة وعلامة ( X ) أمام العبارة الخطأ لكلا مما يلي :
1. إذا كان A=92 يظهر مربع كتابه يحتوي على ممتاز ( )
2. إذا كان A=49 يظهر مربع كتابه يحتوي على ناجح ( )
3. إذا كان A=77 يظهر مربع كتابه يحتوي على جيد جدا ( )
4. إذا كان A=88 يظهر مربع كتابه يحتوي على جيد ( )
5. إذا كان A=70 يظهر مربع كتابه يحتوي على ممتاز ( )
6. إذا كان A=30 يظهر مربع كتابه يحتوي على ناجح ( )
7. إذا كان A=55 يظهر مربع كتابه يحتوي على جيد ( )
8. إذا كان A=90 يظهر مربع كتابه يحتوي على ممتاز ( )



السؤال السابع : اختر الإجابة الصحيحة مما بين القوسين لكل مما يأتي:

( RadioButton - CheckBox - GroupBox – Checked – Enabled - CheckedOn )

1. الخاصية .............. تحدد هل تم اختيار الأداة CheckBox .
2. الخاصية .............. تحدد إذا كان المستخدم يستطيع التعامل مع الأداة.
3. تستخدم الأداة .............. لعرض البدائل على أن يقوم المستخدم باختيار بديل واحد فقط.
4. تستخدم الأداة .............. لعرض البدائل ويمكن للمستخدم اختيار أكثر من بديل .
5. تستخدم الأداة .............. لتقسيم الأدوات إلى مجموعات .

السؤال الثالث: أقرأ التعليمات التالية:
Arabic=30
English=20
If Arabic>25 Then
Total=Arabic +English
Avg=( Arabic +English )/2
Else
Arabic=25
English=22
Total=Arabic + English
Avg=( Arabic +English )/2
End if
بعد تنفيذ التعليمات السابقة ضع علامة () أمام العبارة الصحيحة وعلامة ( X ) أمام العبارة الخطأ لكل مما يلي .
1. قيمة المتغير Arabic تساوي 30 . ( )
2. قيمة المتغير English تساوي 22. ( )
3. ناتج التعبيرArabic>25 يكون TRUE. ( )
4. قيمة المتغيرTotal تساوي 47 . ( )
5. قيمة المتغير Avg تساوي 23.5. ( )


السؤال الرابع: اقرأ التعليمات التالية:
Age=25.5
Mark=90
If Age<26 Then
Age=16
Mark=100
End If
Total=Mark*2
بعد تنفيذ التعليمات السابقة اختر الإجابة الصحيحة لكلا مما يلي.
1- قيمة المتغير Age تساوي:
أ- 25.5 ب- 90 ج- 16
2- قيمة المتغير Markتساوي:
أ – 90 ب- 100 ج-25.5
3- قيمة الشرط Age<26 :
أ – 25.5 ب- True ج-False
4- قيمة المتغير Total تساوي:
أ – 200 ب- 180 ج-190

شكر الله لك هذا العمل المتميز وجزاك الله خير الجزاء