لو سمحتم اريد شرح اداة الشرط IF.....THEN

السلام عليكم ورحمه الله وبركاته

قاعدة If من اشهر قواعد فيجوال بيسيك, و تستخدم في الشروط فمعناها ان اذا حدث شيء فسيحدث هذا الشيء,

و ان لم يحدث سيحدث شيء اخر, ولكن كيف نكتب هذا في طريقة كود؟؟ هذا ما سنعرفه...

تتكون هذه القاعدة من عدة اشياء و هي كاللآتي:

1) IF: و هي اول شيء يكتب في الكود و معناها ان اذا تحقق شيء معين.

2) Then: تكتب بعد الحدث الذي يكتب بعد If و معناها ان اذا تحقق الشيء ( الحدث بعد If) فسيتحقق شيء آخر.

3) Else: و هي اذا لم يتحقق الحدث الذي بعد If يتحقق شيء لآخر, و هي ليست درورية اي لا تستخدم في كل الاكواد.

4) ElseIf: تكون حدث جديد فهي مثل If العادية, ولكن بدلا من ان نقوم بكتابة كود جديد به If و End If نقوم بكتابة ElseIf و تكملة الكود.

5) End If: و تكتب في نهاية الكود لايقاف القاعدة و هي مهمة جدا و تكتب في كل الاكواد.

و الان لنقوم بتطبيق بسيط علي ما سبق بكتابة قاعدة كاملة بكائنات عشوائية..

Private Sub Command1_Click()
If Text1.Text = “Ehab” Then
Image1.Visible = True
ElseIf Text1.Text = “Bibo” Then
Image1.Visible = True
Else
Image2.Visible = True
End If
End Sub

الشرح:

و كما يتبين من الكود انه يشبه Password عند كتابتها صحيحة تظهر صورة و عند كتابتها خاطئة تظهر صورة اخري, فاستخدمت

If Text1.Text = “Ehab” اي ان لو الكتابة في التكست Ehab فانه ينتقل الي الحدث التالي Image1.Visible = True عن طريق كتابة Then ثم الحدث, و اذا كانت تكست Bibo فسيتم اظهار الصورة ايضا و ذلك باستخدام ElseIf, و اذا كانت التكست ليست Ehab و ليست Bibo ستظهر الصورة الثانية و ذلك باستخدام Else.

ارجو ان تكون طريقة شرحي جيدة و يفهمها الجميع.

الدالة IFF:

هي تستخدم كاختصار لدالة If..Else كالتالي:

Private Sub Command1_Click
X = Text1.Text
MsgBox IIf(X = 7, "X=7", "X<>7")
End Sub

ففي هذا المثال وضعت تكست و زر امر, واذا كانت تكست1 = 7 فستظهر رسالة تثبت ذلك و العكس صحيح..

للأمانه هذا الشرح منقول من احد المذكرات الصغيره عندى فهو سوف يوفر جهد الشرح من جديد