sweety
10-19-2007, 03:13 PM
الدرس الخامس من سلسلة دروس تعلم فيجوال بيسيك دوت نت
Select Case
ان التعبير Select Case مشابه الى حد ما للتعبير If…End If - الذي تحدثنا عنه في الدرس السابق- الا أنه لا يستعمل الا في فحص متغير واحد و هذا المثال كفيل بجعلك تفهم هذا الأمر بسهولة:
سنقوم بعمل برنامج يقوم باستقبال درجة الطالب ثم طباعة تقدير الطالب
واجهة البرنامج :
http://up17.arabsh.com/1/258e29b.jpg
مثلا لو ادخلت الرقم 88
http://up17.arabsh.com/1/cad1134.jpg
ثم نقرت على زر " التقدير" ستظهر النافذة التالية:
http://up17.arabsh.com/1/0c09366.jpg
واضحة فكرة البرنامج ’’’ اوكي يلا نبدأ الشغل:)
افتح بروجيكت جديد
ادرج على الفورم الادوات التالية و اضبط خصائصها كما يلي
http://up17.arabsh.com/1/c6139dd.jpg
انقر نقراً مزدوجا على زر "التقدير" ثم قم بكتاية الكود التالي:
Select Case teextBox1teext
Case 90 To 100
MsgBox("ممتاز")
Case 80 To 89
MsgBox("جيد جدا")
Case 70 To 79
MsgBox("جيد ")
Case 60 To 69
MsgBox("مقبول")
Case Is < 60
MsgBox("راسب")
Case Else
MsgBox("قيمة غير مقبولة")
end select
شرح الكود
الآن انت قمت بكتابة رقم (مثلا 88)داخل ال****Box1 فعند النقر على الزر سيقوم البرنامج بتنفيذ الكود اعلاه
اول سطر
Select Case teextBox1.teext
اي تحقق من القيمة المكتوبة داخل الteextBox1 (و هو رقم 88 كما في المثال)
Case 90 To 100
هل الرقم 88 موجود ضمن النطاق من 90 الى 100 ,,,طبعا لا اذا سيتم تجاهل الMsgBox الموجودة تحته مباشرة وينتقل الى السطر التالي
Case 80 To 89
هل الرقم 88 موجود ضمن النطاق من 80الى 90
فعلا هذا الكلام صحيح عندها سينتقل البرنامج الى تنفيذ السطر التالي
MsgBox("جيد جدا")
وتظهر الرسالة التي توضح التقدير الصحيح
http://up17.arabsh.com/1/0c09366.jpg
ملاحظات:
جملة Select Case دائما ما تنتهي بـEnd Select
سيتم تنفيذ الجملة التي تلي Case Else في حال ادخال رقم غير موجود ضمن النطاقات السابقة
يمكن كتابة البرنامج السابق بطريقة آخرى
Select Case teextbox1.teext
Case Is < 60
MsgBox("راسب")
Case Is < 70
MsgBox("مقبول")
Case Is < 80
MsgBox("جيد ")
Case Is < 90
MsgBox("جيد جدا")
Case Is <= 100
MsgBox("ممتاز")
Case Else
MsgBox("قيمة غير مقبولة")
End Select
في هذا المثال قمنا باستخدام عوامل المقارنة (علامة الأصغر من)
كما يمكن كتابة
Case 60
اي في حال القيمة الموجودة في الteextBox1 هي 60
نهاية الدرس :)
تذكر دائماً....
كل ما في البرمجة مبني على المنطق فيجب عليك فقط التفكير بطريقة منطقية و متسلسلة و مترابطة حتى تجد نفسك مبرمج من الدرجة الأولى باذن الله
دُمتم في حفظ الرحمن
اعداد اختكم sweety
Select Case
ان التعبير Select Case مشابه الى حد ما للتعبير If…End If - الذي تحدثنا عنه في الدرس السابق- الا أنه لا يستعمل الا في فحص متغير واحد و هذا المثال كفيل بجعلك تفهم هذا الأمر بسهولة:
سنقوم بعمل برنامج يقوم باستقبال درجة الطالب ثم طباعة تقدير الطالب
واجهة البرنامج :
http://up17.arabsh.com/1/258e29b.jpg
مثلا لو ادخلت الرقم 88
http://up17.arabsh.com/1/cad1134.jpg
ثم نقرت على زر " التقدير" ستظهر النافذة التالية:
http://up17.arabsh.com/1/0c09366.jpg
واضحة فكرة البرنامج ’’’ اوكي يلا نبدأ الشغل:)
افتح بروجيكت جديد
ادرج على الفورم الادوات التالية و اضبط خصائصها كما يلي
http://up17.arabsh.com/1/c6139dd.jpg
انقر نقراً مزدوجا على زر "التقدير" ثم قم بكتاية الكود التالي:
Select Case teextBox1teext
Case 90 To 100
MsgBox("ممتاز")
Case 80 To 89
MsgBox("جيد جدا")
Case 70 To 79
MsgBox("جيد ")
Case 60 To 69
MsgBox("مقبول")
Case Is < 60
MsgBox("راسب")
Case Else
MsgBox("قيمة غير مقبولة")
end select
شرح الكود
الآن انت قمت بكتابة رقم (مثلا 88)داخل ال****Box1 فعند النقر على الزر سيقوم البرنامج بتنفيذ الكود اعلاه
اول سطر
Select Case teextBox1.teext
اي تحقق من القيمة المكتوبة داخل الteextBox1 (و هو رقم 88 كما في المثال)
Case 90 To 100
هل الرقم 88 موجود ضمن النطاق من 90 الى 100 ,,,طبعا لا اذا سيتم تجاهل الMsgBox الموجودة تحته مباشرة وينتقل الى السطر التالي
Case 80 To 89
هل الرقم 88 موجود ضمن النطاق من 80الى 90
فعلا هذا الكلام صحيح عندها سينتقل البرنامج الى تنفيذ السطر التالي
MsgBox("جيد جدا")
وتظهر الرسالة التي توضح التقدير الصحيح
http://up17.arabsh.com/1/0c09366.jpg
ملاحظات:
جملة Select Case دائما ما تنتهي بـEnd Select
سيتم تنفيذ الجملة التي تلي Case Else في حال ادخال رقم غير موجود ضمن النطاقات السابقة
يمكن كتابة البرنامج السابق بطريقة آخرى
Select Case teextbox1.teext
Case Is < 60
MsgBox("راسب")
Case Is < 70
MsgBox("مقبول")
Case Is < 80
MsgBox("جيد ")
Case Is < 90
MsgBox("جيد جدا")
Case Is <= 100
MsgBox("ممتاز")
Case Else
MsgBox("قيمة غير مقبولة")
End Select
في هذا المثال قمنا باستخدام عوامل المقارنة (علامة الأصغر من)
كما يمكن كتابة
Case 60
اي في حال القيمة الموجودة في الteextBox1 هي 60
نهاية الدرس :)
تذكر دائماً....
كل ما في البرمجة مبني على المنطق فيجب عليك فقط التفكير بطريقة منطقية و متسلسلة و مترابطة حتى تجد نفسك مبرمج من الدرجة الأولى باذن الله
دُمتم في حفظ الرحمن
اعداد اختكم sweety