التفرع باستخدام
جملة If ….. Then
البسيطة
تستخدم فى حالة وجود شرط بإحتمال واحد فقط وهو الإحتمال
الصحيح True .
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
الصيغة العامة لجملة
الشرط If ….. Then هى:
Then ( الشرط أو التعبير الشرطى ) If Conditional Expression
الأوامر التى يتم تنفيذها فى حالة تحقق الشرط Code
نهاية جملة الشرط
End If
|
من الشكل السابق
يتضح لنا :
�
جملة If …..Then تتكون من If
ثم يأتى بعدها (الشرط أو التعبير الشرطى) ثم كلمة Then
وهذا كلة على سطر واحد فقط.
�
يلى السطر الذى يحتوى على If …..Then مجموعة الأوامر المطلوب تنفيذها .
�
تنتهى جميع جمل If الشرطية بـ End If التى تخبرنا بنهاية جملة If الشرطية .
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
لاحظ ما يلى :
�
إذا كانت قيمة الشرط أو التعبير
الشرطى صحيحاً True يتم
تنفيذ مجموعة الأوامر التى تلى كلمة Then
حتى End
If ثم تنفيذ الاوامر التى تلى End If .
�
إذا كانت قيمة الشرط أو التعبير
الشرطى خطأ False يتم
تنفيذ مجموعة الأوامر التى تلى End If
( أى باقى أوامر البرنامج ) .
�
فى حالة تحقق الشرط أو عدم
تحققة يتم تنفيذ ما بعد End If
والشكل التالى يوضح هذه الجملة .
تدريب :
المطلوب عمل برنامج
لإدخال الدرجة وفى حالة إذا كانت الدرجة أكبر من أو تساوى يعطى صندوق رسالة Message Box به كلمة " ناجح
" .
نقوم بأنشاء مشروع يحتوى على نموج Form كما هو موضح فى الشكل التالى
نقوم
بكتابة كود البرمجة فى أجراء الحدث Button1_Click كما بالشكل التالى .
من الملاحظ :
1- أنة فى الجدول
السابق تم كتابة كود البرمجة أعتماداً على خريطة التدفق .
2- كلمة Else تعنى تنفيذ ما بعدها
إذا كان ناتج الشرط خطأ False .
3- تم أستخدام جملة If والتى تعبر عن الشرط
هل قيمة X
أكبر من أو تساوى 50 .
4- قم بالضغط على مفتاح
F5
لتشغيل البرنامج Start
Debugging .
5- قم بأدخال قيمة
مختلفة ثم قم بالضغط على زر النتيجة فنلاحظ التالى :
·
ظهور صندوق رسالة ( ناجح ) إذا كان ناتج الشرط صواب True يعنى أن الدرجة
المدخلة أكبر من أو تساوى 50 .
·
عدم ظهور صندوق رسالة ( ناجح ) إذا كان ناتج الشرط خطأ False يعنى ان الدرجة
المدخلة أصغر من 50 .
يمكن كتابة جملة الشرطIf …Then على سطر واحد دون كتابة End If كالتالى :
محمود الانصاري محمود محمد ، حاصل علي بكالوريوس تربية نوعية عام 2009 ، مدرس مادة الكمبيوتر وتكنولوجيا المعلومات بمدرسة القدس الشريف للتعليم الاساسي بالمرحلة الاعدادية ، ومسجل لدرجة الماجستير بتربية نوعية بنها
تحويل كود إخفاء محول الأكواد الإبتسامات إخفاء