العبارة الشرطية if

عسول · رقم المشاركة : 1 09-18-2008, 01:26 PM

العبارة الشرطية IF

أولاً - العبارة: IF - Then

تستخدم عبارة الشرط If في شروط أي أنه إذا تحقق الشرط عند ذلك إعمل الحدث وإلا أي إذا لم يتحقق ألغي الحدث أو إعمل حدث أخر.

التعليمة البسيطة لعبارة If هي كالتالي:

في هذه التعليمة إذا تحقق الشرط تنفذ كل اتعليمات التي بعد كلمة Thenوإذا لم ينفذ الشرط تنفذ التعليمات الواردة على السطر التالي لعبارة الشرط.

هذه الجملة البسيطة . ولاكن هناك جملة IF - Then - Else

وهو عندما يتحقق الشرط نفذ تعليمة ما وإذا لم يتحقق فهناك تعليمة أخرى سوف تنفذ في حال عدم تحقق الشرط.

الشكل العام للتعليمة:

مثال:

ضع أداة النص Text1 و زر أمر Command1 أكتب السطر التالي في حدث الزر:

If Text1 = 'kaled' Then Unload Me Else MsgBox 'Password Error Try Again'

إذا كان النص المكتوب هو 'kaled' عند ذلك أغلق البرنامج وإلا إعرض رسالة الخطأ

ويمكنك أن تضع التعليمة في عدة أسطر:

If الشرط Then

تعليمة

Else

تعليمة عدم تحقق الشرط

End If

إذا كانت التعليمة في عدة أسطر فيجب دائماً أن توجد تعليمة End If في نهاية عبارة IF

مثال
If Text1.text='kaled' Then

Msgbox'تم تسجيل دخولك'

Unload me

Else

Msgbox'الكلمة التي قمت بكتابتهاغير صحيحة '

End If

نهاية الدرس

وبالتوفيق للحميع

أدوات الدرس	إبحث في الدرس
مشاهدة صفحة طباعة الدرس أرسل هذا الدرس إلى صديق	إبحث في الدرس: البحث المتقدم
انواع عرض الدرس
العرض العادي الانتقال إلى العرض المتطور الانتقال إلى العرض الشجري