جملة Select Case التعددية في فيجوال بيسك

مواضيع ذات صلة

كتبه: karwanpro / بتاريخ: 2013-07-25 , پێنج شه‌ممه‌

إن الامر Select Case من الاوامر المتقدمة في فيجوال بيسك حيث انها تشبه الأمر IF ولكن بصورة متعدد , اي انك يمكن ان تختار أمر معين اذا كان المحددة تساوي أمر ما وهي تماما يشبه مفتاح المروحة حيث لو وضعت المفتاح على رقم (1) ستجد ان سرعة المروحة بطيئة واذا اخترت (2) سيزداد السرعة وهكذا لو اخترت السرعات الاخرى , وسنتعلم كيف يكون هذا

الشكل العام للعبارة:

Code

Select Case (العنصر)
Case (الحالة)
التعليمة
End select

يمكنك إضافة الكثير من الحالات ولاكن قبل End Select

سوف نعمل مثال بسيط لهذه الجملة. أضف فورم وأضف الأدوات التالية:

Code

Text1
Label1
Command1

أنقر فوق الزر نقرتين وأكتب الشيفرة التالية:

Code

On Error GoTo b

Dim a As Integer
a = Text1

Select Case a
Case 0 To 10
Label1 = "سيىء"
Case 10 To 40
Label1 = "ضعيف"
Case 40 To 60
Label1 = "وسط"
Case 60 To 80
Label1 = "جيد"
Case 80 To 100
Label1 = "ممتاز"
End Select

Exit Sub
b:
MsgBox "الرجاء إدخال قيمة عددية ", vbCritical, "خطأ في الكتابة"

شرج الشيفرة السابقة:
السطر الأول : التصريح عن خطأ أسميناه b
السطر الثاني: التصريح عن متحول عددي صحيح a
السطر الثالث: إسناد النص في Text1 إلى المتحول a
السطر الرابع إلى End Select بداية التعليمة Select . أي حدد حالات المتحول a في كل حالة عرض تعليمة مختلفة
السطور التي بعد End Select هي عمل الخطأ أي عرض رسالة عند الخطأ . حاول كتابة نص عادي فسوف تظهر لك الرسالة.
لا حظ أنه أنهينا العبارة ب End Select مثل End If
ويمكنك إستعمال العبارة الشرطية IF ولاكن عليك كتابة الجملة كاملة في كل حالة من الحالات السابقة

980 عدد المشاهدات