![]() |
ممكن مساعدة فى فهم هذه القاعدة
IF A > B Then C = 3 ElseIf A = B Then D = 5 Else E = 6 End If بعد تنفيذ التعليمات السابقة : 1- إذا كانت A = 10 و B = 8 سيتم تنفيذ الامر : ( C = 3 - D = 5 - E = 6 ) 2- إذا كانت A = 10 و B = 10 سيتم تنفيذ الامر : ( C = 3 - D = 5 - E = 6 ) 3- إذا كانت A = 5 و B = 20 سيتم تنفيذ الامر : ( C = 3 - D = 5 - E = 6 ) عايز أعرف هنفذ الشرط الاول A > B أم الشرط الثانى A = B ، وعايز أعرف إذا كانت قيمة الشرط True هنفذ الامر الذى يلى Then الاولى أم الامر الذى يلى Thenالثانية . وإذا كان الشرط False هاعمل إيه . ياريت اللى يساعدنى فى الحل يضح لى سبب الاختيار ان أمكن |
اقتباس:
الاجابات باللون الأحمر وتحتها خط الحالة الأولى ما دام جواب الشرط صحيحا سيتم تنفيذ الأمر الذي يلي then الأولى وهو C = 3 والحالة الثانية ما دام جواب الشرط خطأ فيتم تنفيذ الأوامر بعد Else وهو ElseIf A = B Then وهنا نجد الشرط صحيح فيتم تنفيذ الأمر الموجود بعد then وهو D = 5 الحالة الثالثة ما دام جواب الشرط خطأ فيتم تنفيذ الأوامر بعد Else وهو ElseIf A = B Then ونجد ان جواب الشرط هنا خطأ ايضا فيتم تنفيذ الأوامر بعد Else وهو E = 6 |
جزاك الله خيراً
|
اقتباس:
بارك الله فيك مستر احمد |
شكراً لحضرتك استاذ أبو بطة
|
اقتباس:
العفو .. وانا تحت امرك في اي استفسار |
استاذى واخى الأكبر والفاضل احمد 720 هناك حالتان لجمله If
الأولى البسيطة تختبر لشرط وتنفذ الجملة التى تلى Then فى حالة ما اذا كان الشرط صحيح او الحملة التى تلى Else فى حالى الشرط خطأ الثانية وهى If المركبة( الشروط المركبة ) وفيها يتم اختبار عدة شروط معاً كما فى المثال المعروض ويعنى الشرط الاول اذا كان صحيح بنفذ الجملة الأولى اما اذا كان غير صحيح لا يخرج انما بيختبر الشرط الثانى امام ElseIF فى حالة صحته بنفذ الجملة التالية له مباشرة وهكذا الحال الى ان يصل الى اخر كود امام Else يقوم بتنفيذ الجملة التالية له لان فى هذه الحالة لا يكون هناك شرط امام Else والمثال الواضح لذلك تقديرات الطالب فى المثال التالى Dim Degree as Decimal If Degree>= 85 Then MsgBox("ممتاز") ElseIf Degree>= 75 Then MsgBox("جيد جداً") ElseIf Degree>= 65 Then MsgBox("جيد") ElseIf Degree>= 50 Then MsgBox("مقبول") Else MsgBox("راسب") End If |
جميع الأوقات بتوقيت GMT +2. الساعة الآن 07:45 AM. |
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.