للمبتدئين --->> تعلم ( Select Case ) بالشرح مع المثال

كاتب الموضوع : الخبير

السلام عليكم

رمضان كريم

كيف حال الجميع

بإذن الله سنتعلم كيفية استخدام الـ Select Case للمبتدئين طبعا

إن الـ Select Case تشبه الـ IF الشرطية في عدة نواحي و لا تضاهيها في عدة نواحي

مثلا عندما نضع ComboBox فالأغلبية تستخدم الـ IF لماذا ؟؟ مع أن الـ Select Case اسهل

لنبدأ ...

أنشئ مشروع جديد و سمه ما تريد

نضيف ComboBox إلى برنامجنا و زر أمر Button نضع في الـ ComboBox في خاصية Items ما يلي

vb.net
#C
++C
#F

تمام ؟؟

نضع في الـ Button الكود التالي

كود :

Select Case ComboBox1.Text

Case "vb.net"

MsgBox("You Are Using VB.net")

Case "C++"

MsgBox("You Are Using C++")

Case "C#"

MsgBox("You Are Using C#")

Case "F#"

MsgBox("You Are Using F#")

End Select

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

مثال 2

المثال أكثر تعقيدا

نفتح مشروع جديد و نضع فيه Button واحد فقط

و نضع فيه الكود التالي

كود :

Dim myString As String

Dim Sales As Integer = 1000

Dim bouns As Double

myString = InputBox("Input The Value")

Select Case myString

Case 1

bouns = 0

Case 2

bouns = 2

Case 3 To 8

bouns = 0.5 * Salse

End Select

MsgBox(bouns)

في البداية قمنا بتعريف بعض المتغيرات و نلاحظ أننا وضعنا قيمة المتغير myString في InPutBox

و الأن في الحالة عندما يكون المدخل 1 يكون المجموع النهائي 0

و إذا كان 2 يكون 2

و إذا كان من 3 إلى 8 نحسبه بنصف المتغير Sales الذي عرفناه على أن قيمته 1000

تمام المثال الثني مرفق لأن الأول بسيط جدا

إن شاء الله وصلت فكرة الدرس