البرمجة بلغة فيجوال بيسك الحلقـة (15)

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

تعرفنا في الدروس الفائتة على كيفية التعامل مع الرسائل والاستفادة منها في اتخاذ القرارات، وبعد أن أنهيناها ننتقل إلى مرحلة جديدة تعد استكمالاً للتفاعل بين المستخدم والبرنامج، لنتعرف على كيفية استخدام صناديق الحوار أو الإدخال، بحيث يظهر مربع حوار يطالب المستخدم بإدخال قيمة معينة يبني عليها البرنامج عملية معينة والدالة التي سنستخدمها لهذا الغرض هي دالة InputBox.
مثال: نفترض أنك ترغب في عمل برنامج يطلب من المستخدم إدخال اسمه، ومن ثم يظهر له رسالة ترحيبية تتضمن اسمه بحيث إذا أدخل اسم خالد مثلاً تظهر رسالة (مرحباً بك يا خالد) .. وهكذا.
التطبيق: نستدعي نافذة جديدة Form1 ونضع به زر أمر Command1 وسنتعرف في هذا الدرس أيضاً على طريقة ضبط إعداد مسمى الزر من خلال المنهج البرمجي، فنقوم بالنقر المزدوج على أي مكان فارغ في النافذة Form1 فيظهر لنا مساحة لكتابة الكود الخاص بـ Form1 الحدث Load أي هذا الكود سينفذ بمجرد تحميل النافذة Form1 فنكتب الكود كالظاهر بالصورة رقم (1).
ثم ننقر بالماوس نقراً مزدوجاً على زر Command1 لتفتح لنا نافذة البرمجة الخاصة بـ Command1 الحدث Click فنكتب الكود الموضح بالصورة رقم (2).











نلاحظ أننا في هذه الخطوة قمنا بالإعلان عن متغير اسمه khalid ثم وضحنا قيمة هذا المتغير حيث سيتكون دالة InputBox كخانة للإدخال ومعها دليل يعرف المستخدم بالقيمة المطلوبة فنقول له (أدخل اسمك من فضلك) ، وخانة العنوان الذي سيظهر في شريط عنوان النافذة العلوي، ثم نضع القيمة الافتراضية التي ستظهر لو لم يكتب المستخدم أي شيء.
التنفيذ : بمجرد النقر على زر (دخول) يظهر لنا مربع حوار وفيه مساحة كتب بها الجملة الافتراضية (زائرنا الكريم)، وبمجرد كتابة اسم أو الاكتفاء بالجملة الافتراضية سيقوم البرنامج بإضافة ذلك إلى جملة ثابتة كتبت سابقاً (مرحباً بك يا).
يمكن الحصول على الملفات المصدرية للبرنامج المشار إليه بالشرح من خلال الوصلة التالية :
www.ma3refah.org/km/15.zip



اختبار:
اكتب برنامجاً للزكاة بحيث يقوم بعرض مربع حوار (باستخدام الدالة InputBox) يطلب من المستخدم كتابة المبلغ المطلوب حساب الزكاة عنه فإذا كان المبلغ أقل من  56ريالاً يعرض رسالة يفيده فيها أن المبلغ لم يبلغ النصاب ثم يسأله
عما إذا كان يريد حساب مبلغاً آخراً . إذا علمت  أن قانون الزكاة = المبلغ * ربع العشر أو (0.025) خمس وعشرين من الألف.