أولاً - العبارة: IF - Then
تستخدم عبارة الشرط If في شروط أي أنه إذا تحقق الشرط عند ذلك إعمل الحدث وإلا أي إذا لم يتحقق ألغي الحدث أو إعمل حدث أخر.
التعليمة البسيطة لعبارة If هي كالتالي:
في هذه التعليمة إذا تحقق الشرط تنفذ كل اتعليمات التي بعد كلمة Thenوإذا لم ينفذ الشرط تنفذ التعليمات الواردة على السطر التالي لعبارة الشرط.
هذه الجملة البسيطة . ولاكن هناك جملة IF - Then - Else
وهو عندما يتحقق الشرط نفذ تعليمة ما وإذا لم يتحقق فهناك تعليمة أخرى سوف تنفذ في حال عدم تحقق الشرط.
الشكل العام للتعليمة:
مثال:
ضع أداة النص Text1 و زر أمر Command1 أكتب السطر التالي في حدث الزر:
إذا كان النص المكتوب هو 'kaled' عند ذلك أغلق البرنامج وإلا إعرض رسالة الخطأ
ويمكنك أن تضع التعليمة في عدة أسطر:
إذا كانت التعليمة في عدة أسطر فيجب دائماً أن توجد تعليمة End If في نهاية عبارة IF
مثال
نهاية الدرس
وبالتوفيق للحميع


If Text1 = 'kaled' Then Unload Me Else MsgBox 'Password Error Try Again' If الشرط Then
تعليمة
Else
تعليمة عدم تحقق الشرط
End If If Text1.text='kaled' Then
Msgbox'تم تسجيل دخولك'
Unload me
Else
Msgbox'الكلمة التي قمت بكتابتهاغير صحيحة '
End If 


التعليقات على المقالة 1
حنونه 12-9-2012
رد