مهارات برمجة الفيجوال بيزك

مهارات برمجة الفيجوال بيزك

.

جملة الشرط If ... Then البسيطة

التفرع باستخدام جملة If ….. Then البسيطة


تستخدم فى حالة وجود شرط بإحتمال واحد فقط وهو الإحتمال الصحيح True .
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
الصيغة العامة لجملة الشرط If ….. Then هى:

Then  ( الشرط أو التعبير الشرطى )          If Conditional Expression

الأوامر التى يتم تنفيذها فى حالة تحقق الشرط Code                                  

نهاية جملة الشرط                                                                    End If

من الشكل السابق يتضح لنا :
       جملة If …..Then تتكون من If ثم يأتى بعدها (الشرط أو التعبير الشرطى) ثم كلمة Then وهذا كلة على سطر واحد فقط.
       يلى السطر الذى يحتوى على  If …..Then مجموعة الأوامر المطلوب تنفيذها .
       تنتهى جميع جمل If الشرطية بـ End If التى تخبرنا بنهاية جملة If الشرطية .
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
لاحظ ما يلى :
       إذا كانت قيمة الشرط أو التعبير الشرطى صحيحاً True يتم تنفيذ مجموعة الأوامر التى تلى كلمة Then حتى End If ثم تنفيذ الاوامر التى تلى End If .
       إذا كانت قيمة الشرط أو التعبير الشرطى خطأ False يتم تنفيذ مجموعة الأوامر التى تلى End If ( أى باقى أوامر البرنامج ) .
       فى حالة تحقق الشرط أو عدم تحققة يتم تنفيذ ما بعد End If والشكل التالى يوضح هذه الجملة .

تدريب :


المطلوب عمل برنامج لإدخال الدرجة وفى حالة إذا كانت الدرجة أكبر من أو تساوى يعطى صندوق رسالة Message Box به كلمة " ناجح " .
نقوم بأنشاء مشروع يحتوى على نموج Form كما هو موضح فى الشكل التالى
 

نقوم بكتابة كود البرمجة فى أجراء الحدث Button1_Click  كما بالشكل التالى .
  


من الملاحظ  :
1-   أنة فى الجدول السابق تم كتابة كود البرمجة أعتماداً على خريطة التدفق .
2-   كلمة Else تعنى تنفيذ ما بعدها إذا كان ناتج الشرط خطأ False .
3-   تم أستخدام جملة If والتى تعبر عن الشرط هل قيمة X أكبر من أو تساوى 50 .
4-   قم بالضغط على مفتاح F5 لتشغيل البرنامج Start Debugging .
5-   قم بأدخال قيمة مختلفة ثم قم بالضغط على زر النتيجة فنلاحظ التالى :
·       ظهور صندوق رسالة ( ناجح ) إذا كان ناتج الشرط صواب True يعنى أن الدرجة المدخلة أكبر من أو تساوى 50 .
·       عدم ظهور صندوق رسالة ( ناجح ) إذا كان ناتج الشرط خطأ False يعنى ان الدرجة المدخلة أصغر من 50 .

يمكن كتابة جملة الشرطIf …Then      على سطر واحد دون كتابة End If كالتالى :



شكرا لك ولمرورك