الفصل الثانى
الشروط والقرارات
• التعبير الشرطي : هو عبارة عن صياغة للعلاقة بين كميتين.
- أي من هاتين الكميتين من الممكن أن تكون متغير أو خاصية أو ثابت أو قيمة مجردة .
- للتعبير الشرطي قيمة تتوقف على صحة العلاقة أو عدم صحتها .
- فإذا كانت العلاقة غير صحيحة فتكون قيمة التعبير الشرطي False .
- والعكس إذا كانت العلاقة صحيحة فتكون قيمة التعبير الشرطي True .
لصياغة التعبير الشرطي نقوم باستعمال بعض المعاملات تسمى معاملات المقارنة وهى > اكبر من ، < اصغر من ، <> لا تساوى ، <= اقل من أو تساوى ، >= اكبر من او يساوى
- لصياغة التعبيرات الشرطية فإننا نقوم باستعمال بعض المعاملات تسمى معاملات المقارنة
A = 50 B = 60
النتيجة مثال العلاقة العلامة
False A > B اكبر من >
True A < B اصغر من <
False A = B يساوي =
True A < > B لا يساوي < >
الأمر If …… Then……..Else) )
يتم استخدام هذا الأمر في حالة ما إذا كان هناك بديلين ( أ ، ب) وكنا نريد أن يتم تنفيذ احد البديلين إذا كانت قيمة الشرط true ويتم تنفيذ البديل الآخر إذا كانت قيمة الشرط false
القاعدة العامة لاستخدام الأمر if …… then ………else ))
If (condition) الشرط then
statment1( الجمل التي تحقق الشرط ( يعنى قيمة التعبير الشرطي صحيحة)
Else
Statment2 الجمل التي لا تحقق الشرط ( يعنى قيمة التعبير الشرطي غير صحيحة )
End if
Statement 3
إذا كانت قيمة الشرط True سيقوم البرنامج بتنفيذ مجموعة الأوامر رقم 1 ويهمل مجموعة الأوامر رقم 2 ثم يذهب لتنفيذ مجموعة الأوامر رقم 3 .
إذا كانت قيمة الشرط False سيقوم البرنامج بتنفيذ مجموعة الأوامر رقم 2 ويهمل مجموعة الأوامر رقم 1 ثم يذهب لتنفيذ مجموعة الأوامر رقم 3 .
أكتب كود برنامج لطباعة الرقم الأكبر من بين رقمين A,B.
الحل:
If A > B
Then
Print A
Else
Print B
End If
معنى ذلك إذا كان الشرط صحيحة يتم تنفيذ الجمل اللي بعد then ويهمل مجموعة الأوامر اللي بعد else
وإذا كان الشرط خاطئ فيتم إهمال الجمل اللي بعد then ويتم تنفيذ الجمل اللي بعد else
مثال اكتب برنامجا لحساب ناتج قسمة عددين لتصميم اى مشروع فى vb.net
الخطوة الأولى : نقوم بفتح مشروع جديد
• من قائمة ملف ) file ) واختيار مشروع جديد ( new project ) او الضغط على create project
• من المربع الحواري نقوم باختيار windows من نوع المشروع (project type ) ومن قوالب ( templates ) نختار windows application
• ومن المربع أيضا نقوم بكتابة اسم المشروع ويكون اسم يدل على المشروع ثم نضغط موافق
الخطوة الثانية : تصميم واجهة البرنامج 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
اكتب برنامج لحساب اجر العمال في شركة بحيث اذا كانت ساعات العمل اقل من او تساوى 40 يتم حساب ساعة العمل بخمسة جنيهات وما زاد على ذلك يحسب للعامل اجر اضافى وتحتسب ساعات الاجر الاضافى بعشرة جنيهات
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 ……. Else و If ……. Then
1. الأمر If ……. Then ……. Else
سيتم استخدامه في حاله ما إذا كان هناك بديلين ( أ، ب ) وكنا نريد تنفيذ حد البديلين اذا كانت قيمة الشرط True ويتم تنفيذ البديل الأخر إذا كانت قيمة الشرط False .
2. الأمر If ……. Then البسيط
سيتم استخدامه في حاله ما إذا كان هناك بديل واحد ( أ) بمعنى انه عند قيمة معينة للشرط يتم تنفيذ البديل (أ) أما عند القيمة الأخرى فلا يتم عمل شئ .
الشروط المركبة
تستخدم في حالة ما إذا كنا سنستخدم قرارا معينا بناءا على تحقق شرطين وليس شرط واحد
ويمكننا عمل الشرط لمركب بالربط بين أكثر من شرط بأحد المعاملات التي تسمى المعاملات المنطقية وهي
Or, OrElse, And, AndAlso, XOr, Not
مقارنة القيم والمتغيرات الحرفية ( 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 اسم الأداة داخل كود البرمجة
Back Color لاختيار لون لخلفية الأداة
Appearance لتحديد شكل الأداة ما اذا كان الشكل التقليدي للأداة او شكل button
Checked تحديد ما إذا كانت الأداة تم اختيارها إما لا
Enabled تحديد ما إذا كانت الأداة تستطيع التعامل معها أم لا
Fore color تحديد لون الخط على الأداة
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- الرمز < يسمى
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. ( )
السؤال الثالث: أقرأ التعليمات التالية:
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
السؤال الخامس: اقرأ التعليمات التالية:
A=50 B=30
أكمل الجمل التالية مستخدما القيم TRUE - FALSE
1. قيمة الشرط A=50 OR B>10 يكون .................
2. قيمة الشرط A=50 AND B=10 يكون .................
3. قيمة الشرط NOT B>10 يكون .................
4. قيمة الشرط A=50 AND B=30 يكون .................
5. قيمة الشرط A=20 OR B>10 يكون .................
السؤال السادس:أقرأ التعليمات التالية:
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. تستخدم الأداة .............. لتقسيم الأدوات إلى مجموعات .
السؤال الثامن : اختر الإجابة الصحيحة مما يلي
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 الممكن اختيارها فى المرة الواحدة هو الإجابة : اى عدد ممكن تحديده
الفصل الثالث
أوامر التكرار
أوامر التكرار هي أوامر تتحكم في إعادة تنفيذ عمل معين أو مجموعة من الأوامر حتى يتحقق شرط معين
الأمر Do while …………………loop
القاعدة العامة للأمر
Do while conditionالشرط
Statement 1
Statement 2
Statement3
......
Statement n
loop
شرح الأمر
True أ- اذا كان الشرط
فان الحاسب يقوم بتنفيذ الأوامر ابتداء من الأمر الذي يلي الشرط وحتى آخر أمر
Loop قبل كلمة
do while فانه يعود مرة أخرى الى loop وعندما يصل البرنامج إلى كلمة
حيث يتم تقييم الشرط مرة أخرى وطبقا لقيمة الشرط فإما ان تكون فيستمر التكرار او تكون .......
فينتهي التكرار
Falseب_ إذا كان الشرط
loop. فان التتنفيذ يبدأ عند أول أمر بعد كلمة
do while إذاً يتم تكرار الأوامر اللي بعد الشرط في حالة إذا كان الشرط صحيح وعندما يصبح الشرط خطأ يتم تنفيذ الأوامر التي تلي
**************************************************
مثال : قم بعمل برنامج يطبع الأعداد من 1 إلى 5 باستخدام الأمر do while
كما عرفنا سيتم تصميم واجهة البرنامج كما بالشكل وسيتم كتابة الكود داخل أداة button1 بالشكل الاتى
الكود اللازم لعمل البرنامج
ما نتيجة تنفيذ هذا الكود؟
إذا أردنا طباعة الأعداد الفردية من 1 إلى 5 فيتم كتابة الكود الاتى ستم كتابة الكود كما سبق مع تغير الأمر x=x+1 إلى x=x+2
وإذا أردنا طباعة الأعداد الزوجية من 0 إلى 5 سيتم كتابة الكود كما سبق مع تغير الأمر x=1 إلى الأمر x=0 والأمر x=x+1 إلى x=x+2
مثال : قم بكتابة برنامج لجمع الأعداد من 1 إلى الرقم الذي سيتم إدخاله من خلال مشغل البرنامج
فى هذه الحالة سنحتاج لأداة textbox لرسمها على الفورم لإدخال القيمة النهائية
شرح الكود:
السطر الأول تعريف المتغيرات
السطر الثاني تخزين القيمة النهائية داخل المتغير final باستخدام أمر التخصيص
واستخدمنا الدالة parse لتحويل القيمة المدخلة من قيمة حرفية الى قيمة عددية
السطر الثالث لاعطاء قيمة ابتدائية للمتغير x
بعد ذلك سيتم تكرار الأوامر اللي بين do while والأمر loop طالما ان الشرط صحيح وهو أن x تكون اقل من أو تساوى القيمة النهائية المدخلة ونستخدم الأمر x=x+1 لزيادة قيمة المتغير بمقدار واحد
السطر الأخير label3.text=sum.Tostring لإظهار الناتج على الفورم باستخدام أداة label3 فمكن تظهر النتيجة في label1 او label2 حسب الاداة التى خصصت لإظهار الناتج بها
بعد تشغيل البرنامج
لو طلب منك عمل برنامج لجمع الأعداد الفردية نفس السابق مع تغير الامر x=x+1 إلى x=x+2
لو برنامج لجمع الأعداد الزوجية نفس السابق مع تغير x=1 إلى x=0
والأمر x=x+1 إلى الأمر x=x+2
الأمر for …………Next يستعمل هذا الأمر في حالة معرفة عدد مرات التكرار مسبقا على خلاف الأمر do while التي لا نعرف فيها عدد مرات التكرار
قاعدة الأمر For……………next
For counter = start to end (step increment)
statment1
statment2
statment3
Statement n
* تحدد الكلمة for بداية التكرار والكلمة next نهاية التكرار
Counter* : متغير رقمي يستخدم لحساب عدد مرات التكرار
Start * : بداية التكرار وهى قيمة رقمية يتولى المبرمج تحديدها
End * : نهاية التكرار وهى قيمة رقمية يتولى المبرمج تحديدها
Increment * : مقدار الزيادة التي يزيدها القيمة المخزنة في العداد counter
شرح الأمر
1- تخزين القيمة start داخل المتغير counter
2- مقارنة القيمة المخزنة في counter بالقيمة end
أ _ إذا كانت القيمة المخزنة في المتغير اقل أو تساوى من القيمة النهائية للتكرار يتم تنفيذ الأوامر المراد تكرارها بين (for , next )
ب - إذا كانت القيمة المخزنة فى المتغير أكبرا من القيمة النهائية للتكرار ينتهى التكرار و يتم تنفيذ الأوامر الموجودة بعد next
3- عندما يصل البرنامج إلى next : أ) فيتم زيادة القيمة المخزنة في العداد counter بمقدار قيمة increment وفى حالة عدم استعمال step فان قيمة العداد تزيد بمقدار واحد step هنا اختيارى
ب) يعود البرنامج إلى بداية التكرار
مثال : قم بطباعة الأعداد من 1 إلى 5 باستخدام for…………..next
تصميم الواجهة كما سبق في المثال السابق ولكن كتابة الكود بالشكل
Dim x as integer
For x= 1 to 5
Msgbox(x)
Next
for………..next تلاحظ الفرق في كتابة الكود بواسطة الأمر
do while…………..loop وكتابة الكود بواسطة الأمر
مثال : قم بطباعة الأعداد الفردية من 1 إلى 5
Dim x as integer
For x = 1 to 5 step 2
Msgbox(x)
Next
قم بطباعة الأعداد الفردية من 5 إلى 1
Dim x as integer
For x = 5 to 1 step -2
Msgbox(x)
Next
لاحظ الفرق في جملة for في البرنامجين السابقين وماذا تستنتج
قم بجمع الأعداد من 1 إلى 10
Dim x , sum as integer
Sum=0
For x = 1 to 10
sum=sum +x
Next
Label1.text=sum
حيث label1 هي الأداة التي سيظهر فيه الناتج على الفورم
ملاحظة لماذا لا نضع الجملة Label1.text=sum قبل next أو loop
الإجابة لأننا نريد إظهار المجموع الكلى مرة واحدة ولا نريد إظهار جمع كل تكرار
ملحوظة : فى الخطوة sum=0 ممكن متكتبش لاننا فى السطر الاول قيمة المتغيرين x , sum الابتدائية تساوى صفر كما اوضحنا سابقاً
الأداة listbox
تعد الأداة listbox واحدة من الأدوات التي تربط غالبا بالتكرار وتتيح لك هذه الأداة أن تنشئ أو تعرض قائمة من العناصر وان تختار منها
شكل الأداة
تظهر الأداة على هيئة مستطيل يعرض بداخله صفوفا من الكلام , كل صف من هذه الصفوف يعد عنصرا يمكن لمستخدم البرنامج أن يختاره
في حالة إذا كان عدد الصفوف اكبر من أن يعرض بأكمله داخل المساحة المتاحة للمستطيل فان vb يقوم تلقائيا بإضافة شريط التمرير الرأسي الى يمين الأداة
خصائص الأداة
الخاصية وظيفتها
Name اسم الأداة داخل كود البرمجة
Horizonatalscrollbar إمكانية إظهار شريط التمرير الافقى أو لا داخل الأداة
Items معرفة العناصر الموجودة داخل الأداة
Selecteditems معرفة او تحديد العنصر الواقع عليه الاختيار
Sorted تبين ما إذا كانت العناصر داخل الأداة مرتبة أبجديا ام لا
الخاصية items في حد ذاتها كائن وكما علمنا في الفصل الدراسي الأول أن الكائن وهو كل ما له خصائص ووظائف واستجابة للأحداث
اى أن الخاصية items لها خصائص ووظائف
الجدول التالي يوضح بعد وظائف method الخاصية items للأداة listbox
الوظيفة method العمل behavior
Add( text) إضافة العنصر text في آخر القائمة
Insert ( index ,text ) إضافة العنصر text فى القائمة ويكون ترتيبه داخل القائمة هو index
Count معرفة عدد العناصر فى القائمة
Remove ( text ) مسح العنصر text من القائمة
Removeat (index) مسح العنصر اللي ترتيبه في القائمة index
Clear مسح جميع العناصر الموجودة بالأداة
Index هو رقم العنصر في القائمة ( ترتيبه) ويأخذ الأرقام من صفر إلى count -1 حيث count هو عدد العناصر في الأداة listbox
يبدأ الترقيم داخل الأداة listbox من الصفر
أمثلة
لو عدد عناصر القائمة 4 فان العنصر الرابع ترتيبه فى القائمة هو 3
ــــــــــــــــــــــــــــــــــــــــ
لإضافة العنصر 3 إلى القائمة listbox1 يتم ذلك من خلال كتابة الكود
Listbox1.items.add("2")
ــــــــــــــــــــــــــــــــــــــــــ
لإضافة العنصر 3 في القائمة listbox1 ويكون ترتيبه داخل الأداة العنصر الثاني
Listbox1.items.insert(1,"3")
ــــــــــــــــــــــــــــــــــــــــ
لحذف العنصر 5 من القائمة listbox1
Listbox1.items.remove("5")
ــــــــــــــــــــــــــــــــــــــ
لحذف العنصر اللي ترتيبه في القائمة listbox1 الثالث
Listbox1.items.removeat(2)
ـــــــــــــــــــــــــــــــــــــــ
لحذف جميع العناصر الموجودة فى الأداة listbox1
Listbox1.items.clear( )
ـــــــــــــــــــــــــــــــــــــــــ
لمعرفة عدد عناصر القائمة listbox1
Listbox1.items.count
1. قم بتغيير قيمة العداد For … Next من 5 إلى 50 بزيادة 2 في كل مرة ؟
For x = 5 To 50 Step 2.
2. قم بتغيير العداد S من 10 إلى 2 بنقص 2 في كل مرة .
For S = 10 To 2 Step -2.
3. قم بتغيير العداد I بالترتيب الأتي (21,28,35,42,49) .
For I = 21 To 49 Step 7.
4. قم بطباعة الأعداد من 1 إلى 5 باستخدام for…………..next
Dim x as integer
For x= 1 to 5
Msgbox(x)
Next
5. قم بطباعة الأعداد الفردية من 1 إلى 5
Dim x as integer
For x = 1 to 5 step 2
Msgbox(x)
Next
6. قم بطباعة الأعداد الفردية من 5 إلى 1
Dim x as integer
For x = 5 to 1 step -2
Msgbox(x)
Next
لاحظ الفرق في جملة for في البرنامجين السابقين وماذا تستنتج
السؤال الأول ضع علامة () أمام العبارة الصحيحة و علامة (×) أمام العبارة الخطأ للعبارات الآتية:
1. الأمر For…..next غير معروف عدد التكرارات التي سوف تتم. ( )
2. الأمر For…..next فيه يتم تحديد القيمة التي يبدأ عندها عملية التكرار والقيمة التي ينتهي عنها التكرار وقيمة الخطوة. ( )
3. إليك ما يلي for i=2 to 10 step 2عدد مرات التكرار 5. ( )
السؤال الثاني أختر الإجابة الصحيحة مما يلي :
1- إليك ما يلي for i=1 to 6 step 2عدد مرات التكرار
أ- 3 ب- 4 ج- 6
السؤال الثالث أكمل العبارات الآتية:
1. إليك ما يلي for I = 4 to 10 step 2عدد مرات التكرار تساوي …………….….
2. عند عمل تكرار معلوم عدده نستخدم ...................
السؤال الرابع أعد ترتيب الخطوات الآتية ترتيبا صحيحا :
أ - لحساب مجموع الأعداد الفردية من 1 إلى 8
1. total = total + i
2. MessageBox.Show(total)
3. Next
4. For i = 1 To 8 Step 2
5. Dim i, total As Integer
إجابة أسئلة الفصل الثالث
السؤال الأول : اختر الإجابة الصحيحة مما يلي
1- الأوامر المتكررة في do while………..loop ( يتم تنفيذها اذا كان الشرط صحيحا true )
2- نوعية الامر الذي يتم تنفيذه حتى يصبح شرط التكرار خطأ هي
الإجابة : do while………..loop
3- يطلق على المتغير الذي يتحكم في عدد مرات تنفيذ الأوامر اسم ( counter )
لإلغاء كل القيم من الأداة listbox يتم استخدام طريقة ( method ) الحل : clear
5- الطريقة (method ) التي تقوم بإضافة عنصر جديد في نهاية القائمة listbox in الحل : add
السؤال الثاني : قم بدراسة مجموعة الأوامر التالية مع افتراض ان المتغيرات قد تم الإعلان عنها
Sum=0
Count=0
Do while ( x<10)
Sum=sum
Count=count+1
Loop
Average =sum/count
ما هو الخطأ فى هذه الأوامر؟ اكتب الخطوات اللازمة لتصويب هذه الأوامر؟
الخطأ أن قيمة المتغير ستظل طول البرنامج بصفر وجملة التكرار لن تتوقف لان الشرط سيظل صحيح
التصحيح : هي كتابة الأمر لزيادة قيمة المتغير بمقدار واحد
ملحوظة الشرط مكتوب بين القوسين لا يمثل خطأ فهو صحيح
الكود بعد التصحيح
Sum=0
Count=0
Do while ( x<10)
x =x+1
Sum=sum +x
Count=count+1
Loop
Average =sum/count
السؤال الرابع
افترض مجموعة الأوامر الآتية
For i=1 to 10 step x
Msgbox(i)
Next
اشرح كيفية تنفيذ الأوامر في كل من الحالات الآتية
أ- إذا كان المتغير اكس اكبر من صفر
ب- إذا كان المتغير اكس اصغر من صفر
ت- اذا كان المتغير اكس مساويا للصفر
الاجابة اذا كان المتغير اكس اكبر من الصفر مثلا 1 ستظهر رسائل تعرض الأرقام 1 , 2 , 3
أما إذا كان قيمة المتغير اكس اقل من الصفر مثلا -1 لن يتم تنفيذ جملة التكرار ولا تظهر اى رسائل
اذا كانت قيم اكس بصفر سيستمر التكرار الى مالا نهاية لان قيمة المتغير ستظل قيمتها بواحد وذلك لان كل مرة يزيد بمقدار صفر ولن يصل الى 3 ولذلك سيستمر البرنامج بعرض مربع رسالة يحتوى على الرقم 1 الى مالا نهاية
ــــــــــــــــــــــــــــــــــــــــــ
x I
9 0
18 3
36 6
السؤال الخامس : قم بتتبع مجموعة الأوامر الآتية موضحا قيمة كل متغير في كل مرة يتغير فيها
x =4.5
For I = 0 to 7 step 3
x =x*2
Next
حيث قيمة x الجديدة تحسب من خلال الأمر x = x*2
ــــــــــــــــــــــــــــــــــــــــ
السؤال السادس : قم بتحويل الأمر for...next التالي الى الأمر do while....loop
I =1
For i= 1 to 10 do while I <=10
Msgbox(i*i) Msgbox(i*i)
Next I=I+1
Loop
ــــــــــــــــــــــــــــــــــــــــــ
السؤال السابع : صف المخرجات الناتجة من تنفيذ مجموعة الأوامر الآتية
For I =0 to 7
If ( I mod 2=0) then
Msgbox(I+1)
Else if ( I mod 3=0) then
Msgbox( I*I )
Else if ( I mod 5=0) then
Msgbox(2*i-1)
Else
Msgbox(i)
End if
Next
i الشرط الذي سيتحقق الكود الذي سينفذ الناتج
صفر I mod 2=0 Msgbox(i+1) 1
1 Else اللي بعد Msgbox(i) 1
2 I mod 2=0 Msgbox(I+1) 3
3 I mod 3=0 Msgbox( I*I ) 9
4 I mod 2=0 Msgbox(i+1) 5
5 I mod 5=0 Msgbox(2*i-1) 9
6 I mod 2=0 Msgbox(i+1) 7
7 else الأمر اللي بعد Msgbox(i) 7
أسئلة الوزارة
السؤال الأول ضع علامة () أمام العبارة الصحيحة و علامة (×) أمام العبارة الخطأ للعبارات الآتية:
1- الأمر Do while ….loop عندما يكون ناتج الشرط false تنفذ الأوامر التي تلي loop. ( )
2- الأمر Do while ….loop عندما يكون ناتج الشرط true تنفذ الأوامر التي تلي الشرط. ( )
3- الأمر Do while ….loop يستمر تكرار تنفيذ الأوامر طالما الشرط ناتجة false. ( )
4- الأمر Do while ….loop يتوقف تكرار تنفيذ الأوامر عندما يصبح الشرط true. ( )
5- الأمر Do while ….loop يتم تقييم الشرط في بداية كل تكرار. ( )
6- الأمر For…..next غير معروف عدد التكرارات التي سوف تتم. ( )
7- الأمر For…..next فيه يتم تحديد القيمة التي يبدأ عندها عملية التكرار والقيمة التي ينتهي عنها التكرار وقيمة الخطوة. ( )
8-إليك ما يلي for i=2 to 10 step 2عدد مرات التكرار 5. ( )
9- يمكنك من خلال خصائص الأداة Listbox عمل فرز للعناصر المعروضة. ( )
10 – أثناء التشغيل لا يمكن حذف عنصر من العناصر المعروضة لدى الأداة Listbox. ( )
11- يمكنك إضافة عنصر للأداة Listbox عند ترتيب معين. ( )
السؤال الثاني أختر الإجابة الصحيحة مما يلي :
1- الأمر Do while ….loop عندما يكون ناتج الشرط true
أ- لا ينفذ أي من أمر من أوامر التكرار. ب- تنفذ أوامر التكرار. ج- تنفذ مره على الأقل.
2- إليك ما يلي for i=1 to 6 step 2عدد مرات التكرار
أ- 3 ب- 4 ج- 6
3- الخاصية المسئولة عن معرفة عدد عناصر الأداة ListBox
أ- counter ب-count ج- selecteditems
4- الأمر Do while ….loop يستمر تنفيذ الأوامر طالما الشرط قيمته
أ- true ب- false ج- nothing
5- الإجراء RemoveAt ( index) للأداة ListBox يقوم بحذف عنصر حسب
أ- الترتيب ب- العنصر ج- نص العنصر
6- الإجراء Insert ( Index ,text ) للأداة ListBox يقوم بإضافة
أ- عنصر في آخر الترتيب ب عنصر عند ترتيب معين ج- عنصر في أول الترتيب
السؤال الثالث أكمل العبارات الآتية بما يناسبها مما بين القوسين :
( False – بداية – True - Insert ( Index ,text ) - عنصر عند ترتيب معين -
solution explorer – أربعة – عشرة )
1- الأمر Do while ….loop عندما يكون ناتج الشرط …… تنفذ الأوامر التي تلي loop.
2- في الأمر Do while ….loop يتم تقييم الشرط في …… كل تكرار.
3-في الأمر Do while ….loop عندما يكون ناتج الشرط …… تنفذ الأوامر التي تلي الشرط.
4- يمكنك إضافة عنصر للأداة Listbox عند ترتيب معين باستخدام الإجراء …….
5- الإجراء Insert ( Index ,text ) للأداة ListBox يقوم بإضافة …….
6- إليك ما يلي for I = 4 to 10 step 2عدد مرات التكرار تساوي …….
السؤال الرابع اختر من العمود ( أ ) ما يناسبه من العمود ( ب)
العمود ( أ ) العمود ( ب )
1- Insert ( Index ,text ) 1- لمعرفة عدد عناصر الأداة ListBox.
2- count 2- بيان العنصر المحدد في الأداة ListBox.
3- selecteditem 3- لإضافة عنصر عند ترتيب معين في ListBox.
4- RemoveAt ( index) 4- لفرز عناصر الأداة ListBox.
5- لحذف عنصر عند ترتيب معين في ListBox.
السؤال الخامس اختر من العمود ( أ ) ما يناسبه من العمود ( ب)
1- For…Next 1- تستخدم مع for … next.
2- Do while … loop 2- تستخدم عند الرغبة في التفرع.
3- شرط 3- عند عمل تكرار معلوم عدده.
4- متغير 4- عند عمل تكرار يعتمد على ناتج شرط.
5- تستخدم مع Do while … loop.
السؤال السادس أعد ترتيب الخطوات الآتية ترتيبا صحيحا :
أ - لحساب مجموع الأعداد الفردية من 1 إلى 8
1. total = total + i
2. MessageBox.Show(total)
3. Next
4. For i = 1 To 8 Step 2
5. Dim i, total As Integer
ب- لحساب مجموع الأعداد الفردية من 1 إلى 8
1. Loop
2. Do While i <= 8
3. Dim i = 1, total As Integer
4. MessageBox.Show(total)
5. total = total + i
6. i = i + 2
موضوع: شرح أكثر من رائع لمنهج الحاسب الآلى الصف الثالث الإعدادى الفصل الدراسى الثانى فقط على منتدى شنواى 
!!تنبيه !!