تعلم معنا: البرمجة بلغة فيجوال بيسك الحلقة (14)

الرياض@نت  خالد بن محمد المسيهيج

في الدرس السابق تعرفنا على كيفية إنشاء الرسائل البسيطة والتي لا تعدو كونها رسائل إخبارية، بينما سنتعرف في هذا اللقاء على كيفية الاستفادة من الرسائل في اتخاذ القرارات. كيف؟. عندما تنشئ برنامجاً وتضع فيه زراً للخروج من البرنامج أو حذف ملف ويتطلب الأمر وضع رسالة تحذيرية تتضمن المواصلة أو التراجع، وفي هذه الرسالة زر (نعم)، وزر (لا) فعند ضغط نعم يقوم البرنامج بمواصلة الحدث (سواء أكان خروج أم حذف أو حفظ) بينما لا فيلغي الحدث ويعود للنافذة الرئيسية.
وقبل أن نأخذ مثالاً على ذلك يجب أن نتعرف على القيم المعادة وهي التي يشار إليها دائماً في كتابة الشروط . وهذه القيم مبينة بالجدول (1).
مثال
نفترض أن لديك برنامجاً ما.. أي برنامج.. وفيه العديد من الأزرار.. ومن ضمنها زر خروج بحيث تضع في اعتبارك أن مستخدم برنامجك قد يقوم بضغط زر خروج بطريق الخطأ وقد يفقده هذا الإجراء غير المقصود الكثير من المعلومات والجهد والوقت، فتجعل هناك رسالة يؤكد من خلالها سلامة هذا الإجراء.
التطبيق
لن نفرض عليك أي برنامج جديد، بل سنجري تعديلاً بسيطاً على برنامجنا في الحلقة  13بحيث أن المبلغ إذا لم يبلغ النصاب يكون لدى المستخدم خيار العودة لحساب زكاة مبلغ جديد، ففي البرنامج السابق الرسالة إخبارية ليس فيها سوى خيار واحد، أما في هذه الحلقة سيكون هناك رسالة إخبارية وتحتوي على خيارين في نفس الوقت Yes و No ومعهما رمز علامة الاستفهام، فنجمع  4(أزرار نعم ولا) +  32(علامة الاستفهام) =  36نبدأ الآن بتركيب الكود (كالظاهر في الشكل 2).
يلاحظ في الكود السابق أننا وضعنا شرط يحدد مسار البرنامج وهو أنه إذا كانت القيمة المعادة من الإجراء مساوية للعدد  6فهذا يعني أن المستخدم يرغب في إجراء حسابات جديدة للزكاة وبالتالي يتم العود بقيمة خالية لمربع النص Text1 حيث وضعنا علامتي تنصيص فارغة، وحتى نسهل على المستخدم وضعنا التركيز في مربع النص Text1.SetFocus، وإذا كانت القيمة المعادة لا تساوي   6يتم الخروج من البرنامج، وهنا تجدر الإشارة إلى أن القيمة الأخرى تهمل طالما أن هناك خيارين فقط.
وعند التطبيق ستظهر الرسالة كما في الشكل (2).
يمكن الحصول على الملفات المصدرية للبرنامج المشار إليه بالشرح من خلال الوصلة التالية:

www.ma3refah.org/km/14.zip