العبارة Select Case {الجمعة 28 أكتوبر - 21:45}

جملة Select تشبه تقريباً جملة
If إلا أنها تستعمل حالات متعددة وفي كل حالة تكتب
تعليمة مختلفة.



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

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

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







سوف نعمل مثال بسيط لهذه الجملة.



أضف فورم وأضف الأدوات التالية:



Text1



Label1



Command1







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

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 ولاكن عليك كتابة الجملة كاملة في كل حالة من
الحالات السابقة.







هذا الذي مااستطعت أن أشرحه أرجو أن يحقق الفائدة



وبالتوفيق للجميع