1. الرئيسية
  2. الإحصائيات
  3. البحث
  4. جديد الدروس
  5. أخبر صديقك
  6. اتصل بنا

مدرسة هاني الطنبور » لغة الفيجوال بيسك visual basic » الدرس السابع والثلاثون: العبارة Select Case

 الدرس السابع والثلاثون: العبارة Select Case  أضيف في: 10/07/2011
جملة Select تشبه تقريباً جملة If إلا أنها تستعمل حالات متعددة وفي كل حالة تكتب تعليمة مختلفة.

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

CODE:
0001
0002
0003
0004
0005
0006
0007
Select Case (العنصر)

Case (الحالة)

التعليمة

End select




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



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

أضف فورم وأضف الأدوات التالية:
CODE:
0001
0002
0003
0004
0005
0006

Text1

Label1

Command1



http://hanialtanbour.com/up/uploads/13102811911.jpg



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

CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
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 ولاكن عليك كتابة الجملة كاملة في كل حالة من الحالات السابقة.



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

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

الكاتب: admin انقر هنا لمراسلة admin أنقر هنا للإنتقال إلى موقع admin إضافة للمفضلة إضافة لمفضلة Google إضافة لمفضلة Delicious إضافة لمفضلة Digg إضافة لمفضلة Facebook
خيارات الدرس : ارسل الدرس لصديق ارسل الدرس لصديق  طباعة الدرس طباعة الدرس