البرمجة بلغة فيجوال بيسك  الحلقة (11)

اعداد: خالد المسيهيج

بعد أن تعلمنا كيفية استخدام دالة الشرط If . Then  else نتعلم دالة شرطية أخرى هي دالة ElseIf ويمكن اعتبارها رديفاً للقرار المستخدم مع دالة If ويكثر استخدامها مع القرارات المركبة .
مثال :
لو أردت تصميم برنامج يعطي تقديرات على حسب الدرجات، فيكون لديك عدة حالات (امتياز  جيد  مقبول - ضعيف) فيكون القرار على عدة مسارات .. لذلك يجب أن يقوم البرنامج بمقارنة الدرجات بالشروط فإذا كانت الدرجة من  8إلى  10مثلاً يكون التقدير (ممتاز) وإذا كانت من  6إلى أقل من  8(جيد) وأقل من   6(راسب) .
الآن نطبق عملياً .. حيث نفتح نافذة جديدة ونضع فيها مربع نص Text ثم نستدعي زر Command1 لتنفيذ العملية ثم ننقر نقراً مزدوجاً عليه لتفتح خانة نكتب بها الكود وهو كالظاهر بالشكل رقم (1) .
نلاحظ أننا استخدمنا كذلك في هذا المثال خيار الحصر بعملية أكبر من وأصغر من أي حصرنا مجموعة قيم بين تلك القيمتين.
وأحب أن أنوه هنا إلى نقطة مهمة وهي كيفية كتابة الملاحظات والتعليقات على الأكواد دون أن تحدث رسائل خطأ حيث يمكنك أن تكتب ما تشاء من تعليقات على أن تسبق كل سطر من ملاحظاتك بالفاصلة المفردة الواقعة جوار حرف الطاء لكن بدون استخدام Shift، حيث يظهر شكل الملاحظة باللون الأخضر.
اختبار (2) :
مطلوب إنشاء برنامج يقوم لحساب المعاش التقاعدي لأي شخص بحيث لا يعمل إذا كانت الخدمة تقل عن  18سنة، إذا علمت أن القانون العام لحساب المعاش التقاعدي هو :
المعاش التقاعدي = (الراتب الأساسي * الخدمة الفعلية) ÷  
35يمكن الحصول على الملفات المصدرية للمثال المستخدم بالشرح من خلال الوصلة التالية :
www.ma3refah.org/km/11.zip