[RaggiTech]

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


السلام عليكم

رمضان كريم

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

بإذن الله سنتعلم كيفية استخدام الـ 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

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

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