جملة select case بديل جملة If الشرطية

في هذا الدرس سوف نتعلم كيفية استخدام الجملة  select case التي تشابه  جملة if الشرطية حيث  ان الأمر select case يشبه كثيرا جملة if الشرطية في عمله ولكن الجملة Select Case تعتبر افضل استخداما عندما يكون لدينا أكثر من شرط  و أكثر من نتيجة أو بديل له

استخدمنا جميعا جملة  If...Then...else  للاختيار بين بديلين و اذا كان لدينا أكثر من بديل نقوم باستخدام If ...Then ...ElseIf 

فمثلا لو كان  لدينا الأداة Listbox  بداخلها 6 عناصر هم : اللون الأحمر , الأصفر , الاخضر , البني , أزرق , برتقالي و عند الضغط على أحد هذه العناصر يظهر على مربع الرسالة MsgBox  "لقد قمت باختيار اللون ...." 

مما لاشك فيه أنك سوف تقوم بكتابة الكود التالي :  

ان الكود السابق يحتاج الى اكثير من الوقت لكتابته كما أنه يشعل مساحة كبيرة بلا فائدة  و صعب القراءة و نسبة الخطأ كبيرة في كتابته , ولكن الجملة  select case توفر طريقة أفضل للاختيار بين البدائل المتعددة من جملة if ويريح أثناء كتابة الأكواد ولهذا سوف نلجأ الى استخدامه 


فسيكون الكود كالتالي :

في الكود السابق نقول للبرنامج اذا كان العنصر الذي تم اختياره في أداة قائمة العناصر listbox 

هو الأصفر

فقم بعرض مربع رسالة يحتوي النص التالي:"لقد قمت باختيار اللون الأصفر "

هو الأخضر

فقم بعرض مربع رسالة يحتوي النص التالي:"لقد قمت باختيار اللون الأخضر "

و هكذا ...

 الصورة العامة للجملة 

Select Case (متغير أو خاصية في أداة ....) 

  Case (القيمة أو الحالة 1)  

 الأمر الذي سيتحقق إذا كانت قيمة المتغير أو الخاصيةمساوية القيمة أو الحالة 1

Case (القيمة أو الحالة 2)

الأمر الذي سيتحقق إذا كانت قيمة المتغير أو الخاصية مساوية للقيمة أو الحالة 2

.
.
 

Case Else

الأمر الذي سيتحقق إذا لم تكن قيمة المتغير مساوية لأي من القيم

السابقة

End Select

نريد تصميم برنامج يقوم الطالب بادخال درجة الامتحان في مربع النص textbox1  فاذا كانت درجة الامتحان أصغر من 20   فهو راسب , من20 الى 40 جيد , كانت الدرجة 50 أو 60 فهو جيد جدا  , أكبر من ستين فهو ممتاز , لم يدخل أي من الدرجات السابقة يظهر مربع رسالة مكتوب عليها أدخل الدرجة الصحيحة
فيكون الكود كالتالي:

في الكود السابق قمنا بتعريف المتغير mark من النوع integer , و نحن نعرف أن أي قيمة ندخلها داخل الـــTextbox تعامل معاملة الأحرف لذلك يلزم تحويل القيم المدخلة داخل مربع النص الى قيم عددية حتى نستطيع مقارنتها و اجراء العمليات عليها ,ثم جاء دور الأمر select case فاذا كانت قيمة الــmark أصغر من 20 تظهر msgbox مكتوب عليها راسب ....الخ 








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