الدرس التاسع من دورة الفجوال بيسك 6 شرح مفهوم الجملة الشرطية If...Then بالتفصيل

السلام عليكم ورحمة الله ...سنتكلم اليوم عن مفهوم في البرمجة وهو مفهوم الجملة if Then ...

من معنى الجملة فهي تبدو جملية شرطية أي وترجمتها (إذا ......عندها) أي أنه إذا حدث كذا افعل كذا و لهذه الجملة ثلاثة أساسيات لا تتم بدونها وهي:
بداية الشرط :If.
إنهاء الشرط وبداية نتيجة الشرط:Then
إنهاء المجيلة كاملة :End If
و يكون بناء المجلة كما يلي : 
If aaa Then
bbbbb
End If
حيث
aaa: الشرط اللازم تحققه .
bbbb: العملية التي ستنفذ عند تحقق الشرط ..
و لكي نفهم الجملية الغامضة إلى الآن يجب ان نأخذ مثال...
مثلا ليكن لدينا Text وCommandنريد أنه عند الضغط على الCommand إذا كان الرقم الموجود في الText يساوي الواحد يظهر صندوق نص ...تعالوا لنجرب هذه العملية..
في الCommand ضعوا الكود التالي:

كود:

If Text1.Text = "1" Then
MsgBox "الرقم هو الواحد"
Else
MsgBox "الرقــم ليس الواحد"
End If

ويمتاز هذا الشرط بالقدرة على التعددية ...فمثلا تستيطيع أن تكتب عدد كبير جدا من الشروط المتتالية:
فمثلا لو كنت تريد أنه إذا كان الرقم واحد يظهر رسالة (الرقم واحد) و إذا كان الرقم اثنين تظهر رسالة (الرقم اثنين )
إذا كان الرقم ثلاثة تظهر رسالة (الرقم ثلاثة) ...فلنجرب..

كود:

If Text1.Text = "1" Then
MsgBox "الرقم هو واحد"
End If
If Text1.Text = "2" Then
MsgBox "الرقم هو اثنين"
End If
If Text1.Text = "3" Then
MsgBox "الرقم هو ثلاثة"
End If

والآن جربوا البرنامج و جربوا إدخال أحد الأرقام 1 -2 -3..و لاحظوا كيف يظهر الMsgbox.

استخدام Or:من معنى الكلمة تبدو أنها (أو) و نستخدمها مع الجملة الشرطية للتخيير 
إذا كان النص =1 أو النص=2 عندها
صندوق نص "الشرط محقق"
و إلا
صندوق نص "الشرط غير محقق"
إنهاء الشرط
كانت الجملة السابقة ترجمة حرفية لماسأكتبه الآن 

كود:

If Text3.Text = "1" Or Text3.Text = "2" Then
MsgBox "الشرط محقق الرقم واحد أو اثنين"
Else
MsgBox "الشرط غير محقق"
End If

و هكذا نكون قد تعرفنا جيدا على الجملة if مع or. وهنا لن أتكلم عن الجملة AND وهي ابضا تابعة لiF.
و شكرا.