Visual Basic - التبديل (Select Case)

Visual Basic - التبديل (Select Case)

تعليمة Select Case تُستخدم لتبسيط الشروط عندما يكون لديك قيمة واحدة تريد مقارنة عدة حالات منها بدلاً من كتابة If...ElseIf متكررة.

---

🔹 الصياغة الأساسية

Select Case التعبير
    Case القيمة1
        ' تعليمات عند المطابقة مع القيمة1
    Case القيمة2
        ' تعليمات عند المطابقة مع القيمة2
    Case Else
        ' تعليمات إذا لم يحدث تطابق
End Select

---

💻 مثال بسيط

Dim grade As String = "B"

Select Case grade
    Case "A"
        Console.WriteLine("ممتاز")
    Case "B"
        Console.WriteLine("جيد جدًا")
    Case "C"
        Console.WriteLine("جيد")
    Case Else
        Console.WriteLine("حاول مرة أخرى")
End Select

---

🔄 استخدام نطاق القيم

يمكنك تحديد نطاق باستخدام To.

Dim score As Integer = 78

Select Case score
    Case 90 To 100
        Console.WriteLine("ممتاز")
    Case 70 To 89
        Console.WriteLine("جيد جدًا")
    Case 50 To 69
        Console.WriteLine("جيد")
    Case Else
        Console.WriteLine("راسب")
End Select

---

🔍 استخدام شروط محددة

يمكنك الجمع بين حالات متعددة باستخدام الفاصلة ,.

Dim day As String = "Sunday"

Select Case day
    Case "Saturday", "Sunday"
        Console.WriteLine("إجازة")
    Case Else
        Console.WriteLine("دوام")
End Select

---

📌 ملاحظات مهمة

• تعليمة Case Else اختيارية لكنها مهمة لمعالجة القيم غير المتوقعة.
• يمكنك كتابة أي عدد من الحالات داخل Select Case.
• تُعد أكثر وضوحًا وأسهل قراءة من استخدام If...ElseIf كثيرة التفرعات.