المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : 11 - دالة شرطية أخرى هي دالة ElseIf



GeeK4aRaB
25-08-2007, 09:25 PM
بعد أن تعلمنا كيفية استخدام دالة الشرط If ... Then ... else نتعلم دالة شرطية أخرى هي دالة ElseIf ويمكن اعتبارها رديفاً للقرار المستخدم مع دالة If ويكثر استخدامها مع القرارات المركبة .

مثال :
لو أردت تصميم برنامج يعطي تقديرات على حسب الدرجات، فيكون لديك عدة حالات (امتياز جيد مقبول - ضعيف) فيكون القرار على عدة مسارات .. لذلك يجب أن يقوم البرنامج بمقارنة الدرجات بالشروط فإذا كانت الدرجة من 8 إلى 10 مثلاً يكون التقدير (ممتاز) وإذا كانت من 6 إلى أقل من 8 (جيد) وأقل من 6(راسب) .

http://www.geek4arab.com/vb/images/imgcache/notfound.gif

الآن نطبق عملياً .. حيث نفتح نافذة جديدة ونضع فيها مربع نص Text ثم نستدعي زر Command1 لتنفيذ العملية ثم ننقر نقراً مزدوجاً عليه لتفتح خانة نكتب بها الكود وهو كالظاهر بالشكل رقم (1) .
نلاحظ أننا استخدمنا كذلك في هذا المثال خيار الحصر بعملية أكبر من وأصغر من أي حصرنا مجموعة قيم بين تلك القيمتين.
وأحب أن أنوه هنا إلى نقطة مهمة وهي كيفية كتابة الملاحظات والتعليقات على الأكواد دون أن تحدث رسائل خطأ حيث يمكنك أن تكتب ما تشاء من تعليقات على أن تسبق كل سطر من ملاحظاتك بالفاصلة المفردة الواقعة جوار حرف الطاء لكن بدون استخدام Shift، حيث يظهر شكل الملاحظة باللون الأخضر.

اختبار :
مطلوب إنشاء برنامج يقوم لحساب المعاش التقاعدي لأي شخص بحيث لا يعمل إذا كانت الخدمة تقل عن 18سنة، إذا علمت أن القانون العام لحساب المعاش التقاعدي هو :
المعاش التقاعدي = (الراتب الأساسي * الخدمة الفعلية) ÷ 35

مثنى العيداني
04-06-2010, 12:44 AM
ثااااااااااااااااااانكس

Abu Ehab
04-06-2011, 03:50 PM
السلام عليكم ورحمة الله وبركاته
الله يعطــــــــيك ألـــف عافية يا أستاذنا الكريم وبارك الله فيـــك .

أليــــــــــك المثــــــــال بعـــــــد التعــديل .
تحيــــاتي لــــــك .

http://file7azm.info/do.php?img=807