بسم الله الرحمن الرحيم
عن أبي هريرة قال قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسانثقيلتان في الميزان حبيبتان إلى الرحمن سبحان الله وبحمده سبحان الله العظيم)
فل نجعل حياتا عامرة بذكر الله
الدرس الثالث
في هذا الدرس سنتناول كتابة كل من الجمل الشرطية والحلقات
1- الجمل الشرطية
وكما هو معلوم ان الجمل الشرطية هي أحد الأركان الرئيسية للبرمجة حيث انه عن طريقتها بتحكم بسير البرنامج
والجمل الشرطية عدة أنواع
A- if
B- select case
( A جملة if
1- if
يمكن كتابها بعدة صيغ أما بأسلوب الجملة الواحدة أو الجمل المتعدده
وأما أسلوب الجملة الواحده فصيغته كالتالى
If condition then instructoion1: instruction2
وهي مكافئة لصيغة متعددة الجمل التالية
If condition then
Instruction 1
Instruction 2
Endif
2- في حالة تفرع الشرط لنتيجتين يستخدم if ….else …
وصيغة كتابتها كالتالي بإسلوب الجملة الواحدة
If condition then instruction1: instruction2: else: instruction 3
وهي مكافئة لصيغة متعددة الجمل التالية
If condition then
Instruction 1
Instruction 2
Else
Instruction 3
Endif
3- في حالة وحود اكثر من شرطين يستخدم if elseif else
بالنسبة لأسلوب السطر الواحد
If condition then instruction1:instruction2:elseif condition then condition3 : else: instruction 4
وهي مكافئة لصيغة متعددة الجمل التالية
If condition then
Instruction 1
Instruction 2
Elseif condition then
Instruction 3
Else
Condition4
Endif
وأنواع الشروط
1- اكبر من . =
2- أكبر من ساوي >=
3- اضغر من <
4- أصغر من يساوي <=
5- يساوي =
6- لا يساوي <>
وفي حالة وجود شرطين أو أكثر متعلقين ببعضهما البعض يستخدم AND و OR و XOR
الأمثلة
في هذا المثال سنستخدم if لإختبار اذا كان المتغير يحتوي على قيمة 10
كود:
Dim x as word
X= 10
If x= 10 then: portb=1:else : portb=0
أو
كود:
Dim x as word
X= 10
If x= 10 then
portb=1
Else
portb=0
endif
والمثال التالي يوضح الشروط المتعلقة ببعضها البعض
كود:
Dim x as word
Dim y as word
X= 10
Y=50
If x= 10 and y = 50 then
portb=1
else
portb=0
endif
B) Select Case
ويستخدم هذا النوع من الجمل الشرطية في حالة وجود شروط كثيرة
وصيغته كالتالي
Select variable
Case condition1
Instructions
Case condition2
instructions
Case else
Instructions
Endselect
وأنواع الشروط تم ذكرها في قاعدة if
ويضاف االيها التالي
عند كتابة الشرط يالصيغه التالية
2,3,4,5
معناها اذا كان المتغير يحمل احدى هذه القيم
وأيضا 10 to 20
معناها إذا كان المتغير يحمل قيمة ما من 10 الى 20
مثال
كود:
Dim x as byte
Select x
Case 1
Portb=0
Case 2,4,6,
Portb=3
Case > 10
Portb=2
Case else
Portb = 255
Endselect
ولطول الدرس نكمل في المشاركة التالية