التفرع باستخدام جملة If ….. Then البسيطة ، تستخدم فى حالة وجود شرط بإحتمال واحد فقط وهو الإحتمال الصحيح True .
من الملاحظ :
![]()
يمكن كتابة جملة الشرطIf …Then على سطر واحد دون كتابة End If كالتالى :
الصيغة العامة لجملة الشرط 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 .
شرح فيديو
جزى الله خيرا كل من سلاهم فيه
المصدر:visual basic.net