عند كتابه الكود داخل البرنامج يرجى مراعاة الاخطاء التي تنتج عند ادخال البيانات بشكل غير صحيح عن طريق المستخدم ويجب تفادي هذه الاخطاء بقدر الامكان
على سبيل المثال لا يمكن قسم اى رقم على رقم صفر 0 فإذا قمنا بتشغيل البرنامج بالضغط على مفتاح start من شريط الادوات ثم ادخلنا الرقم الذى نريد قمسته فى الخانة first number وفى الخانة المقسوم علية ادخلنا الرقم صفر 0 وعند الضغط على مفتاح calculate لحساب عملية القسمة نلاحظ ظهور الكلمة infinity فى المربع النصى result حيث انه لا يمكن اجراء عملية قسمة لاى رقم على الرقم صفر 0
ويمكننا التحقق من صحة البيانات التي يقوم المستخدم بادخالها عن طريق الكود نقوم بقفل النموذج ونضغط ضغط مزدوج على المفتاح calculate للأنتقال الى محرر الكود
وقبل كتابه الكود نحدد الخطوات الذى نريد انجازها من خلال الكود الذى سنقوم ادخاله حيث يمكننا تفادي فى الوقوع فى هذا الخطأ عن التحقق من القيمة التى يقوم المستخدم بإدخالها فى الخانة second number الخاص بالرقم المقسوم علية فاذا كان الرقم المقسوم عليه هو صفر 0 نقوم بأظهار رسالة للمستخدم تخبره بأنه يجب علية ادخال قيمة اخرى بخلاف الرقم صفر لأجراء عملية القسمة اما اذا كان الرقم اى رقم اخر يتم تنفيثذ عملية القسمة مباشرة مع اظهار النتيجة
وبمأن القيمة التي يتم ادخالها فى المربع النصى second number يتم تخزينها فى المتغير second فلا بد من اختبار قيمة هذا المتغير ويمكننا اختبار قيمة هذا المتغيير عن طريق استخدام الجملة الشرطية if
ويتكون الجملة الشرطية if من جزئين كما نرى الجزء الاول موجود اسفل الجملة if يتم تنفيذه فى حالها تحقق الشرط الذى نريد اختباره والجزء الثاني الذى يوجد اسفل الكلمة else يتم تنفيذه فى حاله عدم تحقق هذا الشرط
ويتم كتابه الكود بعد قراءه بعد قيمة المربع النصى Second number تماما فننتقل الى هذا الوضع وندخل الجملة الشرطية if ندخل الكلمة if وندخل الشرط الذى نريد اختباره وهو second=0 متبوع بالكلمة then ثم نضغط على مفتاح enter من لوحة المفاتيح
نلاحظ ان البرنامج يتم ادرج كلمة end if تلقائى اسفل هذا الجملة وذلك لأن الجملة if يجب ان تنتهى بالكلمات end if وفى حالة عدم وجود هذه الكلمات فى حاله كتابه الجملة فهذا يدل انه سوف ينتج اخطاء اثناء عملية الترجمة للبرنامج وهذه الجملة if تعنى انه فى حالى ان قيمة المتغير second هو صفر قم بتنفيذ الجملة او مجموعه الجمل التالية
وبمأن نريد اظهار رسالة لمستخدم فى حاله تحقق هذا الشرط نقوم باستخدام الدله message box التي تعمل على اظهار الرساله التي نقوم بتحديدها فندخل الداله msgbox ثم ندخل قوس الفتح الخاص بهذه الداله ونكتب الرسالة التي نريد كتابتها بين علامتين " " ثم ندخل قوس الاغلاق لهذا الداله ثم نضغط enter من لوحة المفاتيح
والان ندخل الكود الذى سيتم تنفيذه فى حاله عدم تحقق هذا الشرط وهو الكود الخاص بأجراء عملية القسمة وظهار الناتج فى المربع النصى result ولادخال الكود الذى سيتم تنفيذه فى حاله عدم تحقق الشرط ندخل الكلمة else ثم نضغط على المفتاح enter
وفى هذا الموضع نقوم بأدراج الكود الخاص باجراء عملية القسمة واظهار الناتج وكما نرى فأن الكود الخاص بهذه العمليات موجود بالجزء السفلى فنقوم بأختيار هذا الكود ثم نضغط على مفتاح cut من شريط الادوات لقص هذا الكود
وننتقل الى هذا الموضع ونضغط على مفتاح past لأعداه لصق هذا الكود
وبهذا نكون انتهينا من اضافة الكود ولتجربة صحة عمل الكود نضغط على المفتاح f5 من لوحة المفاتيح لتشغيل النموذج وندخل القيمة التي نريد قسمتها فى الخانة الاولى وندخل الرقم صفر فى الخانة الثانية ونضغط على المفتاح calculate فتظهر رساله تخبرنا بانه يجب ادخل قيمة اخرى بدلا من الصفر فى الخانة second number فنضغط اوك لغلق هذه الرسال ولأدخال اى قيمة اخرى بدلاً من الرقم صفر والضغط على مفتاح calculate تظهر ناتج عملية القسمة ولأدخال اى قيمة اخرى
رد مع اقتباس
