برامج الجمل الشرطية Select Case

تستخدم هذه الجملة بدلا عن الشرط If وتعني اختيار حالة من عدة حالات.

مثال1: برنامج إدخال درجات الطالب باستخدام Select Case

خطوات تصميم البرنامج:

1-  نفتح مشروع جديد و نضع علية أداتي Label وأداة TextBox وزر لإظهار النتيجة  ونجعل الخصائص للأدوات كما يلي:

اسم الأداة	الخاصية	القيمة
Form1	Text	درجات الطلاب
Label1	Text	أدخل الدرجة هنا
Text1	TextAlign	Center
Button1	Text	إظهار النتيجة

2- بعد تصميم الفورم نضغط مرتين على زر إظهار النتيجة لكتابة الكود الخاص به كما يلي:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Select Case Val(TextBox1.Text)

            Case Is < 50

               ("راسب") MessageBox.Show

            Case Is >= 50

              ("ناجح")  MessageBox.Show

            Case Else

               ("خطأ في إدخال العلامة") MessageBox.Show

        End Select

    End Sub

المتغير	المعنى
Select Case Val (TextBox1.Text)	تعني اختيار حالة القيمة الموجودة داخل TextBox1.Text
Case Is < 50	تعني إذا كانت القيمة أصغر تماما من 50 سيتم اختيار هذه الحالة.
Case Is > 50	تعني إذا كانت القيمة أكبر أو تساوي 50 سيتم اختيار هذه الحالة.
Case Else	سيتم تنفيذها فقط في حالة عدم اختيار أي حالة سابقة.