الفصل الأول
كتابة أول برنامج لك في فيجول بيسك

سنكتب في هذا الفصل، أول برنامج لك في فيجول بيسك. تمر مرحلة كتابة البرنامج في فيجول بيسك بخطوتين:
· خطوة التصميم المرئي للبرنامج.
سندعوها عبر الكتاب بالتمثيل المرئي Visual Implementation للنموذج.
· خطوة كتابة نص البرنامج.
يُصمِم المستخدم خلال الخطوة الأولى، البرنامج باستخدام الأدوات التي تأتي مع برمجية فيجول بيسك. تمكّنك هذه الأدوات من تصميم البرنامج باستخدام الفأرة ولوحة المفاتيح.
لا يلزمنا خلال مرحلة البرمجة المرئية (أي التصميم المرئي) كتابة أي نص برمجي!، وكل ما عليك معرفته هو كيف تشغّل وتستخدم الأدوات البرمجية التي تأتي مع فيجول بيسك. وسوف تلاحظ أن عملية التصميم المرئي فيها قدر كبير من المتعة وتعتمد بكثرة على النقر بالفأرة. يركز هذا الفصل على معرفة كيفية استخدام أدوات التصميم المرئي في فيجول بيسك.
أما في خطوة كتابة نص البرنامج، فيستخدم محرر نصوص لكتابة البرنامج. وتتألف البرامج من عبارات مكتوبة بلغة البرمجة فيجول بيسك. تتشابه عملية كتابة نصوص البرامج في فيجول بيسك مع كتابة البرامج في اللغات الأخرى. إلا أن كتابة البرامج في فيجول بيسك أسهل بكثير من كتابتها باللغات الأخرى.
حول هذا الفصل
ستلاحظ إذا استعرضت باقي فصول الكتاب، أن هذا الفصل ليس نموذجياً، فهو يركز على ناحية البرمجة المرئية Visual Programmingللغة فيجول بيسك، ولهذا فهو يدقق على كيفية استخدام الأدوات البرمجية للغة (عناصر التحكم). بينما تتولى فصول الكتاب المتبقية تعليمك، كيفية كتابة نص البرامج في فيجول بيسك.
إنشاء دليل حفظ الملفات
قبل البدء بعملية كتابة أول برنامج لك في لغة فيجول بيسك، سننشئ دليلاً يحوي على ملفات العمل المنجز. وسنفترض عبر هذا الفصل، أن الدليل موجود لديك على القرص الصلب، وسنطلب منك فقط حفظ الملفات فيه، لهذا أنشئ الدليل التالي C:\VB5Prg\Ch01.
برنامج الترحيب
سنكتب برنامجاً يدعى برنامج الترحيب. وقبل كتابة برنامج الترحيب بنفسك دعنا ندرس أولاً مواصفاته، وبهذه الطريقة سنتمكن من فهم ما يفترض أن ينجزه هذا البرنامج بشكل أفضل.
يظهر الإطار المبين في الشكل 1-1، عند بدء تشغيل برنامج الترحيب وكما تلاحظ يحوي إطار البرنامج على ثلاثة أزرار أوامر (الزر إظهار الترحيب والزر مسح والزر خروج) ومربع نص فارغ.
الشكل 1-1 برنامج الترحيب.
تظهر الرسالة مرحباً بكم ضمن مربع النص، عند النقر على الزر إظهار الترحيب.
الشكل 1-2 إظهار مرحباً بكم في مربع النص.
يمحو برنامج الترحيب محتوى مربع النص، عند النقر بالفأرة على الزر مسح.
ينتهي تنفيذ برنامج الترحيب عند النقر على الزر خروج.
إنشاء مشروع جديد
الآن وقد علمت ما ينجزه برنامج الترحيب، نستطيع الشروع بكتابته.
ملاحظة
برنامج الترحيب عبارة عن برنامج بالغ البساطة، لكن مع ذلك يتوجب عليك كتابته بنفسك، لأنه يمثل برنامجاً نموذجياً في فيجول بيسك. وفي الواقع، حال تعلمك كيفية كتابة برنامج الترحيب بنفسك، تستطيع فهم ما هي لغة فيجول بيسك! طبعاً هنالك كمّ هائل من المعلومات الأخرى في فيجول بيسك لا بد لك من معرفتها، إلا أن كتابة هذا البرنامج بنفسك يعني أنك تعرفت على أساسيات فيجول بيسك.
أُولى الأوليات التي يجب عليك إنجازها، هي إنشاء مشروع جديد New Project لبرنامج الترحيب باتباع الخطوات التالية:
· شغّل فيجول بيسك. إذا رأيت مربع الحوار المبين في الشكل 1-3، فأغلق هذا المربع بنقر الزر إلغاء الأمر.
· اختر البند New Project من القائمة File لفيجول بيسك.
يستجيب فيجول بيسك بإظهار مربع الحوار New Project المبين في الشكل 1-4.
الشكل 1-3 مربع الحوار New Project الذي قد يظهر عند تشغيل فيجول بيسك.
كما يبدو من الشكل 1-4. يمكّنك مربع الحوار New Project من إنشاء أنواع مختلفة من المشاريع (Project). لكننا في الوقت الراهن، نرغب بإنشاء تطبيق تنفيذي قياسي
(Standard EXE).
الشكل 1-4 مربع الحوار New Project الذي يُظهره فيجول بيسك بعد اختيار New Project من القائمة File.
لهذا أَخبر فيجول بيسك بذلك باتباع الخطوة التالية:
· انقر الرمز Standard EXE الذي يظهر ضمن مربع الحوار New Project ثم انقر الزر OK لمربع الحوار New Project.
يظهر عند ذلك إطار خال يدعى النموذج Form1 (انظر الشكل 1-5). سنستخدم أدوات لغة فيجول بيسك المتنوعة حتى يصبح النموذج الخالي، كالمبين
في الشكل 1-1.
الشكل 1-5 النموذج Form1 الفارغ.
حفظ المشروع الجديد
رغم أننا لم نجر أي تعديلات بعد على النموذج الفارغ، لكن يتوجب عليك حفظ المشروع في هذه المرحلة المبكرة من التصميم. يؤدي حفظ المشروع إلى تخزين ملفين:
· ملف المشروع Project File، ويمتلك الامتداد vbp. يحتوي هذا الملف على المعلومات التي يستخدمها فيجول بيسك لبناء المشروع.
· ملف النموذج Form File، ويمتلك الامتداد frm. ويحتوي على معلومات تتعلق بالنموذج نفسه.
استخدم الآن الخطوات التالية لحفظ الملفين: Hello.vbp (ملف المشروع)، و Hello.frm (ملف النموذج).
· تحقق من تمركز الإضاءة عند عنوان الإطار Form1، ثم اختر Save Form1 As من القائمة File لفيجول بيسك. (يعني تمركز الإضاءة عند نموذج ما، أنه تم اختياره).
يستجيب فيجول بيسك بإظهار مربع الحوار Save File As.
· استخدم مربع الحوار Save File As لاختيار الدليل C:\VB5Prg\Ch01 من أجل حفظ الملف فيه. بدّل الاسم الافتراضي للنموذج من Form1.frm إلى Hello.frm
· (انظر الشكل 1-6).
· انقر الزر حفظ في مربع الحوار Save File As.
يستجيب فيجول بيسك بحفظ النموذج باسم Hello.frm في الدليل C:\VB5Prg\Ch01.
ملاحظة
لا تستخدم الاسم الافتراضي الذي يقدمه فيجول بيسك عند حفظ نموذج ما. بل احفظ النموذج باسم مناسب للتطبيق الذي تصممه. لاحظ مثلاً، أننا استخدمنا الاسم Hello.frm كاسم لنموذج برنامج الترحيب.
الشكل 1-6 حفظ النموذج بالاسم Hello.frm.
والآن، احفظ ملف المشروع:
· اختر Save Project As من القائمة File لفيجول بيسك.
يستجيب فيجول بيسك بإظهار مربع الحوار Save Project As.
· الاسم الافتراضي الذي يقدمه فيجول بيسك للمشروع هو Project1.vbp.
لكن لا بد من تغيير الاسم الافتراضي إلى اسم يتناسب مع التطبيق الذي تعمل على تطويره.
· استخدم مربع الحوار Save Project As لحفظ المشروع بالاسم Hello.vbp في الدليل C:\VB5Prg\Ch01.
ملاحظة
لا تستخدم الاسم الافتراضي الذي يعطيه فيجول بيسك للمشروع عند حفظ ملف المشروع. ولكن بدلاً من ذلك أطلق على المشروع اسماً يتناسب مع التطبيق الذي تصممه. لاحظ مثلاً أننا أطلقنا على مشروع برنامج الترحيب تسمية Hello.vbp. نكون حتى هذه اللحظة قد أنهينا حفظ الملفين Hello.vbp (ملف المشروع) وHello.frm (ملف النموذج).
فحص إطار المشروع Project Window
حتى هذه النقطة، يدعى المشروع بالاسم Hello.vbp ويتألف من ملف نموذج واحد هو الملف Hello.frm. سنمر عبر الفصول القادمة على مشاريع تحوي أكثر من ملف نموذج.
يعتبر إطار المشروع Project Window من الأدوات الهامة التي يقدمها فيجول بيسك، ويمكّنك من رؤية الملفات المختلفة الموجودة في المشروع. (ستشعر بقيمة هذه الميزة بشكل أفضل كلما زاد تعقيد المشروع).
اتبع الخطوات التالية لفهم محتويات إطار المشروع Project Explorer:
· اختر Project Explorer من القائمة View لفيجول بيسك.
يظهر إطار المشروع حسب ما هو مبين في الشكل 1-7.
الشكل 1-7 إطار نافذة المشروع Project Window.
ملف المشروع، حسب ما يظهر من إطار المشروع هو Hello.vbp. وهو يحتوي على نموذج وحيد باسم Hello.frm. يعتبر المشروع الحالي بسيط جداً، بحيث لا تغدو أهمية إطار المشروع واضحة للعيان. لكن مع تزايد تعقيد المشاريع التي ستكتبها مستقبلاً، سوف تلاحظ مدى أهمية هذا الإطار.
تغيير الخاصية Caption للنموذج (تغيير عنوان النموذج)
اتفقنا أن النموذج الفارغ الذي أنشأه فيجول بيسك يحمل العنوان Form1 (انظر الشكل 1-5). هذا العنوان يمثل العنوان الافتراضي الذي يعطيه فيجول بيسك للنموذج الفارغ عند إنشائه. تستطيع ترك هذا العنوان على حاله، ولكننا نفضل أن نطلق عنواناً على النموذج يكون مناسباً لموضوعه. فمثلاً حسب الشكل 1-1، يحمل النموذج عنوان برنامج الترحيب، وفي هذا دلالة على أن البرنامج هو برنامج ترحيب.
ملاحظة
النموذج هو إطار (Window) بنفس الوقت. فمثلاً، النموذج Form1 المبين في
الشكل 1-5 يدعى نموذج ويدعى إطار (Window) بذات الوقت. يطلق مصطلح النموذج، على النافذة التي أنشأتها في مرحلة التصميم، ويستخدم مصطلح الإطار (أو نافذة)، عند تنفيذ البرنامج. بكلام آخر، عند ذكر مصطلح النموذج، يكون المقصود مرحلة التصميم، وعند ذكر مصطلح الإطار أو النافذة، يكون المقصود مرحلة التنفيذ.
نبين لك الآن طريقة تغيير عنوان النموذج الفارغ لبرنامج الترحيب:
· تحقق من اختيار النموذج الفارغ. تستطيع التأكد بسهولة من اختيار نموذج، بتفحص شريط عنوانه. فإذا كان شريط العنوان (Caption) مضاءً، فهذا يعني أن النموذج تم اختياره. أما إذا لم يكن قد تم اختيار النموذج، فيكفي النقر النموذج في أي مكان على سطحه لاختياره.
أو تستطيع بدلاً من ذلك اللجوء إلى إطار المشروع Project Window (اختر Project Explorer من القائمة View لفيجول بيسك)، ثم اختيار العنصر Hello.frm بنقر الفأرة عليه، ثم نقر الرمز View Object الذي يظهر أعلى إطار المشروع. (انظر الشكل 1-7. يظهر الرمز View Object أعلى نافذة المشروع وثاني رمز من جهة اليمين).
بعد اختيار النموذج، اختر إطار الخصائص Properties Window من القائمة View لفيجول بيسك.
يستجيب فيجول بيسك بإظهار إطار الخصائص (Properties Window)، الشكل 1-8.
الشكل 1-8 إطار الخصائص Properties Window.
ملاحظة
يمكنك في فيجول بيسك نقل شتى الإطارات إلى أي موقع ضمن سطح مكتب فيجول بيسك وذلك بسحب عناوين هذه الإطارات بواسطة الفأرة.
قد يتغير شكل الإطارات قليلاً تبعاً للموقع الذي تأخذه على سطح المكتب. فمثلاً قد يتغير شكل إطار الخصائص Properties Window إلى حد ما، عما هو مبين في الشكل 1-8، بحسب الموقع الذي يحتله على سطح المكتب، لكن مهما كان موقعه، تستطيع التعرف عليه، بسبب احتوائه على كلمة الخصائص Properties في عنوانه.
· انقر على الخلية التي تظهر يمين اسم الخاصية Caption (خلية العنوان) في إطار الخصائص (Properties Window).
الآن ستجد، أن الخلية الواقعة يمين الخلية Caption تملك النص Form1.
· استخدم المفتاح Delete ومفاتيح الأسهم على لوحة المفاتيح، لحذف النص Form1، واستبدله بكتابة النص برنامج الترحيب.
يفترض أن يبدو إطار الخصائص كما في الشكل 1-9.
تهانينا! لقد أنهيت للتو عملية تبديل الخاصية Caption (العنوان) للنموذج.
ألق نظرة على النموذج الفارغ (انظر الشكل 1-10). يحمل هذا النموذج الآن العنوان برنامج الترحيب.
الشكل 1-9 تبديل الخاصية Caption للنموذج.
الشكل 1-10 النموذج frmHello وهو يحمل الآن عنواناً جديداً.
ما هي الخاصية ؟!
الخاصية Caption ما هي إلا إحدى خصائص النموذج، فكما تشاهد من إطار الخصائص Properties Window، فإن النموذج يمتلك الكثير من الخصائص الأخرى. ولفهم معنى الخاصية لا بد لك من فهم كيفية تعامل فيجول بيسك مع الكائنات Objects مثل النماذج Forms وأزرار الأوامر Command Buttons وأشرطة التمرير Scroll bars ومربعات الاختيار Check Boxes . . . الخ.
تُعرّف خصائص الكائن (Object) كيف يبدو هذا الكائن وكيف يتصرف. فمثلاً النموذج عبارة عن كائن. تحدد الخاصية Caption للنموذج، النص الذي يظهر في شريط عنوانه.
خذ مثلاً الخاصية BackColor للنموذج، تحدد هذه الخاصية لون خلفية النموذج. اتبع الخطوات التالية لتغيير الخاصية BackColor للنموذج:
· تحقق من اختيار النموذج. (انقر أي مكان من النموذج لاختياره).
· اختر Properties Window من القائمة View لإظهار إطار الخصائص.
· انقر على الخلية الواقعة يمين الخلية BackColor في إطار الخصائص.
يضع فيجول بيسك عند نقر هذه الخلية، رمز سهم نازل فيها، (انظر الشكل 1-11).
الشكل 1-11 الخاصية BackColor.
· انقر رمز السهم النازل الذي يظهر في الخلية.
يستجيب فيجول بيسك بإظهار مربع الحوار المبين في الشكل 1-12.
الشكل 1-12 مربع الحوار الذي يظهر عند نقر رمز السهم النازل الموجود جانب الخاصية BackColor.
لاحظ أن مربع الحوار المبين في الشكل 1-12 يمتلك صفحتين:
الصفحة Palette، والصفحة System. الصفحة التي تظهر وفق الشكل 1-12 هى الصفحة System.
· انقر على الصفحة Palette في مربع الحوار المبين في الشكل 1-12.
يستجيب فيجول بيسك بإظهار صفحة الألوان Palette (انظر الشكل 1-13).
الشكل 1-13 الصفحة Palette صفحة الألوان.
· اختر اللون الذي تحبذه بنقره في الصفحة Palette. لنفترض الآن أن اللون الذي اخترته هو اللون الذي يظهر في المربع الواقع عند العمود الثالث والسطر الثالث من جهة الأعلى. (أو اختر أي لون تفضل).
ملاحظة
تفحص الخلية التي تقع يمين اسم الخاصية في نافذة الخصائص والتي ترغب بتعيينها. فإذا كانت تلك الخلية تحمل رمز سهم نازل داخلها، أو زر يحوي ثلاث نقاط متجاورة. انقر على السهم أو الزر، فيظهر إطار آخر أو لائحة، تمكنك من اختيار قيمة ما بواسطة الفأرة للخاصية المحددة.
جرب عدة ألوان بتكرار العملية، إلى أن تشعر بالرضا عن اللون الذي تختاره.
تبديل الخاصية Name للنموذج (اسم النموذج البرمجي)
يجب أن يمتلك كل كائن (Object) في فيجول بيسك اسماً، يتحدد ذلك الاسم بواسطة الخاصية Name لذلك الكائن.
فمثلاً، عندما أنشأنا النموذج الجديد لبرنامج الترحيب، أطلق فيجول بيسك من تلقاء نفسه الاسم Form1 على النموذج (أي أسند الاسم Form1 إلى الخاصية Name لنموذج برنامج الترحيب).
ملاحظة
لا تخلط بين الخاصية Caption، والخاصية Name للنموذج. تستخدم الخاصية Caption لإظهار عنوان ما، في شريط عنوان النموذج. أما الخاصية Name فتستخدم لإسناد اسم برمجي خاص بالنموذج نفسه. مع أن فيجول بيسك يفترض القيمة Form1 لكلتا الخاصيتين عند إنشاء نموذج جديد فارغ.
غيّر الآن الخاصية Name للنموذج:
· انقر على النموذج في أي مكان منه لاختياره.
· اختر Properties Window من القائمة View.
يستجيب فيجول بيسك بإظهار إطار خصائص النموذج Form1.
يملك إطار الخصائص Properties صفحتين هما: الصفحة Alphabetic والصفحة Categorized (انظر الشكل 1-. عند اختيار الصفحة Alphabetic، تُرتب الخصائص أبجدياً (باستثناء أهم خاصية وهي Name التي تظهر أولاً). بينما تظهر الخصائص مصنفة حسب مواضيعها، عند اختيار الصفحة Categorized.
· اختر الصفحة Alphabetic لإطار الخصائص.
تظهر الخاصية Name في مقدمة لائحة الخصائص.
· انقر الخلية التي تظهر يمين الخاصية Name، يمكّنك فيجول بيسك من تعديل الخاصية Name.
· استبدل الاسم الافتراضي Form1 بالاسم frmHello.
غيّرنا في الخطوة السابقة الخاصية Name للنموذج من Form1 إلى frmHello. تشير الأحرف الثلاث الأولى من قيمة الخاصية Name للكائنات Objects إلى نوع الكائن.
وهكذا فالأحرف الثلاث الأولى من الخاصية Name لنموذج ما، هي frm، كما في مثالنا الحالي frmHello.
ملاحظة
غيّر الأسماء الافتراضية للكائنات بحيث تعكس أسماؤها ووظائفها في البرنامج. فمثلاً frmHello عبارة عن اسم النموذج الذي يستخدم من قبل برنامج الترحيب. يؤدي بدء اسم النموذج بالأحرف الثلاث frm إلى تسهيل فهم البرنامج وتصحيحه.
ألق نظرة على الاسم frmHello، بما أنه يبدأ بالأحرف frm. تستطيع بسهولة
(أنت أو من يقرأ الاسم) أن تعلم مباشرة أن نوع الكائن frmHello عبارة عن نموذج. لا يعتبر هذا الأمر من متطلبات البرمجة في لغة فيجول بيسك، لكنه كما قلنا يسهل قراءة وفهم البرنامج.
تبديل الخاصية RightToLeft للنموذج (تعريب النموذج)
يمكّنك فيجول بيسك، من إنشاء برامج عربية المظهر والمضمون، بشرط تطوير برنامجك في نظام تشغيل يدعم اللغة العربية، مثل Windows95 العربي أو WinNT الداعم للغة العربية.
وما عليك سوى تغيير قيمة الخاصية RightToLeft من القيمة False إلى القيمة True، لأي كائن من كائنات فيجول بيسك، حتى يظهر الكائن بشكل مقبول للمستخدم العربي.
ملاحظة
للحصول على معلومات كاملة، عن موضوع إنشاء التطبيقات العربية في فيجول بيسك، اقرأ الفصل الثاني والعشرين (إنشاء تطبيقات عربية السمة مع فيجول بيسك 5). وكل ما يهمنا معرفته الآن، أن الخاصية RightToLeft = True تعني تعريب الكائن.
غيّر الآن الخاصية RightToLeft للنموذج:
· انقر على النموذج في أي مكان منه لاختياره.
· اختر Properties Window من القائمة View.
يستجيب فيجول بيسك بإظهار إطار خصائص النموذج Form1.
· انقر خلية الخاصية RightToLeft نقراً مزدوجاً، لتغيير قيمتها من القيمة False إلى القيمة True.
يستجيب فيجول بيسك، بتعريب النموذج بأن يظهر عنوانه على يمين المستخدم، بدلاً من يساره.
أصبح النموذج الآن، نموذجاً عربياً. وعند إضافة أي عنصر تحكم (أداة من أدوات فيجول بيسك)، سيقوم فيجول بيسك بإسناد القيمة True للخاصية RightToLeft للعنصر الجديد آلياً.
حفظ العمل المنجز
لم ننته بعد من النموذج (تذكر أن النموذج سيبدو عند انتهائه كما في الشكل 1-1)، لكن رغم ذلك يفضل حفظ العمل الذي أنجزته حتى هذه اللحظة، حتى لا تضطر إلى إعادة العمل مرة ثانية، إذا انهار الحاسب لديك لسبب ما. لهذا اتبع الخطوات التالية لحفظ العمل:
· اختر Save Project من القائمة File.
يستجيب فيجول بيسك بحفظ كل التغيرات المنجزة على ملف المشروع أو أي من الملفات التابعة للمشروع (مثال ذلك، الملف Hello.frm).
إضافة الزر خروج إلى النموذج frmHello
حسب ما يظهر من الشكل 1-1، فالنموذج المكتمل سيحوي ثلاثة أزرار أوامر داخله، وهي: إظهار الترحيب و مسح و خروج.
لوضع زر أمر ما ضمن النموذج، لا بد لك من تحديده أولاً من مربع الأدوات.
إطار مربع الأدوات Toolbox Window
يحوي إطار مربع الأدوات، رموز جميع الكائنات المتاحة لمشروعك الحالي. ومهمتك هي التقاط الكائن من مربع الأدوات، ووضعه على النموذج.
· أظهر إطار مربع الأدوات، باختيارToolbox من القائمة View لفيجول بيسك.
يستجيب فيجول بيسك بإظهار مربع الأدوات (الشكل 1-14).
الشكل 1-14 إطار مربع الأدوات Toolbox.
ملاحظة
قد يختلف شكل إطار مربع الأدوات قليلاً عما هو عليه في الشكل 1-14، وذلك تبعاً للموقع الذي يأخذه على سطح مكتب فيجول بيسك (أي حسب المكان الذي تضعه فيه).
كما أن إطار مربع الأدوات، قد يحوي رموزاً أكثر أو أقل، تبعاً لنوع نسخة فيجول بيسك 5 التي تملكها، وتبعاً لإعدادات فيجول بيسك 5.
يبين الشكل 1-15 رمز زر الأمر مكبراً، وهو طبعاً أحد الرموز التي تظهر في مربع الأدوات. تستطيع التعرف بسهولة على مختلف الرموز في مربع الأدوات بوضع مؤشر الفأرة فوق أي رمز بدون النقر عليه، ليظهر مستطيل أصفر يحمل بداخله اسم الكائن الذي يمثله هذا الرمز.
فمثلاً. عند وضع مؤشر الفأرة فوق رمز زر الأمر دون النقر عليه، يظهر مستطيل أصفر يحمل الرسالة CommandButton داخله.
الشكل 1-15 رمز زر الأمر CommandButton في إطار مربع الأدوات.
وضع الزر خروج على النموذج
اتبع الخطوات التالية لوضع زر أمر على النموذج:
· انقر نقراً مزدوجاً على رمز زر الأمر في مربع الأدوات. (انظر الشكل 1-15 للتعرف على شكل زر الرمز).
يستجيب فيجول بيسك بوضع زر أمر في مركز النموذج (انظر الشكل 1-16).
الشكل 1-16 النموذج مع زر الأمر بداخله.
يتولى فيجول بيسك تعيين مختلف القيم الافتراضية لخصائص زر الأمر CommandButton الذي وضعته على النموذج. فمثلاً العنوان الافتراضي (Caption) لذلك الزر هو Command1.
تغيير الخاصية Name للزر خروج (تغيير الاسم البرمجي)
ستغير اسم زر الأمر من Command1 إلى cmdExit باعتبار أن هذا الزر سيعمل عمل زر الإنهاء خروج:
· اختر Properties Window من القائمة View لفيجول بيسك.
يستجيب فيجول بيسك بإظهار إطار الخصائص.
· تحقق أن مربع السرد عند قمة إطار الخصائص يظهر البند التالي:
Command1 CommandButton. (انظر الشكل 1-17 لتحديد موقع مربع السرد).
الشكل 1-17 مربع السرد عند قمة إطار الخصائص ويظهر البند التالي: Command1 CommandButton.
ملاحظة
يمتلك النموذج الآن كائنين: النموذج frmHello وزر الأمر Command1. يُظهر إطار الخصائص، خصائص الكائن الذي يظهر اسمه حالياً في مربع السرد الواقع عند قمة إطار الخصائص.
للانتقال بين الكائنات، انقر رمز السهم النازل، الموجود يمين مربع السرد واختر الكائن المطلوب من اللائحة المنسدلة للأسفل.
· غير الخاصية Name للزر Command1 إلى cmdExit.
لاحظ كيف وضعنا الحروف الثلاثة cmd قبل كلمة Exit، وذلك كما اتفقنا سابقاً، للدلالة على نوع الكائن ووظيفته في آن واحد (تعتبر وظيفة زر الأمر في مثالنا هذا، تنفيذ أمر الخروج من البرنامج)، هذا العمل ليس من متطلبات لغة فيجول بيسك، ولكن لتسهيل قراءة وفهم البرنامج، فعندما نشاهد الاسم cmdExit، نستطيع القول مباشرة، أن هذا الاسم يخص زر أمر وأن وظيفته هي إنهاء البرنامج.
تغيير الخاصية Caption للزر خروج (تغيير العنوان)
العنوان الافتراضي الذي يعطيه فيجول بيسك لزر الأمر هو Command1. وبما أن وظيفة زر الأمر هذا الخروج من البرنامج، فأنسب عنوان له هو خروج:
· غير الخاصية Caption لزر الأمر cmdExit من Command1 إلى &خروج.
للحصول على الرمز (&)، اضغط المفتاحين Shift+7 على لوحة المفاتيح. عند استخدام الرمز & (مثل استخدامه قبل الحرف خ في الخطوة السابقة)، يتسبب بقيام فيجول بيسك بوضع خط تحت الحرف الذي يليه (الحرف الذي يأتي بعد الرمز &)، ولاحظ وجود خط تحت الحرف خ في عنوان الزر خروج. انظر الشكل 1-1.
والآن، عند تنفيذ البرنامج، يؤدي الضغط على المفتاحين (خAlt+) من لوحة المفاتيح إلى نفس تأثير النقر على الزر خروج.
ملاحظة
يُنصح دائماً باستخدام الرمز & قبل أحد حروف عنوان زر ما. يتسبب هذا الرمز & بظهور خط تحت الحرف الذي يليه مباشرة، وأثناء التنفيذ يصبح المستخدم قادراً، إما على نقر الزر بالفأرة أو ضغط المفتاح Alt إضافة لضغط الحرف المحدد (ضغط المفتاح Alt والمفتاح الذي تحته خط). والذي يمثل حرف وصول سريع.
تبديل موقع الزر خروج
كما ترى من الشكل 1-1، يجب أن يقع الزر خروج بقرب الحافة السفلى من النموذج.
اسحب الزر خروج إلى الموقع المطلوب بضغط زر الفأرة الأيسر على أي مكان من الزر، ثم سحب وتحريك مؤشر الفأرة دون تحرير الزر الأيسر للفأرة، ثم تحرير زر الفأرة عند الوصول للموقع المناسب.
تبديل خصائص الخط (Font) للزر خروج
كما تلاحظ من الشكل 1-1، يختلف نوع الخط المستخدم في الزر خروج عن الخط الافتراضي الذي استخدمه فيجول بيسك لعنوان الزر، الذي وضعته على النموذج.
اتبع الخطوات التالية لتبديل نوع الخط للزر خروج:
· انقر على الخلية الواقعة يمين الخاصية Font التابعة للزر cmdExit. كما تلاحظ تحوي الخلية على مربع داخله ثلاث نقاط، يؤدي نقره إلى فتح مربع حوار تحديد الخطوط، يمكّنك من اختيار قيم معينة بواستطه.
· انقر على الزر ذى الثلاث نقط الموجود جانب الخاصية Font للزر cmdExit.
يستجيب فيجول بيسك بإظهار مربع الحوار Font.
· غير نوع الخط إلى System.
· غير حجم الخط إلى 10.
· انقر على الزر Ok في مربع الحوار Font.
· ألقِ نظرة على الزر خروج الآن، ولاحظ أن العنوان مكتوب بالخط الذي حددته مسبقاً بواسطة مربع الحوار Font.
يشبه النموذج الذي نبينه حتى الآن، ذاك المبين في الشكل 1-18.
الشكل 1-18 النموذج يحتوي الزر خروج على سطحه.
ملاحظة
لعل إحدى المزايا الرئيسية لفيجول بيسك، أنه يمكّنك من رؤية نتائج البرمجة المرئية لحظياً. تمرّن دوماً وجرّب خيارات مختلفة (كأن تجرب أنواع خطوط مختلفة، وأحجام وألوان مختلفة) حتى تقنع بالنتائج.
احفظ العمل الذي أنجزته:
· اختر Save Project من القائمة File لفيجول بيسك.
إضافة أزرار أخرى إلى النموذج frmHello
لعل الوقت قد حان، لإضافة زرين جديدين إلى النموذج؛ الزر إظهار الترحيب والزر مسح.
وضع الزرين على النموذج
يحوي النموذج حسب ما يفترضه الشكل 1-1، زري أمر آخرين:
الزر إظهار الترحيب والزر مسح، سنضع هذين الزرين على النموذج:
· أضف الزر إظهار الترحيب إلى النموذج بالنقر المزدوج على رمز زر الأمر
· Command Button ضمن مربع الأدوات. اسحب زر الأمر الجديد إلى اليمين (سيأخذ هذا الزر دور الزر إظهار الترحيب).
· انقر نقراً مزدوجاً رمز زر الأمر في مربع الأدوات مجدداً، ثم اسحب زر الأمر الجديد إلى اليسار. (يأخذ هذا الزر دور الزر مسح). تغيير حجم الأزرار
الأحجام الافتراضية للزرين إظهار الترحيب و مسح أصغر مما هي عليه في الشكل 1-1.
· كبّر الزرين الجديدين اللذين وضعتهما للتو في النموذج، يتم تكبير أو تصغير كائن باختياره أولاً. يحيط فيجول بيسك الكائن حال اختياره بمستطيل يتألف من ثماني مربعات سوداء، تدعى بالمقابض. اسحب أحد المقابض حتى يصل الكائن إلى الحجم المطلوب، فمثلاً لتغيير حجم الكائن أفقياً اسحب أحد المقابض أفقياً، أما لتغيير حجم الكائن عمودياً فاسحب أحد مقابضه عمودياً (انظر الشكل 1-19).
الشكل 1-19 تغيير حجم كائن بسحب مقابضه.
تبديل خاصية الاسم Name للزرين السابقين
الاسمان الافتراضيان الذين يطلقهما فيجول بيسك على الزرين الذين وضعتهما للتو في النموذج هي Command1 و Command2، ولكننا سنستبدلهما باسمين يناسبان عملهما أكثر:
· بدّل الخاصية Name لزر الأمر اليميني إلى cmdHello.
· بدّل الخاصية Name لزر الأمر اليساري إلى cmdClear.
تبديل عنواني الزرين السابقين
حسب ما يوضحه الشكل 1-1، يجب أن يكون عنوان الزر الأيمن هو إظهار الترحيب، وأن يكون عنوان الزر الأيسر هو مسح.
· بدّل الخاصية Caption للزر الأيمن إلى إ&ظهار الترحيب.
· بدّل الخاصية Caption للزر الأيسر إلى م&سح.
تبديل نوع الخط المستخدم في الزرين
· بدّل الخاصية Font للزر cmdHello إلى System واجعل حجم الخط مساوياً إلى 10.
· بدّل الخاصية Font للزر cmdClear إلى System واجعل حجم الخط مساوياً إلى 10.
ستكتشف بعد هاتين الخطوتين أن مساحة الزر صغيرة جداً، لهذا كّبر مساحة الزر، بسحب مقابضه.
يفترض أن يبدو النموذج لدى اكتماله كما في الشكل 1-20.
الشكل 1-20 النموذج بعد انتهاء تصميمه مع ثلاثة أزرار داخله.
احفظ العمل المنجز حتى الآن:
· اختر Save Project من القائمة File لفيجول بيسك.
إضافة كائن مربع نص (Text Box) إلى النموذج frmHello
هناك كائن آخر يجب إضافته إلى النموذج، وهو كائن مربع النص.
مربع النص عبارة عن مساحة مستطيلة، يتم إظهار نصوص أو كتابة نصوص فيها. يسمى مربع النص أحياناً بمربع تحرير.
وضع مربع النص في النموذج
يبين الشكل 1-21 موقع رمز مربع النص Text Box في مربع الأدوات، وطبعاً قد تختلف مواقع الرموز في إطار مربع الأدوات عما هي عليه في الشكل 1-21 تبعاً للإصدار المستخدم للغة ولإعداداتها.
ملاحظة
يظهر مستطيل أصفر يحوي النص TextBox بداخله، عند وضع مؤشر الفأرة فوق رمز مربع النص (دون ضغط أزرار الفأرة).
اتبع الخطوتين التاليتين لوضع مربع نص Text Box على النموذج:
· انقر نقراً مزدوجاً على رمز مربع النص Text Box ضمن إطار مربع الأدوات.
· انقل وغير حجم مربع النص حتى يظهر كما في الشكل 1-22.
الشكل 1-21 رمز أداة مربع النص Text Box في إطار مربع الأدوات.
الشكل 1-22 النموذج بعد وضع مربع نص بداخله.
تبديل خصائص مربع النص
اتبع الخطوات التالية لتعديل بعض خصائص مربع النص:
· غيّر الخاصية Name لمربع النص من الاسم الافتراضي Text1 إلى txtDisplay.
خاصية Text الافتراضية لمربع النص هي Text1، وبالتالي فعند تنفيذ برنامج الترحيب يظهر النص Text1 ضمن مربع النص. نرغب أن يكون هذا المربع خالياً عند بدء تشغيل البرنامج، لهذا، احذف النص الذي يظهر في الخلية الواقعة يمين الخاصية Text للكائن txtDisplay.
· غيّر الخاصية Font لمربع النص txtDisplay إلى System واجعل حجم الخط مساوياً إلى 10.
تساوي القيمة الافتراضية للخاصية Alignment لمربع النص إلى 0-LeftJustify مما يعني أن النص في مربع النص يبدأ من اليسار. غيّر هذه الخاصية إلى 2-Center لأننا نريد للنص الظهور في وسط مربع النص.
يرفض فيجول بيسك وضع النص في مركز مربع النص Text Box، ما لم يتم إسناد القيمة True إلى الخاصية MultiLine لمربع النص. لهذا يجب تغيير الخاصية MultiLine إلى True إلى جانب تغيير الخاصية Alignment إلى 2-Center. (يؤدي إسناد القيمة True إلى الخاصية MultiLine إلى تمكين فيجول بيسك من إظهار أكثر من سطر واحد من مربع النص). إذاً بدّل الخاصية MultiLine لمربع النص txtDisplay إلى True.
احفظ العمل:
· اختر Save Project من القائمة File لفيجول بيسك.
ملاحظة
حسب ما ذكرنا سابقاً، من الهام جداً حفظ العمل المنجز من وقت لآخر. طريقة أولى لحفظ العمل تتمثل باختيار Save Project من القائمة File لفيجول بيسك. لكن هنالك طريقة أسهل بكثير لحفظ العمل. ألقِ نظرة على الشكل 1-23، يظهر هذا الشكل شريط أدوات لغة فيجول بيسك. (إذا لم يكن شريط الأدوات ظاهراً، اذهب إلى القائمة View واختر Toolbars ثم انقر على العنصر Standard الذي يظهر في القائمة المنبثقة). نعود إلى الشكل 1-23. يوجد على شريط الأدوات رمز يظهر كقرص مرن، إذا وضعت مؤشر الفأرة (دون النقر على أحد أزرارها) فوق هذا الرمز، يظهر مستطيل أصفر يحمل الرسالة Save Project من القائمة File. أجل، لقد سهل مصممو فيجول بيسك كثيراً عملية حفظ المشروع، فنقرة واحدة من وقت لآخر تضمن لك السلامة.
هناك طريقة سريعة أخرى لحفظ آخر التعديلات التي أجريتها على النموذج النشط الحالي، اضغط فقط المفتاحين Ctrl+S سوياً، ليحفظ فيجول بيسك تعديلات النموذج الحالي فقط، وليس كامل ملفات المشروع.
الشكل 1-23 الرمز Save Project الواقع ضمن شريط أدوات لغة فيجول بيسك.
عملية بناء النماذج انطلاقاً من الرسوم التوضيحية والجداول
انتهى جزء التصميم المرئي الآن.
سنطالبك في كتابنا هذا ببناء عدد هائل من النماذج. لكن لن نستمر بهذه الطريقة في بناء النماذج، أي لن نبني النموذج خطوة بخطوة، بل سنـزودك بشكل النموذج المكتمل (كما في الشكل 1-1)، كما سنعطيك جدولاً يدعى جدول خصائص النموذج. يحوي جدول خصائص النموذج كل الكائنات المحتواة في النموذج ويستعرض كل الخصائص التي تختلف عن الخصائص الافتراضية لهذه الكائنات.
عملك هو اللحاق بالجدول، سطراً سطراً وتغيير قيم الخصائص إلى القيم التي تظهر في الجدول. الجدول 1-1 هو جدول خصائص النموذج frmHello الذي أنهينا بناءه للتو.
الجدول 1-1. جدول خصائص النموذج frmHello.
الكائن الخاصية القيمة
Form Name FrmHello
BackColor Blue
Caption برنامج الترحيب
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
FontName System
FontSize 10
RightToLeft True
CommandButton Name cmdClear
Caption &مسح
FontName System
FontSize 10
RightToLeft True
CommandButton Name cmdHello
Caption إ&ظهار الترحيب
FontName System
FontSize 10
RightToLeft True
TextBox Name txtDisplay
Alignment 2-Center
FontName System
FontSize 10
MultiLine True
RightToLeft True
ربط الكائنات بنصوص برمجية
باعتبار أننا وضعنا الكائنات في النموذج وحددنا خصائصها، فقد انتهى جزء التصميم المرئي (البرمجة المرئية Visual Programming).
الآن، حان الوقت لكتابة النصوص البرمجية لهذه الكائنات.
تعتبر لغة فيجول بيسك لغة مقادة بالأحداث event-driven programming language. هذا يعني أن نص البرنامج ينفذ استجابة لحادثة ما. فمثلاً يؤدي نقر الزر خروج أثناء تنفيذ برنامج الترحيب إلى توليد الحادثة Click آلياً، وبالتالي ينفذ نص البرنامج المرافق لحادثة نقر الزر خروج آلياً أيضاً.
كذلك، تتولد الحادثة Click (حادثة النقر) أيضاً عند نقر الزر إظهار الترحيب، وينفذ نص البرنامج المرافق لحادثة نقر هذا الزر آلياً.
عملك هو كتابة النص المناسب وربطه بالكائن والحادثة. هل يبدو هذا الأمر معقداً؟ بالواقع إنه سهل جداً!، إذاً لنبدأ بربط بعض النص البرمجي بالحادثة Click للزر خروج.
ربط الزر خروج بنص برمجي
اتبع الخطوات التالية لربط نص برمجي بالزر cmdExit:
· انقر نقراً مزدوجاً على الزر cmdExit.
يستجيب فيجول بيسك بإظهار إطار نص البرنامج (سنكتب برنامجاً في هذا الإطار) المبين في الشكل 1-24.
الشكل 1-24 ربط الزر خروج بنص البرنامج المرافق، في إطار نص البرنامج Code Window.
يُسهّل فيجول بيسك إلى حد كبير التعرف على النص الظاهر حالياً في إطار نص البرنامج.
فكما يتبين من الشكل 1-24، يُظهر مربع السرد اليساري اسم الكائن cmdExit، ويُظهر مربع السرد اليميني اسم الحادثة Click.
كما يظهر من الشكل 1-24 أيضاً، فقد أضاف فيجول بيسك مسبقاً سطري نص يمثلان بداية ونهاية الإجراء الخاص بالكائن المحدد والحادثة المختارة، في إطار نص البرنامج:
Private Sub cmdExit_Click()

End Sub
سنكتب الآن نص البرنامج ضمن هذين السطرين.
السطران الأول والأخير من نص البرنامج
السطر الأول من النص (الذي كتبه عنك فيجول بيسك) يبدأ بالكلمتين Private Sub.
الكلمة Sub عبارة عن كلمة محجوزة في لغة فيجول بيسك، تدل على أن الإجراء Procedure يبدأ من هنا.
والإجراء Procedure عبارة عن نص برنامج مكرس لحادثة خاصة. اسم الإجراء في مثالنا هو cmdExit_Click().
السطر الأخير من النص، كُتب أيضاً من قبل لغة فيجول بيسك. وتشير العبارة End Sub لنهاية الإجراء.
اسم الإجراء
اسم الإجراء هو cmdExit_Click(). ما السبب الذي دفع فيجول بيسك إلى تعيين اسم الإجراء بنفسه؟. تسبب النقر المزدوج على الزر cmdExitبمعرفة فيجول بيسك أنك تحاول ربط ذلك الزر بنص برمجي، وبذلك حدد القسم الأول من اسم الإجراء وهو cmdExit.
يمثل القسم الثاني من اسم الإجراء نوع الحادثة الناجمة (الحادثة Click).
أيضاً ما الذي جعل فيجول بيسك يحدد هذا الاسم (Click) ؟!.
السبب طبعاً أنها تُمثل الحادثة التي ترغب بكتابة برنامج لها.
لاحظ أن القسمين الأول والثاني من اسم الإجراء يُفصلان عن بعضهما برمز الخط التحتي ( _ )، وبذلك يصبح اسم الإجراء كالتالي: cmdExit_Click().
ولاحظ أيضاً أن آخر رمزين في اسم الإجراء هما القوسين ().
نص برنامج الإجراء cmdExit_Click()
ما هو نص البرنامج الذي يتوجب عليك كتابته في الإجراء cmdExit_Click()؟. باعتبار أن هذا الإجراء يُنفذ عند نقر الزر خروج (إنهاء البرنامج)، فالنص الواجب عليك كتابته ضمن هذا الإجراء يجب أن يتسبب بإنهاء البرنامج. تُستخدم العبارة End لإنهاء البرنامج، وبالتالي فنص البرنامج اللازم كتابته ما هو إلا العبارة End فحسب.
· اكتب End في الإجراء cmdExit_Click(). يُفترض أن يبدو الإجراء بعد كتابة هذه العبارة بالشكل التالي:
Private Sub cmdExit_Click()
End
End Sub
هذا كل ما في الأمر، لقد انتهيت للتو من ربط الإجراءcmdExit_Click() بنص البرنامج المناسب.
تنفيذ برنامج الترحيب
رغم أنك لم تنته بعد من ربط باقي الكائنات بنصوصها البرمجية، لكن هذا لا يمنع من تنفيذ برنامج الترحيب ورؤية كيف يعمل نص البرنامج الذي ربطناه بالزر خروج.
· احفظ المشروع باختيار Save Project من القائمة File، أو انقر رمز
· Save Project (رمز القرص المرن) على شريط أدوات فيجول بيسك.
· اختر Start من القائمة Run لفيجول بيسك.
يستجيب فيجول بيسك بتنفيذ البرنامج. يظهر إطار هذا البرنامج بشكل يماثل ذلك المبين في الشكل 1-1.
تستطيع النقر على الزر إظهار الترحيب أو على الزر مسح، لكن لن يحدث شيء، والسبب طبعاً أننا لم نربط بعد هذين الزرين بأي نص برمجي.
· انقر الآن الزر خروج، فينفذ الإجراء cmdExit_Click() استجابة لحادثة النقر، وباعتبار أن نص هذا الإجراء يحوي العبارة End، فسيؤدي تنفيذه إلى إنهاء عمل برنامج الترحيب.
إضافة المزيد إلى نص الإجراء cmdExit_Click()
اتبع الخطوات التالية لربط الإجراء cmdExit_Click() بالمزيد من النص البرمجي:
· انقر نقراً مزدوجاً على الزر cmdExit_Click().
يستجيب فيجول بيسك بإظهار cmdExit_Click() جاهزاً للتعديل من قبلك.
· أضف العبارة Beep قبل العبارة End كما يلي:
Private Sub cmdExit_Click()
Beep
End
End Sub
· احفظ العمل المنجز.
· نفّذ برنامج الترحيب باختيار Start من القائمة Run لفيجول بيسك.
تتسبب العبارة Beep بإصدار رنين (صافرة) من قبل الحاسب الشخصي. وبالتالي يؤدي نقر الزر خروج إلى إصدار صوت صافرة، ثم إنهاء برنامج الترحيب.
· انقر الزر خروج وتحقق من أن البرنامج أصدر رنيناً، ثم أنهى نفسه.
ربط الزر إظهار الترحيب بنص البرنامج المناسب
اتبع الخطوات التالية لربط الزر إظهار الترحيب بنص برنامج:
· أظهر النموذج، ثم انقر نقراً مزدوجاً على الزر إظهار الترحيب، (افترضنا أنك ستُظهر النموذج باختيار Project Explorer من القائمة View، ثم نقر البند frmHello في إطار المشروع Project، ثم نقر الرمز View Object الذي يظهر كثاني رمز على اليسار عند قمة إطار المشروع).
يستجيب فيجول بيسك بعد النقر المزدوج على الزر إظهار الترحيب بإظهار الإجراء cmdHelloDisplay_Click() مع سطري البرنامج التاليين:
Private Sub cmdHelloDisplay_Click()
End Sub
يُنفذ الإجراء السابق عند نقر الزر إظهار الترحيب أثناء تنفيذ برنامج الترحيب.
يا ترى ما هو نص البرنامج الواجب ربطه بهذا الإجراء؟ يعتمد هذا على ما سيحصل عند نقر الزر إظهار الترحيب.
ففي مثالنا هذا يُطلب من برنامج الترحيب إظهار رسالة الترحيب مرحباً بكم في مربع النص.
· أدخل النص التالي ضمن الإجراء cmdExit_Click():
txtDisplay.Text = "مرحباً بكم"
يفترض أن يبدو الإجراء كما يلي عند الانتهاء:
Private Sub cmdHelloDisplay_Click()
txtDisplay.Text = "مرحباً بكم"
End Sub
يمثل txtDisplay اسم الكائن Text Box (مربع النص الذي سيُظهر الكلمتين مرحباً بكم داخله).
تسند العبارة التالية:
txtDisplay.Text = "مرحباً بكم"
القيمة مرحباً بكم إلى الخاصية Text لمربع النص txtDisplay. (تمثل قيمة الخاصية Text النص الذي سيظهر في مربع النص txtDisplay).
ملاحظة
يُمكن استخدام الصيغة التالية لإسناد قيمة جديدة إلى خاصية ما، ضمن نص برنامج:
ObjectName.Property = قيمة جديدة
فمثلاً، لتبديل الخاصية Text لمربع النص txtDisplay إلى القيمة مرحباً بكم استخدم العبارة التالية:
txtDisplay.Text = "مرحباً بكم"
انتبه لكتابة النقطة (.) بين اسم الكائن txtDisplay واسم الخاصية Text وبدون فراغات بينهما.
ربط الزر مسح بنص برنامج مناسب
اتبع الخطوات التالية لربط الزر مسح بنص برنامج الحادثة Click:
· أظهر النموذج، وانقر نقراً مزدوجاً على الزر مسح.
يستجيب فيجول بيسك للنقر المزدوج على الزر مسح، بإظهار إطار نص البرنامج Code Window عند الإجراء cmdClear_Click() وجاهزاً للتعديل.
يفترض أن يقوم هذا الإجراء بمسح محتويات مربع النص. أي بمعنى آخر يجب تحويل قيمة الخاصية Text لمربع النص، إلى سلسلة صفرية (فراغ "")، يمكن إنجاز ذلك بإضافة العبارة التالية إلى الإجراء cmdClear_Click():
txtDisplay.Text = ""
· اكتب العبارة التالية في الإجراء cmdClear_Click():
txtDisplay.Text = ""
يُفترض أن يبدو الإجراء لدى اكتماله كما يلي:
Private Sub cmdClear_Click()
txtDisplay.Text = ""
End Sub
· احفظ العمل المنجز باختيار Save Project من القائمة File لفيجول بيسك (أو انقر على رمز القرص المرن على شريط أدوات لغة فيجول بيسك).
تنفيذ برنامج الترحيب مرة ثانية
اكتمل برنامج الترحيب الآن. اتبع الخطوات التالية لتنفيذه:
· اختر Start من القائمة Run لفيجول بيسك أو اضغط المفتاح F5 لبدء البرنامج.
ملاحظة
إحدى الأسباب الرئيسية التي تجعل فيجول بيسك بهذا الشيوع حقيقة، أنك تستطيع تطوير برنامجك قليلاً ثم تنفيذه ورؤية نتائج عملية التطوير على أرض الواقع، ثم متابعة تطوير البرنامج بعض الشيء وتشغيل التطبيق لاختيار عملية التطوير . . . وهكذا دواليك.
ذكرنا، أنك تستطيع تنفيذ التطبيق المكتوب بلغة فيجول بيسك باختيار Start من القائمة Run لفيجول بيسك.
كما تلاحظ، تتطلب عملية تطوير التطبيق تكرار تنفيذه كثيراً، ولذلك راعى مصممو اللغة هذا الجانب، فوضعوا رمز التنفيذ على شريط أدوات لغة فيجول بيسك ويدعى هذا الرمز Start (انظر الشكل 1-25). ويكفي نقر الرمز Start على شريط الأدوات لتنفيذ التطبيق الراهن.
إذا كان شريط الأدوات غير ظاهر على سطح مكتب فيجول بيسك لسبب ما، اختر Toolbars من القائمة View لفيجول بيسك ثم اختر Standard من القائمة التي تظهر.
إذاً، تعتبر ميزة تنفيذ البرامج أثناء عملية التطوير، أمراً بالغ الأهمية، ففي لغات البرمجة الأخرى مثل Visual C++، يتوجب أولاً ترجمة ثم ربط البرنامج (Compile ثم Link) قبل التمكن من تنفيذه. وهذه العملية تأخذ وقتاً طويلاً نوعاً ما. يُسهل فيجول بيسك عملية تنفيذ التطبيق الذي يجري تطويره إلى حد بعيد، لكن قد يظهر خطأ ما في البرنامج ويتسبب بانهيار النظام كاملاً، مما يُجبرك على إعادة تشغيل Windows أو فيجول بيسك مرة أخرى. يعني هذا أن عدم حفظ العمل قد يتسبب بضياعه وسنضطر إلى بدء عملية التطوير من جديد.
لهذا كن حكيماً، واجعل عملية حفظ العمل قبل تنفيذه قانوناً تسير عليه. والأمر جداً بسيط، فكما ذكرنا يقع رمز حفظ المشروع Save Project على شريط الأدوات. ويكفي نقره لحفظ العمل عند المرحلة الراهنة. لهذا انقر أولاً على الرمز

Save Project ثم انقر بعد ذلك الرمز Start (انظر الشكل 1-25) لتنفيذ التطبيق. وبهذه الطريقة، فإن وقوع خطأ ما أثناء تنفيذ البرنامج، لن يتسبب بضياع المشروع أو العمل، وتستطيع إعادة تشغيل فيجول بيسك مجدداً، وفتح المشروع المخزن وتصحيح الخطأ ومعاودة تنفيذ التطبيق.

الشكل 1-25 رمز التنفيذ على شريط أدوات فيجول بيسك.
· انقر الزر إظهار الترحيب وأيضاً الزر مسح لإظهار ثم مسح الرسالة مرحباً بكم، في مربع النص. يجب أن يظهر إطار برنامج الترحيب كما في الشكل 1-2، بعد
· نقر الزر إظهار الترحيب. بينما سيظهر كما في الشكل 1-1 عند نقر الزر مسح.
· تستطيع استخدام المفاتيح ظAlt+ و سAlt+ للحصول على نفس الاستجابة عند نقر الزر إظهار الترحيب وعند نقر الزر مسح. (طبعاً، بسبب وجود خط تحت الحرف ظ في عنوان الزر إظهار الترحيب، وخط تحت الحرف س في عنوان الزر مسح).
· يمكن إنهاء البرنامج بنقر الزر خروج، أو بضغط المفتاحين خAlt+ على لوحة المفاتيح.
أحداث أخرى
يستخدم برنامج الترحيب الحادثة Click لأزرار الأوامر، (فمثلاً، تقع الحادثة Click لزر الأمر cmdExit عند نقر الزر خروج مما يتسبب بالتنفيذ الآلي للإجراء cmdExit_Click(). هنالك حوادث أخرى يمكن استخدامها في البرنامج. وكل حادثة تمتلك بدورها إجراءها الخاص.
الحادثة KeyDown
سنتعرف على الإجراء الذي يرافق الحادثة KeyDown، والتي تحصل عند ضغط مفتاح ما على لوحة المفاتيح.
· اتبع الخطوات التالية لرؤية الإجراء KeyDown للزر خروج.
· انقر نقراً مزدوجاً على الزر خروج.
يظهر فيجول بيسك في الحالة الافتراضية الإجراء المرافق للحادثة Click.
· باعتبار أننا لا نريد تعديل الإجراء المرافق للحادثة Click وإنما نريد تعديل إجراء الحادثة KeyDown، لهذا انقر على مربع السرد الذي يظهر في الجانب الأيمن عند قمة إطار النص.
يستجيب فيجول بيسك بسرد لائحة تحوي كل الحوادث المتاحة للكائن المدعو cmdExit (انظر الشكل 1-26).
· اختر البند KeyDown من اللائحة.
يستجيب فيجول بيسك بإظهار الإجراء cmdExit_KeyDown():
Private Sub cmdExit_KeyDown(KeyCode AS Integer,Shift As Integer)



End Sub


الشكل 1-26 إظهار الحوادث المتاحة للزر cmdExit.


لاحظ أن السطر الأول من الإجراء والذي يكتبه فيجول بيسك آلياً، يختلف قليلاً عن السطر الأول للحادثة Click فقوسي الإجراء cmdExit_Click()، لا يحويان شيئاً داخلهما. أما قوسي الإجراء cmdExit_ KeyDown() فيحويان قدراً من النص البرمجي. سنتعرف خلال الفصول القادمة على هذا الاختلاف بشكل أوضح.


أما عند هذه النقطة، فلا تُضف شيئاً إلى الإجراء cmdExit_ KeyDown() (مضينا في هذا المثال، لمجرد إطلاعك على أشكال أخرى من الحوادث التي ترافق كائن ما في فيجول بيسك).


إنشاء الملف التنفيذي للمشروع (Hello.exe)


نفذنا سابقاً برنامج الترحيب باختيار Start من القائمة Run. طبعاً يختلف الأمر عند الانتقال إلى الواقع العملي، فلا أحد يرضى أن يُشغل التطبيق الذي بحوزته بهذه الطريقة، بل قد لا يملك المستخدم الذي اقتنى التطبيق، لغة فيجول بيسك أصلاً.


يجب أن تكون قادراً إذاً على تحويل البرنامج إلى ملف تنفيذي، حتى نتمكن من توزيع التطبيق الذي طورناه.


فمثلاً يجب تحويل برنامج الترحيب إلى ملف تنفيذي Hello.exe:


· اختر Make Hello.exe File من القائمة File لفيجول بيسك.


يستجيب فيجول بيسك بإظهار مربع الحوار Make. (لا تنقر الزر OK في مربع الحوار في هذه اللحظة).


· استخدم مربع الحوار لحفظ الملف Hello.exe في الدليل C:\VB5Prg\Ch01.


· انقر الزر OK الآن.


يستجيب فيجول بيسك بحفظ الملف Hello.EXE في الدليل C:\VB5Prg\Ch01.


تستطيع الآن تنفيذ Hello.exe كأي برنامج آخر في Windows!، تستطيع مثلاً استخدام مستكشف Windows ثم النقر المزدوج على الملف Hello.exe.

[size=18]تابع.....الى الاسفل

ملف تنفيذي EXE صغير الحجم
ألقِ نظرة على الملف Hello.exe الموجود حالياً ضمن الدليل C:\VB5Prg\Ch01. كيف يتمكن ملف بحجم 8 كيلو بايت فقط من إنجاز كل الأشياء التي يستطيع Hello.exe إنجازها؟.
فكر بالأمر، ينجز البرنامج Hello.exe أموراً كثيرة، فيمكنك نقر الأزرار الثلاثة، ويسمح مثلاً بسحب إطار البرنامج، يمتلك البرنامج أيضاً مربع نص داخله، بمعنى آخر، يمتلك هذا البرنامج الصغير كل معالم البرامج القياسية في Windows. والسبب وراء صغر حجم الملف التنفيذي Hello.exe، أن البرنامج يفترض وجود الملف Msvbvm50.DLL في الدليل System. والدليل System موجود طبعاً ضمن دليل Windows.
فمثلاً ترى الدليل C:\Windows\System إذا كان نظام التشغيل المستخدم هو Windows95 أو في الدليل C:\WinNT\System32 عندما يكون نظام التشغيل المستخدم هو Windows NT. المهم بغض النظر عن نظام التشغيل المستخدم يحتاج البرنامج Hello.exe أن يكون الملف Msvbvm50.DLL موجوداً ضمن دليل النظام System حتى يعمل. تستطيع العودة إلى ذلك الدليل والتأكد من وجود الملف المذكور. لقد تم تثبيت هذا الملف عند تثبيت فيجول بيسك 5 على قرصك الصلب.
حجم الملف Msvbvm50.DLL يساوي 1.3 ميجا بايت تقريباً، طبعاً يعتبر كبيراً، لكن حال توفر هذا الملف يصبح بوسع المستخدمين تنفيذ برامج بالغة القوة كتبت بلغة فيجول بيسك 5.
النبأ السار أن هذه البرامج القوية صغيرة الحجم جداً. تستطيع أيضاً رؤية الملف Hello.vbw في الدليل الذي حفظنا فيه الملف Hello.exe. الملف Hello.vbw يستخدم من قبل فيجول بيسك، ولا يتوجب عليك تزويد المستخدمين بهذا الملف.
ملاحظة
يتوجب عليك تزويد البرامج التي توزعها بملفات DLL اللازمة لها. فمثلاً يجب أن يكون الملف Msvbvm50.DLL موجوداً ضمن الدليل System على الحاسب الذي ستنفذ فيه البرامج المطورة بلغة V.B.5.
الخلاصة
كتبنا في هذا الفصل أول برنامج لك بلغة Visual Basic فتعلمت الخطوتين اللازمتين لكتابة البرنامج، وهما خطوة البرمجة المرئية Visual Programming Step وخطوة كتابة نص البرنامج Code Programming Step. يضع المبرمج الكائنات Objects في النموذج ويسند خصائصها بالقيم المناسبة أثناء خطوة البرمجة المرئية.
أما فى خطة كتابة النص Code Programming، فيتم انتقال الإجراء المرافق لكائن ما باختيار الكائن والحادثة ثم يكتب نص البرنامج المناسب فى الإجراء. ينفذ جزء البرنامج المكتوب هذا زمن التنفيذ عند وقوع الحادثة.


الفصل الثاني
الخصائص وعناصر التحكم والكائنات



يركز هذا الفصل على عناصر تحكم لغة فيجول بيسك، مثل شريطي التمرير الأفقي والعمودي Scroll Bar، ومربعات النص Text Boxes، وأزرار الخيارات Option Button، وأزرار الأوامر Command Button. ستتعلم من هذا الفصل كيف تضع هذه العناصر داخل برامجك، وكيفية تغيير خصائصها، وكيفية ربط النصوص البرمجية بها، (أي ربطها ببرامج متعلقة بها).
تُقدم معظم البرامج، معلومات إلى المستخدم، وتتلقى منه معلومات أيضاً. تُدعى عملية تبادل المعلومات بين التطبيق وبين المستخدم، بواجهة المستخدم User Interface. تَستخدم جميع برامج الويندوز، عناصر التحكم Controls، لتزويد المستخدم بواجهة سهلة ومفهومة (هذا من أهم أسباب شيوع النظام ويندوز). يوضح هذا الفصل مدى سهولة بناء واجهة استخدام جذابة في لغة فيجول بيسك.
عنصر تحكم شريط التمرير
يستخدم شريط التمرير Scroll Bar بكثرة في برامج ويندوز. يمكّنك استخدام هذا العنصر، من اختيار قيمة معينة، بوضع مؤشّر شريط التمرير عند موقع محدد منه، بدلاً من كتابة القيمة.
ملاحظة
أطلقنا على شريط التمرير في الفصل الأول كلمة كائن Object، لكن اعتباراً من هذا الفصل سنشير إليه بمصطلح عنصر تحكم Control.
في معظم الأحوال، يعتبر الكائن هو نفسه عنصر تحكم، لكن ليس دائماً، فالنموذج Form هو كائن، لكنه ليس عنصر تحكم. نستطيع استخدام كلمة كائن للدلالة على عنصر تحكم، إذا كان هذا العنصر سيوضع في نموذج.
برنامج السرعة
يوضح برنامج السرعة، كيفية استخدام شريط التمرير للحصول على قيمة معينة من المستخدم.
يُفترض في برنامج السرعة إنجاز ما يلي:
يظهر الإطار المبين في الشكل 2-1 عند بدء تشغيل برنامج السرعة، يُفترض أن يوضع مؤشّر شريط التمرير عند مركز شريط التمرير (الموقع الافتراضي)، وأن تظهر الرسالة "50 كم / ساعة" (قيمة السرعة) ضمن مربع النص.
الشكل 2-1 نافذة برنامج السرعة.
ينبغي على مربع النص، إظهار التغير في السرعة عند تغيير موضع مؤشّر شريط التمرير. فمثلاً يجب إظهار القيمة صفر عندما يوضع المؤشّر عند أقصى اليمين، أما عند وضعه عند أقصى اليسار فيجب إظهار القيمة 100.
يؤدي نقر الزر خروج لإنهاء البرنامج.
التمثيل المرئي لبرنامج السرعة
يَستخدم برنامج السرعة عنصر تحكم شريط التمرير الأفقي. يبين الشكل 2-2 شكل عنصر التحكم هذا. طبعاً يختلف موضع هذا العنصر ضمن مربع الأدوات Toolbox تبعاً لاختلاف إصدار لغة فيجول بيسك المستخدم. ويؤدي وضع مؤشّر الفأرة فوق رمز شريط التمرير الأفقي، دون النقر عليه إلى ظهور مستطيل أصفر يحمل الرسالة HscrollBar داخله.
بهذه الطريقة، تتمكن من التحقق من وجود رمز شريط التمرير الأفقي في إطار مربع الأدوات.
نفّذ فيجول بيسك، ثم انقر الزر إلغاء الأمر في الإطار New Project في حال ظهوره لإغلاق هذا الإطار، ثم اختر البند New Project من قائمة File للغة فيجول بيسك.
يستجيب فيجول بيسك بإظهار الإطار New Project.
اختر الرمز Standard EXE من ضمن الإطار New Project، ثم انقر الزر موافق.
يستجيب فيجول بيسك بإنشاء مشروع جديد.
الشكل 2-2 رمز شريط التمرير الأفقي داخل إطار مربع الأدوات.
سنحفظ الآن المشروع الجديد الذي أنشأناه:
أنشئ الدليل C:\VB5Prg\Ch02.
تحقق من اختيار النموذج Form1، ثم اختر البند Save Form1 As من قائمة File.
يستجيب فيجول بيسك بإظهار مربع الحوار Save File As.
استخدم مربع الحوار Save File As لحفظ النموذج باسم Speed.Frm في الدليل C:\VB5Prg\Ch02 واختر البند Save Project As من قائمة File، ثم استخدم مربع الحوار Save Project As لحفظ المشروع باسم Speed.vbp في الدليل نفسه.
عدّل النموذج Form1 طبقاً للجدول 2-1.
يُفترض أن يبدو النموذج لدى اكتماله، كما في الشكل 2-3.
الشكل 2-3 النموذج frmSpeed في طور التصميم.

الجدول 2-1. جدول خصائص النموذج frmSpeed.
الكائن الخاصية القيمة
Form Name FrmSpeed
BackColor Light gray
Caption برنامج السرعة
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
Horizontal Scroll Bar Name hsbSpeed
Min 0
Max 100
RightToLeft True
TextBox Name txtSpeed
Alignment 2-Center
Font (اختر ما شئت)
BackColor Red
ForeColor White
Text 50 كم / ساعة
MultiLine True
RightToLeft True
ذكرنا في الفصل الأول، أن النقر المزدوج على رمز عنصر التحكم ضمن مربع الأدوات، يؤدي إلى وضع عنصر التحكم ذاك، ضمن النموذج الحالي.
يستجيب فيجول بيسك بوضع عنصر التحكم في وسط النموذج الحالي. تستطيع بعد ذلك نقله إلى مكان آخر عن طريق سحبه بمؤشّر الفأرة. كما تستطيع تكبيره أو تصغيره بسحب المقابض التي تظهر حوله.
للولوج إلى خصائص عنصر التحكم، تأكد من اختيار هذا العنصر على النموذج (أي توضّع المقابض حوله)، ثم اختر البند Properties Windows من قائمة View. أو تستطيع بدلاً من ذلك، النقر بالزر الأيمن للفأرة على العنصر، ثم اختيار البند Properties من القائمة الفرعية السريعة التي ظهرت.
يستجيب فيجول بيسك بإظهار إطار الخصائص Properties لعنصر التحكم المختار. تستطيع الآن تغيير خصائص هذا العنصر.
احفظ المشروع باختيار البند Save Project من قائمة File التابعة لفيجول بيسك.
كتابة نص برنامج السرعة
سنكتب الآن نص برنامج السرعة:
اكتب النص التالي ضمن الإجراء cmdExit_Cilck() التابع للنموذج frmSpeed:
Private Sub cmdExit_Click()
End
End Sub
يُنفذ نص البرنامج السابق آلياً، عند نقر الزر خروج، ويُنهي تنفيذ برنامج السرعة.
ملاحظة
لإدخال نص البرنامج للزر خروج، انقر نقراً مزدوجاً على الزر خروج في مرحلة التصميم، فيظهر إطار البرنامج للإجراء cmdExit_Cilck(). ويكون هذا الإجراء جاهزاً للتعديل من قبل المستخدم.
تأكد أن مربع السرد الواقع في الزاوية العليا اليسارية، من إطار البرنامج يحوي البند cmdExit، وأن المربع المجاور له يحوي البند Click.
احفظ المشروع باختيار البند Save Project من قائمة File التابعة لفيجول بيسك.
تنفيذ برنامج السرعة
لم ننته بعد من كتابة نصوص برنامج السرعة، لكن رغم ذلك، سننفذ برنامج السرعة لرؤية نتائج ما أنجزناه حتى الآن.
نفّذ برنامج السرعة (ضغط مفتاح F5 أو اختيار البند Start من قائمة Run).
يظهر إطار برنامج السرعة كما هو مبين في الشكل 2-4.
الشكل 2-4 إطار برنامج السرعة.
غيّر موضع مؤشّر شريط التمرير بواسطة الفأرة.
كما تلاحظ، لا يظهر أي شيء ضمن مربع النص، والسبب في ذلك طبعاً، هو أننا لم نكتب نص البرنامج اللازم لإظهار القيم الموافقة لتغيير مؤشّر شريط التمرير.
انقر الزر خروج لإنهاء البرنامج.
الخصائص Min و Max و Value لشريط التمرير
تشرح الفقرات التالية بعض خصائص شريط التمرير:
الخاصيتان Min و Max
يمثّل شريط التمرير مجموعة من القيم. تحدد الخاصية Min القيمة الدنيا، وتحدد الخاصية Max القيمة العليا. مثلاً، تأخذ الخاصية Min في الجدول 2-1 القيمة صفر، وتأخذ الخاصية Max القيمة 100، وهذا يعني أن شريط التمرير يمكن أن يعطي أية قيمة بين الصفر و 100.
الخاصية Value
تمثل الخاصية Value التابعة لشريط التمرير، القيمة الراهنة لهذا الشريط، وبالتالي فقد تكون أية قيمة صحيحة بين الرقم صفر والرقم 100 حسب مثالنا هذا. لم نعط الخاصية Value قيمة معينة أثناء مرحلة التصميم، وبالتالي ستستخدم القيمة الافتراضية (القيمة صفر) لهذه الخاصية، وعند تنفيذ البرنامج، يوضع مؤشّر شريط التمرير عند الموضع المرافق للخاصية Value (أي عند أقصى يمين شريط التمرير، وهو الموضع المرافق للقيمة صفر للخاصية Value).
الآن، وباعتبار أن السرعة الافتراضية يجب أن تكون 50، لهذا يجب إسناد القيمة 50 للخاصية Value التابعة لشريط التمرير:
أسند القيمة 50 للخاصية Value.
الآن، ستجد عند تنفيذ البرنامج، أن الموضع الافتراضي لمؤشّر شريط التمرير سيكون في وسطه (أي منتصف المسافة بين صفر و 100).
لاحظ أن الجدول 2-1 يطالبك بإسناد القيمة "50 كم / الساعة" للخاصية Text التابعة لمربع النص. فعند تشغيل البرنامج، ستجد أن مربع النص يُظهر القيمة الابتدائية "50 كم / الساعة" والمشابهة للموضع الراهن لمؤشّر شريط التمرير (Value = 50).
تركيز Focus لوحة المفاتيح
تستطيع ضغط المفتاح Tab من على لوحة المفاتيح، أثناء عمل البرنامج، لنقل التركيز من عنصر تحكم إلى آخر. وتستطيع تمييز عنصر التحكم الذي يمتلك التركيز بسهولة، لأن ويندوز يعطي دلالة على ذلك، (توضّع الإضاءة عنده، أو يظهر حول عنوانه مستطيل منقط .. الخ).
فمثلاً، يظهر مؤشّر وامض في مربع النص، إذا كان التركيز موضوعاً عنده، بينما يومض مؤشّر شريط التمرير عندما يكون التركيز موضوعاً عنده. كما يظهر مستطيل منقط حول عنوان الزر خروج (مثلاً) إذا كان هذا الزر يمتلك التركيز، وهكذا.
ما المقصود بأن عنصر تحكم ما، يمتلك التركيز ؟!. المقصود من ذلك، هو أنك تستطيع استخدام لوحة المفاتيح للتحكم به عند امتلاكه للتركيز. جرب مثلاً ما يلي لرؤية ظاهرة تركيز لوحة المفاتيح على أرض الواقع:
نفّذ برنامج السرعة. (لاحظ أن مؤشّر شريط التمرير يتوضع في الوسط وهذا طبعاً بسبب إسناد القيمة 50 للخاصية Value التابعة لشريط التمرير).
اضغط المفتاح Tab في لوحة المفاتيح، إلى أن يصل التركيز إلى شريط التمرير، (ستجد أن مؤشّر شريط التمرير يُومض).
يمتلك شريط التمرير الآن التركيز، استخدم مفتاحي الأسهم اليميني واليساري على لوحة المفاتيح لتحريك مؤشّر شريط التمرير. باعتبار أن شريط التمرير يمتلك تركيز لوحة المفاتيح فإن الضغط على مفتاحي الأسهم على لوحة المفاتيح يكافئ نقر زري السهمين اليساري واليميني لشريط التمرير. جرب ضغط المفاتيح Home و End و PgUp و PgDn وراقب النتائج.
اضغط المفتاح Tab حتى يصل التركيز إلى الزر خروج، ثم اضغط مفتاح Space أو مفتاح Enter. وهذا يكافئ نقر الزر خروج لإنهاء البرنامج.
لاحظ كم من العمليات تستطيع إنجازها بواسطة برنامج السرعة!. تستطيع تبديل موضع مؤشّر شريط التمرير، وتكبير أو تصغير إطار البرنامج (بسحب حواف الإطار)، ونقل إطار البرنامج بسحب شريط عنوانه، وإنجاز الكثير من مهام ويندوز القياسية الأخرى. الجميل في الموضوع، أنه لا يلزم كتابة أي نص برمجي لإنجاز ذلك. بل لعل ذلك من أهم محاسن كتابة برامج تحت بنية ويندوز.
فالمعالم القياسية لويندوز تكون مبرمجة أصلاً في برامجك، ولست بحاجة كمستخدم ويندوز (أو مستخدم لبرامجك)، الإلمام بكل المظاهر القياسية لويندوز حتى تتمكن من العمل بكفاءة وفق هذه البنية.
تحسين برنامج السرعة
سنحسّن برنامج السرعة الآن:
انقر نقرة مزدوجة على عنصر تحكم شريط التمرير ضمن النموذج لإظهار الإجراء hsbSpeed_Change(). تحقق بأنّ مربع السرد في الزاوية اليسرى العليا من إطار نص البرنامج يحمل العبارة النصية hsbSpeed، وأنّ مربع السرد المجاور له، يحمل العبارة النصية Change، وبالتالي، عند قراءتهما سوياً تنتج العبارة hsbSpeed_Change().
أدخل النص التالي ضمن الإجراء hsbSpeed_Change():
Private Sub hsbSpeed_Change()
txtSpeed.Text = Str(hsbSpeed.Value) + " كم / ساعة"
End Sub
ينفذ الإجراء hsbSpeed_Change() (حسب ما يتبدى من اسمه)، عند تغيير موضع مؤشّر شريط التمرير. وبالتالي تتغير الخاصية Value تلقائياً تبعاً لذلك التغيير. فمثلاً، تُصبح قيمة الخاصية Value مساوية الصفر، عند وضع مؤشّر شريط التمرير عند أقصى يمين الشريط، وذلك بسبب إسناد القيمة صفر إلى الخاصية Min.
ملاحظة
تنتقل بداية شريط التمرير من الجهة اليسرى إلى الجهة اليمنى، عند إسناد القيمة True للخاصية RightToLeft. لمزيد من المعلومات عن الخاصية RightToLeft اقرأ الفصل الثاني والعشرين، (إنشاء تطبيقات عربية السمة مع فيجول بيسك).
يتوجب على مربع النص إظهار قيمة الموضع الجديد لمؤشّر شريط التمرير، عند تغيير موقعه. أي بكلمة أخرى، يلزمنا إسناد قيمة الخاصية Value لشريط التمرير، إلى الخاصية Text لمربع النص، وهذا هو دور العبارة التالية:
txtSpeed.Text = Str(hsbSpeed.Value) + " كم / ساعة"
فمثلاً، إذا كانت قيمة الخاصية Value لشريط التمرير تساوي 20، فقيمة الخاصية Text لمربع النص ستساوي 20 كم / ساعة.
تتوقع الخاصية Text أن يُسند لها قيمة نصية (سلسلة كتابية)، أما الخاصية Value فهي عبارة عن قيمة عددية. مما يعني أنّه يجب استخدام التابع الوظيفي Str() لتحويل القيمة العددية للخاصية Value إلى سلسلة كتابية. يُكتب ضمن قوسي التابع الوظيفي Str()، القيمة العددية المطلوب تحويلها إلى سلسلة كتابية، فمثلاً، يُستخدم التابع Str(11) لتحويل العدد 11 إلى السلسلة الكتابية "11". كما يُستخدم التابع Str(12345) لتحويل العدد 12345 إلى السلسلة الكتابية "12345".
ملاحظة
عند تحويل القيمة الرقمية إلى قيمة نصية، فإنها تفقد قيمتها الرقمية، وتصبح كأي حرف آخر. طبعاً، يوجد تابع وظيفي معاكس للوظيفة Str() وهو التابع Val()، الذي يحول القيمة النصية ("1234") إلى قيمة عددية (1234).
في حالتنا هذه، يُطلب من الإجراء تحويل القيمة العددية hsbSpeed.Value إلى سلسلة كتابية، ولهذا استخدمنا العبارة التالية:
Str(hsbSpeed.Value)
وبالتالي، فإذا فرضنا مثلاً، أنّ الموضع الحالي لمؤشّر شريط التمرير يساوي 32 (hsbSpeed.Value = 32)، والعبارة التالية:
txtSpeed.Text = Str(hsbSpeed.Value) + " كم / ساعة"
تُسند للخاصية Text التابعة لمربع النص، القيمة التالية: 32 كم / ساعة
والآن لنشاهد نتائج ما كتبناه على أرض الواقع:
احفظ المشروع باختيار Save Project من القائمة File.
نفّذ برنامج السرعة.
انقل مؤشّر شريط التمرير، وستجد أنّ محتويات مربع النص تتغير تبعاً لموضع مؤشّر الشريط.
أَنهِ برنامج السرعة بنقر الزر خروج.
تغيير محتويات مربع النص مع سحب مؤشّر شريط التمرير
أنهينا برنامج السرعة تقريباً، ولكن بقيت مشكلة واحدة ينبغي حلها. وللتعرف على هذه المشكلة، اتبع الخطوات التالية:
نفّذ برنامج السرعة.
جرّب سحب مؤشّر شريط التمرير (دون إفلاته)، وستجد أنّ محتوى مربع النص لا يتغير أثناء عملية السحب! وإنما يتغير فقط بعد تحرير المؤشّر.
كم سيكون جميلاً لو يترافق تغير محتوى مربع النص مع حركة مؤشّر شريط التمرير.
يُنفذ الإجراء hsbSpeed_Scroll() آلياً، عند سحب مؤشّر شريط التمرير، لهذا:
انقر نقرة مزدوجة على عنصر تحكم شريط التمرير ضمن النموذج، لإظهار الإجراء hsbSpeed_Scroll() في مربع السرد الموجود في الزاوية اليسرى والعليا من إطار نص البرنامج ووجود عبارة النص Scroll في مربع السرد المجاور له.
أدخل النص التالي في الإجراء hsbSpeed_Scroll():
Private Sub hsbSpeed_Scroll()
hsbSpeed_Change
End Sub
احفظ المشروع باختيار Save Project من القائمة File لفيجول بيسك.
النص الذي أدخلناه في الإجراء hsbSpeed_Scroll() هو التالي:
hsbSpeed.Change
يتسبب نص الإجراء هذا، بتنفيذ الإجراء hsbSpeed_Change()، الذي كتبناه مسبقاً، مما يعني أنّ نص الإجراء hsbSpeed_Change() سينفذ عند سحب مؤشّر شريط التمرير، الذي يعمل على إسناد الموقع الحالي لشريط التمرير إلى الخاصية Text لمربع النص، دعنا نشاهد بأنفسنا أثر ما كتبناه:
نفّذ برنامج السرعة.
اسحب مؤشّر شريط التمرير، وتحقق أن محتويات مربع النص، تتغير تبعاً لسحب مؤشّر شريط التمرير.
انقر الزر خروج لإنهاء برنامج السرعة.
ملاحظة
ينفذ الإجراء hsbSpeed_Change() من ضمن الإجراء hsbSpeed_Scroll() كما يلي:
لاحظ، عدم استخدام الأقواس بعد الكلمة hsbSpeed_Change، أي عند استدعاء الإجراء hsbSpeed_Change().
سيؤدي استخدام القوسين بعد اسم الإجراء في مثل هذه الحالة إلى ظهور رسالة خطأ. وبالواقع يُظهر فيجول بيسك جزء البرنامج الذي يحمل الخطأ بلون أحمر، وهي دلالة مرئية على وجود خطأ ضمن نص البرنامج.
كلمة أخيرة حول برنامج السرعة
يوضح برنامج السرعة، كيف تتمكن من تشكيل واجهة مستخدم محكمة، لإدخال الأعداد.
فبدلاً من إجبار المستخدم على إدخال الأعداد بين صفر و 100 يدوياً، قدمنا للمستخدم شريط تمرير، يمكّن المستخدم من إعطاء أي قيمة صحيحة ضمن المجال المسموح باستخدام شريط التمرير هذا، والحصول على تغذية عكسية (أو تغذية راجعة Feedback وهي الاستجابة الناتجة عن مربع النص) عن مجال الأرقام المسموح بإدخالها.
برنامج الخيارات
يوضّح هذا البرنامج كيف يمكنك كتابة برامج تسمح للمستخدم بانتقاء خيار ما Options.
التمثيل المرئي لبرنامج الخيارات
يستخدم برنامج الخيارات عنصر تحكم زر الخيار Options Button. انظر الشكل 2 - 5 لرؤية شكل وموقع عنصر التحكم هذا ضمن مربع الأدوات.
علماً بأن الموقع يتغير حسب الإصدار المستخدم، يؤدي وضع مؤشّر الفأرة فوق أي عنصر تحكم ضمن مربع الأدوات إلى ظهور مستطيل أصغر يحمل بداخله اسم ذلك العنصر (مثلاً Options Button في حالتنا هذه).
الشكل 2-5 رمز زر الخيار Options ضمن إطار مربع الأدوات.
أنشئ مشروعاً جديداً باختيار New Project من القائمة File لفيجول بيسك، ثم اختر الرمز Standard EXE وانقر الزر فتح ضمن الإطار New Project.
تحقق بأن إطار النموذج Form1 هو الإطار الراهن (أي أنه تم اختياره، أو بكلمة أخرى، الإضاءة متوضعة لديه). ثم اختر Save Form1 As من القائمة File لفيجول بيسك. استخدم الآن مربع الحوار Save File As لحفظ الملف بالاسم Options.Frm في الدليل C:\VB5Prg\Ch02.
اختر الآن Save Project As من القائمة File لفيجول بيسك، واستخدم مربع الحوار Save Project لحفظ المشروع بالاسم Options.Vbp في الدليل C:\VB5Prg\Ch02.
أنشئ النموذج frmOptions طبقاً للجدول 2-2.
يفترض أن يبدو النموذج لدى اكتماله كذاك المبين في الشكل 2-6.
الشكل 2-6 النموذج frmOptions في طور التصميم.
الجدول 2-2. جدول خصائص النموذج frmOptions.
الكائن الخاصية القيمة
Form Name frmOptions
BackColor Red
Caption برنامج الخيارات
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
Check Box Name chkSound
BackColor Red
Caption أ&صوات
Font (اختر ما شئت)
ForeColor White
RightToLeft True
Check Box Name chkMouse
BackColor Red
Caption ال&فأرة
Font (اختر ما شئت)
ForeColor White
RightToLeft True

الكائن الخاصية القيمة
Check Box Name chkColors
BackColor Red
Caption ال&ألوان
Font (اختر ما شئت)
ForeColor White
RightToLeft True
Option Button Name optLevel1
BackColor Red
Caption المستوى &1
Font (اختر ما شئت)
ForeColor White
RightToLeft True
Option Button Name optLevel2
BackColor Red
Caption المستوى &2
Font (اختر ما شئت)
ForeColor White
RightToLeft True
Option Button Name optLevel3
BackColor Red
Caption المستوى &3
Font (اختر ما شئت)
ForeColor White
RightToLeft True
Label Name lblChoice
Alignment 2-Center
BorderStyle 1-Fixed Single
Font (اختر ما شئت)
RightToLeft True
ملاحظة
ستضطر غالباً إلى زيادة ارتفاع النموذج frmOptions عند بنائه طبقاً للجدول 2-2 وذلك حتى تتسع كل العناصر فيه. ولزيادة الارتفاع اسحب الحافة السفلى للإطار باتجاه الأسفل.
قسم التصاريح العامة General Declarations للنموذج
سنُدخل في هذا القسم جزءاً من برنامج، علماً بأنّ هذا القسم عبارة عن منطقة ضمن إطار نص البرنامج يكتب فيها شتى العبارات العامة.
تعتبر العبارة Option Explicit مثالاً على عبارة عامة. سنتناول المعنى الدقيق لهذه العبارة لاحقاً في هذا الفصل. أما الآن فيكفينا تعلم كيفية تناول قسم التصاريح العامة، وكيفية كتابة نص برمجي داخله.
اتبع الخطوات التالية:
انقر نقراً مزدوجاً على أي منطقة خالية من النموذج frmOptions لإظهار إطار نص البرنامج (Code Window).
يستجيب فيجول بيسك بإظهار إطار نص البرنامج.
انقر على رمز السهم النازل لمربع السرد الموجود في الزاوية اليسرى العليا من إطار نص البرنامج، ثم اختر البند (General) من القائمة.
انقر رمز السهم النازل لمربع السرد المجاور للمربع السرد السابق، والمتوضع عند الزاوية العليا اليمنى من إطار نص البرنامج، ثم اختر البند (Declarations) منه.
يُظهر إطار نص البرنامج الآن قسم التصاريح العامة General Declarations، حسب ما يوضحه الشكل 2-7.
ستُلاحظ النص التالي في الشكل 2-7:
Private Sub Form_Load()

End Sub
حسب ما هو واضح في الشكل 2-7، يقع قسم التصاريح العامة فوق الإجراء Form_Load()، وقد تجد عبارات مكتوبة مسبقاً في هذا القسم، مثلاً:
Option Explicit
الشكل 2-7 إظهار قسم التصاريح العامة General Declarations لإطار نص البرنامج Code Window.
تستطيع الآن نقر قسم التصاريح العامة، وكتابة أي نص برنامج إضافي تريد. فمثلاً إذا لم تشاهد العبارة Option Explicit في هذا القسم، فاكتب العبارة التالية:
Option Explicit
ربط حادثة Click للزر خروج بنص البرنامج المناسب
أدخل النص التالي ضمن الإجراء cmdExit_Click() للنموذج frmOptions:
Private Sub cmdExit_Click()
End
End Sub
يُنفذ جزء البرنامج الذي أدخلته، آلياً عند نقر الزر خروج. علماً بأنّ جزء البرنامج هذا يُنهي عمل برنامج الخيارات.
تنفيذ برنامج الخيارات
رغم أننا لم ننته بعد من تصميم برنامج الخيارات لكن دعنا ننفذه:
نَفّذ برنامج الخيارات.
انقر زر الخيار المستوى1.
يستجيب البرنامج، باختيار زر الخيار المستوى1، (تظهر دائرة مصمتة ضمن زر الخيار المستوى1).
انقر زر الخيار المستوى2.
يستجيب البرنامج بإلغاء اختيار زر الخيار المستوى1 (إزالة الدائرة المصمتة من زر الخيار المستوى1)، واختيار زر الخيار المستوى2 بدلاً عنه (وضع دائرة مصمتة داخله).
انقر زر الخيار المستوى3.
يستجيب البرنامج بإلغاء اختيار الزر المستوى2 ويختار بدلاً منه الزر المستوى3.
إذاً يسمح فقط باختيار زر خيار واحد في نفس الوقت. تستخدم أزرار الخيارات ضمن البرامج عندما يرغب المستخدم باختيار خيار واحد فقط من أجل عدة خيارات. (لاحظ أنّ بعض كتب ويندوز، تُطلق على هذا الزر اسم الزر الراديوي Radio Button، تشبيهاً له بأزرار الراديو التي لا يسمح بضغط أكثر من زر واحد في نفس الوقت).
انقر خانة الاختيار أصوات.
يستجيب البرنامج بوضع علامة اختيار في خانة الاختيار أصوات.
انقر خانات الاختيار الأخرى.
كما تشاهد، يُسمح باختيار أكثر من خانة اختيار واحدة في نفس الوقت. استخدم خانات الاختيار، عندما ترغب في أن يتمكن المستخدم من اختيار عدة وضعيات في نفس الوقت. فمثلاً. قد يختار المستخدم إذا كان البرنامج عبارة عن لعبة!، اللعب مع صوت أو بدونه، وبفأرة أو بدونها، وبألوان أو بدون ألوان.
كما يستطيع المستخدم اللعب وفق مستوى أول أو ثاني أو ثالث، لكن لا حكمة من وراء اللعب بثلاثة مستويات مثلاً دفعة واحدة (عملياً، لا يمكن اللعب بثلاث مستويات في نفس الوقت، حسب المثال).
لإلغاء اختيار خانة الاختيار، انقر مجدداً عليه، فتزول علامة الاختيار من داخله.
أَنهِ البرنامج بنقر الزر خروج.
التحقق من أزرار الاختيار وخانات الاختيار التي يتم اختيارها
سنكتب الآن نصاً يتحقق من أزرار الخيار وخانات الاختيار التي يتم اختيارها.
أدخل النص التالي ضمن الإجراء chkColors_Click() للنموذج frmOptions:
Private Sub chkColors_Click()
UpdateLabel
End Sub
أدخل النص التالي ضمن الإجراء chkMouse_Click():
Private Sub chkMouse_Click()
UpdateLabel
End Sub
أدخل النص التالي ضمن الإجراء chkSound_Click():
Private Sub chkSound_Click()
UpdateLabel
End Sub
أدخل النص التالي ضمن الإجراء optLevel1_Click():
Private Sub optLevel1_Click()
UpdateLabel
End Sub
أدخل النص التالي ضمن الإجراء optLevel2_Click():
Private Sub optLevel2_Click()
UpdateLabel
End Sub
أدخل النص التالي ضمن الإجراء optLevel3_Click():
Private Sub OptLevel3_Click()
UpdateLabel
End Sub
ما الذي فعلناه خلال الخطوات السابقة هذه ؟! لقد كتبنا العبارة التالية:
UpdateLabel
في جميع الإجراءات السابقة. يقصد بالعبارة UpdateLabel اسم إجراء جديد، وسنباشر بعد قليل بكتابته. يُنفذ هذا الإجراء آلياً فور اختيار أي من أزرار الخيار أو خانات الاختيار في هذا المثال:
اتبع الآن الخطوات التالية لإضافة الإجراء UpdateLabel إلى النموذج:
انقر نقراً مزدوجاً في أي منطقة خالية من النموذج.
يستجيب فيجول بيسك بإظهار إطار نص البرنامج (Code Window).
اختر Add Procedure من القائمة Tool لفيجول بيسك.
يستجيب فيجول بيسك بإظهار مربع الحوار Add Procedure.
أدخل UpdateLabel في الحقل Name من مربع الحوار Add Procedure. (لأن UpdateLabel هو اسم الإجراء الجديد الذي سنضيفه). تحقق الآن بأن أزرار الخيارات في مربع الحوار Add Procedure مطابقة للشكل 2-8.
الشكل 2-8 إضافة الإجراء الجديد UpdateLabel.
انقر الزر OK في مربع الحوار Add Procedure.
يستجيب فيجول بيسك بإظهار إطار نص البرنامج عند الإجراء UpdateLabel جاهزاً للتعديل.
ملاحظة
لقد أضاف فيجول بيسك الإجراء UpdateLabel في المنطقة العامة General Area من النموذج frmOptions. ونستطيع التحقق من ذلك كما يلي:
- ضع قراءة مربع السرد الواقع أعلى يسار إطار نص البرنامج على General.
- ضع قراءة مربع السرد الواقع أعلى يمين إطار نص البرنامج علىDeclarations.
إذا تفقدت محتوى مربع السرد اليميني فستجد بندين فيه: وهما Declarations وUpdateLabel. يوجد لدينا في قسم التصاريح العامة General Declarations العبارة Option Explicit.
الإجراءات التي تضاف إلى النموذج (مثالنا الإجراء UpdateLabel)، تضاف إلى المنطقة العامة General Area.
من الهام طبعاً معرفة أين تضاف الإجراءات للرجوع إليها لاحقاً بغية قراءتها أو تعديلها.
إذاً، تضاف الإجراءات في المنطقة العامة من النموذج. وللوصول إلى إجراء ما، ضع قراءة مربع السرد الواقع أعلى يسار إطار نص البرنامج على General ثم ضع قراءة مربع السرد اليميني المجاور على اسم الإجراء الذي تريد تعديله أو قراءته.
يكتب فيجول بيسك نيابة عنك، السطرين الأول والأخير من الإجراء، ويبقى عليك كتابة نص الإجراء المناسب:
أدخل النص التالي ضمن الإجراء UpdateLabel:
Public Sub UpdateLabel()
Dim Info
Dim LFCR
LFCR = Chr(13) + Chr(10)
' الصوت
If chkSound.Value = 1 Then
Info = "الصوت : تشغيل"
Else
Info = "الصوت : إيقاف"
End If
' الفأرة
If chkMouse.Value = 1 Then
Info = Info + LFCR + "الفأرة : تشغيل"
Else
Info = Info + LFCR + "الفأرة : إيقاف"
f' الألوان
If chkColors.Value = 1 Then
Info = Info + LFCR + "الألوان : تشغيل"
Else
Info = Info + LFCR + "الألوان : إيقاف"
End If
' المستوى 1
If optLevel1.Value = True Then
Info = Info + LFCR + "المستوى : 1"
End If
'
If optLevel2.Value = True Then
Info = Info + LFCR + "المستوى : 2"
End If
If optLevel3.Value = True Then
Info = Info + LFCR + "المستوى : 3"
End If

lblChoice.Caption = Info
End Sub
احفظ المشروع باختيار Save Project من القائمة File.
تنفيذ برنامج الخيارات
دعنا نُنفّذ البرنامج قبل المضي في دراسة نص الإجراء UpdateLabel:
نفّذ برنامج الخيارات.
انقر خانات الاختيار وأزرار الخيار المختلفة.
يستجيب برنامج الخيارات، بإظهار حالة خانات الاختيار وأزرار الخيارات ضمن اللافتة lblCHoice (انظر الشكل 2-9).
أَنهِ برنامج الخيارات بنقر الزر خروج.
الشكل 2-9 إطار برنامج الخيارات مع حالة التوضعات الحالية لكل من أزرار الخيارات وخانات الاختيار.
كيف يعمل برنامج الخيارات
يُنفّذ برنامج الخيارات، الإجراء UpdateLabel عند نقر أحد أزرار الخيارات أو خانات الاختيار.
نص برنامج الإجراء chkColors_Click() للنموذج frmOptions
يُنفّذ هذا الإجراء آلياً، عند نقر خانة الاختيارchkColors:
Private Sub chkColors_Click()
UpdateLabel
End Sub
ينفذ بعد ذلك نص الإجراء UpdateLabel والذي سنشرحه بعد قليل.

بطريقة مشابهة، يؤدي نقر أي زر من أزرار الخيارات أو خانات الاختيار الأخرى إلى تنفيذ الإجراء المرافق لذلك العنصر (زر خيار أو خانة اختيار)، وبالتالي تنفيذ الإجراء UpdateLabel.
نص برنامج الإجراء UpdateLabel
إذاً، ينفذ هذا الإجراء حسب ما ذكرنا، عند اختيار أي من أزرار الخيارات أو خانات الاختيار في هذا المثال.
هذا الإجراء ليس إجراء حادثة خاصة بأحد كائنات فيجول بيسك، أي لا ينفذ تلقائياً عند وقوع حادثة ما، وإنما هو إجراء أنشأناه بأنفسنا باستخدام مربع الحوار Add Procedure كما مرّ معنا سابقاً.
من الهام التمييز بين إجراءات مثل cmdExit_Click() (إجراءات مرتبطة بحادثة ما)، وبين إجراءات مثل UpdateLabel، فالإجراء cmdExit_Click() ينفذ آلياً عند وقوع حادثته، ولا حاجة لكتابة أي نص برمجي للتسبب بعملية تنفيذه. ما هو السبب؟!. السبب أنّ فيجول بيسك يعمل!، ففي اللحظة التي يتم فيها نقر الزر خروج. تقع حادثة النقر Click، وبالتالي ينفذ الإجراء cmdExit_Click().
لا ينفذ الإجراء UpdateLabel آلياً، بل يجب على برنامجك أن يستدعيه للتنفيذ، ويتم ذلك بذكر اسمه، وهو السبب الذي دفعنا إلى كتابة العبارة pdateLabel في ستة مواقع، فالعبارة:
UpdateLabel
تتسبب بتنفيذ الإجراء UpdateLabel. مما يعني أنّ هذا الإجراء سينفذ عند نقر أي من أزرار الخيار أو خانات الاختيار في هذا المثال.
التصريح عن المتحول Info
تصرح أول عبارة كتبناها في الإجراء UpdateLabel عن المتحول Info بالشكل التالي:
Dim Info
تعتبر Dim تعليمة فيجول بيسك، وتدل أن الكلمة التي تليها (Info في مثالنا هذا)، هي اسم لمتحول سوف نستخدمه لاحقاً في الإجراء. يُستخدم المتحول Info كمتحول نصي، يقوم بتخزين سلسلة من الأحرف الكتابية أثناء تنفيذ الإجراء UpdateLabel.
تستطيع التصريح عن هذا المتحول بالطريقة التالية أيضاً:
Dim Info As String
لحسن الحظ، يعتبر فيجول بيسك متساهلاً من هذه الناحية، ولا يُجبرك على التصريح عن نوع المتحول، بل يفترض نوعه حسب طريقة استخدامه.
يعرف من لديه شيئاً من الخبرة في لغات البرمجة الأخرى، أنّ بعض لغات البرمجة لا تتطلب من المستخدم التصريح عن المتحولات، لكن تبقى عادةُ التصريح عن المتحولات عادة حسنة، ولمعرفة السبب افترض أنّ الإجراء يحوي على الحسابات التالية:
Time = 10
Velocity = 50
Distance = Velocity * Time
lblDistance.Caption = "المسافة = " + Str(Distance)
تُسند العبارات الأربعة السابقة، القيمة 10 إلى المتحول Time، والقيمة 50 إلى المتحول Velocity، ثم تحسب حاصل ضرب هذين المتحولين وتظهر المسافة Distance، بإسناد قيمة المسافة Distance إلى الخاصية Caption للافتة lblDistance.
لنفترض الآن، أنك كتبت أحد المتحولات بشكل خاطئ، (نسيت مثلاً كتابة الحرف a بعد الحرف t في كلمة Distance) كالتالي:
lblDistance.Caption = "المسافة = " + Str(Distnce)
يَعتبر فيجول بيسك أنّ Distnce (المتحول المكتوب بشكل خاطئ)، هو متحول جديد مختلف عن المتحول الأساسي Distance، ويُسند له آلياً القيمة صفر، وبالتالي تُظهر اللافتة lblDistance الجملة التالية:
المسافة = 0
وهذا بالطبع خطأ جسيم، قد تهدر كثيراً من الوقت لاكتشافه. تستطيع تلافي حدوث أمثال هذه الأخطاء، بأن تدعو فيجول بيسك إلى التذمر عند استخدام متحول في فيجول بيسك بدون التصريح عنه مسبقاً. وبالتالي، في مثالنا هذا يجب أن تؤول العبارات السابقة إلى ما يلي:
Dim Time
Dim Velocity
Dim Distance

Time = 10
Velocity = 50
Distance = Velocity * Time
lblDistance.Caption = "المسافة = " + Str(Distnce)
إذا تم إعداد فيجول بيسك، بحيث يتذمر لدى مصادفته متحول غير مصرح عنه ضمن نص البرنامج، فإنه سوف يعطيك رسالة خطأ أثناء تنفيذ البرنامج ويخبرك بأن المتحول غير معروف لديه. فمثلاً يضيء فيجول بيسك المتحول Distnce في حالتنا هذه، ويخبرك بأن فيه شيئاً ما خاطئ.
أما كيف يتم إعداد فيجول بيسك للتذمر عند مصادفة متحولات غير مصرح عنها في نص برنامج ؟! فيتم ذلك بوضع العبارة التالية:
Option Explicit
ضمن قسم التصاريح العامة General Declarations، وهو السبب الذي دفعنا إلى وضع العبارة Option Explicit في قسم التصاريح العامة عبر الأمثلة السابقة.
ملاحظة
ضع العبارة Option Explicit دائماً ضمن قسم التصاريح العامة للنموذج. فبهذه الطريقة تخبر فيجول بيسك بعدم قبول المتحولات غير المصرح عنها وتوفر على نفسك ساعات طويلة من تنقيح الأخطاء. لنتكلم بعمومية أكثر، يؤدي تجاهل العبارة Option Explicit إلى إنفاق ساعات طويلة في تنقيح أخطاء قد تكون بسيطة ناتجة من أخطاء في التهجي، لهذا كن حكيماً ودع فيجول بيسك يجد عنك المتحولات التي كتبتها بشكل خاطئ.
التصريح عن المتحول LFCR
صرحنا أيضاً عن المتحول LFCR ضمن الإجراء UpdateLabel:
Dim LFCR
ثم أسندنا إلى المتحول LFCR ما يلي:
LFCR = Chr(13) + Chr(10)
يمثل الرمز Chr(13) رمز المفتاح Enter على لوحة المفاتيح، كما أنّ الرمز Chr(10) هو رمز التغذية السطرية (أي ينقل مؤشر الكتابة إلى سطر جديد). وكما سنرى، تُظهر اللافتة lblChoice سلسلة طويلة تنتشر على عدة أسطر، وذلك بالاستعانة بالمتحول LFCR.
التحقق من قيمة الخاصية Value
يأتي بعد التصريح عن المتحولات في الإجراء UpdateLabel كتلة الشرط If .Else.End:


'الصوت
If chkSound.Value = 1 Then
Info = "الصوت : تشغيل"
Else
Info = "الصوت : إيقاف"
End If
تستطيع في فيجول بيسك، إضافة تعليقات ضمن نص البرنامج، باستخدام رمز الفاصلة العلوية ( ' ) أو الكلمة Rem. فمثلاً السطر التالي:
'الصوت
يطابق السطر:
Rem الصوت
يَستخدم هذا الكتاب الفاصلة العلوية للدلالة على أسطر التعليقات.
كما يمكن إضافة التعليقات في أسطر البرنامج، كما يلي:
MyVariable = 1 ' تهيئة المتحول
تعتبر عادة وضع التعليقات ضمن نص البرنامج عادة حسنة، لأنها تسهل قراءة وتنقيح البرامج. تستطيع كتابة أي شيء تريده بعد رمز الفاصلة العلوية ( ' )، يتجاهل فيجول بيسك كل الرموز التي تلي هذا الرمز أي ( ' ).
يتحقق الإجراء UpdateLabel من أن قيمة الخاصية Value لخانة الاختيار chkSound تساوي 1. فإذا كانت الخاصية Value تساوي واحد، فهذا يعني أنّ العبارات بين السطر If والسطر Else سوف تُنفذ، وفي هذه الحالة لدينا عبارة واحدة فقط بين If و Else وهي العبارة:
Info = "الصوت : تشغيل"
حيث تنفذ هذه العبارة عندما Value تساوي الواحد. تسند هذه العبارة السلسلة "الصوت : تشغيل" إلى المتحول Info. لاحظ أنه يجب ذكر كلمة Then ضمن العبارة If.
إذا كانت قيمة الخاصية Value لخانة الاختيار الصوت تساوي الواحد، فهذا يعني أنه توجد علامة اختيار في خانة الاختيار chkSound؛ وبالتالي سوف تساوي قيمة المتحول Info إلى:
"الصوت : تشغيل"
تنفذ العبارات الموجودة بين Else و End If، إذا كانت قيمة الخاصية Value لخانة الاختيار chkSound لا تساوي الواحد. فعند عدم وجود علامة اختيار في خانة الاختيار تكون قيمة الخاصية Value لخانة الاختيار مساوية الصفر، وبالتالي تنفذ العبارة الواقعة بينElse و End If، وتسند هذه العبارة إلى المتحول Info الجملة التالية:
"الصوت : إيقاف"
إذاً لنلخص ما سبق، يُسنَد إلى المتحول Info إما الجملة:
"الصوت : تشغيل"
أو:
"الصوت : إيقاف"
بطريقة مشابهة، تتحقق العبارة If.Else.End If بأن قيمة الخاصية Valueلخانة الاختيار chkMouse تساوي الواحد:
' الفأرة
If chkMouse.Value = 1 Then
Info = Info + LFCR + "الفأرة : تشغيل"
Else
Info = Info + LFCR + "الفأرة : إيقاف"
End If
فمثلاً، إذا كانت خانة الاختيار chkSound تحوي علامة اختيار داخلها، وكانت خانة الاختيار chkMouse لا تحوي علامة اختيار، فسوف تتسبب عبارتا If.Else.End If الأوليتين من الإجراء UpdateLabel، بإسناد السلسلة التالية إلى المتحول Info:
"الصوت : تشغيل" + LFCR + "الفأرة : إيقاف"
وسوف تظهر هذه السلسلة لاحقاً على سطرين:
الصوت : تشغيل
الفأرة : إيقاف
وذلك بسبب إضافة LFCR بين السلسلتين.
تتحقق عبارة If.Else.End If التالية ضمن الإجراء UpdateLabel بأن قيمة الخاصية Value لخانة الاختيار chkColorsتساوي الواحد، وتعدّل المتحول Info تبعاً لذلك:
' الألوان
If chkColors.Value = 1 Then
Info = Info + LFCR + "الألوان : تشغيل"
Else
Info = Info + LFCR + "الألوان : إيقاف"
End If
تتحقق عبارة If.End.If التالية في الإجراء UpdateLabel بأن الخاصيةValue لزر الخيار optLevel1 تساوي قيمة الثابت True:
If optLevel1.Value = True Then
Info = Info + LFCR + "المستوى : 1"
End If
تحدد الخاصية Value أيضاً حالة عنصر التحكم هذا، فإذا كانت قيمة الخاصية Value تساوي True، فهذا معناه أنه تم اختيار زر الخيار، ويتم إعداد المتحول Info تبعاً لذلك. أما إذا كانت الخاصية Value لزر الخيار optLevel1 لا تساوي True فهذا يعني أنه لم يتم انتقاء زر الخيار هذا.
ملاحظة
الخاصية Value لخانة الاختيار قد تساوي 0 أو 1 أو 2. فإذا كانت تساوي الواحد، فهذا معناه وجود علامة اختيار بداخله. أما إذا كانت تساوي صفر، فهذا يعني عدم وجود علامة اختيار، بينما إذا كانت Value لمربع اختيار تساوي 2، فهذا يعني حالة بين الاثنين، ويظهر بشكل رمادي أو باهت.

ملاحظة
الخاصية Value لزر خيار ما، قد تساوي True أو False. فإذا كانت تساوي True، فهذا معناه وجود نقطة داخل زر الخيار. أما إذا كانت تساوي False فهذا يعني عدم وجود نقطة داخله. وبالتالي عدم اختياره.
تعدّل عبارتا If.End.If التاليتين المتحولInfo تبعاً لقيمة الخاصيةValue لكل من زري الخيار optLevel2 و optLevel3:
If optLevel2.Value = True Then

Info = Info + LFCR + "المستوى : 2"
End If
If optLevel3.Value = True Then
Info = Info + LFCR + "المستوى : 3"
End If
تسند آخر عبارة في الإجراء UpdateLabel محتوى المتحول Info إلى الخاصية Caption للافتة lblChoice:
lblChoice.Caption = Info
تظهر هذه العبارة محتوى المتحول Info داخل اللافتة lblChoice، كما يظهره الشكل2-9.
ماذا لدينا أيضاً ؟!
لا بد أنك أدركت حتى الآن، أنّ البرمجة بلغة فيجول بيسك ترتكز على فهم معنى كل عنصر من عناصر التحكم داخل مربع الأدوات، ومعنى ووظيفة ذلك العنصر. فنفس الخاصية Property، تحمل معاني مختلفة لعناصر التحكم المختلفة.
فمثلاً الخاصية Caption(العنوان) للنموذج، تحوي النص الذي يظهر في شريط عنوان النموذج، أما الخاصية Caption لعنصر التحكم Label (لافتة)، فتحوي النص الذي سيظهر في اللافتة. كذلك الخاصية Value لخانة اختيار، تُشير إلى وجود أو عدم وجود علامة اختيار فيه. والخاصية Value لزر الخيار، تشير إلى وجود أو عدم وجود دائرة مصمتة فيه. وأما الخاصية Value لشريط تمرير، فتشير إلى الموضع الحالي لمؤشّر شريط التمرير.
يحوي مربع الأدوات على رموز عناصر التحكم، ويمتلك كل عنصر تحكم، مجموعته الخاصة من الخصائص Properties. تعتبر بعض عناصر التحكم Controls، عناصر تحكم ويندوز قياسية، مثال ذلك، شريطي التمرير الأفقي والعمودي، ومربعات النص، واللافتات، وخانات الاختيار، وأزرار الخيار، وأزرار الأوامر.
يمكن إضافة رموز أخرى إلى مربع الأدوات في فيجول بيسك، ثم وضع عناصر التحكم التي تمثلها هذه الرموز في النموذج. تدعى الرموز الإضافية لعناصر التحكم هذه بالاسم ActiveX Controls، وتعرف أيضاً باسم عناصر التحكم OCX. سنتعرف بشكل أوسع على هذه العناصر عبر فصول الكتاب.
لا تُعتبر لغة فيجول بيسك لغة برمجة صعبة التعلم، ولكن هنالك الكثير مما يجب تعلمه. ومفتاح التعلم الناجح هو التمرن والتجريب. والمفترض بعد كتابة برامج هذا الكتاب أن تصبح قادراً على تدريس اللغة. فحاول أن تكتب البرامج، وأن تفهم نصوصها، وكذلك جرّب تغيير خصائص عنصر التحكم أثناء طور التصميم، (أي أثناء مرحلة بناء النموذج - مرحلة التمثيل المرئي للبرنامج)، ومرحلة التنفيذ.
يعني تغيير الخصائص أثناء مرحلة التنفيذ، تغيير قيمة الخاصية داخل نص البرنامج. فمثلاً، تسند العبارة الأخيرة في الإجراء UpdateLabel المتحول Info أثناء مرحلة التنفيذ إلى الخاصية Caption للافتة lblCHoice:
lblChoice.Caption = Info
بينما بالمقابل، أسند العنوان برنامج الخيارات إلى الخاصية Caption للنموذج خلال مرحلة التصميم Design Time.
تتقبل بعض الخصائص تغيير قيمتها، خلال أي من الطورين، طور التصميم، أو طور التنفيذ. بينما تقبل بعض الخصائص تغيير قيمتها فقط أثناء مرحلة التنفيذ، (أي من خلال نص البرنامج فقط). فمثلاً تقبل الخاصية Caption لعنصر التحكم Label تغيير قيمتها خلال كلا الطورين: التصميم والتنفيذ.
ستتعرف في هذا الكتاب على خصائص لا يمكن إسنادها أو تغييرها، إلا من خلال طور زمن التنفيذ.
اصطلاحات التسمية المستخدمة في هذا الكتاب
تُسمى عناصر التحكم عبر هذا الكتاب، وفق الجدول 2-3. فتبدأ أسماء أزرار الأوامر مثلاً، بالرموز cmd (كما في cmdMyButton)، وتبدأ أسماء مربعات النص بالرموز txt (كما في txtMyTextBook).
الجدول 2-3. اصطلاحات التسمية لعناصر تحكم فيجول بيسك Controls.
نوع عنصر التحكم البادئة مثال
Check box chk chkReadOnly
Combo box cbo cboEnglish
Command button cmd cmdExit
Common dialog dlg dlgFileOpen
Communications com comFax
Data control dat datBiblio
Directory list box dir dirSource
Drive list box drv drvTarget
File list box fil filSource
Form frm frmEntry
Frame fra fraLanguage
Grid grd grdPrices
Horizontal scroll bar hsb hsbVolume
Image img imgIcon
Label lbl lblHelpMessage
Line lin linVertical
List box lst lstPolicyCodes
MCI mci mciVideo
MDI child form mdi mdiNote
Menu mnu mnuFileOpen
Picture pic picVGA
Shape shp shpCircle
Text box txt txtLastName
Timer tmr tmrAlarm
UpDown upd updDirection
Vertical scroll bar vsb vsbRate
لا تعتبر تسمية الخاصية Name لعناصر التحكم وفق الجدول 2-3 من متطلبات فيجول بيسك. فمثلاً، كنا قد أطلقنا التسمية lblChoice على عنصر التحكم Label الذي يظهر معلومات حول خيار المستخدم. نستطيع إسناد القيمة Choice للخاصية Name لعنصر التحكم بدلاً من lblChoice، وبالتالي ستصبح آخر عبارة في الإجراء UpdateLabel كما يلي:
Choice.Caption = Info
بدلاً من:
lblChoice.Caption = Info
لاحظ أنّ تسمية عناصر التحكم وفق الجدول 2-3 تسهل قراءة البرنامج. فإذا نظرت مثلاً إلى العبارة:
Choice.Caption = Info
لن تكون أنت أو غيرك قادراً على التنبؤ بأنChoice عبارة عن عنصر تحكم Label. بل قد يعتقد من يقرأ هذه العبارة أنها تعديل لعنوان النموذج المسمى Choice. بينما تأمل العبارة:
lblChoice.Caption = Info
سيدرك من يقرأ هذه العبارة أنّ lblChoice هو اسم لافتة، وهذا بسبب وضع الأحرف lbl. وهكذا يصبح معنى العبارة "أسند قيمة المتحول Info إلى الخاصية Captionللافتة".
العبارات التي قد لا تتسع على سطر واحد في هذا الكتاب
العبارة يمكن إدخالها بحيث تمتد على أكثر من سطر واحد، فمثلاً العبارة:
MyVariable = 1 + 2 + 3
يمكن كتابتها بهذه الطريقة:
MyVariable = 1 + _
2 + 3
أو بهذه الطريقة:
MyVariable = 1 _
+ 2 _
+ 3
إذاً، نستطيع في فيجول بيسك استئناف كتابة العبارة على السطر التالي وذلك بترك فراغ في نهاية السطر، يليه الرمز (_) Underscore.
ملاحظة
لا تستطيع كتابة العبارة الواحدة على أسطر وأنت في منتصف سلسلة، فمثلاً العبارة التالية:
lblMyLabel.Caption = "This is my string "
لا يمكن كتابتها كالتالي:

lblMyLabel.Caption = "This is _
my string "
إذا كان لا بُد، فاكتبها كالتالي:
lblMyLabel.Caption = "This is _
& "my string "
الخلاصة
قفزنا مع هذا الفصل إلى الماء!. أجل لقد بدأنا فعلياً ببناء برامج ويندوز حقيقية تتضمن شريط تمرير ومربع نص ولافته وزر أمر وخانات أختيار وأزرار خيارات. فتعلمنا كيف نضع عناصر التحكم هذه فى برامج لغة فيجول بيسك، وكيفية تحديد قيمة الخاصية Value لهذه العناصر وكيف نضيف نص برنامج إلى الإجراءات المرافقة لعناصر االتحكم هذه. كما تعلمنا من هذا الفصل أيضاً ككيف نضيف إجراء إلى النموذج (عندما أضفنا الإجراء Update Label إلى النموذج FrmOpptioon).

الفصل الثالث
كتل البناء البرمجية



يركز هذا الفصل على كتل البناء البرمجية، فلغة فيجول بيسك كحال اللغات الأخرى، تستخدم كتل بناء برمجية: مثل الإجراءات Procedures، والتوابع الوظيفية Functions، وعبارات الشرط If End If، وعبارات الحلقات، والمتحولات، وغير ذلك من مفاهيم البرمجة الهامة الأخرى.
برنامج ضرب عددين
يوضح هذا البرنامج كيف تستخدم الإجراءات والتوابع الوظيفية ضمن البرامج المطوّرة في لغة فيجول بيسك.
التمثيل المرئي لبرنامج ضرب عددين
سننجز الآن التمثيل المرئي لبرنامج ضرب عددين:
أنشئ الدليل C:\VB5Prg\Ch03، سنستخدم هذا الدليل لحفظ العمل المنجز.
افتح مشروعاً جديداً من نوع Standard EXE، واحفظ نموذج المشروع بالاسم Multiply.frm في الدليل C:\VB5Prg\Ch03، واحفظ ملف المشروع بالاسم Multiply.Vbp في ذات الدليل.
أنشئ النموذج frmMultiply طبقاً للجدول 3-1.
يفترض أن يظهر النموذج لدى اكتماله كما في الشكل 3-1.
الجدول 3-1. جدول خصائص النموذج frmMultiply.
الكائن الخاصية القيمة
Form Name frmMultiply
Caption برنامج ضرب عددين
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
CommandButton Name cmdCalculate
Caption اح&سب النتيجة
RightToLeft True
Text Box Name txtResult
Text (اجعله فارغاً)
RightToLeft True
Label Name lblResult
Caption النتيجة:
RightToLeft True

الشكل 3-1 النموذج frmMultiply بعد انتهاء تصميمه.
إدخال نص برنامج ضرب عددين
سندخل الآن، نص برنامج ضرب عددين:
انقر نقراً مزدوجاً على النموذج frmMultiply، لإظهار إطار نص البرنامج. توجد لائحتين عند قمة إطار نص البرنامج. دع اللائحة اليسارية تشير إلى General، واليمينية إلى Declarations، (وبالتالي فإن مجموع قراءة اللائحتين، سيشير إلى General Declarations، أي قسم التصاريح العامة).
اكتب العبارة التالية ضمن قسم التصاريح العامة General Declarations للنموذج frmMultiply:
'يجب التصريح عن كل المتحولات
Option Explicit
يجب من الآن فصاعداً، التصريح عن المتحول قبل استخدامه في البرنامج.
أدخل النص التالي ضمن الإجراء cmdCalculate_Click() للنموذج frmMultiply:
Private Sub cmdCalculate_Click()
Multiply 2, 3
End Sub
يُنفذ النص الذي أدخلته ضمن الإجراء cmdCalculate_Click() آلياً، عند نقر الزر احسب النتيجة. يُنفذ نص البرنامج هذا، الإجراء المدعو Multiply، سنتعلم بعد قليل كيف نضيف الإجراء Multiply إلى برنامجنا.
أدخل النص التالي ضمن الإجراء cmdExit_Click() للنموذج frmMultiply:
Private Sub cmdExit_Click()
End
End Sub
ستضيف إجراء جديداً الآن، إلى النموذج frmMultiply، وسنطلق على هذا الإجراء التسمية Multiply. إليك طريقة إنجاز ذلك:
انقر نقراً مزدوجاً على النموذج frmMultiply لإظهار إطار نص البرنامج.
انقر Add Procedureمن القائمة Tools للغة فيجول بيسك.
يستجيب فيجول بيسك بإظهار مربع الحوار Add Procedure.
أدخل Multiply في مربع النص Name ضمن مربع الحوار Add Procedure.
ضع علامة بجانب Sub ضمن الحقل Type. (لأنا نوع الإجراء هو روتين فرعي).
ضع علامة بجانب Public ضمن الحقل Scope. (لأن نريد أن يكون مجال الإجراء، مرئياً لجميع وحدات المشروع).
يبين الشكل 3-2 كيف يبدو مربع الحوار Add Procedureالآن.
الشكل 3-2 إضافة الإجراء المدعو Multiply.
انقر الزر OK لإغلاق مربع الحوار Add Procedure.
يستجيب فيجول بيسك بإضافة الإجراء Multiply() إلى المنطقة العامة من النموذج frmMultiply، ويظهر نص الإجراء Multiply بالشكل التالي:
Public Sub Multiply()
End Sub
سنحتاج إلى تعديل السطر الأول من الإجراء Multiply() ليصبح الإجراء بعدها كالتالي:
Public Sub Multiply(X As Integer, Y As Integer)
End Sub
لأننا سنمرر للإجراء Multiply، وسيطين يمثلان العددين المطلوب معرفة ناتج ضربهما.
أدخل الآن النص التالي ضمن الإجراء Multiply:

Public Sub Multiply(X As Integer, Y As Integer)
Dim Z
Z = X * Y
txtResult.Text = Str(Z)
End Sub
اختر البند Save Project من القائمة File لفيجول بيسك لتحفظ عملك.
تنفيذ برنامج ضرب عددين
نفّذ برنامج ضرب عددين، وانقر الزر احسب النتيجة.
يستجيب البرنامج بإظهار الرقم 6 ضمن مربع النص. (يحسب الإجراء ناتج ضرب 2 مع 3، ويظهر الناتج ضمن مربع النص، عند نقر الزر احسب النتيجة).
كيف يعمل برنامج ضرب عددين
يُنفذ برنامج ضرب عددين، الإجراء Multiply() لحساب حاصل ضرب عددين.
نص الإجراء cmdCalculate_Click()
ينفذ هذا الإجراء عند نقر الزر احسب النتيجة. تَستدعي العبارة الوحيدة الموجودة ضمنه الإجراء Multiply() مع وسيطين هما العددين 2 و 3:
Private Sub cmdCalculate_Click()
Multiply 2, 3
End Sub
يحتاج الإجراء لمعرفة العددين اللذين سيحسب حاصل ضربهما، ولهذا قدمنا له العددين 2 و3 كوسيطين له.
نص الإجراء Multiply()
يمتلك الإجراء Multiply() وسيطين:
يدعى الوسيط الأول X، ويصرح عنه بأنه من نوع صحيح Integer، والوسيط الثانيY من
النوع صحيح Integerأيضاً:

Public Sub Multiply(X As Integer, Y As Integer)
Dim Z
Z = X * Y
txtResult.Text = Str(Z)
End Sub
يُصرح الإجراء Multiply() عن متحول يدعى Z ويُسند إليه ناتج حاصل ضرب X مع Y.
ثم يستخدم الإجراء، المتحول Z بعدها، لإسناد قيمة Z إلى الخاصية Text لمربع النص txtResult. وهذا طبعاً بعد تحويل قيمة Z إلى ثابت كتابي بواسطة التابع الوظيفي Str().
يمكن التصريح عن إجراء ما، في فيجول بيسك، دون استخدام أي وسائط، فيكون القوسان بعد اسم الإجراء فارغتان، وبالتالي لا يلزم تحديد وسائط عند استدعاء الإجراء، فمثلاً لدينا الإجراء:
Public Sub Updatelabel()
يُستدعى هذا الإجراء بالطريقة التالية:
UpdateLabel
أي يكفي ذكر اسمه.
بينما استخدمنا في مثالنا الحالي، هذه العبارة:
Multiply 2,3
لاستدعاء (تنفيذ) الإجراءات في لغة فيجول بيسك، فمثلاً نستطيع إعادة كتابة الإجراءات cmdCalculate_Click() بالشكل التالي:
Private Sub cmdCalculate_Click()
Call Multiply (2,3)
End Sub

ملاحظة
يجب استخدام الأقواس للإحاطة بوسائط الإجراء، عند استدعائه بواسطة العبارة Call. لا تهم الطريقة التي تُستدعى بها الإجراء، ولهذا يمكنك اختيار الطريقة التي تناسبك. لدى إضافة الإجراء Multiply() اخترنا النطاق Scope بأنه من نوع Public (انظر الشكل 3-2). ولهذا صرح فيجول بيسك عن الإجراء Multiply بأنه من النوع العام Public:
Public Sub Multiply()
لو اخترنا النطاق Private بدلاً من Public، لكان شكل التصريح كما يلي:
Private Sub Multiply()
الفرق بين التصريحين، أن الإجراء في حالة Public يكون عاماً، ويمكن استخدامه من قبل أي إجراء آخر في أي موقع من ملفات المشروع، فحسب ما سيتوضح لك عبر الكتاب يمكن للبرنامج الواحد أن يتألف من عدة ملفات (ربما عدة نماذج) وبالتالي، فعند التصريح عن إجراء بأنه Public، فإنّ بمقدور كل ملفات البرنامج استخدامه.
أما عند استخدام Private، فتنعكس الآية، إذ لا يمكن استخدام الإجراء إلا من قبل الإجراءات الموجودة ضمن نفس الملف. وفي حالتنا هذه يمكن لإجراءات النموذج frmMultiply فقط استخدام الإجراء Multiply().
استخدام تابع وظيفي داخل برنامج ضرب عددين
يُطلق على الإجراء Multiply() عبارة إجراء Procedure، لأنه لا يعيد أي قيمة. وهو يشبه التابع الوظيفي أي Function، باستثناء أنه يعيد قيمة بعد استدعائه.
سنكتب الآن نص برنامج يوضح كيفية استخدام التابع الوظيفي. أولاً، احذف الإجراء Multiply() من برنامج ضرب عددين باتباع ما يلي:
أظهر إطار نص البرنامج بالنقر المزدوج على منطقة خالية في النموذج frmMultiply.
حدد موقع الإجراء Multiply() في إطار نص البرنامج، ستعثر على هذا الإجراء ضمن المنطقة General Declarations، والتي تستطيع الانتقال إليها بوضع اللائحة اليسارية الموجودة عند قمة إطار نص البرنامج على General ووضع اللائحة المجاورة لها على Multiply.
ضع إضاءة فوق كامل الإجراء. بما في ذلك عنوانه وآخر سطر فيه، (ضع المؤشر عند أول حرف في الإجراء، ثم اضغط Ctrl+A).
اضغط المفتاح Delete على لوحة المفاتيح.
هذا كل شيء بالنسبة لحذف الإجراء Multiply.
اتبع الآن الخطوات التالية لإضافة تابع وظيفي جديد إلى البرنامج Multiply():
أظهر إطار نص برنامج النموذج frmMultiply.
اختر Add Procedure من القائمة Tools.
يستجيب فيجول بيسك بإظهار مربع الحوار Add Procedure.
أدخل الاسم Multiply ضمن مربع النص Name.
اختر Function ضمن الحقل Type.
اختر Public ضمن الحقل Scope.
يفترض أن يبدو مربع الحوار Add Procedure الآن كما في الشكل 3-3.
الشكل 3-3 مربع الحوار Add Procedure وإضافة التابع الوظيفي Multiply().
انقر الزر Ok لإغلاق مربع الحوار Add Procedure.
يستجيب فيجول بيسك بإضافة التابع الوظيفي Multiply() إلى قسم التصاريح العامة General Declarations للنموذج frmMultiply ويظهر إطار نص البرنامج مع التابع الوظيفي Multiply() جاهزاً للتعديل:
Public Function Multiply()
End Function
غير السطر الأول لهذا التابع بحيث يغدو كالتالي:
Public Function Multiply(X As Integer, Y As Integer)
End Function
والآن يمتلك التابع الوظيفي Multiply() وسيطين (كلاهما من نوع صحيح Integer):
أضف النص التالي إلى التابع الوظيفي Multiply():
Public Function Multiply(X As Integer, Y As Integer)
Dim Z
Z = X * Y
Multiply = Z
End Function
غيّر نص الإجراء cmdCalculate_Click() ليصبح كما يلي:
Private Sub cmdCalculate_Click()
txtResult.Text = Str(Multiply(2,3))
End Sub
احفظ المشروع باختيار Save Project من القائمة File.
نفّذ برنامج ضرب عددين.
انقر الزر احسب النتيجة.
يتصرف البرنامج كما ترى بذات الطريقة السابقة (في حالة الإجراء Multiply()).
أنهِ البرنامج بنقر الزر خروج.
نص التابع الوظيفي Multiply()
يصرح ضمن هذا التابع عن متحول يدعىZ ويسند إليه ناتج حاصل ضرب الوسيطينX وY:
Public Function Multiply(X As Integer, Y As Integer)
Dim Z
Z = X * Y
Multiply = Z
End Function
تُسند آخر عبارة في التابع الوظيفي Multiply() قيمة المتحول Z إلى المتحول Multiply:
Multiply = Z
يمثل المتحول Multiply القيمة المعادة من التابع الوظيفي. لنوضح أكثر، التابع الوظيفي اسمه Multiply، ويستعمل اسم التابع الوظيفي ليحتوي على القيمة المعادة، ولهذا لا بد من إسناد القيمة التي سيعيدها التابع الوظيفي إلى متحول (يدعى Multiply) ويحمل اسم ذلك التابع.
Multiply = Z
يستطيع كل من يستدعي التابع الوظيفي Multiply() استخدام القيمة المعادة منه حسب ما توضحه الفقرة التالية:
نص الإجراء cmdCalculate_Click()
يُسنِد نص الإجراء القيمة المعادة من التابع الوظيفي Multiply() إلى الخاصية Text لمربع النص txtResult:
Private Sub cmdCalculate_Click()
txtResult.Text = Str(Multiply(2,3))
End Sub
كما تلاحظ، يعتبر استخدام تابع وظيفي أكثر تعقيداً بعض الشيء من استخدام الإجراءات. لكنك ستتعود على استخدام التوابع الوظيفية، وستتمكن من تقدير أهميتها، لأنها تساعد بسهولة على قراءة وتوضيح عمل البرامج. لنأخذ العبارات التالية على سبيل المثال:
TtxResult.Text = Str(Multiply(2,3))
تقول هذه العبارة ما يلي: " نفّذ التابع الوظيفي Multiply() مع وسيطين هما 2 و3، وتحويل القيمة المعادة من Multiply إلى سلسلة نصية (باستخدام التابع الوظيفي Str())، وإسناد السلسلة الناتجة إلى الخاصية Text لمربع النص". ولهذا، فسوف يحوي مربع النص txtResult على السلسلة "6" داخله (أي 2×3 = 6).
الإجراءات والتوابع الوظيفية والطرائق
حسب ما تقدم في هذا الفصل، فإن الفرق بين الإجراء والتابع الوظيفي أن الإجراء لا يعيد قيمة على عكس التابع الوظيفي. ستصادف عبر الفصول القادمة مصطلحاً جديداً وهو المصطلح Method (طريقة). تعمل الطريقة بشكل مشابه لعمل الإجراءات والتوابع الوظيفية. وعلى العموم. تنجز الطريقة method نوعاً ما من الوظائفية على كائن خاص ما. فمثلاً تمحو العبارة التالية محتويات النموذج الرسومية، والمدعو frmMyForm:
frmMyForm.Cls
لاحظ أن اسم الطريقة في العبارة السابقة هو Cls. يمكن أن تبدو الطرائق Methods من وجهة نظر المستخدم كالإجراءات والتوابع الوظيفية ولكن بصيغة غريبة. سنتمرن عبر فصول هذا الكتاب على استخدام الطرائق.
عبارات اتخاذ القرار
تصف الفقرات القادمة كتل البناء البرمجية الأساسية التي تتوافر في لغة فيجول بيسك. ويتولى ما تبقى من الفصل شرح كيفية كتابة برامج تستخدم هذه الكتل.
الإشارة إلى عناصر التحكم في نص البرنامج
كما لاحظنا حتى الآن، يمكننا الإشارة إلى خاصية عنصر تحكم ما، بكتابة اسم عنصر التحكم البرمجي، ثم نقطة (.) ثم اسم الخاصية. فمثلاً، توضح العبارة التالية كيف تشير إلى الخاصية Text لعنصر التحكم txtResult:
txtResult.Text
كما يمكنك الإشارة أيضاً إلى الخاصية، بإضافة اسم النموذج الذي يتوضع عنصر التحكم فيه. فمثلاً، تشير العبارة التالية إلى الخاصية Text لمربع النص txtResult ضمن النموذج frmMultiply:
frmMultiply.txtResult.Text
تستطيع في معظم الأحوال تجاهل اسم النموذج الحالي، (لتوفير جهد عملية الإدخال)، وعموماً إذا احتوى البرنامج على أكثر من نموذج، فمن الممكن تحديد اسم النموذج، وسنشاهد أمثلة عبر كتابنا على حالات يتوجب ذكر اسم النموذج فيها.
العبارة If
تعرفنا على كتلة عبارات If.End If في الفصل الثاني. وفي كتلة If.End If اللاحقة، تنفذ العبارات الواقعة بين السطر If والسطر If.End فقط إذا كانت قيمة المتحول A تساوي1:

If A = 1 Then
'ستنفذ العبارات الموجودة هنا
'A = 1 إذا كانت قيمة المتحول
End If
تُوضح العبارات التالية شكل عبارات If .Else.End If:

If A = 1 Then
'ستنفذ العبارات الموجودة هنا
'A = 1 إذا كانت قيمة المتحول
Else
'ستنفذ العبارات الموجودة هنا
'A <> 1 إذا كانت قيمة المتحول
End If
العبارة Select Case
يكون استخدام Select Case أحياناً أكثر ملاءمة للاستخدام من If.Else.End If. توضح كتلة العبارات التالية كيف تعمل Select Case:

Select Case A
Case 0
'ستنفذ العبارات الموجودة هنا
'A = 0 إذا كانت قيمة المتحول
Case 1
'ستنفذ العبارات الموجودة هنا
'A = 1 إذا كانت قيمة المتحول
Case 2
'ستنفذ العبارات الموجودة هنا
'A = 2 إذا كانت قيمة المتحول
End Select
كما ترى، تعمل Select.Case بطريقة مشابهة لعمل عبارة If.
طريقة Do While.Loop
تُستخدم العبارة Do.Loop لتنفيذ العبارات ضمنها، مادام الشرط المحدد محققاً. مثال، تعد حلقة Do.Loop التالية من 1 وحتى 1000:
Dim Counter
Counter=1
Do While Counter < 1001

Counter = Counter + 1
Loop
يتم تجهيز المتحول Counter بإسناد القيمة الابتدائية 1إليه، ثم تبدأ بعدها حلقة
Do While.Loop.
يتحقق السطر الأول من أن قيمة Counter أصغر من 1001. فإذا كان الأمر كذلك، تنفذ العبارات الواقعة بين السطر Do While والسطر Loop. وفي مثالنا هذا، توجد عبارة واحدة بين هذين السطرين:
Counter = Counter +1
والتي تزيد قيمة العداد Counter بمقدار 1.
يعود البرنامج بعد ذلك إلى السطر Do While ويتحقق من قيمة العداد Counter، والتي تساوي الآن إلى 2.
ولهذا فسوف يعاد تنفيذ العبارة الواقعة بين السطر Do While والسطر Loop. تستمر المعالجة حتى تصبح قيمة Counter مساوية إلى 1001، وعندها يختل الشرط، ويستأنف تنفيذ البرنامج بدأً من العبارة التي تلي السطر Loop.
طريقة Do.Loop While
العبارات ضمن الحلقة Do While.Loop الموصوفة في الفقرة السابقة قد تنفذ أو لا تنفذ، تبعاً لتحقيق الشرط. فمثلاً العبارات في حلقة Do While.Loop التالية لن تنفذ أبداً:
Dim Counter
Counter = 2000
Do While Counter < 1001
Counter = Counter + 1
Loop
فعندما يتحقق البرنامج من السطر Do While فإنه سيكتشف أن Counter تساوي 2000، ولهذا فلن تنفذ العبارة الواقعة بين السطر Do While والسطر Loop.
يتطلب البرنامج أحياناً الدخول ضمن الحلقة لمرة واحدة على الأقل دون تحقيق أي شرط.
تُستخدم الحلقة Do.Loop While في مثل هذه الحالة:
Dim Counter
Counter = 2000
Do
txtUserArea.Text = Str(Counter)
Counter = Counter + 1
Loop While Counter < 1001
ينفذ البرنامج العبارات الواقعة بين السطر Do والسطر Loop While مهما تكن الأحوال. وبعد ذلك يحدد البرنامج إذا كان الشرط محققاً (أي Counter أصغر من 1001)، يعيد البرنامج تكرار تنفيذ الحلقة إذا تحقق الشرط، وبالتالي يعيد تنفيذ العبارات الواقعة بين السطر Do والسطر Loop While.
أما إذا اختل الشرط (أي Counter ليس أصغر من 1001) فعندها يستأنف التنفيذ من العبارة التي تأتي مباشرة بعد السطر Loop While. تعد الطريقة Do.Loop While التالية من 50 إلى 300:
Dim Counter
Counter = 50
Do
Counter = Counter + 1
Loop While Counter < 301
الطريقة For.Next
تُعَدُّ الطريقة For.Next وسيلة أخرى لصنع الحلقات في لغة فيجول بيسك. مثلاً، تَعُّدُ الحلقة التالية من 1 و حتى 100:
Dim7 I
For I = 1 to 100 Step 1
txtMyTextArea.Text = Str(I)
Next
أما للتعداد من 1وحتى 100 وبخطوة (زيادة في كل مرة) قدرها 2، فتستطيع استخدام الحلقة For.Next التالية:
Dim I
For I = 1 to 100 Step 2
txtMyTextArea.Text = Str(I)
Next
تعد هذه الحلقة بالشكل التالي: 1،2،3،5، ... 99.
تساوي قيمة Step في الحالة الافتراضية (أي عند تجاهل كتابتها) إلى 1، وبالتالي فالحلقتين التاليتين متماثلتين:
Dim I
For I = 1 to 100 Step 1
txtMyTextArea.Text = Str(I)
Next
و الحلقة:
Dim I
For I = 1 to 100
txtMyTextArea.Text = Str(I)
Next
العبارة Exit For
تستطيع الخروج من الحلقة For.Next باستخدام عبارة Exit For كما يلي:
Dim I
For I = 1 to 1000
txtResult.Text = Str(I)
If I = 500 Then
Exit For
End If
Next
يعد جزء البرنامج هذا بدءاً من الواحد وبزيادة قدرها 1 للمتحول Z مع كل تكرار للحلقة.
يتحقق شرط عبارة If الداخلية عندما تصبح قيمة I مساوية إلى 500 (If I = 500) ونتيجة ذلك تنفذ العبارة Exit For التي تنهي بدورها تنفيذ الحلقة For.Next، قبل انتهاء الحلقة.
أي بكلمة أخرى، تتسبب عبارة If بإنهاء الحلقة عند I = 500 (بينما يفترض أن تنتهي الحلقة بدون عبارة If الداخلية عندما تصبح قيمة I مساوية إلى 1000).
العبارة Exit DO
تنتهي الحلقة Do While.Loop باستخدام Exit DO:
Dim I
I = 1
Do While I < 10001
txtResult.Text = Str(I)
I = I + 2
If I > 500 Then
Exit Do
End If
Loop
تعد الحلقة السابقة بدءاً من الواحد وبزيادة قدرها 2. وينهى تنفيذ الحلقة عندما تصبح قيمة I أكبر من 500.
الحلقة اللامنتهية
قد تقع أحياناً في خطأ يشبه ذلك المبين في الحلقة التالية:


Dim I
I = 1
Do While I < 10001
txtResult.Text = Str(I)
If I > 500 Then
Exit Do
End If
Loop
كما تلاحظ، نسينا كتابة العبارة التالية:
I = I + 2

تبقى قيمة Counter ثابتة في الحلقة Do While.Loop السابقة (I=1)، وهذا بسبب نسيان زيادة قيمته. يبقى البرنامج في هذه الحالة ضمن الحلقة إلى اللانهاية، لأن قيمة I دوماً أصغر من 1001 ولكن تكون أبداً أكبر من 500. بل في الواقع تساوي 1 على الدوام.
العبارة With
تمكّنك العبارة With من إسناد القيم إلى عدة خصائص لكائن ما، دون كتابة اسم الكائن لكل خاصية (أي دفعة واحدة).
خذ مثلاً العبارة With التالية التي تسند مجموعة من خصائص عنصر التحكم cmdMyButton:
With cmdMyButton
.Height = 300 .ClientWidth = 4725
.Caption = "&My Button"
End With
تلعب عبارة With نفس دور العبارات التالية:
cmdMyButton.Height = 300cmdMyButton.Width = 4725
cmdMyButton.Caption = "&My Button"
توفر عبارة With كما نلاحظ وقت الإدخال (زمن كتابة نص البرنامج). فبدلاً من كتابة اسم عنصر التحكم مع كل خاصية. يكفي كتابة اسم عنصر التحكم لمرة واحدة فقط على سطر العبارة With.
برنامج جمع الأعداد
سنصمم الآن برنامجاً يدعى برنامج جمع الأعداد.
يسمح برنامج جمع الأعداد، للمستخدم باختيار رقم ثم يجمع كل الأرقام الصحيحة من 1 وحتى ذلك الرقم. فمثلاً، يُجري برنامج جمع الأعداد، عملية الجمع التالية: عند اختيار الرقم 5:
1 + 2 + 3 + 4 + 5 = 15
ويظهر الناتج.
التمثيل المرئي لبرنامج جمع الأعداد
سننجز الآن التصميم المرئي لبرنامج جمع الأعداد:
افتح مشروعاً جديداً من نوع Standard EXE، واحفظ النموذج باسم Sum.frm في الدليل C:\VB5Prg\Ch03 واحفظ المشروع بالاسم Sum.Vbp في ذات الدليل.
أنشئ النموذج frmSum طبقاً للجدول 3-2.
يفترض أن يظهر النموذج المكتمل، كما في الشكل 3-4.
الجدول 3-2. جدول خصائص النموذج frmSum.
الكائن الخاصية القيمة
Form Name frmSum
Caption برنامج جمع الأعداد
RightToLeft True
CommandButton Name cmdExit
Caption &خروج

الكائن الخاصية القيمة
RightToLeft True
CommandButton Name cmdSumIt
Caption ا&جمع
RightToLeft True
Text Box Name txtResult
Text (اجعله فارغاً)
Alignment 2-Center
MultiLine True
Enabled False
RightToLeft True
Label Name lblResult
Caption الرقم المختار: 1
RightToLeft True
Vertical Scroll Bar Name vsbNum
Min 1
Max 500
Value 1
تابع الى الاسفل

الشكل 3-4 النموذج frmSum.
أسندت القيمة False إلى الخاصية Enabled لمربع النص txtResult لمنع المستخدم من الكتابة داخل مربع النص أو تعديله.
إدخال نص برنامج جمع الأعداد
سنكتب الآن نص برنامج جمع الأعداد:
تحقق بأن العبارة Option Explicit موجودة ضمن قسم التصاريح العامة General Declaration:
' يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء cmdExit_Click() للنموذج frmSum:
Private Sub cmdExit_Click()
End
End Sub
أدخل النص التالي ضمن الإجراء cmdSumIt_Click() للنموذج frmSum:
Private Sub cmdSumIt_Click()
Dim I
Dim R
For I = 1 To vsbNum.Value Step 1
R = R + I
Next
txtResult.Text = Str(R)
End Sub
أدخل النص التالي ضمن الإجراء vsbNum_Change():
Private Sub vsbNum_Change()
lblNum = "الرقم المختار: " + Str(vsbNum.Value)
End Sub
أدخل النص التالي ضمن الإجراء vsbNum_Scroll():
Private Sub vsbNum_Scroll()
vsbNum_Change
End Sub
احفظ المشروع باختيار Save Project من القائمة File.
تنفيذ برنامج جمع الأعداد
نفّذ برنامج جمع الأعداد.
اختر رقماً بالنقر على رمزي الأسهم لشريط التمرير العمودي أو بسحب مؤشر شريط التمرير.
يستجيب البرنامج بإظهار الرقم الذي اخترته.
انقر الزر اجمع.
يستجيب البرنامج بإظهار ناتج الجمع في مربع النص (انظر الشكل 3-5).
الشكل 3-5 برنامج جمع الأعداد.
فمثلاً، يظهر البرنامج الرقم 15 عند اختيار الرقم 5 بواسطة شريط التمرير العمودي ثم النقر على الزر اجمع (أي 1 + 2 + 3 + 4 +5 = 15).
أنهِ البرنامج بنقر الزر خروج.
كيف يعمل برنامج جمع الأعداد
يستخدم البرنامج حلقة For.Next لإنجاز عملية الجمع.
نص الإجراء cmdSumIt_Click()
ينفذ الإجراء cmdSumIt_Click() عند نقر الزر اجمع:
Private Sub cmdSumIt_Click()
Dim I
Dim R
For I = 1 To vsbNum.Value Step 1
R = R + I
Next
txtResult.Text = Str(R)
End Sub
يُصرح الإجراء عن متحولين، وهما I و R، وتحسب الحلقة For.Next المجموع:
1 + 2+ 3+ . . . + vsbNum.Value
تساوي القيمة الابتدائية للمتحول R إلى صفر، لأن لغة فيجول بيسك، تُسند القيمة الابتدائية صفر إلى المتحولات آلياً، عند التصريح عنها لأول مرة. لكن يفضل بعض المبرمجين استخدام عبارة زائدة، مثل:
R = 0
قبل عبارة For وذلك زيادة في الإيضاح.
تُحدِّث آخر عبارة في الإجراء، الخاصية Text لمربع النص بمحتويات المتحول R.
نص الإجراء vsbNum_Change()
يُنفذ هذا الإجراء عند تغيير موضع مؤشر شريط التمرير:
Private Sub vsbNum_Change()
lblNum = "الرقم المختار: " + Str(vsbNum.Value)
End Sub
يُحدِّث الإجراء vsbNum_Change() بإسناد الخاصية Value لشريط التمرير، إلى الخاصية Caption للافتة lblNum، وذلك لتمكين المستخدم من أخذ قراءة الوضعية الحالية لشريط التمرير.
لاحظ أن العبارة:
lblNum = "الرقم المختار: " + Str(vsbNum.Value)
هي ذات العبارة:
lblNum.Caption = "الرقم المختار: " + Str(vsbNum.Value)
فعند إسناد قيمة إلى عنصر تحكم من نوع لافتة Label بدون ذكر اسم الخاصية، يَفترض فيجول بيسك أنك ترغب بإسناد القيمة إلى الخاصية Caption للافتة، لأن الخاصية Caption هي الخاصية الافتراضية لهذا العنصر (اللافتة).
نمتلك عناصر التحكم الأخرى كحال عنصر اللافتة خصائص افتراضية، فمثلاً الخاصية الافتراضية لعنصر التحكم Text Box (مربع نص) هي الخاصية Text، وهكذا فالعبارة:
txtMyTextBox.Text = " Hello "
هي نفس العبارة
txtMyTextBox = " Hello "

ملاحظة
تعوّد دائماً على عدم استخدام الخاصية الافتراضية (إلا بشرط ستعرفه في آخر هذه الملاحظة)، لأنك أحياناً قد تخطئ في كتابة اسم الكائن، الذي لم تسند له الخاصية الافتراضية، ليعتبره فيجول بيسك حينها متحولاً عادياً. مثلاً، افترض وجود مربع نص لديك باسم txtMyText، وأنك تريد إظهار نص معين فيه، (باستخدام ميزة الخاصية الافتراضية)، عندها ستكتب العبارة التالية:
txtMyText = "مرحباً"
ولكنك بدلاً من كتابة العبارة السابقة، كتبت ما يلي خطأً:
txtMText = "مرحباً"
عندها سيعتبر فيجول بيسك أن txtMText عبارة عن متحول عادي، وسيسند له القيمة "مرحباً"، التي لن تظهر في مربع النص txtMyText.
أما إذا كتبت ما يلي:
txtMText.Text = "مرحباً"
عندها سينبهك فيجول بيسك أن txtMText ليس عنصر تحكم، ولا يملك الخاصية Text.
تستطيع حل المشكلة السابقة، بكتابة العبارة Option Explicit في قسم التصاريح العامة، التي تنبهك أن txtMText غير مصرح عنه.
لاحظ مدى أهمية العبارة Option Explicit في برنامجك، وكيف تحل لك الكثير من أخطاء الإدخال، لذلك تعود دائماً على استخدامها.
نص الإجراء vsbNum_Scroll()
ينفذ هذا الإجراء عندما يسحب المستخدم مؤشر شريط التمرير:
Private Sub vsbNum_Scroll()
vsbNum_Change
End Sub
ينفذ هذا الإجراء vsbNum_Change()، وهكذا يؤدي تحريك مؤشر شريط التمرير، إلى تنفيذ الإجراء vsbNum_Change() والذي يحدِّث بدوره اللافتة بقيمة الخاصية Value لشريط التمرير.
برنامج المؤقِّت
يوضح برنامج المؤقِّت، كيفية استخدام عنصر التحكم Timer.
التمثيل المرئي لبرنامج المؤقِّت
يوضح الشكل 3-6 كيف يبدو عنصر التحكم Timer. ضع مؤشر الفأرة فوق هذا العنصر ليظهر مستطيل أصفر مع الرسالة النصية Timer داخله، وبهذه الطريقة تتأكد من سلامة اختيار العنصر.
لاحظ أن مواقع الرموز ضمن مربع الأدوات قد تختلف عن الموجودة لديك بعض الشيء.
الشكل 3-6 رمز عنصر تحكم الميقاتية Timer داخل إطار مربع الأدوات.
أنشئ مشروعاً جديداً من نوع Standard EXE، واحفظ نموذج المشروع بالاسم Timer.frm في الدليل C:\VB5Prg\Ch03 واحفظ ملف المشروع بالاسم Timer.Vbp في ذات الدليل.
أنشئ النموذج frmTimer طبقاً للجدول 3-3.
يفترض أن يبدو النموذج عند الكتابة، كما في الشكل 3-7.
الجدول 3-3. جدول خصائص النموذج frmTimer.
الكائن الخاصية القيمة
Form Name frmTimer
Caption برنامج المؤقت
RightToLeft True

CommandButton Name cmdExit
Caption &خروج
RightToLeft True
Timer Name tmrTimer
Enabled True
Interval 2000
الشكل 3-7 النموذج frmTimer.
إدخال نص برنامج المؤقِّت
سنكتب الآن نص برنامج المؤقِّت:
تحقق بأن العبارة Option Explicit موجودة ضمن قسم التصاريح العامة frmTimer:
' يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء cmdExit_Click() للنموذج frmTimer:
Private Sub cmdExit_Click()
End
End Sub
أدخل النص التالي ضمن الإجراء trmTimer_Timer() للنموذج frmTimer:
Private Sub trmTimer_Timer()
Beep
End Sub
احفظ المشروع باختيار Save Project من القائمة File.
تنفيذ برنامج المؤقِّت
نفّذ برنامج المؤقِّت.
يطلق برنامج المؤقِّت، صوتاً كل ثانيتين (2000 ملي ثانية)، ولا يظهر عنصر التحكم Timer أثناء تنفيذ البرنامج، لكن يظهر فقط أثناء مرحلة التصميم. ستتعرف عبر الكتاب على بعض عناصر التحكم الأخرى التي لا تشاهد أثناء زمن التنفيذ.
انقر الزر خروج لإنهاء البرنامج.
كيف يعمل برنامج المؤقِّت
يستخدم البرنامج عنصر التحكم Timer. والبرنامج ينفذ الإجراء tmrTimer_Timer() آلياً كل 2000 ميلي ثانية (كل ثانيتين).
نص الإجراء tmrTimer_Timer()
تم إسناد القيمة 2000إلى الخاصية Interval للميقاتية tmrTimer أثناء مرحلة التصميم، مما يتسبب بتنفيذ الإجراء tmrTimer_Timer() آلياً كل 2000 ميلي ثانية (ثانيتين).
Private Sub trmTimer_Timer()
Beep
End Sub
وهكذا، يعيد الحاسب صوت الرنين كل ثانيتين.
وباعتبار أن رمز الميقاتية Timer لا يظهر عند التنفيذ، وبالتالي فإن موقعه ضمن النموذج ليس هاماً، أي ضعه في أي مكان شئت، بشرط مشاهدته.

[color]

[/color]

تحسين برنامج المؤقِّت
سنحسن الآن برنامج المؤقِّت:
أضف زر آخر Command Button، إلى النموذج frmTimer، حسب الشكل 3-8. يفترض أن يحمل زر الأمر هذا الخصائص التالية:
Name: cmdEnableDisable
Caption: &تفعيل
الشكل 3-8 إضافة الزر تفعيل إلى النموذج frmTimer.
عدِّل قسم التصاريح العامة General Declarations في النموذج frmTimer بحيث يغدو كالتالي:
'يجب التصريح عن كل المتحولات
Option Explicit
'gKeepTrack التصريح عن المتحول
Dim gKeepTrack
يبين الشكل 3-9 قسم التصاريح العامة General Declarations للنموذج frmTimer.
تستطيع زيادة أو تكبير قسم التصاريح العامة بنقر بداية السطر Option Explicit ثم ضغط المفتاح Enter على لوحة المفاتيح عدة مرات. تتمكن بهذه الطريقة من إضافة عدة أسطر خالية إلى هذا القسم، تستطيع بعد إضافة الأسطر كتابة نص البرنامج المناسب فيها.
الشكل 3-9 قسم التصاريح العامة للنموذج frmTimer.
عدِّل الإجراء tmrTimer_Timer().
Private Sub Timer_Timer()
'gKeepTrack أصدر رنينا إذا كانت قيمة المتحول
'تساوي الواحد
If gKeepTrack = 1 Then
Beep
End If
أضف النص التالي إلى الإجراء cmdEnableDisable:
Private Sub cmdEnableDisable_Click()
If gKeepTrack = 1 Then
gKeepTrack = 0
cmdEnableDisable.Caption = "&تفعيل"
Else
gKeepTrack = 1
cmdEnableDisable.Caption = "&تعطيل"
End If
End Sub
احفظ المشروع بالطريقة المعتادة.
تنفيذ برنامج المؤقِّت
نفّذ برنامج المؤقِّت. (اضغط المفتاح F5)
لا يصدر البرنامج صوتاً كل ثانيتين.
انقر الزر تفعيل، لتمكين عملية إصدار الصوت.
يتبدل عنوان الزر تفعيل إلى تعطيل، ويطلق البرنامج صوت رنين Beep كل ثانيتين (انظر الشكل 3-10).
الشكل 3-10 الزر cmdEnableDisable وهو يحمل الآن العنوان تعطيل.
انقر الزر تعطيل.
يعود عنوان الزر إلى تفعيل، ويتوقف البرنامج عن إصدار الصوت Beep.
كرر عملية النقر على الزر عدة مرات، وبعد انتهائك غادر البرنامج بنقر زر خروج.
نص قسم التصاريح العامة للنموذج frmTimer
يتضمن هذا القسم التصريح التالي عن المتحول gKeepTrack:
'gKeepTrack التصريح عن المتحول
Dim gKeepTrack
السؤال المطروح الآن. ما هو السبب وراء التصريح عن المتحول gKeepTrack هنا ؟!.
يفيد التصريح عن المتحولات ضمن هذا القسم إلى جعله مرئياً لكل إجراءات النموذج frmTimer. فمثلاً، لو صرحنا عن المتحول gKeepTrack ضمن الإجراء
tmrTimer_Timer() بدلاً من التصريح عنه ضمن قسم التصاريح العامة، فمن الممكن استخدام هذا المتحول ضمن الإجراء tmrTimer_Timer() فقط، ولا يمكن للإجراءات الأخرى الوصول إليه ومعرفة قيمته. ولكن التصريح عنه ضمن قسم التصاريح العامة General Declarations يجعله بمتناول كل الإجراءات والتوابع الوظيفية الموجودة في النموذج frmTimer.
ملاحظة
يدل الحرف الأول من المتحول gKeepTrack هو g، على أن هذا المتحول مصرح عنه في قسم التصاريح العامة General Declarations.
ولا يعتبر استخدام هذا الحرف إلزاميا أو من متطلبات لغة فيجول بيسك، إلا أنه أسلوب جيد برمجياً. لهذا سنستخدم الحرف g عبر هذا الكتاب عند التصريح عن المتحولات ضمن قسم التصاريح العامة.
نص الإجراء tmrTimer_Timer()
ينفذ هذا الإجراء كل ثانيتين وذلك بسبب إسناد القيمة 2000 إلى الخاصيةInterval لعنصر التحكم trmTimer:
Private Sub tmeTimer_Timer()
'gKeepTrack إذا كانت قيمة المتحول
'تساوي الواحد
If gKeepTrack = 1 Then
Beep
End If
End Sub
تنفذ العبارة Beep إذا تحقق الشرط If. أي إذا كانت قيمة gKeepTrack تساوي الواحد. لاحظ أننا لم نصرح عن gKeepTrack داخل هذا الإجراء، لكن الإجراء يتمكن من التعرف على المتحول بسبب التصريح عنه ضمن قسم التصاريح العامة كما اتفقنا.
كما ذكرنا أيضاً أن فيجول بيسك يعطي المتحولات القيمة الابتدائية "صفر"، لحظة التصريح عنها، (وبالتالي لا يكون الشرط If هذا محققاً منذ بدء تشغيل البرنامج ولهذا لا يصدر صوتاً كل ثانيتين).
نص الإجراء cmdEnableDisable_Click()
ينفذ هذا الإجراء عند نقر الزر cmdEnableDisable:
Private Sub cmdEnableDisable_Click()
If gKeepTrack = 1 Then
gKeepTrack = 0
cmdEnableDisable.Caption = "&تفعيل"
Else
gKeepTrack = 1
cmdEnableDisable.Caption = "&تعطيل"
End If
End Sub
تنفذ العبارات الواردة ضمن السطرين If و Else إذا كانت قيمة gKeepTrack تساوي "الواحد"، فتصبح قيمة gKeepTrack مساوية الصفر وتبدل الخاصية Caption إلى &تفعيل.
أما إذا كانت قيمة gKeepTrack مساوية للصفر، فستنفذ العبارات الواقعة بين السطر Else و End If، وتصبح قيمة gKeepTrack مساوية إلى "الواحد" وتبدل الخاصية Captionإلى &تعطيل.
أيضاً، يتعرف الإجراء cmdEnableDisable_Click() على المتحول gKeepTrack وهذا بسبب التصريح عنه ضمن قسم التصاريح العامة.
تعديل برنامج المؤقِّت ثانية
كان الغرض من استخدام المتحول gKeepTrack إيضاح أن المتحول الذي يصرح عنه ضمن القسم General Declarations يصبح مرئياً لكل إجراءات النموذج. تستطيع عموماً كتابة برنامج المؤقِّت بدون استخدام المتحول gKeepTrack. استخدم الخطوات التالية لرؤية كيفية إنجاز ذلك:
احذف التصريح عن gKeepTrack من قسم التصاريح العامة للنموذج frmTimer، وبالتالي يجب أن يظهر هذا القسم كما يلي:
' يجب التصريح عن كل المتحولات
Option Explicit
كنا قد طلبنا منك إسناد القيمة True إلى الخاصية Enabled لعنصر التحكم tmrTimer.
غيّر وضعية الخاصية Enabled إلى False. يؤدي هذا العمل إلى إيقاف تنفيذ الإجراء tmrTimer_Timer().
غيّر الإجراء cmdEnableDisable بحيث يغدو كالتالي:
Private Sub cmdEnableDisable_Click()
If tmrTimer.Enabled = True Then
tmrTimer.Enabled = False
cmdEnableDisable.Caption = "&تفعيل"
Else
tmrTimer.Enabled = True
cmdEnableDisable.Caption = "&تعطيل"
End If
End Sub
غيّر الإجراء tmrTimer_Timer() بحيث يصبح كالتالي:
Private Sub trmTimer_Timer()
Beep
End Sub
احفظ المشروع.
تنفيذ برنامج المؤقِّت
نفّذ برنامج المؤقِّت وتحقق بأنه يعمل بنفس طريقة استخدام المتحول gKeepTrack.
أَنهِ البرنامج بنقر الزر خروج.
نص الإجراء tmrTimer_Timer()
ينفذ هذا الإجراء كل 2000 ميلي ثانية (أي كل 2 ثانية) إذا كانت قيمة الخاصية Enabled تساوي True. (طبعاً الفاصل الزمني يساوي 2000 ميلي ثانية، لأننا أسندنا القيمة 2000 إلى الخاصية Interval أثناء طور التصميم).
لن ينفذ الإجراء tmrTimer_Timer() عند بدء تشغيل البرنامج، وهذا لأننا أسندنا القيمة False إلى الخاصية Enabled، بينما إذا كانت قيمة Enabled تساوي القيمة True فسوف ينفذ الإجراء، ويصدر الحاسب صوتاً Beep كل ثانيتين.
Private Sub trmTimer_Timer()
Beep
End Sub
نص الإجراء cmdEnableDisable_Click()
ينفذ هذا الإجراء عندما ننقر الزر cmdEnableDisable:
Private Sub cmdEnableDisable_Click()
If tmrTimer.Enabled = True Then
tmrTimer.Enabled = False
cmdEnableDisable.Caption = "&تفعيل"
Else
tmrTimer.Enabled = True
cmdEnableDisable.Caption = "&تعطيل"
End If
End Sub
تتحقق العبارة If من قيمة الخاصية Enabled للعنصر Timer ؛ فإذا كانت القيمة تساوي True، فسوف تُنفذ العبارات الواقعة بين السطرين If و Else، فتصبح قيمة الخاصية Enabled مساوية إلى False وتتغير الخاصيةCaption للزر cmdEnableDisable إلى تفعيل.
وعلى العكس، تُنفذ العبارات الواقعة بين السطرين Else و End If إذا كانت قيمة الخاصية Enabled تساوي False، فتصبح قيمتها True وتغير الخاصية Caption للزر cmdEnable Disable إلى تعطيل.
تستخدم الكثير من البرامج، تقنية تغيير عنوان الزر (الخاصية Caption)، تبعاً للحالة الراهنة للبرنامج.
ملاحظة
يستخدم برنامج المؤقِّت زراً واحداً (الزر cmdEnableDisable)، لإنجاز مهمتي تفعيل وتعطيل (Enable و Disable) عنصر تحكم الميقاتية.
تصبح الخاصية Caption للزر مساوية إلى تعطيل، عند تفعيل الميقاتية Timer (وبهذا، يستطيع المستخدم نقر الزر، لتعطيل الميقاتية).
تصبح الخاصية Caption للزر مساوية إلى تفعيل، عند تعطيل الميقاتية (ويستطيع المستخدم نقر الزر، لتفعيل الميقاتية).
يُفضل تقليل عدد عناصر التحكم في نموذج البرنامج، قدر الإمكان، واستخدام خاصيتي التفعيل والتعطيل Enable و Disable، وذلك حتى لا نشوش المستخدم. ففي برنامجنا هذا، تمكنا بواسطة زر واحد من إنجاز مهمتين (تفعيل/تعطيل).
طبعاً، لا يعني هذا توحيد الأزرار ذات الأدوار المختلفة كلياً. فمثلاً، يجب أن لا نوحّد عمل الزر خروج والزر تفعيل/تعطيل.

الخلاصة
ناقش هذا الفصل، عبارات اتخاذ القرار في لغة فيجول بيسك وكذلك عبارات الحلقات. تعتبر هذه العبارات أحجار البناء الأساسية للغة البرمجة فيجول بيسك.
كما ركز هذا الفصل على عنصر التحكم Timer (الميقاتيه) ومفهوم مرئية المتحولات وكذلك على التوابع الوظيفية والإجراءات والطرائق.
الفصل الرابع
الفــأرة



سنتعلم في هذا الفصل كيفية اكتشاف واستخدام الحوادث التي تنجم عن استخدام الفأرة، والتعامل مع النقر على أحد أزرارها أو مع الدمج بين النقر على أحد أزرارها والضغط على لوحة المفاتيح. كما سنتعلم أيضاً ما يتعلق بسحب وإسقاط الكائنات بواسطة الفأرة.
برنامج التحريك
يوضح برنامج التحريك كيفية تصميم برامج تمكن المستخدم من تحريك الكائنات بواسطة الفأرة ضمن إطار البرنامج.
التمثيل المرئي لبرنامج التحريك
سنبدأ بطور التمثيل المرئي للبرنامج:
أنشئ الدليل C:\VB5Prg\Ch04، سنستخدم هذا الدليل لحفظ العمل المنجز فيه.
أنشئ مشروعاً جديداً من نوع Standard EXE.
احفظ نموذج المشروع بالاسم Move.Frm في الدليل C:\VB5Prg\Ch04، واحفظ ملف المشروع بالاسم Move.Vbp في نفس الدليل.
أنشئ النموذج frmMove لبرنامج التحريك طبقاً للجدول 4-1.
يفترض أن يبدو النموذج عند اكتماله كما في الشكل 4-1.

الشكل 4-1 النموذج frmMove في مرحلة التصميم.

يبين الشكل 4-2 رمز عنصر التحكم المدعو Image، ولقراءة اسم عنصر التحكم Image ضع مؤشر الفأرة فوق رمزه بدون النقر عليه، فيظهر إطار صغير أصفر يحمل النص Image داخله.

الشكل 4-2 رمز عنصر التحكم Image في إطار مربع الأدوات.

الجدول 4-1. جدول خصائص برنامج التحريك.
الكائن الخاصية القيمة
Form Name frmMove
Caption برنامج التحريك
RightToLeft True
BackColor Yellow
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
Option Button Name optCub
Caption &كأس
BackColor Yellow
Value True
RightToLeft True
Option Button Name optClub
Caption &ورقة
BackColor Yellow
RightToLeft True
Option Button Name optBell
Caption &جرس
BackColor Yellow
RightToLeft True
Image Name imgCup
Picture Cup.Bmp
Image Name imgClub
Picture Club.Bmp
Image Name imgBell
Picture Bell.Bmp
يطالبك الجدول 4-1 بوضع ثلاثة عناصر تحكم من نوع Image في النموذج frmMove. تذكر ما يلي لدى استخدام الجدول 4-1:
لديك حرية تحديد خصائص الخط Font لعناصر التحكم التي تضعها في النموذج.
يطالبك الجدول بإسناد ملفات متنوعة من نوع BMP إلى الخصائص Pictures لعناصر التحكم Image. المشكلة أن هذه الملفات قد تكون متوفرة أو غير متوفرة لديك تبعاً لإصدار فيجول بيسك الذي تستخدمه. وهذه الملفات ستجدها في أحد الأدلة الفرعية تحت الدليل الذي تم تنصيب فيجول بيسك فيه. بل ستجدها غالباً تحت الدليل \Bitmaps. فإذا لم تتمكن من العثور عليها، (بسبب أن رزمة فيجول بيسك التي تستخدمها لا توفرها). فبإمكانك استخدام ملفات BMP من أي مصدر آخر. تستطيع مثلاً استخدام برنامج الرسام Paintالذي يأتي مع ويندوز لرسم صور خاصة بك وحفظها كملف من نوع BMP.
إدخال نص برنامج التحريك
سندخل الآن نص برنامج التحريك. ونبدأ كما قمنا بقسم التصاريح العامة General Delarations:
تحقق من أن قسم التصاريح العامة General Delarations للنموذج frmMove يحوي العبارة التالية:
'يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء Form_MouseDown():
Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If optBell.Value = True Then
imgBell.Move X, Y
ElseIf optClub.Value = True Then
imgClub.Move X, Y
Else
imgCup.Move X, Y
End If
End Sub
أدخل النص التالي ضمن الإجراء cmdExit_Click():
Private Sub cmdExit_Click()
End
End Sub
احفظ المشروع باختيار Save Project من القائمة File.
تنفيذ برنامج التحريك
قبل أن نباشر بشرح نص البرنامج الذي كتبناه، دعنا نرى كيف يعمل أولاً:
نفذ برنامج التحريك.
حسب ما يظهره الشكل 4-3، يظهر البرنامج ثلاث صور، وثلاثة أزرار خيارات معنونة كالتالي كأس و ورقة و جرس.
يؤدي نقر زر الفأرة على نافذة البرنامج، إلى انتقال أحد الصور إلى الموقع الذي تم النقر بالفأرة عنده. تحدَد الصورة المطلوب تحريكها باختيار أحد أزرار الخيارات الثلاثة.
لنفترض مثلاً، أن الخيار يقع عند زر الخيار الجرس، يؤدي النقر بالفأرة في أي مكان نافذة البرنامج، إلى انتقال صورة الجرس إلى ذلك المكان (الشكل 4-3).
أنه البرنامج بنقر الزر خروج.
الشكل 4-3 برنامج التحريك بعد تحريك الجرس.
كيف يعمل برنامج التحريك
ستصادف لدى مناقشتنا برنامج التحريك، مصطلح إحداثيات النموذج Form Coordinates. لهذا ستبدأ مناقشتنا لبرنامج التحريك بعد هذا الموضوع.

نص الإجراء cmdExit_Click()
Private Sub cmdExit_Click()
End
End Sub
الخاصية AutoRedraw
هناك خلل في برنامج الرسم. اتبع الخطوات التالية للتعرف على المشكلة:
نفّذ برنامج الرسم وارسم عدة خطوط بواسطته.
صغِّر إطار البرنامج. (انقر رمز إشارة الناقص الذي يظهر عند الزاوية العليا من الإطار لتصغير النافذة).
يستجيب برنامج الرسم بإظهار نفسه كرمز (Icons) على شريط مهام ويندوز.
استرجع إطار برنامج الرسم. (انقر رمز البرنامج الموجود حالياً على شريط مهام ويندوز Windows).
كما تشاهد، اختفت الخطوط التي رسمتها.
تظهر نفس المشكلة عند تغطية جزء من إطار برنامج الرسم بإطار آخر. تحل هذه المشكلة ببساطة، بإسناد القيمة True إلى الخاصية AutoRedraw للنموذج frmRedraw في طور التصميم.
أسند القيمة True إلى الخاصية AutoRedraw للنموذج frmRedraw.
احفظ المشروع باختيار Save Project من القائمة File لفيجول بيسك.
يعيد فيجول بيسك رسم الإطار عندما تدعو الحاجة، عندما تكون قيمة الخاصية AutoRedraw تساوي True (حسب ما يتوضح من اسم الخاصية نفسها). لنشاهد ذلك على أرض الواقع.
نفّذ برنامج الرسم وارسم بضعة خطوط.
صغر إطار البرنامج. (بنقر رمز التصغير الموجود عند الزاوية العليا اليمنى من الإطار).
يستجيب البرنامج بإظهار نفسه كرمز على شريط مهام ويندوز.
استرجع إطار برنامج الرسم. (انقر رمز البرنامج الموجود الآن على شريط مهام ويندوز).
كما تشاهد، تظهر الخطوط التي كانت مرسومة.
إذاً تعلمنا أن إسناد قيمة True إلى الخاصية AutoRedraw يمّكن البرنامج من إعادة رسم محتويات الإطار عندما تدعو الحاجة إلى ذلك.
حاول ألا تستخدم هذه الخاصية، رغم أنها قد تبدو ملاءمة للاستخدام ضمن البرنامج. قد تستغرب!!. فهذه الخاصية تتسبب بانخفاض أداء البرنامج. سنتعلم طرائق أخرى من هذا الكتاب أكثر ملاءمة لإعادة إنعاش الإطار.
برنامج الفأرة الراسمة
ينبغي أن لا يُشغل البرنامج المكتوب بلغة فيجول بيسك نفسه على الدوام بتنفيذ الإجراء Form_MouseMove() عند تحريك الفأرة، لأن ذلك يمنعه من تنفيذ أي برنامج آخر أثناء تحريك الفأرة. يتفحص برنامجنا هذا حالة الفأرة خلال فترات زمنية ثابتة فقط مما يسمح له بتنفيذ المهام الأخرى عند تحريك الفأرة. فإذا اكتشف البرنامج أن الفأرة حركت منذ آخر اختبار، فسوف ينفذ الإجراء Form_MouseMove().
التمثيل المرئي لبرنامج الفأرة الراسمة
سنبدأ كعادتنا بطور التمثيل المرئي لنموذج البرنامج:
أنشئ مشروعاً جديداً من نوع Standard EXE.
احفظ نموذج المشروع بالاسم HowOften.Frm في الدليل C:\VB5Prg\Ch04، واحفظ ملف المشروع بالاسم HowOften.Vbp في نفس الدليل.
أنشئ النموذج frmHowOften طبقاً للجدول 4-4.
يفترض أن يبدو النموذج عند اكتماله كما في الشكل 4-16.

الشكل 4-16 النموذج frmHowOften (في طور التصميم).
الجدول 4-4. جدول خصائص النموذج frmHowOften.
الكائن الخاصية القيمة
Form Name frmHowOften
Caption برنامج الفأرة الراسمة
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
إدخال نص برنامج الفأرة الراسمة
كالعادة، تحقق من وجود العبارة Option Explicit ضمن قسم التصاريح العامة General Declaration للنموذج frmHowOften. (أي اكتبها إذا لم تكن موجودة).
' يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء Form_MouseMove():
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Circle (X, Y), 40
End Sub
أدخل النص التالي ضمن الإجراء cmdExit_ Click():
Private Sub cmdExit_Click()
End
End Sub
تنفيذ برنامج الفأرة الراسمة
لنشاهد أثر ما كتبناه:
تنفيذ برنامج الفأرة الراسمة.
ضع مؤشر الفأرة في منطقة النموذج، ومن ثم حرك الفأرة.
يرسم الإجراء Form_MouseMove() مع تحريك الفأرة دوائر صغيرة عند الموقع الحالي للفأرة، وعموماً ستلاحظ أن الإجراء Form_MouseMove() لن ينفذ مع كل حركة للفأرة. (انظر الشكل 4-17).
يرسم الإجراء Form_MouseMove() قطاراً من الدوائر لدى تحريك الفأرة، وتزداد كثافة الدوائر المرسومة عند تحريك الفأرة ببطئ. ويقل عدد الدوائر المرسومة عند تحريك الفأرة بسرعة.
تذكر أن كل دائرة مرسومة هي دلالة على وقوع حادثة تحريك فأرة MouseMove. وبالتالي تنفيذ للإجراء Form_MouseMove().
الشكل 4-17 تحريك الفأرة في منطقة نموذج برنامج الفأرة الراسمة.
كيف يعمل برنامج الفأرة الراسمة
يستخدم برنامج الفأرة الراسمة الإجراء Form_MouseMove() لإنجاز العمل.
نص الإجراء Form_MouseMove()
ينفذ الإجراء Form_MouseMove() عندما يكتشف البرنامج أنه تم تحريك الفأرة بعد آخر عملية تحقق:
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Circle (X, Y), 40
End Sub
يرسم هذا الإجراء عند الموقع الحالي لمؤشر الفأرة باستخدام العبارة:
Circle (x, y) , 40
إلى رسم دائرة بقطر يساوي 40 وحدة قياس Unit (أي حسب وحدة القياس المستخدمة) وباعتبار أن الخاصية ScaleMode للنموذج تشير إلى Twip، فهذا يعني أن الطريقة Circle ستستخدم وحدة القياس Twip (القطر يقاس بالـ twips ويقاس مركز الإحداثيات بالـ twips).
نص الإجراء cmdExit_Click()
ينفذ هذا الإجراء عند نقر الزر خروج وينهي بدوره تنفيذ البرنامج:
Private Sub cmdExit_Click()
End
End Sub
برنامج أزرار الفأرة
سنكتب الآن برنامجاً يدعى برنامج أزرار الفأرة، يستخدم الوسيط Button لكل من الإجراءيين Form_MouseDown() و Form_MoveUp() لتحديد زر الفأرة الذي تم ضغطه أو تحريره.
التمثيل المرئي لبرنامج أزرار الفأرة
سنبني الآن نموذج برنامج أزرار الفأرة:
أنشئ مشروعاً جديداً من نوع Standard EXE.
احفظ نموذج المشروع بالاسم Button.Frm في الدليل C:\VB5Prg\Ch04 واحفظ ملف المشروع بالاسم Button.Vbp في نفس الدليل.
أنشئ النموذج frmButton طبقاً للجدول 4-5.
يفترض أن يبدو النموذج عند اكتماله كما في الشكل 4-18.
الشكل 4-18 النموذج frmButton (في طور التصميم).
الجدول 4-5. جدول خصائص النموذج frmButton.
الكائن الخاصية القيمة
Form Name frmButton
Caption برنامج أزرار الفأرة
BackColor White
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
Text Box Name txtResult
Text (اجعله فارغاً)
Alignment 2-Center
MultiLine True
Enabled False
RightToLeft True
Label Name lblInstruction
Caption اضغط أحد أزرار الفأرة
Alignment 2-Center
BackColor White
RightToLeft True
Image Name imgMouse
Picture Mouse04.Ico
Stretch False
يطالبك الجدول 4-5 بإسناد اسم الملف Mouse04.Ico إلى الخاصية Picture لعنصر التحكم imgMouse. يقع هذا الملف في حال توفره ضمن الدليل الفرعي \Icons\Computer\ تحت الدليل الذي تم تنصيب لغة فيجول بيسك فيه. يمكنك طبعاً إسناد أي ملف آخر من نوع Ico إلى الخاصية Picture. ولا سيما إذا لم تجد الملف المذكور. فالغرض الوحيد من استخدام هذا الملف في برنامجنا أنه يتلاءم مع سياق العمل لأنه يمثل شكل الفأرة.
إدخال نص برنامج أزرار الفأرة
كالعادة، تحقق (أو أدخل) من وجود العبارة التالية: Option Explicit ضمن قسم التصاريح العامة General Declaration للنموذج frmButton:
'يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء Form_MouseDown():
Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
txtResult.Text = "زر الفأرة اليساري مضغوط الآن"
End If
If Button = 2 Then
txtResult.Text = "زر الفأرة اليميني مضغوط الآن"
End If
If Button = 4 Then
txtResult.Text = "زر الفأرة الوسطي مضغوط الآن"
End If
End Sub
أدخل النص التالي ضمن الإجراء Form_MouseUp():
Private Sub Form_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
txtResult = ""
End Sub
أدخل النص التالي ضمن الإجراء cmdExit_ Click():
Private Sub cmdExit_Click()
End
End Sub
احفظ المشروع باختيار Save Project من القائمة File.
تنفيذ برنامج أزرار الفأرة
نفّذ برنامج أزرار الفأرة.
يظهر الإطار المبين في الشكل 4-19 عند بدء تشغيل برنامج أزرار الفأرة.
الشكل 4-19 إطار برنامج أزرار الفأرة.
يُظهر مربع النص اسم الزر المضغوط عند ضغط أحد أزرار الفأرة في منطقة خالية ضمن النموذج. يوضح الشكل 4-20 محتوى مربع النص نتيجة ضغط الزر الأيمن للفأرة. ويبين الشكل 4-21 محتوى مربع النص عند ضغط الزر الأيسر للفأرة. يُظهر برنامج أزرار الفأرة حالة زر الفأرة فقط عند الضغط على أحد أزرار الفأرة في منطقة خالية من النموذج.
الشكل 4-20 برنامج أزرار الفأرة عند الضغط على الزر الأيمن للفأرة.
الشكل 4-21 برنامج أزرار الفأرة عند الضغط على الزر الأيسر للفأرة.
ملاحظة
تدعى المنطقة غير المغطاة بعنصر تحكم فعال Enabled ضمن النموذج، بمنطقة خالية. فمثلاً الخاصية Enabled للافتة lblInstruction تساوي True، ولهذا لا تعتبر المنطقة التي تشغلها هذه اللافتة منطقة خالية.
ومن جهة أخرى، تساوي الخاصية Enabled لمربع النص txtResult إلى False وبالتالي فالمنطقة التي يشغلها مربع النص هذا عبارة عن منطقة خالية ضمن النموذج.
لا يؤدي النقر على اللافتة lblInstruction إلى تنفيذ الإجراء Form_MouseDown()، لأن منطقة هذه اللافتة كما اتفقنا لا تمثل منطقة خالية. وعلى العكس تعتبر منطقة مربع النص txtResult منطقة خالية ويؤدي النقر عليها إلى تنفيذ الإجراء Form_MouseDown().
لا يستجيب برنامج أزرار الفأرة عند النقر على الزر الأوسط للفأرة ما لم يتم تعريف الفأرة ضمن ويندوز بأنها ذات ثلاثة أزرار. (طبعاً في حال الفأرة ذات ثلاثة أزرار).
كيف يعمل برنامج أزرار الفأرة
يستجيب برنامج أزرار الفأرة لحادثة MouseDown (الضغط على زر فأرة) بتنفيذ الإجراء Form_MouseDown() ولحادثة تحرير الفأرة MouseUp بتنفيذ الإجراء Form_MouseDown().
نص الإجراء Form_MouseDown()
ينفذ هذا الإجراء تلقائياً بضغط أحد أزرار الفأرة في منطقة خالية ضمن النموذج. مهمة الإجراء تحديد الزر الذي تم ضغطه بفحص قيمة الوسيط Button.
عندما تكون قيمة الوسيط Button تساوي 1 فهذا معناه أنه تم الضغط على الزر الأيسر، وتعني القيمة 2 الضغط على الزر الأيمن، والقيمة 4 تشير إلى الضغط على الزر الأوسط:
Sub Form_MouseDown(Button As Integer,Shift As Integer,_
X As Single, Y As Single)
If Button = 1 Then
txtResult.Text = "زر الفأرة اليساري مضغوط الآن"
End If
If Button = 2 Then
txtResult.Text = "زر الفأرة اليميني مضغوط الآن"
End If
If Button = 4 Then
txtResult.Text = "زر الفأرة الوسطي مضغوط الآن"
End If
End Sub
نص الإجراء Form_MouseUp()
ينفذ هذا الإجراء تلقائياً عند تحرير زر الفأرة. يمحو نص هذا الإجراء محتويات مربع النص:
Private Sub Form_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
txtResult = ""
End Sub
الوسيط Button في الإجراء Form_MouseMove()
يحدد الوسيط Button في إجراءات الفأرة الزر المضغوط لحظة وقوع الحادثة. وحسب ما ذكرنا فإن قيمة هذا الوسيط ضمن الإجراء Form_MouseDown() يمكن أن تساوي 1 أو 2 أو 4 ولا يمكن أن تتخذ أي قيمة أخرى مما يعني أنك لا تستطيع استخدام الحادثة MouseDown للتحقق من الضغط على أكثر من زر واحد.
أما بالنسبة للإجراء Form_MouseMove() فالأمر يختلف، إذ يمكن للوسيط Button أن يأخذ أي قيمة بين 0 و 7، مما يشمل كل الإمكانيات المحتملة لأزرار الفأرة الثلاث. فمثلاً، يساوي Button إلى 3 عند الضغط على الزرين الأيسر والأيمن والذي يكافئ الرقم الثنائي (00000011)، انظر الشكل 4-22.
الشكل 4-22 الوسيط Button للإجراء Form_MouseMove().
انظر الجدول التالي إذا لم تكن ملماً بالنظام الثنائي:
التدوين العشري Decimal Notation التدوين الثنائي Binary Notation
0 1 2 3 4 5 6 7 00000000 00000001 00000010 00000011 00000100 00000101 00000110 00000111
فمثلاً عندما تكون قيمة Button تساوي صفر، فالقيمة الثنائية تساوي (00000000) وحسب الشكل 4-22، الضغط على كل أزرار الفأرة سوياً تكون القيمة الثنائية المرافقة هي (00000111)، وعندما تكون القيمة مساوية إلى 4 فهذا معناه الضغط على الزر الأوسط والقيمة الثنائية المرافقة (00000100).
برنامج أزرار الفأرة 2
يوضح برنامج أزرار الفأرة 2 كيفية استخدام الوسيط Button، في الإجراء Form_MouseMove().
التمثيل المرئي لبرنامج أزرار الفأرة 2
سنبدأ بطور التمثيل المرئي لبرنامج أزرار الفأرة 2:
أنشئ مشروعاً جديداً من نوع Standard EXE.
احفظ نموذج المشروع بالاسم Button2.Frm في الدليل C:\VB5Prg\Ch04، واحفظ ملف المشروع بالاسم Button.Vbp في نفس الدليل.
أنشئ نموذج البرنامج frmButton2 طبقاً للجدول 4-6.
الشكل 4 -23 النموذج 2frmButton في مرحلة التصميم.
الجدول 4-6. جدول خصائص النموذج frmButton2.
الكائن الخاصية القيمة
Form Name frmButton2
Caption برنامج أزرار الفأرة 2
BackColor White
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
Check Box Name chkLeft
BackColor White
Caption يساري
Enabled False
Check Box Name chkMiddle
BackColor White
Caption وسطي
Enabled False
Check Box Name chkRight

الكائن الخاصية القيمة
BackColor White
Caption يميني
Enabled False
Image Name imgMouse
Picture Mouse04.Ico
Stretch False
Label Name lblInstruction
Caption اضغط أحد أزرار الفأرة ثم حركها
Alignment 2-Center
BackColor White
BorderStyle 1-Fixed Single
RightToLeft True
يطالبك الجدول 4-6 بإسناد اسم الملف Mouse04.Ico إلى الخاصية Picture لعنصر التحكم Image.فإذا لم يكن هذا الملف موجوداً أو لم يكن الدليل \Icons\Computer موجوداً لسبب ما، ضمن دليل لغة فيجول بيسك، تستطيع استخدام أي ملف آخر من نوع Ico.
يطالبك الجدول بإسناد القيمة False إلى الخاصية Stretch لعنصر التحكم Image. هذا يعني أن عنصر التحكم Image لن يوسِّع الصورة. فمثلاً إذا كانت الخاصية Picture لعنصر التحكم Image تشير إلى صورة بحجم Pixel 32x32، وكبرت بعدها حجم العنصر Image، فإن الصورة لن توسع ولن تغطي حجم عنصر التحكم Image. بل ستظهر الصورة بحجمها الأصلي فقط.
يسند الجدول القيمة False إلى الخاصية Enabled لكل مربع من مربعات الاختيار Check Boxes. مما يعني أن المستخدم لن يتمكن من اختيار هذه المربعات أو إلغاء اختيارها (أي حجبها) بالنقر بالفأرة عليها. وبدلاً من ذلك فإن نص البرنامج هو الذي سيختار أو يلغي اختيار مربعات التحكم بناءً على حالة أزرار الفأرة (وهو السبب وراء منع المستخدم من اختيار أو إلغاء هذه المربعات).
إدخال نص برنامج أزرار الفأرة 2
تحقق من وجود العبارة التالية ضمن قسم التصاريح العامة General Declaration:
' يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء Form_MouseMove():
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If (Button And 1) = 1 Then
chkLeft.Value = 1
Else
chkLeft.Value = 0
End If

If (Button And 2) = 2 Then
chkRight.Value = 1
Else
chkRight.Value = 0
End If

If (Button And 4) = 4 Then
chkMiddle.Value = 1
Else
chkMiddle.Value = 0
End If
End Sub
أدخل النص التالي ضمن الإجراء Form_MouseUp():
Private Sub Form_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
chkLeft.Value = 0
End If
If Button = 2 Then
chkRight.Value = 0
End If
If Button = 4 Then
chkMiddle.Value = 0
End If
End Sub
أدخل النص التالي ضمن الإجراء cmdExit_ Click():
Private Sub cmdExit_Click()
End
End Sub
احفظ المشروع باختيار Save Project من القائمة File لفيجول بيسك.
تنفيذ برنامج أزرار الفأرة 2
نفّذ برنامج أزرار الفأرة 2.
يبين الشكل 4-24 كيف يبدو إطار هذا البرنامج، لاحظ وجود ثلاثة مربعات اختيار:
يميني و وسطي و يساري.
الشكل 4-24 إطار برنامج أزرار الفأرة2.
يختار برنامج أزرار الفأرة 2 ويلغي مربعات الاختيار تبعاً لحالة أزرار الفأرة " أثناء تحريك الفأرة ". فمثلاً يختار البرنامج مربعي الاختيار يميني و يساري إذا ضغط المستخدم على زري الفأرة اليساري واليميني وحرك الفأرة، (انظر الشكل 4-25).
كيف يعمل برنامج أزرار الفأرة 2
يستخدم برنامج أزرار الفأرة 2 الوسيط Button2 للإجراء Form_MouseMove() لتحديد الزر أو مجموعة أزرار الفأرة التي ضغط عليها.
الشكل 4-25 برنامج أزرار الفأرة 2 عند الضغط على زري الفأرة اليساري واليميني (أثناء تحريكها).
نص الإجراء Form_MouseMove()
ينفذ الإجراء تلقائياً عند تحريك الفأرة ضمن منطقة نموذج البرنامج:
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If (Button And 1) = 1 Then
chkLeft.Value = 1
Else
chkLeft.Value = 0
End If

If (Button And 2) = 2 Then
chkRight.Value = 1
Else
chkRight.Value = 0
End If

If (Button And 4) = 4 Then
chkMiddle.Value = 1
Else
chkMiddle.Value = 0
End If
End Sub
يختار نص هذا الإجراء أو يلغي مربعات الاختيار تبعاً لقيمة الوسيط Button. تحدد أول عبارة lf في الإجراء إذا كان زر الفأرة الأيسر مضغوطاً وذلك بإجراء ضرب منطقي AND للوسيط Button مع القيمة 1.
فإذا كان ناتج حاصل الضرب يساوي 1 فهذا يعني أنه تم الضغط على الزر الأيسر، وبشكل مشابه إذا كان ناتج حاصل الضرب Button مع 2 منطقياً AND يساوي 2، فهذا معناه أنه تم الضغط على الزر الأيمن، وإذا كان ناتج الحاصل الضرب المنطقي AND لـ Button مع 4 يساوي 4 فهذا دلالة على أن الزر الأوسط مضغوط حالياً، لا تكترث لحاصل الضرب المنطقي AND إذا لم تكن على اطلاع به أو لست على علم بالنظام الثنائي، المهم أن تعرف ما يحدث عند الضغط على أزرار الفأرة أثناء تحريكها.
نص الإجراء Form_MouseUp()
ينفذ هذا الإجراء عند تحرير أي من أزرار الفأرة:
Private Sub Form_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
chkLeft.Value = 0
End If
If Button = 2 Then
chkRight.Value = 0
End If
If Button = 4 Then
chkMiddle.Value = 0
End If
End Sub
يتحقق هذا الإجراء من الزر الذي حرر، ويلغي مربع الاختيار المرافق. فمثلاً تتحقق عبارة الشرط lf الأولى عند تحرير الزر الأيسر للفأرة ويلغى اختيار مربع الاختيار يساري.
ضغط المفاتيح Shift و Ctrl و Alt إلى جانب ضغط أزرار الفأرة
تمتلك الحوادث MouseDown و MouseUp وMouseMove القيمة الصحيحة Shift كثاني وسيط ضمن الإجراءات المرافقة لها، ويشير هذا الوسيط إلى المفتاح Shift و Ctrl و Alt المضغوط إلى جانب أزرار الفأرة.
يبين الشكل 4-26 كيف يشير الوسيط Shift إلى المفتاح المضغوط.
الشكل 4-26 الوسيط Shift.
حسب ما يوضحه الشكل 4-26. تمثل البتات bits الأدنى من الوسيط Shift حالة المفاتيح Shift و Ctrl و Alt أثناء الضغط على زر (أو أزرار) الفأرة.
يوضح الجدول 4-7 القيم الثمان المحتملة التي يمكن أن يمتلكها الوسيط Shift.
الجدول 4-7 القيم المحتملة للوسيط Shift.
القيمة الثنائية القيمة العشرية المفتاح Shift المفتاح Ctrl المفتاح Alt
00000000 0 لا لا لا
00000001 1 نعم لا لا
00000010 2 لا نعم لا
00000011 3 نعم نعم لا
00000100 4 لا لا نعم
00000101 5 نعم لا نعم
00000110 6 لا نعم نعم
00000111 7 نعم نعم نعم
فمثلاً، إذا كانت قيمة الوسيط Shift تساوي 6 في أحد الإجراءات Form_MouseDown أو Form_MouseUp و Form_MouseMove فهذا يعني ضغط المفتاحين Ctrl و Alt إلى جانب ضغط أحد أزرار الفأرة.
لا تنس أن الوسيط Button يمكن أن يأخذ القيم 1 و 2 و 4 فقط في الإجراء Form_MouseDown(). بعكس الوسيط Shift لنفس الإجراء والذي يمكن أن يأخذ أي قيمة ضمن الجدول 4-7.
برنامج السحب
تعلمنا حتى الآن كيفية استخدام حوادث الفأرة التي تقع عند ضغط زر الفأرة MouseDown، أو عند تحرير زر فأرة MouseUp. أو عند تحريك الفأرة MouseMove. سنتعلم الآن كيف تستخدم حوادث الفأرة لبناء آلية تسمح للمستخدم بسحب وإسقاط (إفلات) عناصر التحكم ضمن إطار البرنامج.
تعرف عملية السحب بأنها ضغط على الزر الأيسر للفأرة عندما يكون مؤشرها فوق عنصر تحكم، ثم تحريك الفأرة مع إبقاء الضغط على الزر. أما تحرير زر الفأرة بعد سحب العنصر فيدعى بالإفلات.
سنكتب الآن برنامج السحب، يوضح هذا البرنامج مدى سهولة إنجاز آلية السحب في البرنامج.
التمثيل المرئي لبرنامج السحب
سنشرع الآن بطور التمثيل المرئي لبرنامج السحب:
أنشئ مشروعاً جديداً من نوع Standard EXE.
احفظ نموذج المشروع بالاسم Drag.Frm في الدليل C:\VB5Prg\Ch04 واحفظ ملف المشروع بالاسم Drag.Vbp في نفس الدليل.
أنشئ نموذج البرنامج طبقاً للجدول 4-8.
الشكل 4 -27 النموذج frmDrag (طور التصميم).
الجدول 4-8. جدول خصائص برنامج السحب.
الكائن الخاصية القيمة
Form Name frmDrag
Caption برنامج السحب
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
CommandButton Name cmdDragMe
Caption ا&سحب هذا الزر
DragMode 1-Automatic
RightToLeft True
نص برنامج السحب
تحقق من وجود العبارة Option Explicit ضمن قسم التصاريح العامة General Declaration للنموذج frmDrag:
' يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء cmdExit_ Click():
Private Sub cmdExit_Click()
End
End Sub
احفظ المشروع باختيار Save Project من القائمة File لفيجول بيسك.
تنفيذ برنامج السحب
تسند القيمة 1-Automatic إلى الخاصية DragMode للزر اسحب هذا الزر. يسمح هذا للمستخدم بسحب الزر أثناء زمن التنفيذ.
اتبع الخطوات التالية لرؤية كيفية سحب الزر اسحب هذا الزر:
نفّذ برنامج السحب.
اضغط زر الفأرة الأيسر عندما يكون مؤشر الفأرة فوق الزر اسحب هذا الزر واستمر بالضغط على الزر مع تحريك الفأرة.
كما تشاهد، يظهر مستطيل بحجم الزر اسحب هذا الزر ويتبع حركة الفأرة.
جرب سحب الزر اسحب هذا الزر خارج النموذج.
يستجيب البرنامج بإظهار دائرة مع خط مائل داخلها (رمز عملية غير نظامية)، وهي دلالة بأنك تحاول سحب عنصر التحكم إلى منطقة ممنوعة.
يختفي المستطيل عند تحرير زر الفأرة (تدعى هذه العملية بالإفلات). لاحظ أن الزر اسحب هذا الزر يبقى في موقعه الأصلي.
انقر على الزر خروج لبرنامج السحب لإنهائه.
تحسين برنامج السحب
كما لاحظنا، بسبب إسناد 1-Automatic إلى الخاصية DragMode يظهر مستطيل بنفس حجم الزر اسحب هذا الزر، ويتحرك استجابة لحركة الفأرة. يمكنك هذا المستطيل من مشاهدة المكان الذي يجري سحب الزر إليه.
لنولد شكلاً مختلفاً عند سحب عنصر التحكم، باتباع الخطوات التالية:
أسند اسم الملف Drag1Pg.Ico إلى الخاصية DragIcon للزر اسحب هذا الزر (يفترض أن تجد الملف Drag1Pg.Ico في الدليل Icons\DragDrop\ تحت دليل لغة فيجول بيسك، ويمكنك استخدام أي ملف آخر من نوع *.Icoإذا لم تعثر على هذا الملف).
احفظ المشروع باختيار Save Project من القائمة File.
اتبع الخطوات التالية لرؤية تأثير تعديل الخاصية DragIcon:
نفّذ برنامج السحب.
اسحب الزر اسحب هذا الزر.

يستجيب البرنامج بإظهار الرمز Drag.Ico عند سحب الزر اسحب هذا الزر (انظر الشكل 4 -28).
والآن ستجد أن الرمز Drag1Pg.Ico سيتحرك تبعاً لحركة الفأرة بدلاً من المستطيل، قبل إجراء التعديل.
الشكل 4-28 الرمز Drag1Pg.Ico وهو يتحرك تبعاً لحركة الفأرة أثناء سحب الزر اسحب هذا الزر.
برنامج الإفلات
يوضح برنامج الإفلات مفهوم الإفلات (ويقصد به تحرير زر الفأرة بعد السحب) وكيف يستخدم في البرنامج.
التمثيل المرئي لبرنامج الإفلات
أنشئ مشروعاً جديداً من نوع Standard EXE.
احفظ نموذج المشروع بالاسمDrop.Frm في الدليل C:\VB5Prg\Ch04واحفظ ملف المشروع بالاسم Drop.Vbp في نفس الدليل.
أنشئ النموذج طبقاً للجدول 4-9.
يفترض أن يبدو الشكل المكتمل كما في الشكل 4-29.
الشكل 4 - 29 النموذج frmDrop في مرحلة التصميم.
الجدول 4-9. جدول خصائص برنامج الإفلات.
الكائن الخاصية القيمة
Form Name frmDrop
Caption برنامج الإسقاط
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
Text Box Name txtInfo
Text (اجعله فارغاً)
Alignment 2-Center
MultiLine True
Enabled False
RightToLeft True
Image Name imgWater
Picture Water.Ico
DragMode 1-Automatic
Stretch 1-True
Tag Water image
يطالبك الجدول 4-9 بإسناد اسم الملف Water.Ico إلى الخاصية Picture لعنصر التحكم imgWater. تستطيع العثور على هذا الملف ضمن الدليل \Icons\Elements تحت دليل فيجول بيسك. استخدم أي ملف آخر من نوع Ico إذا لم تجد هذا الملف.
إدخال نص برنامج الإفلات
تحقق من وجود العبارة Option Explicit ضمن قسم التصاريح العامة General Declaration:
'يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء Form_DragOver():
Private Sub Form_DragOver(Source As Control, _
X As Single, Y As Single, State As Integer)
Dim sInfo As String
sInfo = "الآن يتم سحب "
sInfo = sInfo + Source.Tag
sInfo = sInfo + " فوق النموذج "
sInfo = sInfo + Str(State)
txtInfo.Text = sInfo
End Sub
أدخل النص التالي ضمن الإجراء cmdExit_ Click():
Private Sub cmdExit_Click()
End
End Sub
أدخل النص التالي ضمن الإجراء Form_DragDrop():
Private Sub Form_DragDrop(Source As Control, _
X As Single, Y As Single)
'clear the text box.
txtInfo.Text = ""
'move the control
Source.Move X, Y
End Sub
أدخل النص التالي ضمن الإجراء cmdExit_DragOver():
Private Sub cmdExit_DragOver(Source As Control, _
X As Single, Y As Single, State As Integer)
Dim sInfo
sInfo = "الآن يتم سحب "
sInfo = sInfo + Source.Tag
sInfo = sInfo + " فوق الزر خروج "
sInfo = sInfo + Str(State)
txtInfo.Text = sInfo
End Sub
احفظ المشروع باختيار Save Project من القائمة File لفيجول بيسك.
تنفيذ برنامج الإفلات
نفّذ برنامج الإفلات.
اسحب صورة صنبور المياه.
تظهر رسالة ضمن مربع النص أثناء سحب الصورة، تشير إلى حالة عملية السحب. يتسبب تحرير الفأرة بنقل الصورة إلى النقطة التي تم تحرير الفأرة فيها (نقطة الإفلات).
أنهِ البرنامج بالنقر على الزر خروج.
كيف يعمل برنامج الإفلات
يستخدم برنامج الإفلات الإجراءات Form_DragOver() و cmdExit_ DragOver() و Form_DragDrop().
نص الإجراء Form_DragOver()
ينفذ الإجراء Form_DragOver() عند سحب عنصر التحكم imgWater فوق النموذج. يمتلك هذا الإجراء أربعة وسائط Source و X و Y وStart:
Private Sub Form_DragOver(Source As Control, _
X As Single, Y As Single, State As Integer)
Dim sInfo As String
sInfo = "الآن يتم سحب "
sInfo = sInfo + Source.Tag
sInfo = sInfo + " فوق النموذج "
sInfo = sInfo + Str(State)
txtInfo.Text = sInfo
End Sub
يمثل الوسيط Source اسم عنصر التحكم الذي يجري سحبه. وبما أن عنصر التحكم الذي يتم سحبه يدعى imgWater، وبالتالي يسند imgWater آلياً إلى الوسيط Source.
يمثل الوسيطان x وy الإحداثيات الراهنة x,y لمؤشر الفأرة (منسوبة إلى نظام إحداثيات النموذج). يمتلك الوسيط State إحدى القيم 0 أو 1 أو 2:
تسحب الصورة من نقطة حرة إلى نقطة حرة أخرى ضمن النموذج، عندما تكون قيمة State تساوي 2.
تسحب الصورة من نقطة حرة ضمن النموذج إلى نقطة غير نظامية (مثلاً نقطة خارج النموذج)، عندما تكون قيمة State تساوي 1.
تسحب الصورة من نقطة غير نظامية إلى نقطة حرة ضمن النموذج، عندما تساوي قيمة State الصفر.
يجهز الإجراء Form_DragOver() سلسلة تدعى sInfo ويظهر السلسلة في مربع النص txtInfo:
Dim sInfo As String
sInfo = "الآن يتم سحب "
sInfo = sInfo + Source.Tag
sInfo = sInfo + " فوق النموذج "
sInfo = sInfo + Str(State)
txtInfo.Text = sInfo
فمثلاً يُسند إلى السلسلة ما يلي عند سحب الصورة من منطقة حرة ضمن النموذج إلى منطقة أخرى:
الآن يتم سحب Water Image فوق النموذج 2
استخدمنا العبارة التالية أثناء تجهيز السلسلة sInfo:
sInfo = sInfo + Source.Tag
كما أسندنا أثناء طور التصميم، إلى الخاصية Tag لعنصر الصورة imgWater، القيمة Water Image، لذلك فإن قيمة Source.Tag ستساوي Water Image.
الخاصية Tag
تستخدم الخاصية Tag غالباً كمنطقة تخزين للمعطيات. فمثلاً، تحوي الخاصية Tag للعنصر imgWater على سلسلة مهمتها التعريف بعنصر التحكم هذا. استخدمنا في الإجراء Form_DragOver() هذه السلسلة لتعريف العنصر المسحوب، طبعاً يمكن إسناد أي شيء آخر ترغب به (مثل MyWater) إلى الخاصية Tag.
نص الإجراء cmdExit_DragOver()
ينفذ هذا الإجراء عند سحب عنصر التحكم فوق الزر خروج، ولهذا يتشابه هذا الإجراء مع الإجراء Form_DragOver() باستثناء أن السلسلة sInfo تفيد بأن عنصر التحكم water يجري سحبه فوق الزر خروج.
Private Sub cmdExit_DragOver(Source As Control, _
X As Single, Y As Single, State As Integer)
Dim sInfo As String
sInfo = "الآن يتم سحب "
sInfo = sInfo + Source.Tag
sInfo = sInfo + " فوق الزر خروج "
sInfo = sInfo + Str(State)
txtInfo.Text = sInfo
End Sub
فمثلاً ستحوي السلسلة الرسالة التالية عند سحب عنصر التحكم Water فوق الزر خروج:
الآن يتم سحب Water Image فوق الزر خروج 0
قيمة State = 0 هنا، وذلك بسبب سحب العنصر imgWater من خارج الزر خروج إلى داخله. ومن وجهة نظر الزر خروج فإن أي نقطة خارجه هي نقطة غير نظامية.
نص الإجراء Form_DragDrop()
ينفذ هذا الإجراء عند إفلات عنصر التحكم ضمن النموذج. يجب إنجاز شيئين عند حدوث هذا: محو مربع النص، ونقل عنصر التحكم Water إلى نقطة الإفلات:
Private Sub Form_DragDrop(Source As Control, _
X As Single, Y As Single)
'clear the text box.
txtInfo.Text = ""
'move the control
Source.Move X, Y
End Sub
لهذا استخدمنا العبارتين التاليتين ضمن الإجراء:
txtInfo.Text = ""
Source.Move X, Y
ينقل عنصر التحكم imgWater إلى نقطة الإفلات باستخدام الطريقة Move. تتحدد نقطة الإفلات بالوسيطين X و Y لهذا الإجراء.
الخلاصة
تناول هذا الفصل حوادث الفأرة. فتعلمنا الحوادث MouseDown و MousMove وDragOver و DragDrop.
تقدم وسائط إجراءات هذه الحوادث معلومات عن حالة الفأرة زمن وقوع الحادثة. فالوسيط Button مثلاً يشير إلى زر الفأرة الذي تم النقر عليه والوسيط Shift يخبر أي مفتاح من المفاتيح Shift أو Ctrl أو Alt تم الضغط عليه إلى جانب الفأرة. كما يحدد الوسيطان X و Y موقع مؤشر الفأرة زمن وقوع الحادثة، وهكذا.
الفصل الخامس



إنشاء القوائم




يتركز اهتمام هذا الفصل، على آلية دمج القوائم في برامجك. وسوف تتعرف من خلاله على الطريقة التي يتم بها تصميم القائمة وكيفية ربطها مع البرنامج.
برنامج الألوان
سنبدأ الآن بكتابة برنامج يتضمن قائمة Menu، وسندعوه برنامج الألوان. يسمح لك برنامج الألوان باختيار لون من قائمة، وتلوين خلفية البرنامج باللون المنتقى. كما يسمح باختيار حجم إطار البرنامج من قائمة أخرى.
يلزمنا قبل البدء بكتابة برنامج الألوان، تحديد كيف ستبدو القائمة في البرنامج وما الذي يفترض أن تفعله:
الفصل السادس



مربعات الحوار




يوضح هذا الفصل كيفية دمج واستخدام مربعات الحوار في برنامجك، تستخدم مربعات الحوار لإظهار والحصول على المعلومات من المستخدم. توجد ثلاثة أنواع من مربعات الحوار في فيجول بيسك، وهذه الأنواع هي:
مربعات الحوار مسبقة التعريف Predefined Dialog Boxes أو (مربعات الحوار الجاهزة).
مربعات الحوار المخصصة Custom Dialog Boxes.
مربعات الحوار الشائعة Common Dialog Boxes.
مربعات الحوار مسبقة التعريف
حسب ما يتبدى من الاسم، فمربعات الحوار مسبقة التعريف، عبارة عن مربعات معرفة مسبقاً بواسطة فيجول بيسك. ولإظهار مربع مسبق التعريف، تستخدم عبارة ذات وسائط معينة تحدد كيف ومتى يتوجب إظهار المربع الحواري. يمكنك إظهار مربع حواري مسبق التعريف بواسطة ما يلي:
عبارة MsgBox والتابع MsgBox().
التابع الوظيفي InputBox().
برنامج الرسالة
يسمح استخدام العبارة MsgBox والتابع الوظيفي MsgBox() بإظهار الرسائل للمستخدم والحصول على استجابته (الاستجابة تكون إما نعم Yes أو لا No). يوضح برنامج الرسالة كيف تستخدم العبارة MsgBox والتابع الوظيفيMsgBox() في البرنامج.
التمثيل المرئي لبرنامج الرسالة
سنبدأ كعادتنا بالتمثيل المرئي لنموذج البرنامج:
أنشئ الدليل C:\VB5Prg\Ch06.
ابدأ مشروعاً من النوع التنفيذي القياسي Standard EXE.
احفظ نموذج المشروع بالاسم Message.Frm في الدليل C:\VB5Prg\Ch06، واحفظ ملف المشروع بالاسم Message.Vbp في الدليل ذاته.
أنشئ النموذج تبعاً للجدول 6-1.
يفترض أن يظهر النموذج المكتمل مثل المبين في الشكل 6-.
الشكل 6-1 النموذج frmMessage (طور التصميم).


الجدول 6-1. جدول خواص النموذج frmMessage.
الكائن الخاصية القيمة
Form Name FrmMessage
Caption برنامج الرسالة
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
CommandButton Name cmdMessage
Caption إ&ظهار رسالة
RightToLeft True
إدخال نص برنامج الرسالة
سندخل الآن نص برنامج الرسالة:
تحقق أن قسم التصاريح العامة من النموذج frmMessage يحوي العبارة Option Explicit، أي:
'يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء cmdMessage_Click():
Private Sub cmdMessage_Click()
Dim Message As String
Dim Title As String
Dim ButtonsAndIcon As Long

'تحديد الرسالة التي ستظهر في المربع الحواري
Message = "هذا مثال على رسالة بسيطة"

'تحديد نوع الأزرار المفترض ظهورها والصورة أيضا
ButtonsAndIcon = vbOKOnly + vbExclamation + _
vbMsgBoxRight + vbMsgBoxRtlReading

'تحديد العنوان
Title = "عنوان المربع الحواري"

'إظهار المربع الحواري
MsgBox Message, ButtonsAndIcon, Title

End Sub
أدخل النص التالي ضمن الإجراء cmdExit _Click():
Private Sub cmdExit_Click()
Dim Message As String
Dim Title As String
Dim ButtonsAndIcon As Long
Dim Response As String

'تحديد الرسالة التي ستظهر في المربع الحواري
Message = "هل أنت متأكد بأنك تريد الخروج؟"

'تحديد نوع الأزرار المفترض ظهورها والصورة أيضا
ButtonsAndIcon = vbYesNo + vbQuestion + _
vbMsgBoxRight + vbMsgBoxRtlReading

'تحديد العنوان
Title = "عنوان المربع الحواري"

'إظهار المربع الحواري
MsgBox Message, ButtonsAndIcon, Title

End Sub
أدخل النص التالي ضمن الإجراء cmdExit _Click():
Private Sub cmdExit_Click()
Dim Message As String
Dim Title As String
Dim ButtonsAndIcon As Long
Dim Response As String

'تحديد الرسالة التي ستظهر في المربع الحواري
Message = "هل أنت متأكد بأنك تريد الخروج؟"

'تحديد نوع الأزرار المفترض ظهورها والصورة أيضا
ButtonsAndIcon = vbYesNo + vbQuestion + _
vbMsgBoxRight + vbMsgBoxRtlReading

'تحديد العنوان
Title = "برنامج الرسالة"

'إظهار المربع الحواري وانتظار رد المستخدم
Response = MsgBox(Message, ButtonsAndIcon, Title)

'تقييم استجابة المستخدم
If Response = vbYes Then
End
End If

End Sub
اختر البند Save Project من القائمة File لفيجول بيسك لحفظ عملك.
تنفيذ برنامج الرسالة
دعنا ننفذ برنامج الرسالة، ونرى نتيجة ما كتبناه على أرض الواقع.
نفّذ برنامج الرسالة.
لاحظ الظاهرة التالية أثناء تنفيذ البرنامج: يظهر مربع حوار مع رسالة عندما تضغط على الزر عرض رسالة، كما يحمل المربع الزر موافق ورمز إشارة التعجب Exclamation Icon، انظر الشكل 6-2. مجال هذا المربع الحواري محدد (أو محصور) بمعنى أن البرنامج لا يستطيع استئناف التنفيذ ما لم تغلق مربع الحوار هذا. فمثلاً جرب النقر بواسطة الفأرة على الزر خروج أثناء ظهور مربع الحوار هذا، وستجد أن البرنامج لن ينتهي (أي لم ينفذ الإجراء cmdExit_Click()).
انقر على الزر موافق في مربع الحوار.
يغلق مربع الحوار ذاته، استجابة لذلك.
انقر على الزر خروج.
يظهر نتيجة لذلك مربع حواري يحمل زراً يدعى نعم وآخر لا، ورمز إشارة الاستفهام (انظر الشكل 6-3). يطلب منك هذا المربع تثبيت رغبتك في الخروج. يؤدي الضغط على نعم إلى إنهاء البرنامج، أما الضغط على الزر لا فيؤدي إلى إغلاق المربع الحواري ولكن بدون انتهاء البرنامج. يعتبر مربع الحوار هذا أيضاً محدداً (مشروطاً Modal) بمعنى أنك لا تستطيع استئناف البرنامج ما لم تستجب لهذا المربع بالنقر على أحد الزرين نعم أو لا.
الشكل 6-2 مربع حوار مع الزر موافق وإشارة التعجب.
الشكل 6-3 مربع حوار مع الزرين نعم و لا و إشارة استفهام.
ملاحظة
تدعى مربعات الحوار التي تناولها مثالنا هذا، مربعات حوار محددة Modal Dialog Boxes. يمكن أثناء عرض مربع الحوار من هذا النوع (مثل مربع الرسالة) الانتقال إلى برامج ويندوز الأخرى، لكن ما لا يمكن هو، العودة إلى نافذة برنامج الرسالة دون إغلاق مربع الحوار هذا.
نوع آخر من مربعات الحوار المحددة، هو مربع حوار النظام المحدد، الذي لا يسمح لك بالرجوع إلى التطبيق، ولا يمكّنك من الانتقال إلى تطبيقات ويندوز أخرى. أي بمعنى آخر، لا تستطيع العمل خارج هذا المربع حتى تجيب عليه.
كيف يعمل برنامج الرسالة؟
يستخدم برنامج الرسالة العبارة MsgBox والتابع الوظيفي MsgBox() لإظهار مربعات حوار الرسائل.
إظهار مربع حوار بواسطة العبارة MsgBox
ينفذ الإجراء cmdMessage_Click() آلياً عند الضغط على الزر عرض رسالة. يستخدم البرنامج المكتوب داخل هذا الإجراء العبارة MsgBox لإظهار مربع حوار (مربع رسالة) يحمل زراً يدعى موافق ورمز لإشارة التعجب:
Private Sub cmdMessage_Click()

Dim Message As String
Dim Title As String
Dim ButtonsAndIcon As Long

'تحديد الرسالة التي ستظهر في المربع الحواري
Message = "هذا مثال على رسالة بسيطة"

'تحديد نوع الأزرار المفترض ظهورها والصورة أيضا
ButtonsAndIcon = vbOKOnly + vbExclamation + _
vbMsgBoxRight + vbMsgBoxRtlReading

'تحديد العنوان
Title = "عنوان المربع الحواري"

'إظهار المربع الحواري
MsgBox Message, ButtonsAndIcon, Title

End Sub
لاحظ أننا مررنا ثلاثة وسائط إلى العبارة MsgBox:
الرسالة المراد إظهارها (سلسة كتابية String).
الأزرار والرموز المراد ظهورها في مربع الرسالة (قيمة عددية).
عنوان مربع الحوار (سلسلة كتابية String).
يجهز الإجراء cmdMessage_Click() المتحولات الثلاثة اللازمة كوسائط في عبارة MsgBox قبل استخدام هذه العبارة. وأول متحول قام الإجراء بتكليفه كما رأينا هو المتحولMessage الذي يحمل الرسالة التي ستظهر في مربع الحوار:
Message = "هذا مثال على رسالة بسيطة"
يستخدم المتحولMessage كأول وسيط في العبارة MsgBox.
المتحول الثاني عبارة عن متحول من النوع الصحيح Integer ويدعى ButtonsAndIcon. ويتم تكليفه بعدد يحدد نوع الأزرار وشكل الرموز التي ستظهر في مربع الرسالة، بالإضافة إلى الثابتين vbMsgBoxRight و vbMsgBoxRtlReading اللذين يقومان بتعريب مربع الرسالة:
ButtonsAndIcon = vbOKOnly + vbExclamation + _
vbMsgBoxRight + vbMsgBoxRtlReading
يُستخدم المتحول ButtonsAndIcon كثاني وسيط في العبارة MsgBox كما أنvbOKOnly و vbExclamatian عبارة عن ثابتين من ثوابت فيجول بيسك. يمثل الثابت vbOKOnly الزر موافق، بينما يمثل الثابت vbExclamatian رمز إشارة التعجب.
وإسناد مجموع الثابتين (vbOKOnly و vbExclamatian) إلى المتحول ButtonsAndIcon، يفرض على المربع الحواري أن يمتلك الزر موافق ورمز إشارة التعجب، حسب ما يوضحه الشــكل 6-2.
يعطي الجدولان 6-2 و 6-3 ثوابت الأزرار وثوابت الأيقونات التي يمكنك استخدامها من أجل الوسيط الثاني في عبارة MsgBox.
الجدول 6-2. ثوابت أزرار مربع حوار الرسالة.
اسم الثابت القيمة الأزرار التي ستظهر
vbOKOnly 0 موافق
vbOKCancel 1 موافق و إلغاء
vbAbortReryIgnore 2 إحباط و إعادة المحاولة و تجاهل
vbYesNoCancel 3 نعم و لا و إلغاء
vbYesNo 4 نعم و لا
vbRetryCancel 5 إعادة المحاولة و إلغاء
الجدول 6-3. ثوابت رموز مربع حوار الرسالة.
اسم الثابت القيمة الرمز التي ستظهر
vbCirtical 16 رمز الخطأ الحرج
vbQuestion 32
الفصل السابع



عناصر التحكم الرسومية




من بين المظاهر الهامة لاستخدام فيجول بيسك، أنه يسمح لك بسهولة، بإنشاء البرامج التي تحوي رسوماً. سنتعلم في هذا الفصل كيف نكتب برنامجاً يحتوي على عناصر تحكم رسومية.
تعريف وحدة القياس Twip
يمكننا إظهار شتى العناصر الرسومية في فيجول بيسك، مثل الخطوط، والدوائر، والصور النقطية Bitmap، وغير ذلك. ويلزمنا طبعاً تحديد أبعاد هذه العناصر (كطول الخط وقطر الدائرة).
باستطاعة فيجول بيسك استخدام وحدات عديدة، لتحديد مواقع وأبعاد العناصر الرسومية، لكن الوحدة الأكثر شيوعاً، تدعى Twip، وكل بوصة تساوي 1440 Twips.
الألوان Colors
يعتبر اللون من المزايا الهامة لعناصر التحكم الرسومية، تستطيع استخدام التابع الوظيفي RGB() والتابع الوظيفي QBColor() لتحديد لون عنصر التحكم.
تحديد الألوان بواسطة التابع الوظيفي RGB()
يمكّنك التابع الوظيفي RGB() من تحديد الألوان. حيث الأحرف RGB يقصد بها الألوان الرئيسية الثلاثة: الأحمر Red والأخضر Green والأزرق Blue، باعتبار أن كافة الألوان التي يمكن إظهارها على الشاشة، تتولد بالمزج بين هذه الألوان الرئيسية الثلاثة.
للتابع RGB() ثلاثة وسائط: تحدد قيمة الوسيط الأول مقدار اللون الأحمر في اللون النهائي، بينما يمثل الوسيط الثاني مقدار اللون الأخضر في اللون النهائي، وأخيراً، يمثل الوسيط الثالث مقدار اللون الأزرق في اللون النهائي، فمثلاً، نستخدم العبارة التالية لإرجاع اللون الأحمر:
BackColor = RGB(255,0,0)
القيمة العظمى لكل وسيط في التابع الوظيفي RGB تساوي 255، والقيمة الدنيا للوسيط تساوي الصفر، وهكذا تمثل العبارة RGB (255,0,0) اللون الأحمر، وتمثل العبارة RGB(0,255,0) اللون الأخضر، بينما تمثل العبارة RGB (0,0,255) اللون الأزرق.
استخدم العبارة التالية على سبيل المثال لتبديل الخاصية BackColor لنموذج يدعى frmMyForm إلى اللون الأزرق:
frmMyform.BackColor = RGB(0,0,255)
لتوليد اللون الأصفر مثلاً، استخدم العبارة RGB(255,255,0)، بينما تولد العبارة RGB(0,0,0) اللون الأسود طبعاً، أما اللون الأبيض فهو فتولده العبارة RGB(255,255,255).
تعتبر الخبرة والممارسة أفضل طريقة للتمكن من استخدام التابع RGB() على الوجه الأمثل.

تحديد الألوان بواسطة التابع الوظيفي QBColor()
يقدم التابع QBcolor() طريقة أخرى سهلة لتحديد اللون، ولهذا الناتج وسيط واحد فقط، يمكن تمثيله بقيمة صحيحة تمتد من الصفر وحتى 15، استخدم العبارة التالية على سبيل المثال لتبديل الخاصيةBackCalor لنموذج يدعى frmMyForm إلى اللون الرمادي:
frmMyForm.BackColor=QBColor(
يعطي الجدول 4-3 في الفصل الرابع، قائمة بالألوان الست عشرة المحتملة والقيم المرافقة لهذه الألوان.
يعتبر الناتج الوظيفي QBColor() أسهل استخداماً من سابقه RGB()، إلا أن عدد الألوان التي يقدمها أقل بكثير (16 لوناً فقط).
ملاحظة
قدّم فيجول بيسك التابع QBColor()، بغرض التوافق مع الألوان المستخدمة سابقاً في لغة Quick Basic،كما هو واضح من تسمية التابع نفسه.
عنصر تحكم رسم الخط
يُستخدم عنصر التحكم Line لرسم الخطوط، يوضح برنامج الخط القادم، كيف يُستخدم هذا العنصر في البرنامج.
التمثيل المرئي لبرنامج الخط
اتبع الخطوات التالية لبناء نموذج برنامج الخط:
أنشئ الدليل C:\VB5Prg\Ch07، سنستخدم هذا الدليل لحفظ العمل.
أنشئ مشروعاً جديداًStandard EXE باختيار New Project من القائمة File.
احفظ نموذج المشروع بالاسم Line.Frm في الدليل C:\VBb5Prg\Ch07، واحفظ ملف المشروع بالاسم Line.vbp في الدليل C:\VB5Prg\Ch07.
أنشئ نموذج برنامج الخط، حسب الجدول 7-1.
يبين الشكل 7-1 النموذج المكتمل.
الشكل 7-1 نموذج برنامج الخط.
جدول 7-1. جدول خصائص النموذج frmLine.
الكائن الخاصية القيمة
Form Name frmLine
Caption برنامج الخط
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
CommandButton Name cmdStart
Caption ابدأ
RightToLeft True
Line Name linLine
X1 2760
X2 3960
Y1 1800
Y2 2280
ضع مؤشر الفأرة (بدون نقر) فوق رمز عنصر تحكم الخط، فيظهر مستطيل أصفر يحمل الرسالة Line داخله.
إدخال نص برنامج الخط
سنُدخل الآن نص برنامج الخط:
تحقق أن قسم التصاريح العامة للنموذج frmLine يحوي العبارة Option Explicit بداخله:
'يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي في الإجراء cmdExit_Click():
Private Sub cmdExit_Click()
End
End Sub
أدخل النص التالي في الإجراء cmdStart_Click():
Private Sub cmdStart_Click()
'وضع قيم عشوائية لاحداثيات
'بداية ونهاية الخط
linLine.X1 = Int(frmLine.Width * Rnd)
linLine.Y1 = Int(frmLine.Height * Rnd)
linLine.X2 = Int(frmLine.Width * Rnd)
linLine.Y2 = Int(frmLine.Height * Rnd)
End Sub
احفظ المشروع، باختيار Save Project من القائمة File.
تنفيذ برنامج الخط
دعنا نشاهد ما كتبناه قيد التنفيذ:
نفّذ برنامج الخط.
انقر زر ابدأ عدة مرات، ولاحظ أن الخط يغيّر طوله وموقعه مع كل نقرة.
بسبب إسناد العنوان &Start إلى الزر ابدأ في الخاصية Caption يمكنك ضغطAlt+S على لوحة المفاتيح بدلاً من النقر بواسطة الفأرة على الزر ابدأ في كل مرة.
كيف يعمل برنامج الخط
يستخدم برنامج الخط الإجراءcmdStart_Click() لإظهار عنصر التحكم Line في مواقع مختلفة كلما نقر المستخدم على الزر ابدأ.
نص الإجراء cmdStart_Click()
ينفذ هذا الإجراء كلما تم نقر الزر Start (أو الضغط على Alt+S):
Private Sub cmdStart_Click()
'وضع قيم عشوائية لاحداثيات
'بداية ونهاية الخط
linLine.X1 = Int(frmLine.Width * Rnd)
linLine.Y1 = Int(frmLine.Height * Rnd)
linLine.X2 = Int(frmLine.Width * Rnd)
linLine.Y2 = Int(frmLine.Height * Rnd)
End Sub
يُرجِع التابع الوظيفي Rnd() عدداً عشوائياً بين الصفر والواحد وتُمثِل الخاصية Width عرض النموذج frmLine، وهكذا ينتج عن حاصل جداء عرض النموذج برقم بين الصفر والواحد، ينتج عدد يقع بين الصفر وعرض النموذج:
frmLine.Width*Rnd
فإذا أعاد التابع Rnd القيمة صفر، فسيساوي ناتج الجداء الصفر أيضاً، أما إذا أرجع القيمة واحد، فسيساوي الجداء عرض النموذج الكامل، وإذا أعاد التابع Rnd القيمة 0.75 مثلاً، فستساوي النتيجة (3/4) من عرض النموذج.
يحول التابع الوظيفي Int() وسيطه إلى قيمة صحيحة، فمثلاً، تعود العبارة Int(3.5) القيمة 3، وتعود العبارة Int(7.999) القيمة 7. وهكذا فإن ناتج العبارة Int(frmLine.Width * Rnd) يعود بعدد صحيح، يقع بين الصفر وعرض النموذج.
يتم إسناد قيمة صحيحة للخاصية X1 لعنصر التحكم Line، بواسطة العبارة الأولى من الإجراء cmdStart_click(). والقيمة الصحيحة تقع بين الصفر وعرض النموذج:
linLine.X1=Int(frmLine.Width * Rnd)
تُمثل الخاصية X1 لعنصر التحكم Line، الإحداثي الأفقي لنقطة بداية الخط، بنظام إحداثيات يعود إلى النموذج (باعتبار أن الخط سيُرسم على نموذج)، يُعرّف نظام الإحداثيات الافتراضي لفيجول بيسك، الإحداثيين X1=0 و Y1=0، باعتبارها الزاوية اليسارية العلوية للنموذج.
أسندت العبارة التالية من الإجراء cmdStart_Click() للخاصية Y1 لعنصر التحكم Line بقيمة صحيحة، والقيمة الصحيحة هذه تقع بين الصفر وارتفاع النموذج:
linLine.Y1=Int(frmLine.Height * Rnd)
تمثل الخاصية Y1 لعنصر التحكم Line الإحداثي العمودي لنقطة بداية الخط.
يتم إسناد قيمة صحيحة إلى الخاصية Y2 وX2 من عنصر التحكم، بواسطة العبارتان الأخيرتان في الإجراء cmdStart_Click() وتمثلان إحداثي نقطة نهاية الخط:
linLine.X2=Int(frmLine.Width * Rnd)
linLine.X2=Int(frmLine.Height * Rnd)
يتحرك الخط عند نقر الزر ابدأ إلى مواقع جديدة، اعتماداً على الأرقام العشوائية المتولدة عن توابع Rnd.
أي بكلمة أخرى، يتسبب نقر الزر ابدأ بوضع الخط في مواقع عشوائية في نافذة البرنامج.
المزيد من خصائص عنصر تحكم الخط
سنتمرن على مزيد من خصائص العنصر Line أثناء مرحلة التصميم:
اختر عنصر التحكم Line أثناء مرحلة التصميم (أي انقل التركيز إليه بنقره بواسطة الفأرة).
غيّر الخاصية BorderColor لهذا العنصر إلى اللون الأحمر Red.
يستجيب فيجول بيسك بتبديل لون الخط إلى اللون الأحمر.
غيّر الخاصية BorderWidth لهذا العنصر إلى 10.
يستجيب فيجول بيسك بتبديل عرض الخط إلى 10 Twips.
احفظ المشروع باختيارSave Project من القائمة File.
نفّذ برنامج الخط، وانقر الزر ابدأ عدة مرات، يُظهر برنامج الخط الآن، عنصر التحكم Line كخط أحمر بعرض 10 Twips (انظر الشكل 7-2).
الشكل 7-2 عنصر التحكم Line كخط أحمر بعرض 10 Twips.
تستطيع أيضاً تبديل لون الخط وعرض الخط أثناء مرحلة التنفيذ.
أدخل العبارتين التاليتين في بداية الإجراء cmdStart_Click():
linLine.BorderColor = RGB(Int(255 * Rnd), _
Int(255 * Rnd), _
Int(255 * Rnd))
linLine.BorderWidth = Int(100 * Rnd) + 1
يتم إسناد قيمة جديدة إلى الخاصية BorderColor بواسطة العبارة الأولى. وهذه القيمة الجديدة هي القيمة المعادة من التابع الوظيفي RGB() حيث كل وسيط من وسائطه الثلاثة، ينتج عن رقم عشوائي بين الصفر و255، وهكذا فالقيمة المعادة من التابع RGB() تمثل لوناً عشوائياً.
يتم إسناد قيمة جديدة إلى الخاصية BorderWidth بواسطة العبارة الثانية. القيمة الجديدة هذه عبارة عن رقم عشوائي يقع بين صفر و100، مع إضافة واحد للنتيجة. أي ((0÷100) +1).
مما يعني أنه يتم إسناد قيمة جديدة بين 1 Twips و 10 Twips إلى خاصية عرض الخط. لاحظ أننا أضفنا واحد إلى العبارة Int(100 * Rnd)، لأن أقل قيمة مقبولة للخاصية BorderWidth لا يجوز أن تساوي الصفر.
نفّذ برنامج الخط.
يتبدل لون وعرض الخط مع كل نقرة للزر ابدأ. انتبه إلى أنك لن تشاهد الخط أحياناً، عندما يكون اللون العشوائي الناتج، نفس لون أرضية النموذج.
عنصر تحكم رسم الأشكال
يُستخدم عنصر التحكم هذا، لرسم أشكال عديدة: كالمستطيل والمربع والمستطيل ذو الزوايا المدورة والمربع ذو الزوايا المدورة والدائرة والقطوع الناقصة.
يوضح برنامج الأشكال كيفية إظهار هذه الأشكال على اختلاف أنواعها.
التمثيل المرئي لبرنامج الأشكال
اتبع الخطوات التالية لبناء نموذج برنامج الأشكال:
أنشئ مشروعاً جديداً من النوع التنفيذي القياسي Standard EXE.
احفظ نموذج المشروع بالاسم Shape.Frm في ذات الدليل C:\VB5Prg\Ch07، واحفظ ملف المشروع في ذات الدليل بالاسم Shape.vbp.
أنشئ نموذج برنامج الأشكال تبعاً للجدول 7-2
يظهر النموذج كما في الشكل 7-3.
الشكل 7-3 النموذج frmShape.

الجدول7-2. جدول خصائص برنامج الأشكال.
الكائن الخاصية القيمة
Form Name frmShape
Caption برنامج الأشكال
RightToLeft True
Horizontal Scroll Bar Name hsbWidth
Min 1
Max 10
Value 1
RightToLeft True
CommandButton Name cmdRndRect
Caption مستطيل بزاوية مستديرة
RightToLeft True
CommandButton Name cmdRndSqr
Caption مربع بزاوية مستديرة
RightToLeft True
CommandButton Name cmdCircle
Caption دائرة
RightToLeft True
CommandButton Name cmdOval
Caption قطع ناقص
RightToLeft True
CommandButton Name cmdSquare
Caption مربع
RightToLeft True
CommandButton Name cmdRectangle


الكائن الخاصية القيمة
Caption مستطيل
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
Label Name lblInfo
Caption تغيير العرض
RightToLeft True
Shape Name shpAllShapes
إدخال نص برنامج الأشكال
سندخل الآن نص برنامج الأشكال:
تحقق أن قسم التصاريح العامة يحوي العبارة Option Explicit أي:
' يجب التصريح عن كل المتغيرات
Option Explicit
أدخل النص التالي داخل الإجراء cmdExit_Click():
Private Sub cmdExit_Click()
End
End Sub
أدخل النص التالي داخل الإجراء cmdCircle_Click():
Private Sub cmdCircle_Click()
' تغيير الشكل إلى دائرة
shpAllShapes.Shape = vbShapeCircle
End Sub
أدخل النص التالي داخل الإجراء cmdRectangle_Click():
Private Sub cmdRectangle_Click()
' تغيير الشكل إلى مستطيل
shpAllShapes.Shape = vbShapeRectangle
End Sub
أدخل النص التالي داخل الإجراء cmdOval_Click():
Private Sub cmdOval_Click()
' تغيير الشكل إلى قطع ناقص
shpAllShapes.Shape = vbShapeOval
End Sub
أدخل النص التالي داخل الإجراء cmdRndRect_Click():
Private Sub cmdRndRect_Click()
' تغيير الشكل إلى مستطيل بزوايا مستديرة

shpAllShapes.Shape = vbShapeRoundedRectangle
End Sub
أدخل النص التالي داخل الإجراء cmdRndSqr_Click():
Private Sub cmdRndSqr_Click()
' تغيير الشكل إلى مربع بزوايا مستديرة
shpAllShapes.Shape = vbShapeRoundedSquare
End Sub
أدخل النص التالي داخل الإجراء cmdSquare_Click():
Private Sub cmdSquare_Click()
' تغيير الشكل إلى مربع
shpAllShapes.Shape = vbShapeSquare
End Sub
أدخل النص التالي داخل الإجراء hsbWidth_Scroll():
Private Sub hsbWidth_Scroll()
'تغيير عرض حدود الشكل حسب قيمة شريط الازاحة
shpAllShapes.BorderWidth = hsbWidth
End Sub
أدخل النص التالي داخل الإجراء hsbWidth_Scroll():
Private Sub hsbWidth_Scroll()
'تغيير عرض حدود الشكل حسب قيمة شريط الازاحة
shpAllShapes.BorderWidth = hsbWidth
End Sub
احفظ المشروع، باختيار البند Save Project من قائمة File.
تنفيذ برنامج الأشكال
يظهر برنامج الأشكال كما في الشكل 7-3، عند تنفيذ البرنامج، يتغير الشكل الظاهر تبعاً للزر الذي يتم النقر عليه من قبل المستخدم، فمثلاً يؤدي نقر الزر دائرة إلى تحويل الشكل إلى دائرة.
يتغير عرض حدود الشكل، عند تغير موضع شريط التمرير الأفقي، يوضح الشكل 7-4 برنامج الأشكال، بعد نقر الزر دائرة، وتغيير موقع مؤشر شريط التمرير.
كيف يعمل برنامج الأشكال
يغيّر نص برنامج الأشكال، الشكل الذي سيظهره عنصر تحكم الأشكال، بالإضافة إلى عرض حدوده، أطلقنا على العنصر التسمية shpAllshapes.
نص الإجراء cmdRectangle_click()
يُنفذ الإجراء cmdRectangle_click() عند نقر الزر مستطيل. تسند العبارة الوحيدة في هذا الإجراء القيمة صفر للخاصية Shape التابعة لعنصر تحكم الأشكال، (والذي سميناه shpAllShapes) وهي المسؤولة عن تحويل الشكل إلى مستطيل:
ShpAllShapes=0
وبنفس الطريقة، يُنفذ الإجراءcmdSquare_click() عند نقر الزر مربع، ويتم إسناد القيمة واحد إلى الخاصية Shape بواسطة العبارة الوحيدة في هذا الإجراء، وهي المسؤولة عن تحويل الشكل إلى مربع. يُدرج الجدول 7-3 القيم المقبولة للخاصية Shap مع مدلولها.
الشكل 7-4 تبديل الشكل إلى دائرة.
جدول 7-3. القيم الممكنة للخاصية Shape.
القيمة نوع الشكل
0 مستطيل
1 مربع
2 قطع ناقص
3 دائرة
4 مستطيل بزوايا مستديرة
5 مربع بزوايا مستديرة
نص الإجراء hsbWidth_Change()
يُنفذ هذا الإجراء عند تبديل موقع مؤشر شريط التمرير، وحسب ما يتبين من جدول خصائص برنامج الأشكال، فإن القيمة الصغرى لهذا الشريط (الخاصية Min) تساوي 1، والخاصية Max تساوي 10، وهي القيمة العظمى، مما يعني أنك تستطيع تغيير الخاصية Value (قيمة مؤشر شريط التمرير) بين الواحد والعشرة.
تُسند هذه القيمة إلى الخاصيةBorderWidth للعنصر shpAllShapes كما يلي:
ShpAllShapes.BorderWidth= hsbWidth.value
وهكذا يتبدل عرض حدود العنصرshpAllShapes تبعاً لموقع مؤشر شريط التمرير.
خصائص أخرى لعنصر التحكم Shape
يقدم برنامج الأشكال خاصيتين فقط من خصائص عنصر التحكم Shape، يمكن التمرن على الخواص الأخرى لهذا العنصر بوضع شكل ما (Shape) في نموذج، ثم تبديل خصائصه.
اتبع الخطوات التالية كإرشادات:
ضع عنصر تحكم Shape في نموذج.
يستجيب فيجول بيسك بإظهار الشكل كمستطيل افتراضي.
غير الخاصية Shape إلى دائرة. (القيمة 3).
يستجيب فيجول بيسك بتبديل الشكل من المستطيل إلى دائرة.
غيّر الخاصية FillColor إلى اللون الأحمر Red.
لا يملأ فيجول بيسك الدائرة بلون أحمر، لأن الخاصية FillStyle للشكل تساوي Transparent (أي شفاف).
غيّر الخاصية FillStyle إلى Solid (مصمت).
يستجيب فيجول بيسك بملىء الدائرة بلون أحمر.
الصور
يُعتبر عنصرا التحكم Line و Shape، قادرين على رسم الأشكال الهندسية البسيطة كالخطوط والمربعات والدوائر ….الخ. لإظهار الأشكال الأكثر تعقيداً، يلزمك استخدام ملف صورة معين.
يمكن وضع ملفات الصور، على نموذج ما باستخدام عنصر تحكم الرسمة Image، أو عنصر تحكم الصورة Picture.
تُستخدم الخاصية Picture لكلا عنصري التحكم المذكورين لهذا الغرض. فإذا أردت وضع ملف صورة في كائن (Object) سيتوجب عليك تغيير الخاصية Picture لهذا الكائن.
فمثلاً لوضع ملف صورة في عنصر تحكم Image، حدد اسم الملف المقصود في الخاصية Picture لعنصر التحكم Image.
تستطيع تشكيل ملف صورة بواسطة برنامج رسم خاص، وأبسط مثال على برامج الرسم، برنامج الرسام Paint، يمكن استخدام الرسام لتشكيل الصورة، ثم حفظها في ملف بالامتداد BMP، أو يمكن الحصول على صور احترافية جاهزة، يطلق على الصور الجاهزة مصطلح Clip Art.
وضع الصور على نموذج أثناء مرحلة التصميم
تستطيع وضع الصور على نموذج ما، خلال كلا المرحلتين:
مرحلة التصميم (مرحلة التمثيل المرئي).
مرحلة التنفيذ (مرحلة كتابة البرنامج).
اتبع الخطوات التالية لتشكيل صورة بواسطة برنامج الرسام:
شغل برنامج الرسام.
اختر البند سمات(Attributes) من قائمة صورة للرسام.
يستجيب برنامج الرسام بإظهار مربع الحوار "سمات".
اختر واحدة البوصة.
ضع العرض على 3.
ضع الارتفاع على 3.
انقر زر موافق لمربع الحوار سمات.
يستجيب برنامج الرسام بإظهار صورة خالية بارتفاع ثلاث بوصات وعرض ثلاث بوصات.
استخدم أدوات الرسام لرسم صورة ما.
احفظ العمل المنجز في الملف MyPic.bmp في الدليل C:\VB5Prg\Ch07.
لدينا الآن ملف صورة امتداده bmp ويمكن وضعه على النموذج:

أنشئ مشروعاً جديداً قياسياً Standard EXE.
يستجيب فيجول بيسك بإظهار نموذج يدعى Form1.Frm.
حدد الملفMyPic.bmp في الخاصيةPicture للنموذج Form1.
تظهر الصورة التي رسمتها للتو، على خلفية النموذج (انظر الشكل 7-5).
الشكل 7-5 وضع صورة تم تشكيلها بواسطة برنامج الرسام على النموذج.
تظهر الصورة على النموذج (كما يظهر من الشكل 7-5)، بدءاً من الإحداثيتينX=0 وY=0 للنموذج، (أي عند الزاوية اليسرى العليا). ولا تستطيع مد أو تقليص الصورة التي وضعتها على النموذج، فالصورة تمتلك نفس الأبعاد المحددة في مربع الحوار سمات لبرنامج الرسام.
تخدّم الصورة الموضوعة على النموذج، كخلفية. ولجعل هذه الصورة تلتحم مع الأرضية، قم بما يلي:
اختر اللون الأبيض للخاصية BackColor للنموذجForm1، على فرض أن خلفية الصورةMyPic.bmp ملونة باللون الأبيض أيضاً، وبهذه الطريقة تلتحم الصورة مع النموذج بشكل تام.
اسحب حواف النموذج بحيث تظهر كامل الصورة في النموذج Form1، تستطيع وضع أزرار أوامر، أو عناصر تحكم أخرى مباشرةً فوق الصورة.
يبين الشكل 7-6 النموذجForm 1 مع عدة أزرار أوامر موضوعة على النموذج.
الشكل 7-6 وضع أزرار أوامر على الصورة الخلفية للنموذج.
الآن وقد صار للنموذج صورة خلفية، قد ترغب بمنع المستخدم من تكبير أو تصغير النموذج (لأن الصورة لن تكبر أو تصغر مع النموذج).
ضع الخاصية BorderStyle للنموذج Form1 على 1-FixedSingle.
نفّذ البرنامج.
حسب ما يبينه الشكل 7-7 يمتلك إطار البرنامج صورة أرضية، (ولا يستطيع المستخدم تكبير أو تصغير الإطار، بسبب إسناد القيمة FixedSingle للخاصية BorderStyle للنموذج Form1.
اخرج من البرنامج (لا نطالبك بحفظ المشروع فالسبب الوحيد الذي دفعنا لإنشاء هذا المشروع، تمكينك من مشاهدة عمل الخاصية Picture للنموذج على أرض الواقع).
الشكل 7-7 النموذج مع إسناد القيمة 1-FixedSingle للخاصية BorderStyle.

ملاحظة
يمكن الحصول على صورة سريعة، بحفظ محتويات الشاشة في ملف صورة كالتالي:
- في أي وقت تريد حفظ الشاشة الحالية، اضغط المفتاح Print Screen على لوحة المفاتيح.
(سوف تجد هذا المفتاح أعلى يمين لوحة المفاتيح تقريباً).
- شغّل برنامج الرسام من خلال القائمة ابدأ - البرامج - البرامج الملحقة - الرسام.
- من قائمة برنامج الرسام، اختر البند تحرير ثم البند لصق.
- إذا سألك برنامج الرسام: .. هل تريد تكبير الصورة النقطية؟ جاوب بنعم.
كما تلاحظ، لقد ظهرت صورة الشاشة، التي ضغطت المفتاح Print Screen عندها.
- احفظ هذه الصورة في ملف، من خلال القائمة ملف، البند حفظ.
وبذلك تكون قد حصلت على ملف صورة الشاشة الحالية.
يمكنك أيضاً، ضغط المفتاح Alt+Print Screen لنسخ محتويات النافذة النشطة فقط، وليس كامل مساحة الشاشة.
وضع الصور على النموذج أثناء مرحلة التنفيذ
تستطيع أيضاً وضع الصور على النموذج أثناء تنفيذ البرنامج، والذي نعبر عنه بمرحلة التنفيذ.
استخدم العبارة التالية لتحميل صورة تدعى C:\VB5Prg\OurPic.bmp، ووضعها على نموذج يدعى frmOurForm باستخدام العبارة التالية:
frmOurForm.Picture = LoadPicture("C:\VB5Prg\OurPic.bmp")
يمكن وضع صورة واحدة فقط على النموذج، في لحظة معينة، ولهذا يستبدل التابع الوظيفي LoadPicture()، صورة الخلفية الحالية (أي في حال وجود واحدة على النموذج) بالصورة الجديدة.

ملاحظة
استخدم العبارة التالية لمحو (مسح) صورة موجودة مسبقاً على النموذج.
frmOurForm.Pictare= LoadPictare("")
حالما تنفيذ العبارة السابقة يصبح النموذج بدون صورة خلفية.
عنصر التحكم Image
تستطيع أيضاً وضع ملفات الصور BMP في عنصر التحكم Image، الذي يدعم الخاصية Stretch. تمكّنك هذه الخاصية من مد (تكبير) الصورة إلى أي حجم شئت. (لا يدعم النموذج ولا عنصر تحكم Picture هذه الخاصية).
استخدم العبارة التالية لتحميل الصورة C:\VB5Prg\Ch07\MyPic.bmp ووضعها في عنصر التحكم Image المدعو imgMyImage:
imgMyImage.Picture = LoadPicture("C:\VB5Prg\Ch07\MyPic.bmp")
يتسبب التابع الوظيفي LoadPicture() باستبدال الصورة الحالية في حال وجودها حسبما اتفقنا لأن عنصر التحكمImage لا يستوعب أكثر من صورة واحدة في نفس اللحظة.
أما لمحو (مسح) صورة موجودة حالياً في عنصر التحكم Image أثناء مرحلة التنفيذ، فاستخدم العبارة التالية:
imgMyImage.Picture = LoadPicture("")
استخدم العبارة التالية لإسناد القيمةTrue إلى الخاصيةStretch للنموذج imgMyImage:
imgMyImage.Stretch = True
بعد إسناد القيمةTrue إلى الخاصية Stretch. سوف تكبر الصورة آلياً لتملأ كامل مساحة

عنصر التحكم Imge، أي بكلمة أخرى يكبر فيجول بيسك أو يصغر حجم الصورة آلياً.
فمثلاً، إذا كان عنصر التحكم Image بحجم 2 بوصة × 2 بوصة، وكان يحتوي على الصورة MyPic.bmp، فسوف يصغر فيجول بيسك الصورة MyPic.bmp من حجمها الأصلي المساوي إلى 3 بوصة × 3 بوصة، إلى 2 بوصة × 2 بوصة.
تستطيع أيضاً إسناد إحدى القيمتين True أو False، أثناء مرحلة التصميم إلى الخاصية Stretch لعنصر التحكم Image.
عنصر التحكم Picture
يتشابه عنصر التحكم Picture كثيراً مع عنصر التحكم Image، باستثناء أنه يقدّم المزيد من الخصائص، والمزيد من الحوادث والطرق. إلا أنه لا يقدم الخاصية Stretch، (فقط عنصر التحكمImage وحده الذي يدعم الخاصية Stretch).
يقدّم عنصر التحكم Picture الخاصية AutoSize، ويؤدي إسناد القيمة True إلى هذه الخاصية، إلى قيام فيجول بيسك بضبط حجم عنصر التحكم Picture وفقاً لحجم ملف الصورة الذي يحتويها.
فمثلاً، إذا كان ملف الصورة بحجم 3 بوصة × 3 بوصة، فسوف يضبط فيجول بيسك عنصر التحكم Picture بحيث يساوي 3 بوصة × 3 بوصة، لا يقدم النموذج ولا عنصر التحكم Image الخاصية AutoSize.
يستخدم عنصر التحكم Image مصادر أقل Resource، من تلك التي يستخدمها العنصر Picture، ولهذا يتمكن من إعادة رسم الصورة بشكل أسرع.
دمج ملفات الصور في الملفات التنفيذية EXE
اتفقنا إذاً، أن التابع الوظيفي LoadPicture()، يُستخدم لتحميل صورة في عنصر التحكم Image أو في عنصر التحكمPicture أو في النموذج، أثناء مرحلة التنفيذ.
إلا أن استخدام هذا التابع الوظيفي لا يخلو من سلبية، فيجب أن تكون الصورة BMP
موجودة في الدليل المحدد ضمن وسيط التابع الوظيفي LoadPicture().
ولهذا يتوجب أن يحتوي القرص الذي توزعه (القرص الذي يحوي برنامجك الكامل) على ملفات الصور التي يستخدمها برنامجك.
من جهة أخرى يصبح ملف الصورة جزءاً من الملف التنفيذي EXE النهائي، إذا تم إسناد ملف الصورة أثناء مرحلة التصميم إلى عنصر التحكم الذي سيحوي الصورة، (النموذج أو عنصر التحكم Image أو العنصر Picture)، فلا تعود هناك حاجة لتوزيع ملف الصورة كملف منفصل.
ملفات الصورة التي يدعمها فيجول بيسك هي: ملفات الصور النقطية BMP، وملفات الأيقونات ICO وملفات الرسوم المتجهية WMF وملفات مؤشرات الفأرة CUR.
ملفات الرسوم النقطية Bitmap Files
هي عبارة عن ملفات تحمل أحد الامتدادين BMP أو DIB. يحتوي ملف الرسوم النقطية على بايتات تصف مواقع وألوان النقاط الضوئية (Pixels) للصورة.
ملفات الأيقونات Icon Files
عبارة عن ملفات تحمل الامتداد ICO. تتشابه هذه الملفات مع الملفات من النوع BMP و DIB، إلا أنها تمثل صوراً يبلغ الحجم الأعظمي لها 32×32 نقطة ضوئية، (النقطة الضوئية Pixel: هي أصغر عنصر نقطي يمكن للشاشة إظهاره، وتتحدد دقة الشاشة به).
ملفات الرسوم المتجهية Meta Files
عبارة عن ملفات تحمل الامتداد WMF، وتحوي لائحة من التعليمات الرسومية التي تصف كيفية توليد الصورة.
ملفات مؤشرات الفأرة Cursor Files
ملفات تحمل الامتداد CUR. تتشابه مع ملفات الأيقونات ICO. وهي ملفات صغيرة تُستخدم عادة لتمثيل مؤشر الفأرة، كالساعة الرملية ورأس السهم.
برنامج العين المتحركة
يمكننا نقل وتحريك عنصر تحكم ما إما بتغيير الخاصيتين Left و Top، أو باستخدام الطريقة Move.
سنكتب برنامجاً يدعى العين المتحركة، يوضح كيف تستطيع تحريك كائن ما، بتغيير الخاصيتين Left و Top لهذا الكائن.
التمثيل المرئي لبرنامج العين المتحركة
سنشرع كعادتنا بالتمثل المرئي للبرنامج:
أنشئ مشروعاً تنفيذياً قياسياً Standard EXE جديداً.
احفظ نموذج المشروع بالاسم MoveEye.frm في الدليل C:\VB5prg\Ch07، واحفظ ملف المشروع بالاسم MoveEye.vbp في نفس الدليل.
أنشئ نموذج برنامج العين المتحركة طبقاً للجدول 7-4.
النموذج المكتمل سيبدو مشابهاً لذاك المبين في الشكل 7-8.
الشكل 7-8 النموذج frmMoveEye بعد انتهائه في مرحلة التصميم.
جدول 7-4. جدول خصائص النموذج frmMoveEye.
الكائن الخاصية القيمة
Form Name frmMoveEye
Caption برنامج العين المتحركة
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
CommandButton Name cmdMove
Caption &تحريك
RightToLeft True
Image Name imgEye
Picture Eye.Ico
Stretch True
يطالبك الجدول 7-4 بإسناد اسم الملف Eye.Ico للخاصية Picture لعنصر التحكم imgEye.
يمكنك العثور على هذا الملف في الدليل الفرعي \Icons\Misc الذي أنشئ عند تنصيب فيجول بيسك. إذا لم يحتو الدليل على هذا الملف، تستطيع استخدام أي ملف بديل.
إدخال نص برنامج العين المتحركة
سنكتب الآن نص برنامج العين المتحركة:
تحقق أن قسم التصاريح العامة للنموذجfrmMoveEye يحتوي عہارة Option Explicit:
'يجب الاعلان عن كل المتغيرات
Option Explicit
أدخل النص التالي ضمن الإجراء cmdExit_Click():
Private Sub cmdExit_Click()
End
End Sub
أدخل النص التالي ضمن الإجراء cmdMove_Click():
Private Sub cmdMove_Click()
Dim Counter As Integer
'تنفيذ الحلقة 100 مرة
For Counter = 1 To 100
'ازاحة الصورة 20 وحدة إلى اليسار
imgEye.Left = imgEye.Left - 20
'انقاض ارتفاع الصورة 20 وحدة منطقية
imgEye.Top = imgEye.Top - 20
Next
End Sub
تنفيذ برنامج العين المتحركة
لنشاهد ما كتبناه على أرض الواقع:
نفذ برنامج العين المتحركة.
تتحرك صورة العين عند نقر الزر تحريك، وتستطيع تكرار النقر على هذا الزر إلى أن تختفي العين عن الأنظار.
كيف يعمل برنامج العين المتحركة
يحرّك برنامج العين المتحركة، عنصر التحكم Image (صورة العين)، بتبديل الخاصيتين Left و Top.
نص الإجراء cmdMove_Click()
يُنفذ الإجراء cmdMove_Click() آلياً عند نقر الزر تحريك:
Private Sub cmdMove_Click()
Dim Counter As Integer
'تنفيذ الحلقة 100 مرة
For Counter = 1 To 100
'ازاحة الصورة 20 وحدة إلى اليسار

imgEye.Left = imgEye.Left - 20
'انقاض ارتفاع الصورة 20 وحدة منطقية
imgEye.Top = imgEye.Top - 20
Next
End Sub
تُنقص العبارة الأولى في الحلقةFor الإحداثي العمودي للزاوية اليسرى العليا للصورة بمقدار 20 Twips:
imgEye.Top = imgEye.Top - 20
كما تنقص العبارة الثانية في الحلقة For الإحداثي الأفقي للزاوية اليسرى العليا للصورة بمقدار 20 Twips أيضاً:
imgEye.Left = imgEye.Left - 20
يوضح الشكل 7-9 تأثير هاتين العبارتين:
الشكل 7-9 تحريك الصورة بمقدار 20 Twips إلى الأعلى و 20 Twips إلى اليسار.
تُنفذ الحلقة For.Next مائة مرة ولهذا تُحرك الصورة 100 مرة، مما يعطي الناظر وهم الحركة المستمرة.
تحريك أو نقل عنصر تحكم باستخدام الطريقة Move
ينقل برنامج العين المتحركة الذي تناولناه سابقاً الصورة بتبديل الخصائص Top و Left. تعتبر الطريقة Move طريقة أخرى لتحريك عنصر التحكم.
استبدل نص الإجراء cmdMove_Click() السابق بالنص التالي:
Private Sub cmdMove_Click()

Dim Counter As Integer
Dim LeftEdge As Single
Dim TopEdge As Single

' وضع احداثيات الصورة وأبعادها في المتحولات
LeftEdge = imgEye.Left
TopEdge = imgEye.Top

'تنفيذ الحلقة 100 مرة
For Counter = 1 To 100
'ازاحة الصورة 20 وحدة إلى اليسار
LeftEdge = LeftEdge - 20
'انقاض ارتفاع الصورة 20 وحدة منطقية
TopEdge = TopEdge - 20
' زيادة العرض 10 وحدات منطقية
imgEye.Move LeftEdge, TopEdge
Next
End Sub
يُجهز هذا الإجراء متحولين هما: LeftEdge و TopEdge، بإسناد الموقع الحالي للزاوية اليسرى العليا للصورة لهما، ثم ينفذ الحلقة For.Next مائة مرة.
تنقص قيمة المتحولينLeftEdge و TopEdge بمقدار 20 Twips مع كل تكرار للحلقة.
تستخدم الطريقةMove مع المتحول LeftEdge باعتباره الإحداثي الأفقي الجديد، والمتحول TopEdge باعتباره الإحداثي العمودي الجديد.
المزيد عن طريقة Move
الصيغة الكاملة لعبارةMove تعطى بالشكل التالي:
[Object name].Move newLeft, newTop, newWidth, newHight
نستنتج من العبارة السابقة، أن بإمكاننا تعيين عرض وارتفاع جديدين للكائن بعد تحريكه. وإليك المثال التالي:
استبدل نص الإجراء cmdMove_Click() السابق بالنص التالي:
Private Sub cmdMove_Click()

Dim Counter As Integer
Dim LeftEdge As Single
Dim TopEdge As Single
Dim NewWidthOfImage As Single
Dim NewHeightOfImage As Single
imgEye.Stretch = True
' وضع احداثيات الصورة وأبعادها في المتحولات
LeftEdge = imgEye.Left
TopEdge = imgEye.Top
NewWidthOfImage = imgEye.Width
NewHeightOfImage = imgEye.Height
'تنفيذ الحلقة 100 مرة
For Counter = 1 To 100
'ازاحة الصورة 20 وحدة إلى اليسار
LeftEdge = LeftEdge - 20
'انقاض ارتفاع الصورة 20 وحدة منطقية
TopEdge = TopEdge - 20
' زيادة العرض 10 وحدات منطقية
NewWidthOfImage = NewWidthOfImage + 10
' زيادة الارتفاع 10 وحدات منطقية
NewHeightOfImage = NewHeightOfImage + 10
imgEye.Move LeftEdge, TopEdge, _
NewWidthOfImage, NewHeightOfImage
Next
End Sub
نفّذ البرنامج، ولاحظ أن العين تتحرك وتكبر في نفس الوقت، وبعد مائة مرة، يبدو النموذج كما في الشكل 7-10.
الشكل 7-10 استخدام طريقة Move لتحريك وتكبير العين في نفس الوقت.
أول عبارة بعد عبارات التصاريح هي العبارة التالية:
imgEye.Stretch = True
يتم إسناد القيمة True للخاصية Stretch للعنصر imgEye، بواسطة العبارة السابقة، مما يعني أن البرنامج يستطيع تكبير الصورة (أنجزنا هذه الخطوة مسبقاً أثناء مرحلة التصميم، إلا أن تكرارها هنا ما هو إلا بهدف توضيح أن الخاصية Stretch يمكن تحديدها أثناء مرحلة التنفيذ أيضاً).
يتم إسناد قيمتين ابتدائيتين تمثلان عرض وارتفاع الصورة، إلى المتحولين NewWidthOfImage و NewHeightOfImage:
NewWidthOfImage = imgEye.Width
NewHeightOfImage = imgEye.Height
تنفذ الطريقة Move بعد ذلك 100 مرة، ومع كل تكرار للحلقة تزداد قيمة المتحولين NewWidthOfImage و NewHeightOfImage بمقدار 10 Twips.
تحدد الطريقة Move الإحداثيات الجديدة للزاوية اليسرى العليا للصورة، وكذلك العرض والارتفاع الجديدين بعد إنجاز عملية التحريك:
imgEye.Move LeftEdge, TopEdge, _
NewWidthOfImage, NewHeightOfImage

ملاحظة
تُستخدم طريقة Move لتحريك أي كائن Object باستثناء القوائم، وقد تكون بعض عناصر التحكم غير مرئية (مثال، عنصر التحكم Timer)، ولهذا لا يحمل تحريكها أي معنى.
مقارنة تقنيات التحريك
ستجد عند مقارنة أوامر برنامج العين المتحركة، باستخدام كلتا تقنيتي التحريك، أن الطريقة Move أفضل طرق التحريك. فاستخدام الخاصتينTop وLeft في التحريك يعطي انتقالاً غير متوازن. لن تشعر بهذا الأمر طبعاً عند استخدام حاسب ذي معالج سريع (بنتيوم بسرعة 233 ميغا هرتز) لأن الصورة التي تحركها صغيرة جداً.
ولكن ستلاحظ عند استخدام طريقة Move بعض الوميض على الشاشة. ويزداد هذا الوميض مع تزايد حجم الصورة. هذا بغض النظر عن سرعة الحاسب PC المستخدم هنا. يمكن إزالة هذا الوميض باستخدام تقنيات DirectX.
نقل عنصر التحكم Picture
أوضح البرنامج السابق أن استخدام طريقة Move لتحريك عنصر تحكم، يعطي حركة أخف من تبديل الخاصيتين Top و Left. يمكنك الحصول على نتائج أفضل باستخدام عنصر التحكم Picture بدل عنصر التحكم Image. ولرؤية كيف تستخدم عنصر التحكم Picture، بدل النموذج frmMoveEye:
احذف عنصر التحكم Image المسمى imgEye من النموذج باختياره، ثم ضغط المفتاح Delete على لوحة المفاتيح.
انقر نقراً مزدوجاً على عنصر التحكم Picture فوق مربع الأدوات ليتوضع على النموذج.
أسند الاسم picEye إلى الخاصية Name لعنصر التحكم Picture.
أسند اسم الملف Eye.Ico إلى الخاصية Picture للعنصر picEye.
أسند القيمة 0-None للخاصية BorderStyle للعنصر picEye، مما يعني عدم إحاطة الصورة بحدود.
أسند القيمة 0-Flat للخاصية Appearance للعنصر picEye، مما يعني أن عنصر التحكم هذا سيظهر مسطحاً، وليس ثلاثي الأبعاد.
أسند القيمة True للخاصية AutoSize للعنصر picEye، لتمكين عنصر التحكم من تغيير حجمه ليتسع صورة العين آلياً.
أسند اللون الرمادي Gray للخاصية BackColor للعنصر picEye، (حتى تكون خلفية صورة العين، نفس لون خلفية النموذج).
استبدل الإجراء cmdMove_Click() السابق بالإجراء التالي:
Private Sub cmdMove_Click()
Dim Counter As Integer
Dim LeftEdge As Single
Dim TopEdge As Single
' وضع احداثيات الصورة وأبعادها في المتحولات
LeftEdge = imgEye.Left
TopEdge = imgEye.Top
'تنفيذ الحلقة 100 مرة
For Counter = 1 To 100
'ازاحة الصورة 20 وحدة إلى اليسار
LeftEdge = LeftEdge - 20
'انقاض ارتفاع الصورة 20 وحدة منطقية
TopEdge = TopEdge - 20
imgEye.Move LeftEdge, TopEdge
Next
End Sub
احفظ المشروع باختيار Save Project من القائمة File لفيجول بيسك.
نفّذ البرنامج وانقر الزر Move، وراقب كيف تتحرك العين.
مصفوفة عناصر التحكم
يعرّف عنصر التحكم على أنه مصفوفة، وبنود هذه المصفوفة هي عناصر تحكم. فنستطيع مثلاً إنشاء مصفوفة من عناصر التحكم Image.
برنامج القمر
سنكتب الآن برنامجاً يدعى برنامج القمر، وهذا البرنامج سيستخدم مصفوفة من عناصر التحكم Image.
التمثيل المرئي لبرنامج القمر
سنشرع الآن بطور التمثيل المرئي لنموذج برنامج القمر:
أنشئ مشروعاً تنفيذياً قياسياً Standard EXE جديداً.
احفظ نموذج المشروع بالاسم Moon.Frm في الدليل C:\VB5Prg\Ch07، واحفظ المشروع بالاسم Moon.vbp في ذ ات الدليل.
أسند الخصائص التالية للنموذج Moon.Frm:
Name: frmMoon
Caption: برنامج القمر
RightToLeft: True
ضع عنصر تحكم Image في النموذج frmMoon، بالنقر المزدوج على رمز عنصر التحكم Image في إطار مربع الأدوات.
يستجيب فيجول بيسك بوضع عنصر التحكم Image في النموذج frmMoon.
اسحب عنصر التحكم Image إلى القسم العلوي اليساري من النموذج.
أسند الاسم imgMoon للخاصية Name لعنصر التحكم Image الذي وضعته في النموذج، (أطلقنا على عنصر التحكم هذا الاسم imgMoon).
أسند القيمة False للخاصية Visible لعنصر التحكم imgMoon.
أسند القيمة False للخاصية Stretch لعنصر التحكم imgMoon.
أسند الملف Moon01.Ico إلى الخاصية Picture لعنصر التحكم imgMoon (يقع هذا الملف ضمن الدليل الفرعي Icons\Elements للدليل الذي ثبّت فيه فيجول بيسك).
طبعاً تستطيع استخدام أي ملف آخر مكان هذا الملف في حال عدم توافره.
يفترض أن يبدو النموذج frmMoon كما في الشكل 7-11.
الشكل 7-11 العنصر الأول في مصفوفة عنصر التحكم Image.
انتهينا الآن من وضع عنصر التحكم Image في النموذج. يعتبر هذا العنصر أول بند (البند ذي الرقم صفر) في مصفوفة العناصر. إلا أن العنصر الذي وضعناه هو حتى هذه اللحظة عنصر تحكم نظامي (أي ليس عنصراً في مصفوفة). وتستطيع التحقق من ذلك بالرجوع إلى الخاصية Index للعنصر imgMoon، والتي ستكون فارغة.
اتبع الخطوات التالية لوضع عنصر تحكم ثاني في مصفوفة عناصر التحكم:
انقر نقراً مزدوجاً على رمز عنصر التحكم Image في إطار مربع الأدوات.
يستجيب فيجول بيسك بوضع عنصر تحكم Image ثان في النموذج frmMoon، يحتوي النموذج الآن على عنصري تحكم Image.
اسحب عنصر التحكم Image الثاني إلى يمين العنصر الأول.
أسند القيمة False إلى الخاصية Visible للعنصر الثاني.
أسند القيمة False إلى الخاصية Stretch للعنصر الثاني.
أسند القيمة Moon 02.Ico إلى الخاصية Picture للعنصر الثاني.
يفترض أن يبدو النموذج frmMoon كما هو مبين في الشكل 7-12.
الشكل 7-12 العنصرين الأول والثاني في مصفوفة عناصر التحكم Image.
أسند الاسم imgMoonإلى الخاصية Name لعنصر التحكم Image الثاني، و انقر الآن في أي مكان من النموذج.
يستجيب فيجول بيسك بإظهار مربع الحوار المبين في الشكل 7-13، حيث يتحقق فيجول بيسك بواسطته، من رغبتك بتسميته العنصر الثاني بنفس اسم عنصر التحكم الأول.
انقر الزر نعم في مربع الحوار المبين بالشكل 7-13.
الشكل 7-13 إنشاء مصفوفة عناصر تحكم Control Array.
لقد أعلمت فيجول بيسك بأنك ترغب بإنشاء مصفوفة عناصر تحكم Control Array.
تَفَحَّص الخاصية Index لأول عنصري تحكم.
ستجد أن الخاصية Index لعنصر التحكم Image الأول تساوي الصفر، وتساوي 1 لعنصر التحكم Image الثاني.
مما يعني أنك تملك الآن مصفوفة عناصر تحكم يدعى imgMoon()، العنصر الأول في المصفوفة هوimgMoon(0) (وهو الملف Moon01.Ico)، والذي يمثل أول عنصر وضعته في النموذج.
والعنصر الثاني في المصفوفة هو العنصر imgMoon(1) ويمثل الملف Moon02.Ico.
كرر الآن المعالجة السابقة وأضف ستة عناصر أخرى إلى مصفوفة عناصر التحكم Control Array. سيكون لديك عند الانتهاء، ثمانية عناصر في المصفوفة، حسب ما يبينه الشكل 7-14 والجدول 7-5.
لا تنس إسناد نفس القيم لخصائص العناصر الست المتبقية،(Name وStretch وVisible).
لاحظ أن فيجول بيسك لا يعيد تنبيهك بإظهار مربع الحوار المبين بالشكل 7-13 عند إضافة العناصر الإضافية إلى المصفوفة imgMoon() لأن فيجول بيسك علم أنimgMoon عبارة عن مصفوفة عناصر تحكم Control Array (كبر النموذج إذا دعت الحاجة، ليتسع كل الأقمار).
الشكل 7-14 الأقمار الثمانية لمصفوفة عناصر التحكم.
الجدول 7-5. مصفوفة عناصر التحكم المدعوimgMoon().
عنصر المصفوفة محتويات العنصر
imgMoon(0) Moon01.Ico
imgMoon(1) Moon02.Ico
imgMoon(2) Moon03.Ico
imgMoon(3) Moon04.Ico
imgMoon(4) Moon05.Ico
imgMoon(5) Moon06.Ico
imgMoon(6) Moon07.Ico
imgMoon(7) Moon08.Ico
استأنف بناء النموذج frmMoon تبعاً للجدول 7-6.
يفترض أن يبدو النموذج المكتمل كما يبينه الشكل 7-15.
الشكل 7-15 النموذج frmMoon.
الجدول 7-6. جدول خصائص برنامج القمر.
الكائن الخاصية القيمة
Form Name frmMoon
Caption برنامج القمر
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
CommandButton Name cmdStart
Caption ا&بدأ
RightToLeft True
Timer Name tmrTimer
Interval 250
Enabled True
Image Name imgCurrentMoon
Visible True
Picture (None)
Stretch False
Image Control (انظر الجدول 7-5) (انظر الجدول 7-5)
ملاحظة
اترك الخاصية Picture للعنصرimgCurrentMoon على حالها دون تغيير القيمة الافتراضية لها. لأننا سنسند لها قيمة من ضمن نص البرنامج. لا يعتبر عنصر التحكم imgCurrentMoon جزءاً من مصفوفة عناصر التحكم imgMoon().
لا يظهر عنصر التحكم Timer خلال مرحلة التنفيذ، لذلك ضعه على النموذج في أي موقع.
إدخال نص برنامج القمر
سندخل الآن نص برنامج القمر:
أدخل النص التالي ضمن قسم التصاريح العامة للنموذج frmMoon:
'يجب التصريح عن كل المتحولات
Option Explicit
'التصريح هنا عن أي متحول يجعله متاحا في
' frmMoon جميع أجزاء النموذج
Dim gRotateFlag As Integer
Dim gCurrentMoon As Integer
أدخل النص التالي ضمن الإجراء cmdExit_click():
Private Sub cmdExit_Click()
End
End Sub
أدخل النص التالي ضمن الإجراء cmdSart_click():
Private Sub cmdStart_Click()
' التبديل بين حالتي البدء والتوقف
If gRotateFlag = 0 Then
gRotateFlag = 1
cmdStart.Caption = "&توقف"
Else
gRotateFlag = 0
cmdStart.Caption = "&ابدأ"
End If
End Sub
أدخل النص التالي ضمن الإجراء Form_Load():
Private Sub Form_Load()
'إعطاء قيمة أولية للمتحولات
gRotateFlag = 0
gCurrentMoon = 0
End Sub
أدخل النص التالي ضمن الإجراء tmrTimer_Timer():
Private Sub tmrTimer_Timer()
'سوف ينفذ هذا الإجراء كل ربع ثانية
If gRotateFlag = 1 Then
imgCurrentMoon.Picture = _
imgMoon(gCurrentMoon).Picture
gCurrentMoon = gCurrentMoon + 1
If gCurrentMoon = 8 Then
gCurrentMoon = 0
End If
End If

End Sub
احفظ المشروع باختيار Save Project من القائمة File لفيجول بيسك.
تنفيذ برنامج القمر
لنشاهد برنامج القمر الآن، وهو يعمل:
نفّذ برنامج القمر.
انقر الزر ابدأ.
كما تلاحظ، يظهر القمر وكأنه يدور حول نفسه (محوره).
انقر الزر خروج لإنهاء برنامج القمر.
نص برنامج القمر
يستخدم نص برنامج القمر، مصفوفة من عناصر التحكم Images لإظهار عناصر المصفوفة الواحد تلو الآخر، مما يعطي الإحساس بأن القمر يدور حول نفسه.
نص قسم التصاريح العامة
يصرح قسم التصاريح العامة عن متحولين صحيحين: gRotateFlag وgCurrentMoon. وبذلك يصبح هذان المتحولان مرئيين من قبل كافة إجراءات النموذج frmMoon.
نص الإجراء Form_Load()
ينفذ الإجراء Form_Load() آلياً، عند تشغيل البرنامج،ويعتبر مكاناً مناسباً لإنجاز مختلف مهام الابتداء. فمثلاً يتم إسناد القيمة الابتدائية صفر إلى المتحولين اللذين تم التصريح عنهما في قسم التصاريح العامة:
gRotateFlag = 0
gCurrentMoon = 0

ملاحظة
يُسند فيجول بيسك آلياً قيمة ابتدائية تساوي الصفر للمتحولات عند التصريح عنها، إلا أن إسناد قيم ابتدائية إلى المتحولات في الإجراء Form_Load() يسهّل قراءة نص البرنامج.
نص الإجراء cmdSart_click()
يُنفذ الإجراء cmdSart_click() عند النقر على ابدأ. وهو ينفذ بدوره العبارة If.Else. التي تتحقق من القيمة الراهنة للمتحول gRotateFlag:
Private Sub cmdStart_Click()
' التبديل بين حالتي البدء والتوقف
If gRotateFlag = 0 Then
gRotateFlag = 1
cmdStart.Caption = "&توقف"
Else
gRotateFlag = 0
cmdStart.Caption = "&ابدأ"
End If
End Sub
فإذا كانت القيمة الراهنة للمتحول gRotateFlag تساوي الصفر، تُبدَّل هذه القيمة إلى الواحد، ويحوَّل عنوان الزر cmdStart إلى &توقف. أما إذا كانت القيمة الراهنة لذلك المتحول (أي gRotateFlag) تساوي الواحد، فإن الإجراء يبدلها إلى صفر، ويرجع عنوان الزر cmdStart إلى ا&بدأ مرة أخرى.
يُستخدم المتحول gRotateFlag في إجراء الميقاتية الذي سنناقشه للتو.
نص الإجراء tmrTimer_Timer()
يُنفَّذ الإجراء tmrTimer_Timer() كل 250 ميلي ثانية، بسبب إسناد القيمة 250 إلى الخاصية Interval للميقاتية trmTimer.
Private Sub tmrTimer_Timer()
'سوف ينفذ هذا الإجراء كل ربع ثانية
If gRotateFlag = 1 Then
imgCurrentMoon.Picture = _
imgMoon(gCurrentMoon).Picture
gCurrentMoon = gCurrentMoon + 1

If gCurrentMoon = 8 Then
gCurrentMoon = 0
End If
End If

End Sub
تبقى قيمة المتحول gRotateFlag مساوية إلى الصفر، ما لم تنقر الزر ابدأ، ولا تنفذ العبارات الواقعة ضمن كتلة الشرط:
If gRotateFlag = 1 Then
imgCurrentMoon.Picture = _
imgMoon(gCurrentMoon).Picture
gCurrentMoon = gCurrentMoon + 1
If gCurrentMoon = 8 Then
gCurrentMoon = 0
End If
End If
أما عند نقر الزر ابدأ، فتصبح قيمة gRotateFlag مساوية الواحد، عندها تنفذ العبارات الواقعة ضمن كتلة الشرط:
If gRotateFlag = 1 Then
imgCurrentMoon.Picture = _
imgMoon(gCurrentMoon).Picture
gCurrentMoon = gCurrentMoon + 1
If gCurrentMoon = 8 Then
gCurrentMoon = 0
End If
End If
يعمل جزء البرنامج الموجود ضمن عبارة الشرط على إسناد الخاصية Picture لمصفوفة عناصر التحكم إلى الخاصية Picture للعنصر imgCurrentMoon:
imgCurrentMoon.Picture = imgMoon(gCurrentMoon).Picture
على سبيل المثال، إذا كانت قيمة المتحول gCurrentMoon مساوية إلى الصفر، فسوف يتم إسناد الخاصية Picture للعنصر الأول (ذي الترتيب صفر) من عناصر مصفوفة التحكم إلى الخاصية Picture للعنصر imgCurrentMoon. مما يعني أن صورة عنصر التحكم الأول Moon01.Ico سوف تظهر (لأن imgMoon(0).Picture يحوي الصورة Moon01.Ico).
تزيد العبارة التالية في كتلة الشرط if قيمة المتحول gCurrentMoon بمقدار واحد:
gCurrentMoon = gCurrentMoon + 1
وعند التنفيذ التالي للإجراء tmrTimer_Timer() (أي بعد مرور 250 ميلي ثانية)، يشير المتحول gCurrentMoon إلى العنصر التالي في مصفوفة عناصر التحكم.
تختبر العبارات التالية في الإجراء tmrTimer_Timer() قيمة gCurrentMoon، فإذا كانت مساوية إلى 8، فهذا يعني أنه تم للتو إظهار العنصر الثامن من عناصر مصفوفة عناصر التحكم، ولهذا يجب إعادة تصفير المتحول gCurrentMoon، أي:
If gCurrentMoon = 8 Then
gCurrentMoon = 0
End If
التحريك Animation
يوضح برنامج القمر مقدار السهولة التي يمكن بها كتابة برنامج تحريك Animation في فيجول بيسك. نستطيع تحسين برنامج القمر بحيث تغدو أوامر التحريك فيه أعمق أثراً.
تحسين برنامج القمر
طوِّر برنامج القمر وفق ما يلي:
أسند القيمة 55 إلى الخاصية Interval للميقاتية tmrTimer.
أضف النص البرمجي التالي إلى قسم التصاريح العامة للنموذج frmMoon:
Option Explicit
Dim gRotateFlag As Integer
Dim gCurrentMoon As Integer
Dim gDirection As Integer
Dim gLeftCorner As Single
Dim gTopCorner As Single
Dim gWidthOfMoon As Single
Dim gHeightOfMoon As Single
Dim gEnlargeShrink As Integer
عدّل الإجراء Form_Load() حيث يغدو بالشكل التالي:
Private Sub Form_Load()
gRotateFlag = 0
gCurrentMoon = 0
gDirection = 1
gLeftCorner = imgCurrentMoon.Left
gTopCorner = imgCurrentMoon.Top
gWidthOfMoon = 1
gHeightOfMoon = 1
gEnlargeShrink = 1

imgCurrentMoon.Stretch = True
End Sub
عدل الإجراء tmrTimer_Timer() بحيث يغدو كما يلي:
Private Sub tmrTimer_Timer()
'سوف ينفذ هذا الإجراء كل ربع ثانية
If gRotateFlag = 1 Then
imgCurrentMoon.Picture = _
imgMoon(gCurrentMoon).Picture
gCurrentMoon = gCurrentMoon + 1
If gCurrentMoon = 8 Then
gCurrentMoon = 0
End If

gLeftCorner = gLeftCorner + 10 * gDirection
gTopCorner = gTopCorner + 10 * gDirection
gWidthOfMoon = gWidthOfMoon + 10 * gEnlargeShrink
gHeightOfMoon = gHeightOfMoon + 10 * gEnlargeShrink

If gWidthOfMoon > 700 Then
gEnlargeShrink = -1
End If

If gWidthOfMoon < 10 Then
gEnlargeShrink = 1
End If

If imgCurrentMoon.Top > frmMoon.ScaleHeight Then
gDirection = -1
End If

If imgCurrentMoon.Top < 10 Then
gDirection = 1
End If

End If
احفظ المشروع باختيار Save Project من القائمة File لفيجول بيسك.
تنفيذ النسخة المحسنة لبرنامج القمر
دعنا نشاهد النسخة المحسنة لبرنامج القمر على أرض الواقع:
نفّذ برنامج القمر.
وكما تشاهد يدور القمر حول محوره ويظهر أيضاً وكأنه يتحرك في ثلاثة أبعاد.
نص قسم التصاريح العامة
يحوي قسم التصاريح العامة للنموذج frmMoon على تصاريح إضافية عن المتحولات التي يفترض أن تكون مرئية لكل إجراءات النموذج.
نص الإجراء Form_Load()
يسند هذا الإجراء قيماً ابتدائية إلى المتحولات. فالمتحولان gLeftCorner و gTopCorner يمثلان الموقع الابتدائي للزاوية اليسرى العليا لعنصر التحكم imgCurrentMoon:
gLeftCorner = imgCurrentMoon.Left
gTopCorner = imgCurrentMoon.Top
كما أن الخاصية Stretch لعنصر التحكم imgCurrentMoon تساوي True
imgCurrentMoon.Stretch = True
مما يعني أن حجم العنصر imgCurrentMoon سوف يتغير بحيث يتسع ضمن عنصر التحكم.
هذه الخطوة ضرورية لأن حجم الصورة imgCurrentMoon سوف يزاد وينقص أثناء تنفيذ برنامج القمر.
نص الإجراء tmrTimer_Timer()
كتلة If الأولى في الإجراء tmrTimer_Timer() هي ذاتها في النسخة السابقة لهذا الإجراء، وتعتبر مسؤولة عن إظهار أحد صور مصفوفة التحكم.
تستخدم الطريقة Move حال ظهور الصورة Image لتحريكها، وهكذا فان الموقع الجديد للزاوية اليسرى العليا للصورة (صورة القمر)، يتوضع عند الإحداثيين X = gLeftCorner وY = gTopCorner.
تستخدم طريقة Move الوسيطين الاختياريين Width (العرض) و Height (الارتفاع):
imgCurrentMoon.Moveg gLeftCorner , gTopCorner , _
gWidthOfMoon , gHeightOfMoon
وبعد التحريك، تمتلك الصورة عرضاً وارتفاعاً جديدين.
تجهز العبارات التالية لعبارة Move المتحولات التالية للتنفيذ التالي للإجراء tmrTimer_Timer():
gLeftCorner = gLeftCorner + 10 * gDirection
gTopCorner = gTopCorner + 10 * gDirection
gWidthOfMoon = gWidthOfMoon + 10 * gEnlargeShrink
gHeightOfMoon = gHeightOfMoon + 10 * gEnlargeShrink
ستزيد قيمة المتحولات السابقة أو تنقص، اعتماداً على قيمة المتحولات gDirection وgEnlargeShrink، فإذا كانت قيمة gDirection تساوي "1"، تزاد قيمة gLeftCorner كمثال بمقدار 10 Twips، أما إذا كانت قيمة gDirection تساوي "-1" فسوف تنقص قيمة gLeftCorner بمقدار 10 Twips).
يلي ذلك كله تفحص قيمة gWidthOfMoon، هل هي كبيرة جداً أم صغيرة جداً ؟!:
If gWidthOfMoon > 700 Then
gEnlargeShrink = -1
End If

If gWidthOfMoon < 10 Then
gEnlargeShrink = 1
End If
يختبر نص الإجراء بعد ذلك الموقع الحالي للزاوية اليسرى العليا من الصورة Image للتأكد من عدم تقاطعهما مع أسفل أو أعلى النموذج:

If imgCurrentMoon.Top > frmMoon.ScaleHeight Then
gDirection = -1
End If

If imgCurrentMoon.Top < 10 Then
gDirection = 1
End If

الخلاصة
تعلمنا في هذا الفصل كيفية استخدام عناصر التحكم الرسومية، كما تعلمنا كيفية إظهار ملفات الصور في عنصري التحكم Image وPicture وكيفية تحريك هذه الصور. ولا تنس أن مصفوفة عناصر التحكم تقدم تقنية مفيدة، تُستخدم غالباً في التحريك Animation.

الفصل الثامن



أساليب الرسم المباشرة




يركز هذا الفصل على أساليب رسومية أخرى، تتشابه مع عناصر التحكم الرسومية التي تناولناها في الفصل السابع. يعتبر استخدام الأساليب الرسومية الأخرى، أسهل في بعض الأحيان من استخدام عناصر التحكم الرسومية.
برنامج النقاط
يرسم برنامج النقاط نقاطاً في مواقع عشوائية من النموذج، موضحاً كيف تستخدم الطريقة Pset لرسم النقاط.
التمثيل المرئي لبرنامج النقاط
سنبدأ كعادتنا عند تصميم البرنامج بتمثيل نموذج البرنامج:
أنشئ الدليل C:\VB5Prg\Ch08، لأننا سنحفظ عملنا في هذا الدليل.
أنشئ مشروعاً تنفيذياً قياسياً جديداً Standard EXE، واحفظ نموذج المشروع بالاسم Points.frm في الدليل C:\VB5Prg\Ch08، واحفظ المشروع بالاسم Points.vbp في ذات الدليل.
أنشئ النموذج frmPoints طبقاً للجدول 8-1.
يُفترض أن يبدو النموذج المكتمل كذاك المبين في الشكل 8-1.
الشكل 8-1 النموذج frmPoints (طور التصميم).
الجدول 8-1. جدول خواص النموذج frmPoints.
الكائن الخاصية القيمة
Form Name frmPoints
Caption برنامج النقاط
RightToLeft True
Timer Name tmrTimer
Interval 60
Enabled True
Menu (انظر الجدول 8-2) (انظر الجدول 8-2)



جدول 8-2. جدول قوائم النموذج frmPoints.
العنوان الخاصية Name
&ملف mnuFile
…&خروج mnuExit
&رسوم mnuGraphics
…ار&سم النقاط mnuDrawPoints
…ا&مسح النقاط mnuClear
إدخال نص برنامج النقاط
سنكتب الآن نص برنامج النقاط:
أدخل النص التالي ضمن قسم التصاريح العامة للنموذج frmPoints:
'يجب التصريح عن كل المتحولات
Option Explicit
'متحول لمعرفة هل سوف ترسم النقاط أم سوف تمسح
Dim gDrawPoints
أدخل النص التالي ضمن الإجراء Form_Load() للنموذج frmPoints:
Private Sub Form_Load()
'تعطيل الرسم
gDrawPoints = 0
End Sub
أدخل النص التالي ضمن الإجراء mnuClear_Click():
Private Sub mnuClear_Click()
'تعطيل الرسم
gDrawPoints = 0
'تنظيف سطح النموذج
frmPoints.Cls
End Sub
أدخل النص التالي ضمن الإجراء mnuDrawPoints_Click() للنموذج frmPoints:
Private Sub mnuDrawPoints_Click()
'تفعيل الرسم
gDrawPoints = 1
End Sub
أدخل النص التالي ضمن الإجراء mnuExit_Click للنموذج frmPoints:
Private sub mnuExit_Click()

End
End sub
أدخل النص التالي ضمن الإجراء tmrTimer1_Timer() للنموذج frmPoints:
Private Sub tmrTimer_Timer()
Dim R, G, B
Dim X, Y
Dim Counter

'إذا كان الرسم مفعلا نفّذ ما يلي
If gDrawPoints = 1 Then
'ارسم 100 نقطة عشوائية
For Counter = 1 To 100 Step 1
'الحصول على لون عشوائي
R = Rnd * 255
G = Rnd * 255
B = Rnd * 255
'الحصول على موقع احداثيات عشوائي
X = Rnd * frmPoints.ScaleWidth
Y = Rnd * frmPoints.ScaleHeight
'ارسم النقطة
frmPoints.PSet (X, Y), RGB(R, G, B)
Next
End If
End Sub
احفظ المشروع باختيار Save Project من القائمة File لفيجول بيسك.
تنفيذ برنامج النقاط
دعنا نشاهد برنامج النقاط قيد التنفيذ:
نفّذ برنامج النقاط.
اختر ارسم النقاط من القائمة رسوم.
يستجيب البرنامج بإظهار نقاط ذات ألوان عشوائية في مواقع عشوائية من النموذج (انظر الشكل 8-2).
الشكل 8-2 رسم نقاط عشوائية على سطح برنامج النقاط.
اختر امسح النقاط من القائمة رسوم.
يستجيب البرنامج بمسح سطح برنامج النقاط.
اختر خروج من القائمة ملف لإنهاء البرنامج.
كيف يعمل برنامج النقاط
يستعمل برنامج النقاط، الطريقة الرسومية Pset لرسم نقطة ما في النموذج، كما يستخدم الطريقة Cls لمحو النموذج.
نص قسم التصاريح العامة
يُصرَح عن المتحول gDrawPoints في قسم التصاريح العامة، ويخدم هذا المتحول كراية Flag. فإذا كان مساوياً إلى الواحد (أي الراية مرفوعة)، فهذا يعني تمكين عملية الرسم، وإذا ساوى الصفر، فهذا يعني عدم تمكين الرسم (الراية غير مرفوعة).
نص الإجراء Form_Load
يُنفّذ هذا الإجراء آلياً عند بدء تشغيل البرنامج:
Private Sub Form_Load()
'تعطيل الرسم
gDrawPoints = 0
End Sub
يسند هذا الإجراء القيمة الابتدائية صفر إلى المتحول gDrawPoints لمنع أو لعدم تمكين رسم النقاط.
نص الإجراء mnuClear_Click()
ينفذ هذا الإجراء عند اختيار امسح النقاط من القائمة رسوم:
Private Sub mnuClear_Click()
'تعطيل الرسم
gDrawPoints = 0
'تنظيف سطح النموذج
frmPoints.Cls
End Sub
يمنع هذا الإجراء عملية الرسم بإسناد القيمة صفر، إلى المتحول gDrawPoints ثم يستخدم الطريقة Cls لتنظيف سطح البرنامج من الرسوم التي عليه.
ملاحظة
استخدم الطريقة Cls (Clean Screen) لتنظيف محتويات سطح كائن ما، تمسح هذه الطريقة الرسوم المتولدة أثناء مرحلة التنفيذ بواسطة طرق الرسم المختلفة.
لاحظ مثلاً أن استخدام العبارة frmMyForm.Cls يؤدي إلى تنظيف سطح النموذج frmMyForm من أي رسوم متولدة عليه.
نص الإجراء mnuDrawPoints_Click()
ينفذ الإجراء mnuDrawPoints_Click() عند اختيار ارسم النقاط من القائمة رسوم:
Private Sub mnuDrawPoints_Click()
'تفعيل الرسم
gDrawPoints = 1
End Sub
يسند هذا الإجراء القيمة واحد إلى الراية (المتحول) gDrawPoints لتمكين الرسم.
نص الإجراء tmrTimer_Timer()
ينفذ الإجراء tmrTimer_Timer() تلقائياً كل 60 ميلي ثانية، وذلك بسبب إسناد القيمة 60 إلى الخاصية Interval:
Private Sub tmrTimer_Timer()
Dim R, G, B
Dim X, Y
Dim Counter

'إذا كان الرسم مفعلا نفّذ ما يلي
If gDrawPoints = 1 Then
'ارسم 100 نقطة عشوائية
For Counter = 1 To 100 Step 1
'الحصول على لون عشوائي
R = Rnd * 255
G = Rnd * 255
B = Rnd * 255
'الحصول على موقع احداثيات عشوائي
X = Rnd * frmPoints.ScaleWidth
Y = Rnd * frmPoints.ScaleHeight
'ارسم النقطة
frmPoints.PSet (X, Y), RGB(R, G, B)
Next
End If
End Sub
تفحص العبارة if قيمة الراية gDrawPoints، فإذا كانت مساوية إلى "الواحد"، فهذا يعني أنك اخترت ارسم النقاط من القائمة رسوم، ولذلك تنفذ كتلة العبارة If.
ترسم الحلقة For مائة نقطة، وكل نقطة ترسم بلون عشوائي في موقع عشوائي. تستخدم الطريقة الرسومية PSet لرسم كل نقطة من هذه النقاط:
frmPoints.PSet (X, Y), RGB(R, G, B)
طريقة الرسم PSet
حسب ما أوضحنا، ترسم الطريقة PSet نقطة عند الإحداثيين X و Y المحددين ضمنها

(بواسطة وسائطها).
تمتلك الطريقة PSet وسيطاً إضافياً يدعى Step، وعند استخدام الوسيط Step، تُرسم النقطة نسبة إلى الإحداثيين CurrentX (الإحداثي X الحالي) وCurrentY (الإحداثي Y الحالي).
فمثلاً، لنفترض أن الإحداثي X الحالي CurrentX يساوي 100، والإحداثي Y الحالي CurrentY يساوي 50.
وهكذا يؤدي استخدام العبارة التالية:
frmPoints.PSet Step (10,20)، RGB(R,G,B)
إلى رسم نقطة عند الموقع (X=110 و Y=70)، تحُدَّث قيمة المتحولين CurrentX وCurrentY مباشرة (أي تلقائياً) بعد تنفيذ هذه العبارة، وتصبح قيمة CurrentX = 110 و CurrentY = 70.
تذكر أننا اصطلحنا منذ الفصل الرابع بأن فيجول بيسك، يحدّث قيمة الإحداثيين CurrentX و CurrentY تلقائياً، بإسناد إحداثيي نقطة النهاية لآخر رسم إليهما).
استبدل نص الإجراء tmrTimer_Timer() بالنص التالي:
Private Sub tmrTimer1_Timer()
Dim R, G, B
Dim X, Y
Dim Counter

If gDrawPoints = 1 Then
For Counter = 1 To 100 Step 1
R = Rnd * 255
G = Rnd * 255
B = Rnd * 255
frmPoints.PSet Step(1, 1), RGB(R, G, B)
If CurrentX >= frmPoints.ScaleWidth Then
CurrentX = Rnd * frmPoints.ScaleWidth
If CurrentY >= frmPoints.ScaleHieght Then
CurrentY = Rnd * frmPoints.ScaleHieght
End If
Next
End If
End Sub
احفظ المشروع بالطريقة المعتادة.
نفّذ البرنامج، واختر ارسم النقاط من القائمة رسوم، واترك البرنامج يعمل لفترة.
يرسم البرنامج الآن خطوطاً، حسب ما يبينه الشكل 8-3.
الشكل 8-3 استخدام الإمكانية Step لطريقة الرسم PSet.
يستخدم نص الإجراء tmrTimer1_Timer() الطريقة PSet مع الإمكانية Step:
frmPoints.PSet Step (1,1)، RGB(R,G,B)
تبعد كل نقطة مرسومة عن سابقتها بمقدار وحدة إلى اليمين ووحدة إلى الأسفل. وهذا يشرح سبب رسم النقاط وكأنها خطوط مستقيمة حسب ما يوضحه الشكل 8-3.
تتحقق عبارتي If في هذا الإجراء، من أن النقاط المرسومة لا تتجاوز حدود النموذج.


ملاحظة
استخدم الطريقة PSet (Point Set) لرسم نقطة في كائن ما، وذلك كالتالي:
ObjectName.Pset (X,Y),Color
تضع العبارة السابقة نقطة على الكائن عند الموقع (X,Y) وبلون معين.
لوضع نقطة معينة على الكائن نسبة إلى آخر نقطة تم رسمها، استخدم العبارة التالية:
ObjectName.Pset Step (X,Y),Color
وهي مكافئة للعبارة التالية:
ObjectName.Pset (oldX + X,oldY + Y),Color
حيث oldX و oldY، إحداثيات آخر نقطة تم رسمها على الكائن.
الطريقة Point
تعود هذه الطريقة بقيمة لون نقطة ضوئية Pixel محددة. فمثلاً، لمعرفة لون النقطة الضوئية المحددة بالموقع 40 و 30، استخدم العبارة التالية:
PixelColor = Point (30,40)
ورغم أن برنامج النقاط لم يستخدم الطريقة Point، إلا أنك قد تجد استخداماً لها في مشاريعك المستقبلية.
رسم الخطوط Line
تسمح الطريقة Line للمستخدم برسم خطوط، وتمتلك الصيغة التالية:
Line(X1,Y1)-(X2,Y2), Color
علماً أن (X1,Y1)يمثل إحداثي نقطة بداية الخط، ويمثل (X2,Y2)إحداثي نقطة نهاية الخط، كما أن Color يمثل لون الخط. ويؤدي تجاهل كتابة النقطة الأولى (X1,Y1) إلى رسم الخط بدءاً من الإحداثيين CurrentX وCurrentY. وذلك كالتالي:
Line -(X2,Y2), Color
سنضيف عنصر قائمة جديد يدعى رسم خطوط إلى نظام قوائم برنامج النقاط، بغية توضيح عمل طريقة Line، يعطي الجدول 8-3 جدول القوائم الجديد لبرنامج النقاط.
الجدول 8-3. جدول القوائم الجديد للنموذج frmPoints.
العنوان الاسم
&ملف mnuFile
…&خروج mnuExit
&رسوم mnuGraphics
…ار&سم النقاط mnuDrawPoints
…ا&مسح النقاط mnuClear
…رسم &خطوط mnuLines
أضف النص التالي إلى الإجراء mnuLines_Click() للنموذج frmPoints:
Private sub mnuLines_Click()
Line -(Rnd * frmPoints.ScaleWidth, _
Rnd * frmPoints.ScaleHeight),RGB(0,0,0)
End sub
يرسم هذا الإجراء خطاً واحداً من آخر نقطة رسم وصل إليها، إلى نقطة عشوائية.
احفظ المشروع بالطريقة المعتادة.
نفّذ البرنامج النقاط.
اختر رسم خطوط من القائمة رسوم.
يُرسم خط في النموذج، ويتشابه مع ذاك المبين في الشكل 8-4.
الشكل 8-4 رسم خط ما بواسطة الطريقة Line.
بسبب تجاهل الإحداثيين (X1,Y1)، ترسم عبارة Line في هذا الإجراء خطاً ما، ابتداءً من الإحداثيين CurrentX وCurrentY، تكون القيمة الابتدائية للإحداثيين CurrentX وCurrentY مساوية إلى الصفر عند بدء تشغيل البرنامج. وهذا يشرح سبب بداية الخط في الشكل 8-4 من الإحداثيين 0,0.
اختر رسم خطوط من القائمة رسوم عدة مرات.
يُرسم خط جديد في كل مرة، ويبدأ من نهاية الخط السابق (انظر الشكل 8-5).
اختر خروج من القائمة ملف لإنهاء البرنامج.
الشكل 8-5 رسم خطوط متصلة.
دعنا الآن نكتب برنامجاً يرسم عدة خطوط عند اختيار رسم خطوط من القائمة رسوم:
Private Sub mnuLines_Click()
Dim Counter
For Counter = 1 To 100 Step 1
Line -(Rnd * frmPoints.ScaleWidth, _
Rnd * frmPoints.ScaleHeight), RGB(0, 0, 0)
Next
End Sub
نفّذ البرنامج.
اختر رسم خطوط من القائمة رسوم.
يرسم البرنامج مائة خط متصل، حسب ما يبينه الشكل8-6.
الشكل 8-6 رسم مائة خط متصل.
استخدام الوسيط Step في الطريقة Line
يمكنك استخدام الوسيط Step الاختياري في الطريقة Line، كما يلي:
Line (X1,Y1) - Step (dx,dy),Color
علماً أن (X1,Y1) تمثل إحداثيات نقطة البداية، أما Step (dx,dy) فهي دلالة لفيجول بيسك، بأن نقطة نهاية الخط تقع عند الإحداثيين X1 + dx و Y1 + dy. فمثلاً ترسم العبارة التالية:
Line (20,30) - Step (50,100), RGB(0,0,0)
خطاً يبدأ من الإحداثيين 20 , 30 وينتهي بالإحداثيين 70 , 130.
يمكن استخدام الإمكانية Step أيضاً لرسم مربع. ترسم العبارات التالية المربع المبين في الشكل 8-7:
Line (10,20) - (400,20)
Line -Step(0,400)
Line -Step(-300,0)
Line -Step(0,-400)
الشكل 8-7 رسم مربع بطريقة رسم الخط Line.
كما تشاهد تعتبر عبارات Line الأربعة لازمة لرسم مربع واحد، الطريقة الأسهل لرسم مربع، بواسطة الطريقة Line تكون باستخدام Line مع الخيار B، أي:
Line (100,20)-(400,420),RGB(0,0,0),B
الإحداثيان الأولين هما إحداثيا الزاوية اليسرى العليا للمربع، أما الإحداثيان اللذان يليهما فيمثلان إحداثيي الزاوية السفلى اليمنى للمربع. يطلب الوسيط B من فيجول بيسك، رسم مربع له هاتين الزاويتين.
إذا أردت ملء المربع (طمسه)، استخدم الوسيط F:
Line(100,20)-(400,420),RGB(0,255,0),BF
ترسم هذه العبارة مربعاً وتملؤه باللون الأخضر، لا توجد فاصلة بين B و F لأنك لا تستطيع استخدام F بدون B.
ملاحظة
يقصد برسم المربع هنا، رسم شكل رباعي الأضلاع، وهو ليس بالضرورة مربعاً متساوي الأضلاع.
ملء المربع بواسطة الخاصية FillStyle
تُقدم الخاصية FillStyle طريقة ثانية لملء المربع المرسوم، فباستخدام الخاصيتين FillColor وFillStyle للنموذج، واستخدام طريقة Line مع الوسيط B دون الوسيط F نستطيع ملء المربع:
frmMyForm.FillStyle = 2
frmMyForm.FillColor = RGB(255,0,0)
frmMyForm.Line (100,20)-(400,420),RGB(0,0,0),B
تسند العبارة الأولى القيمة 2 إلى الخاصية FillStyle. يبين الجدول 8-4 معاني القيم النهائية المحتملة لهذه الخاصية، وعندما تكون قيمة FillStyle مساوية إلى 2، يمُلأ الكائن بخطوط أفقية.
تسند العبارة الثانية اللون الأحمر RGB(255,0,0) إلى الخاصية FillColor، (بمعنى أن المربع سيلون بالأحمر)، وهكذا تتسبب العبارات الثلاث برسم مربع وملؤه بخطوط شاقولية حمراء.



الجدول 8-4. القيم الثمانية المحتملة للخاصية FillStyle.
القيمة الشرح
0 لون خالص مصمت Solid.
1 لون شفاف غير مرئي Transparent (القيمة الافتراضية).
2 خطوط أفقية Horizontal Lines.
3 خطوط عمودية Vertical Lines.
4 خطوط مائلة للأعلى Upward diagonal Lines.
5 خطوط مائلة للأسفل Downward diagonal Lines.
6 خطوط متقاطعة Cross hatch
7 خطوط متقاطعة مائلة Diagonal Cross hatch.
للتعرف على معاني كل قيمة من قيم الخاصية FillStyle في الجدول 8-4 قم بما يلي:
أضف القائمة رسم مربع إلى نظام قوائم النموذج frmPoints.
يعطي الجدول 8-5 جدول القائمة الجديد.
الجدول 8-5. إضافة القائمة رسم مربع إلى النموذج frmPoints.
العنوان الخاصية Name
&ملف mnuFile
…&خروج mnuExit
&رسوم mnuGraphics
…ار&سم النقاط mnuDrawPoints
…ا&مسح النقاط mnuClear
…رسم &خطوط mnuLines
رسم مربع mnuDrawBox
…أحمر mnuRed
…أخضر mnuGreen
…أزرق mnuBlue
…- mnuSep1
…تغيير نمط الرسم mnuSetStyle
أضف النص التالي ضمن الإجراء mnuRed_Click() للنموذج frmPoints:
Private Sub mnuRed_Click()
'تغيير الخاصية FillColor إلى الأحمر
frmPoints.FillColor = RGB(255, 0, 0)
'رسم المربع
frmPoints.Line (100, 80)-Step(5000, 3000), _
RGB(255, 0, 0), B
End Sub
أضف النص التالي ضمن الإجراء mnuBlue_Click() للنموذج frmPoints:
Private Sub mnuBlue_Click()
'تغيير الخاصية FillColor إلى الأحمر
frmPoints.FillColor = RGB(255, 0, 0)
'رسم المربع
frmPoints.Line (100, 80)-Step(5000, 3000), _
RGB(0, 0, 255), B
End Sub
أضف النص التالي ضمن الإجراء mnuGreen_Click() للنموذج frmPoints:
Private Sub mnuGreen_Click()
'تغيير الخاصية FillColor إلى الأحمر
frmPoints.FillColor = RGB(255, 0, 0)
'رسم المربع
frmPoints.Line (100, 80)-Step(5000, 3000), _
RGB(0, 255, 0), B
End Sub
أضف النص التالي ضمن الإجراء mnuSetStyle_Click() للنموذج frmPoints:
Private Sub mnuSetStyle_Click()
Dim FromUser
Dim Instruction
Instruction = "FillStyle أدخل رقماً(0-7) لتعيينه للخاصية"
'الحصول على قيمة من المستخدم
FromUser = InputBox$(Instruction, _
"FillStyle تعيين قيمة ")
'تنظيف النموذج
frmPoints.Cls
'التأكد من القيمة المدخلة
If Val(FromUser) >= 0 And Val(FromUser) <= 7 Then
frmPoints.FillStyle = Val(FromUser)
Else
Beep
MsgBox ("قيمة غير صحيحة")
End If
'رسم المربع
frmPoints.Line (100, 80)-Step(5000, 3000), _
RGB(0, 0, 0), B
End Sub
احفظ المشروع، باختيار Save Project من القائمة File لفيجول بيسك.
تنفيذ برنامج النقاط
لنشاهد ما كتبناه قيد العمل:
نفّذ برنامج النقاط.
اختر تغيير نمط الرسم من القائمة رسم مربع.
يستجيب البرنامج بإظهار مربع إدخال (Input Box) حسب ما يظهر من الشكل 8-8.
الشكل 8-8 إدخال قيمة للخاصية FillStyle.
أدخل رقماً بين صفر و سبعة، وانقر الزر OK. يمثل هذا الرقم قيمة الخاصية FillStyle.
يُظهر البرنامج المربع ويملؤه حسب قيمة FillStyle المدخلة في الخطوة السابقة. يظهر في الشكل 8-9 المربع عندما تكون قيمة FillStyle مساوية إلى 4 (خطوط مائلة). قد تضطر إلى سحب الحافة اليسارية للإطار لتوسيعه.
الشكل 8-9 التمرن على الخاصية FillStyle.
اختر أحمر أو أزرق أو أخضر من القائمة رسم مربع.
يستجيب البرنامج برسم المربع باللون المنتقى.
تمرن على برنامج النقاط، واختر خروج من القائمة ملف لإنهائه.
نص الإجراء mnuRed_Click()
ينفذ الإجراء mnuRed_Click عند اختيار أحمر من القائمة رسم مربع:
Private Sub mnuRed_Click()
'تغيير الخاصية FillColor إلى الأحمر
frmPoints.FillColor = RGB(255, 0, 0)
'رسم المربع
frmPoints.Line (100, 80)-Step(5000, 3000), _
RGB(255, 0, 0), B
End Sub
يحدد هذا الإجراء قيمة الخاصية FillColor باللون الأحمر، ثم يستخدم الطريقة Line مع الوسيط B لرسم مربع. يملأ المربع تبعاً للقيمة الراهنة للخاصية FillStyle للنموذج.
يعمل الإجراءان mnuBlue_Click() و mnuGreen_Click() بطريقة مشابهة، محددين قيمة الخاصية FillColor باللون الأزرق Blue أو الأخضر Green.
نص الإجراء mnuSetStyle_Click
ينفذ هذا الإجراء عند اختيار تغيير نمط الرسم من القائمة رسم مربع:
Private Sub mnuSetStyle_Click()
Dim FromUser
Dim Instruction
Instruction = "FillStyle أدخل رقماً(0-7) لتعيينه للخاصية"
'الحصول من المستخدم على القيمة
FromUser = InputBox$(Instruction, _
"FillStyle تعيين قيمة ")
'تنظيف النموذج
frmPoints.Cls
'التأكد من القيمة المدخلة
If Val(FromUser) >= 0 And Val(FromUser) <= 7 Then
frmPoints.FillStyle = Val(FromUser)
Else
Beep
MsgBox ("قيمة غير صحيحة")
End If
'رسم المربع
frmPoints.Line (100, 80)-Step(5000, 3000), _
RGB(0, 0, 0), B
End Sub
يستخدم هذا الإجراء التابع الوظيفي InputBox() للحصول على رقم بين صفر وسبعة، ثم ينظف النموذج بواسطة الطريقة Cls، يلي ذلك التحقق من القيمة التي أدخلها المستخدم وذلك باستخدام العبارة If بغية التحقق من أن القيمة تقع ضمن المجال الصحيح (المسموح به).
فإذا كانت القيمة المدخلة واقعة بين صفر وسبعة،تُحَدَّث عند ذلك الخاصية FillStyle بإسناد تلك القيمة إليها.
ترسم آخر عبارة في الإجراء مربعاً باستخدام الطريقة Line مع الإمكانية B. يُرسم المربع اعتماداً على القيمتين الحاليتين للخاصتين FillColor وFillStyle للنموذج.
برنامج الدائرة
نُقدم الآن طريقة رسم هامة أخرى وهي الطريقة Circle، تُستخدم هذه الطريقة لرسم الدوائر والقطوع الناقصة، ويوضح برنامج الدائرة كيفية رسم الدوائر.
يمكنك استخدام الطريقة Circle لرسم الدوائر سواء في النموذج، أوفي عنصر تحكم الصورة.
التمثيل المرئي لبرنامج الدائرة
نبدأ كعادتنا بطور التمثيل المرئي (طور التصميم) لنموذج برنامج الدائرة:
أنشئ مشروعاً تنفيذياً قياسياً جديداً Standard EXE، واحفظ نموذج المشروع بالاسم Circles.frm في الدليل C:\VB5Prg\Ch08، واحفظ المشروع بالاسم Circles.vbp في الدليل C:\VB5Prg\Ch08.
أنشئ النموذج frmCircles وفقاً للجدول 8-6.
يفترض أن يبدو النموذج المكتمل كما في الشكل 8-10.

الشكل 8-10 النموذج frmCircles في طور التصميم.



الجدول 8-6 جدول خصائص النموذج frmCircles.
الكائن الخاصية القيمة
Form Name frmCircles
Caption برنامج الدائرة
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
Picture Box Name picCircles
BorderStyle 1-Fixed Single
Vertical Scroll Bar Name vsbRadius
Max 100
Min 1
Value 1
Horizontal Scroll Bar Name hsbCircleWidth
Max 10
Min 1
Value 1
Label Name lblWidth
Caption العرض:
RightToLeft True
Label Name lblRadius
Caption نصف القطر:
RightToLeft True
إدخال نص برنامج الدائرة
سندخل الآن نص برنامج الدائرة:
تحقق من احتواء قسم التصاريح العامة على العبارة Option Explicit، أي:
' يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء cmdExit_Click() للنموذج frmCircles:
Private Sub cmdExit_Click()
End
End Sub
أدخل النص التالي ضمن الإجراء hsbCircleWidth_Change():
Private Sub hsbCircleWidth_Change()
Dim X, Y, Radius
picCircles.DrawWidth = hsbCircleWidth.Value
X = picCircles.ScaleWidth / 2
Y = picCircles.ScaleHeight / 2
picCircles.Cls
picCircles.Circle (X, Y), vsbRadius.Value * 10, _
RGB(255, 0, 0)
End Sub
أدخل النص التالي ضمن الإجراء hsbCircleWidth_Scroll():
Private Sub hsbCircleWidth_Scroll()
hsbCircleWidth_Change
End Sub
أدخل النص التالي ضمن الإجراء vsbRadius_Change():
Private Sub vsbRadius_Change()
Dim X, Y, Radius
X = picCircles.ScaleWidth / 2
Y = picCircles.ScaleHeight / 2
picCircles.Cls
picCircles.Circle (X, Y), vsbRadius.Value * 10, _
RGB(255, 0, 0)
End Sub
أدخل النص التالي ضمن الإجراء vsbRadius_Scroll():
Private Sub vsbRadius_Scroll()
vsbRadius_Change
End Sub
احفظ المشروع بالطريقة المعتادة.
تنفيذ برنامج الدائرة
لنشاهد ما كتبناه قيد التنفيذ:
نفّذ برنامج الدائرة.
غَيِّر موقع مؤشر شريط التمرير العمودي.
يتغير نصف قطر الدائرة الظاهرة، وفقاً لوضعية مؤشر شريط التمرير العمودي (انظر الشكل 8-11).
غَيِّر موقع مؤشر شريط التمرير الأفقي لتحديد قيمة جديدة لعرض حدود الدائرة. وترسم الدائرة بخط مختلف العرض.
الشكل 8-11 تغيير نصف قطر الدائرة بواسطة شريط التمرير العمودي.
كيف يعمل برنامج الدائرة
يستخدم برنامج الدائرة الطريقة Circle لرسم الدائرة. يتغير نصف قطر الدائرة تبعاً لموقع مؤشر شريط التمرير العمودي، ويتغير عرض حدود الدائرة تبعاً لموقع مؤشر شريط التمرير الأفقي.
نص الإجراء vsbRadius_Change()
ينفذ الإجراء vsbRadius_Change() عند تغيير موقع مؤشر شريط التمرير الأفقي:
Private Sub vsbRadius_Change()
Dim X, Y, Radius
X = picCircles.ScaleWidth / 2
Y = picCircles.ScaleHeight / 2
picCircles.Cls
picCircles.Circle (X, Y), vsbRadius.Value * 10, _
RGB(255, 0, 0)
End Sub
يحسب هذا الإجراء، إحداثيي نقطة مركز الدائرة (x,y) بحساب إحداثيات مركز عنصر تحكم الصورة، بحيث يكون مركز الدائرة هو نفسه مركز عنصر تحكم الصورة.
يلي ذلك تنظيف المحتويات الرسومية السابقة الموجودة على عنصر تحكم الصورة، وذلك باستخدام الطريقة Cls (أي تنظيف العنصر من الدائرة السابقة في حال وجودها)، وأخيراً ترسم الدائرة باستخدام الطريقة Circle:
picCircles.Circle (X, Y), vsbRadius.Value * 10, _
RGB(255, 0, 0)
يكون نصف قطر الدائرة المرسومة بلون أحمر، أكبر عشر مرات من القيمة (الحالية) الراهنة لموقع مؤشر شريط التمرير العمودي.
ملاحظه
استخدم الطريقة Circle لرسم دائرة ما على الكائن:
ObjectName.Circle(X , Y) , Radius , color
فمثلاً، لرسم دائرة زرقاء على النموذج المدعو frmMyForm باحداثيي مركز 1000,500 ونصف قطر 75، استخدم العبارة التالية:
frmMyForm.Circle (1000 , 500), 75 , RGB(0,0,255)
بطريقة مشابهة، يرسم الإجراء vsbRadius_Scroll() دائرة جديدة عند تغيير موقع مؤشر شريط التمرير العمودي، وذلك باستدعاء الإجراء vsbRadius_Change.
نص الإجراء hsbCircleWidth_Change()
ينفذ الإجراء hsbCircleWidth_Change() عند تغيير موقع مؤشر شريط التمرير الأفقي:
Private Sub hsbCircleWidth_Change()
Dim X, Y, Radius
picCircles.DrawWidth = hsbCircleWidth.Value
X = picCircles.ScaleWidth / 2
Y = picCircles.ScaleHeight / 2
picCircles.Cls
picCircles.Circle (X, Y), vsbRadius.Value * 10, _
RGB(255, 0, 0)
End Sub
يغيّر هذا الإجراء الخاصية DrawWidth لعنصر تحكم الصورة المدعو picCircles، تبعاً لموقع مؤشر شريط التمرير الأفقي. تحدِد قيمة الخاصية DrawWidth عرض الدائرة المرسومة في عنصر تحكم الصورة. وكما تشاهد هناك تشابه كبير بين هذا الإجراء والإجراء vsbRadius_Change(). ولكن بدلاً من تغيير نصف القطر، يتم هنا تحديث الخاصية DrawWidth لعنصر تحكم الصورة:
picCircles.DrawWidth = hsbCircleWidth.Value
وبطريقة مشابهة، يرسم الإجراء hsbCircleWidth_Scroll() دائرة جديدة، عند تغيير عرض حدود الدائرة، عند تحريك مؤشر شريط التمرير الأفقي، وذلك باستدعاء الإجراء hsbCircleWidth_Change().
تحسين برنامج الدائرة
نستطيع بإضافة بعض الأسطر إلى برنامج الدائرة، الحصول على مؤثرات رسومية جذابة:
أضف الزر نمط الرسم إلى النموذج frmCircles، حسب مايبينه الشكل 8-12.
أسند لهذا الزر الخصائص التالية:
Name: cmdDrawStyle
Caption: نمط الرسم
RightToLeft: True

الشكل 8-12 إضافة الزر نمط الرسم إلى برنامج الدائرة.
أضف النص التالي ضمن الإجراء cmdDrawStyle_Click() للنموذج frmCircles:
Private Sub cmdDrawStyle_Click()
Dim TheStyle
TheStyle = InputBox$("أدخل رقماً(0-6):")
If Val(TheStyle) < 0 Or Val(TheStyle) > 6 Then
Beep
MsgBox ("إدخال غير صحيح")
Else
picCircles.DrawStyle = Val(TheStyle)
End If
End Sub
احذف شريط التمرير الأفقي. (تأكد من اختيار شريط التمرير الأفقي ثم اضغط المفتاح Delete لحذفه).
كتبنا في النسخة السابقة لبرنامج الدائرة، نص الإجراء hsbWidth_Change()، أما الآن، فقد حذفنا عنصر التحكم هذا، لهذا يضع فيجول بيسك نص هذا الإجراء في المنطقة General للنموذج frmCircles، لهذا تستطيع بعد حذفك عنصر التحكم، إزالة إجراءاته (Procedures) أيضاً من المنطقة General.
احذف الإجراء hsbWidth_Change() من المنطقة General، وذلك بإضاءته كاملاً بما في ذلك أول وآخر سطرين فيه، ثم اضغط الزر Delete من لوحة المفاتيح.
احذف الإجراء hsbWidth_Scroll() من المنطقة General بنفس الطريقة المتبعة في الخطوة السابقة.
احذف اللافتة lblWidth باختيارها، ثم ضغط المفتاح Delete من لوحة المفاتيح.
حدد اللون الأبيض White في الخاصية BackColor لعنصر التحكم picCircles، مما يعني أن الدائرة سترسم على خلفية بيضاء، الأمر الذي يمكِّنك من مشاهدة تأثيرات نماذج الرسم بشكل أفضل.
تنفيذ برنامج الدائرة
دعنا نشاهد النص الذي كتبناه قيد التنفيذ:
نفّذ برنامج الدائرة.
انقر الزر نمط الرسم.
يستجيب البرنامج بإظهار مربع رسالة، يطلب منك إدخال رقم بين الصفر والستة.
أدخل رقماً بين الصفر والستة (هذا الرقم يمثل نمط الرسم)، ثم انقر على الزر OK.
حرك مؤشر شريط التمرير العمودي جيئة وذهاباً، وشاهد التأثيرات التي تتسبب بها قيم مختلفة لأنصاف الأقطار والأنماط المختلفة، على الدائرة.
أنهِ البرنامج بالنقر على الزر خروج.
الخاصية DrawStyle
يُنفذ الإجراء cmdDrawStyle_Click() عند نقر الزر نمط الرسم.
يُطلب منك إدخال رقم بين الصفر والستة، ويُستخدم هذا الرقم كقيمة للخاصية DrawStyle لعنصر تحكم الصورة. يعرض الجدول 8-7 قائمة بالقيم السبعة المحتملة للخاصية DrawStyle ومعانيها.
الجدول 8-7. القيم السبعة المحتملة للخاصية DrawStyle.
القيمة الشرح
0 مصمت Solid (القيمة الافتراضية).
1 شَرطة Dash ( - - - ).
2 نقطة Dot ( . . . ).
3 شَرطة نقطة Dash Dot ( - . - . ).
4 شَرطة نقطة نقطة Dash Dot Dot ( - . . - . . ).
5 غير مرئي Invisible.
6 مصمت داخلي Inside Solid.
ملاحظة
تغير الخاصية DrawStyle، طريقة رسم الخطوط على الكائن، كما رأينا في الجدول السابق.
لكن هناك شرط واحد لكي تظهر هذه التأثيرات وهو: أن يكون عرض حدود الخطوط مساو للواحد (DrawWidth = 1)، ولا يمكن ظهور هذه التأثيرات، في حال ما إذا كانت قيمة الخاصية DrawWidth أكبر من الواحد.
تحسين برنامج الدائرة مجدداً
سنجري الآن تعديلاً إضافياً على برنامج الدائرة:
استبدل نص الإجراء vsbRadius_Change() بالنص التالي:
Private Sub vsbRadius_Change()
Dim X, Y, Radius
Static LastValue
Dim R, G, B
R = Rnd * 255
G = Rnd * 255
B = Rnd * 255
X = picCircles.ScaleWidth / 2
Y = picCircles.ScaleHeight / 2
If LastValue > vsbRadius.Value Then
picCircles.Cls
End If
picCircles.Circle (X, Y), vsbRadius.Value * 10, _
RGB(R, G, B)
LastValue = vsbRadius.Value
End Sub
احفظ المشروع باختيار Save Project من القائمة File.
تنفيذ النسخة المحسنة من برنامج الدائرة
سنشاهد الآن بعض المؤثرات الرسومية الجميلة:
نفّذ برنامج الدائرة.
انقر على الزر نمط الرسم.
يستجيب البرنامج بإظهار مربع الدخول Input Box الذي يطالبك بإدخال رقم بين الصفر والستة.
أدخل الرقم 2 ثم انقر على الزر OK.
زد موقع مؤشر شريط التمرير العمودي نصف القطر بالنقر عدة مرات، فوق رأس السهم النازل الواقع أسفل شريط التمرير هذا.
يستجيب البرنامج برسم دوائر كما في الشكل 8-13.
أنقص موقع مؤشر شريط التمرير العمودي نصف القطر بالنقر عدة مرات، فوق رأس السهم الصاعد المتوضع أعلى شريط التمرير.
يستجيب البرنامج برسم دوائر متعاقبة أصغر.
تمرن على برنامج الدائرة، ثم أنهِ البرنامج بنقر الزر خروج.
الشكل 8-13 رسم دوائر بواسطة النسخة المحسنة من برنامج الدائرة.
نص الإجراء vsbRadius_Change()
ينفذ الإجراء vsbRadius_Change() آلياً عند تغيير موقع مؤشر شريط التمرير.
يبدأ الإجراء بالتصريح عن بضعة متحولات، ويعرّف المتحول الثاني كمتحول ساكن Static:
Static LastValue
مما يعني أن المتحول LastValue لا تسند له القيمة الابتدائية صفر، كلما نُفذ هذا الإجراء، وبمعنى آخر، يحافظ المتحول على قيمته ضمن هذا الإجراء.
يجهز الإجراء بعد ذلك المتحولات الثلاثة R,G,B ويسند إليها أرقاماً تمثل ألواناً عشوائية:
'توليد لون عشوائي
R = Rnd * 255
G = Rnd * 255
B = Rnd * 255
يحسب الإجراء بعد ذلك إحداثيات مركز عنصر تحكم الصورة:
X = picCircles.ScaleWidth / 2
Y = picCircles.ScaleHeight / 2
تستخدم الإحداثيات بعد ذلك ضمن هذا الإجراء كإحداثيات لمركز الدوائر.
يحتفظ المتحول LastValue بقيمة الخاصية Value لشريط التمرير العمودي، قبل تغيير موقع مؤشر شريط التمرير.
تتحقق العبارة If إذا كان الموقع الحالي لمؤشر شريط التمرير (المحدد بالخاصية Value)، أصغر من آخر موقع لشريط التمرير:
If LastValue > vsbRadius.Value Then
picCircles.Cls
End If
إذا كانت القيمة الراهنة للخاصية Value لشريط التمرير العمودي، أصغر من قيمة المتحول LastValue، فهذا يعني أنك أنقصت قيمة شريط التمرير. وفي هذه الحالة تنفذ الطريقة Cls التي تنظف عنصر تحكم لصورة.
يرسم الإجراء بعد ذلك دائرة باستخدام الطريقة Circle:
picCircles.Circle (X, Y), vsbRadius.Value * 10, RGB(R, G, B)
وآخر شيء يفعله هذا الإجراء، هو تحديث قيمة المتحول LastValue. وعند التنفيذ التالي لهذا الإجراء، تمثل قيمة المتحول LastValue الخاصية Value لشريط التمرير قبل التغيير:
LastValue = vsbRadius.Value
فإذا زاد المستخدم شريط التمرير، لا تنفذ الطريقة Cls، وهكذا تبقى الدوائر التي رسمت مسبقاً على الشاشة عند زيادة شريط التمرير، وينظف عنصر تحكم الصورة عند إنقاص شريط التمرير.
المتحول الساكن LastValue
لعل المتحول LastValue هو الشيء الهام الواجب الانتباه إليه، من المناقشة السابقة.
يصرح عن هذا المتحول بأنه Static:
Static LastValue
تُسند القيمة صفر إلى المتحول LastValue عند تنفيذ الإجراء vsbRadius_Change() لأول مرة من قبل فيجول بيسك. تتغير هذه القيمة أثناء تنفيذ الإجراء، وعند التنفيذ التالي لهذا الإجراء، يُعاد إسناد القيمة الابتدائية صفر إلى المتحولات الغير ساكنة non static (مثل المتحول X و Y و Radius) من جديد.
أما المتحول LastValue فلا تتبدل قيمته منذ آخر تنفيذ للإجراء، وذلك بسبب التصريح عنه بأنه من النوع الساكن Static (بمعنى أنه يحتفظ بقيمته التي أسندت إليه من التنفيذ السابق للإجراء).
قد تلاحظ تشابهاً بين المتحول المصرح عنه في قسم التصاريح العامة General Declarations، وبين المتحول المصرح عنه كمتحول ساكن Static. ففي كلتا الحالتين، يحتفظ المتحول بقيمته طالما أن البرنامج يعمل. لكن هنالك اختلاف هام بين نوعي المتحولين هذين:
المتحول المصرح عنه في قسم التصاريح العامة لنموذج يمكن الولوج إليه من ضمن أي إجراء في النموذج.
المتحول المصرح عنه في إجراء كمتحول ساكن Static، يقبل الولوج إليه من ضمن الإجراء الذي صرّح عن هذا المتحول.
فإذا حاولت مثلاً الولوج إلى المتحول LastValue من ضمن الإجراء Form_Load() مثلاً، فسوف ينتج لديك خطأ، لأنك لا تستطيع الوصول إلى هذا المتحول من خارج الإجراء vsbRadius_Change()، يمكنك أيضاً التصريح عن متحول آخر يدعى LastValue ضمن الإجراء Form_Load(). وهذه القيمة يمكن التصريح عنها كمتحول ساكن أو متحول غير ساكن نظامي، لكن لا يوجد أي صلة بين المتحول LastValue المنتمي للإجراء Form_Load()، وبين المتحول LastValue الخاص بالإجراء vsbRadius_Change().
وكما ترى، يعتبر التصريح عن متحول ساكن، حيلة جيدة للاستخدام، عندما لا ترغب بفقدان قيمة المتحول بعد الانتهاء من تنفيذ الإجراء.
تُخزن المتحولات غير الساكنة النظامية، والمتحولات الساكنة في الحاسب الشخصي PC بطرق مختلفة. فمثلاً قارن بين كيفية تخزين المتحول Radius، (والذي يمثل متحولاً نظامياً غير ساكن ومحلي ضمن الإجراء vsbRadius_Change()، وتخزين المتحول LastValue الساكن.
تضيع قيمة المتحول Radius بعد الخروج من الإجراء vsbRadius_Change() إلى الأبد، وهكذا فإن خلايا الذاكرة التي كانت مخصصة لحفظ المتحول Radius تصبح حرة (أي خالية). أما خلايا الذاكرة المستخدمة لحفظ المتحول الساكن LastValue، تبقى محجوزة طالما أن برنامج الدائرة قيد التنفيذ. كذلك الأمر، يبقى المتحول المصرح عنه في قسم التصاريح العامة في الذاكرة طالما أن البرنامج يعمل.
رسم القطوع الناقصة والأقواس
تُستخدم الطريقة Circle لرسم القطوع الناقصة والأقواس.

وتعطى الصيغة العامة الكاملة لهذه الطريقة بما يلي:
[object.]Circle [Step] ( X , Y ), _
radius , _
[color], _
[start], _
[ end ], _
[aspect]
يُؤدي استخدام الكلمة Step ضمن صيغة العبارة Circle، إلى الدلالة على أن الإحداثيين (X,Y) منسوبين للإحداثيين CurrentY CurrentX ,. فمثلاً، إذا كانت قيمة CurrentX تساوي 1000، وقيمة CurrentY تساوي 3000، ترسم العبارة التالية دائرة بنصف قطر يساوي 80، ومركز الإحداثيات (X = 1010 , Y = 3010):
frmMyform.Circle Step (10,20),80
الوسيط Aspect (نسبة القطرين)
الوسيط Aspect عبارة عن رقم موجب يتسبب برسم قطوع ناقصة. فمثلاً، تُولد الطريقة Circle دائرة مكتملة إذا كانت قيمة Aspect تساوي الواحد، أما عندما تكون قيمة Aspect أكبر من الواحد، فتولد الطريقة Circle عند ذلك، قَطعاً ناقصاً، يتطاول على محوره العمودي. وعندما تكون قيمة Aspect أقل من الواحد، تولد الطريقة Circle قَطعاً ناقصاً يمتد على محوره الأفقي. تُبين الأشكال 8-14و 8-15و 8-16 ثلاثة قطوع ناقصة بثلاثة قيم مختلفة للوسيط Aspect (نسبة القطرين).
الشكل 8-14 رسم دائرة مكتملة Aspect = 1.
[/color][color]
الشكل 8-15 رسم قطع ناقص متطاول أفقياً Aspect = 0.5.

الشكل 8-16 رسم قطع ناقص متطاول عمودياً Aspect = 2.7.
برنامج القطوع الناقصة
يوضح برنامج القطوع الناقصة، كيفية رسم القطوع الناقصة، بأنصاف أقطار وقيم مختلفة للوسيط Aspect.
التمثيل المرئي لبرنامج القطوع الناقصة
نبدأ كعادتنا بالتمثيل المرئي لنموذج البرنامج:
أنشئ مشروعاً جديداً قياسياً من النوع Standard EXE، ثم احفظ نموذج المشروع بالاسم Ellipses.frm في الدليل C:\VB5Prg\Ch08، واحفظ ملف المشروع في ذات الدليل بالاسم Ellipses.vbp.
أنشئ النموذج frmEllipses طبقاً للجدول 8-8.
يُفترض أن يبدو النموذج كما هو مبين في الشكل 8-17.
الشكل 8-17 النموذج frmEllipses (طور التصميم).
الجدول 8-8. جدول خصائص النموذج frmEllipses.
الكائن الخاصية القيمة
Form Name frmEllipses
Caption برنامج القطوع الناقصة
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
Horizontal Scroll Bar Name hsbAspect
Max 100
Min 1
Value 1
Horizontal Scroll Bar Name hsbRadius

الكائن الخاصية القيمة
Max 100
Min 1
Value 1
Label Name lblInfo
Caption نسبة القطرين:
RightToLeft True
Label Name lblAspect
Caption نسبة القطرين:
RightToLeft True
Label Name lblRadius
Caption نصف القطر:
RightToLeft True
إدخال نص برنامج القطوع الناقصة
ستدخل الآن نص برنامج القطوع الناقصة:
تحقق بأن العبارة Option Explicit تقع ضمن قسم التصاريح العامة للنموذج frmEllipses:
' يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء cmdExit_Click():
Private sub cmdExit_Click()
End
End sub
أدخل النص التالي ضمن الإجراء Form_Load():
Private Sub Form_Load()
hsbAspect.Value = 10
hsbRadius.Value = 10
lblInfo.Caption = "نسبة القطرين: 1"
frmEllipses.DrawWidth = 2
End Sub
أدخل النص التالي ضمن الإجراء hsbAspect_Change():
Private Sub hsbAspect_Change()
Dim X, Y
Dim Info
X = frmEllipses.ScaleWidth / 2
Y = frmEllipses.ScaleHeight / 2
frmEllipses.Cls
frmEllipses.Circle (X, Y), hsbRadius.Value * 10, _
RGB(255, 0, 0), , , hsbAspect.Value / 10
Info = "نسبة القطرين: " + Str(hsbAspect.Value / 10)
frmEllipses.lblInfo.Caption = Info
End Sub
أدخل النص التالي ضمن الإجراء hsbAspect_Scroll():
Private Sub hsbAspect_Scroll()
hsbAspect_Change
End Sub
أدخل النص التالي ضمن الإجراء hsbRadius_Change() للنموذج frmEllipses:
Private Sub hsbRadius_Change()
Dim X, Y
Dim Info
X = frmEllipses.ScaleWidth / 2
Y = frmEllipses.ScaleHeight / 2
frmEllipses.Cls
frmEllipses.Circle (X, Y), hsbRadius.Value * 10, _
RGB(255, 0, 0), , , hsbAspect.Value / 10
Info = "نسبة القطرين: " + Str(hsbAspect.Value / 10)
frmEllipses.lblInfo.Caption = Info
End Sub
أدخل النص التالي ضمن الإجراء hsbRadius_Scroll():
private sub hsbRadius_Scroll()
hsbRadius_Change()
End sub
تنفيذ برنامج القطوع الناقصة
لنشاهد ما كتبناه على أرض الواقع:
نفّذ برنامج القطوع الناقصة.
بدّل موقع مؤشر شريط التمرير نصف القطر لرسم دوائر وقطوع، بواسطة قيم مختلفة لنصف القطر.
بدّل موقع مؤشر شريط التمرير نسبة القطرين لرسم قطوع ناقصة ذات قيم مختلفة للوسيط Aspect.
لاحظ أن قيمة الوسيط Aspect الراهنة تظهر على يمين شريط التمرير نسبة القطرين. يرسم البرنامج دائرة مكتملة عندما تكون قيمة نسبة القطرين تساوي الواحد، أما عندما تكون قيمة نسبة القطرين أقل من الواحد، يرسم البرنامج عندها قَطعاً ناقصاً ممتداً على محوره الأفقي، كما يظهر من الشكل 8-15، أما عندما تكون قيمة نسبة القطرين أكبر من الواحد، يرسم البرنامج قطعاً ممتداً على محوره العمودي، حسب ما يوضحه الشكل 8-16.
كيف يعمل برنامج القطوع الناقصة
يرسم البرنامج قطوعاً ناقصة باستخدام الطريقة Circle. وتستخدم الخاصية Value لشريطي التمرير كوسائط تمرر للطريقة Circle.
نص الإجراء Form_Load()
ينفذ الإجراء Form_Load() عند تحميل النموذج frmEllipses (أي في بداية التنفيذ):
Private Sub Form_Load()
hsbAspect.Value = 10
hsbRadius.Value = 10
lblInfo.Caption = "نسبة القطرين: 1"
frmEllipses.DrawWidth = 2
End Sub
يسند هذا الإجراء القيمة 10 إلى الخاصية Value لشريط التمرير ثم يظهر اللافتة lblInfo وهي تحمل العنوان (نسبة القطرين: 1)، على يمين شريط التمرير نسبة القطرين. ستلاحظ قريباً أن البرنامج يستخدم عُشْر قيمة الخاصية Value لشريط التمرير نسبة القطرين، كقيمة للوسيط Aspect في الطريقة Circle.
فمثلاً، عندما تكون قيمة الخاصية Value لشريط التمرير نسبة القطرين مساوية إلى 20، فهذا يعني أن الطريقة Circle تستخدم القيمة 2 كقيمة للوسيط Aspect، وهذا هو السبب وراء قيام الإجراء Form_Load() بتسمية اللافتة lblInfo بالعنوان (نسبة القطرين: 1) بعد إسناد القيمة 10 إلى شريط التمرير نسبة القطرين.
تسند آخر عبارة في هذا الإجراء القيمة 2 إلى الخاصية DrawWidth للنموذج.
frmEllipses.DrawWidth = 2
يتسبب هذا الأمر، برسم الأشكال بعرض يساوي إلى وحدتي قياس (أي 2 Units)، وحدة القياس قد تكون نقطة ضوئية Pixel، (حسبما هو محدد في الخاصية ScaleMode)، وهكذا فعند استخدام الطريقة Circle ترسم القطوع بخط عرضه وحدتين.
لاحظ أن الإجراء عمد إلى إسناد قيمة معينة للخاصية DrawWidth، وإسناد عنوان للافتة lblInfo، وإسناد قيمة أيضاً لشريطي التمرير، وهي عمليات كان يمكن إنجازها أثناء طور التصميم (أي في مرحلة التمثيل المرئي).
نص الإجراء hsbAspect_Change()
ينفذ الإجراء hsbAspect_Change() عند تبديل موقع شريط التمرير نسبة القطرين:
Private Sub hsbAspect_Change()
Dim X, Y
Dim Info
X = frmEllipses.ScaleWidth / 2
Y = frmEllipses.ScaleHeight / 2
frmEllipses.Cls
frmEllipses.Circle (X, Y), hsbRadius.Value * 10, _
RGB(255, 0, 0), , , hsbAspect.Value / 10
Info = "نسبة القطرين: " + Str(hsbAspect.Value / 10)
frmEllipses.lblInfo.Caption = Info
End Sub
يحسب هذا الإجراء إحداثي مركز النموذج ويسندهما للمتحولين X,Y.
ينظف الإجراء سطح النموذج من أي قطوع مرسومة مسبقاً، مستخدماً الطريقة Cls، ثم يرسم القطع الناقص:
frmEllipses.Circle (X, Y), hsbRadius.Value * 10, _
RGB(255, 0, 0), , , hsbAspect.Value / 10
يُسند إلى الوسيط Radius (نصف القطر) القيمة الحالية لشريط التمرير نصف القطر مضروبة بـ 10، كما يُسند إلى الوسيط Aspect، عُشْر قيمة الخاصية Value لشريط التمرير نسبة القطرين.
لاحظ أننا لم نستخدم الوسيطين الاختياريين Start وEnd للطريقة Circle بعد، بل وضعنا مكانهما فاصلتين (أي فاصلتين بين الوسيط Color والوسيط Aspect)، تشير هاتان الفاصلتان لفيجول بيسك بأن الوسيطين الاختياريين غير مذكورين (مهملين).
نص الإجراء hsbRadius_Change()
يُنفذ هذا الإجراء آلياً، عند تبديل موقع مؤشر شريط التمرير نصف القطر (أي تحريك الزالقة)، يعتبر هذا الإجراء مشابهاً للإجراء hsbAspect_Change()، فيظهر القطع الناقص وتعدّل محتويات اللافتة lbllnfo.
لاحظ أن نص الإجراء hsbRadius_Scroll()، يستدعي الإجراء hsbRadius_Change()، كما أن نص الإجراء hsbAspect_Scroll() يستدعي بدوره الإجراء hsbAspect_Change()، (بمعنى أنك تنفذ الإجراءات المرافقة للحادثة تغيير Change عند حصول حادثة التمرير Scroll).
برنامج الأقواس
سنكتب الآن برنامج الأقواس Arcs، يوضح هذا البرنامج كيفية استخدام الطريقة Circle لرسم أقواس ذات نقاط بدء وانتهاء مختلفة. نذكرك الآن بالصيغة العامة الكاملة للطريقة Circle:
[object.]Circle [Step] ( X , Y ), _
radius , _
[color], _
[start], _
[ end ], _
[aspect]
يُحدد الوسيطان End, Start نقطتي البداية والنهاية لقوس الدائرة. فإذا كانت نقطة البداية تُساوي مثلاً الدرجة صفرْ، ونقطة النهاية تساوي الدرجة 45ْ، فهذا يعني أن هذا الجزء فقط من الدائرة هو الذي سيرسم. يوضح الشكل 8-18 جزء من دائرة (قوس) مرسوم بالطريقة Circle، نقطة بدايته الزاوية صفرْ ونقطة نهايته الزاوية 45ْ. كما يوضح الشكل 8-19 قوساً ذو نقطة بداية عند الدرجة 23ْ ونقطة نهاية عند الدرجة 180ْ.
الشكل 8-18 رسم قوس (0ْ-45ْ).
[/color][color]
الشكل 8-19 رسم قوس (23ْ-180ْ).
التمثيل المرئي لبرنامج الأقواس
سنصمم الآن نموذج برنامج الأقواس:
أنشئ مشروعاً تنفيذياً قياسياً Standard EXE، ثم احفظ نموذج المشروع بالاسم Arcs.frm في الدليل C:\VB5Prg\Ch08، واحفظ ملف المشروع في ذات الدليل بالاسم Arc.Vbp.
أنشئ النموذج frmArcs حسب الجدول 8-9.
يفترض أن يبدو النموذج المكتمل كما في الشكل 8-20.
الشكل 8-20 النموذج frmArcs. في مرحلة التصميم.
الجدول 8-9. جدول خصائص النموذج frmArcs.
الكائن الخاصية القيمة
Form Name frmArcs
Caption برنامج الأقواس
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
Horizontal Scroll Bar Name hsbFrom
Max 360
Min 0
Value 0
Horizontal Scroll Bar Name hsbTo
Max 360
Min 0
Value 0
Vertical Scroll Bar Name vsbRadius
Max 100
Min 1
Value 1
Label Name lblFrom

الكائن الخاصية القيمة
Caption من الزاوية:
RightToLeft True
Label Name lblTo
Caption إلى الزاوية:
RightToLeft True
Label Name lblRadius
Caption نصف القطر:
RightToLeft True
إدخال نص برنامج الأقواس
سنبدأ الآن بكتابة نص برنامج الأقواس:
تحقق بأن قسم التصاريح العامة للنموذج frmArcs يحوي العبارة Option Explicit.
' يجب التصريح عن كل المتحولات
Option Explicit
أنشئ إجراءاً جديداً يدعى DrawArcs في قسم التصاريح العامة للنموذج frmArcs. (انقر نقرةً مزدوجة على النموذج لإظهار نافذة نص البرنامج ثم اختر Add Procedure من القائمة Tools، ثم اختر النوع Sub في الحقل Type لمربع الحوار Add Procedure، وعين المجال Public في الحقل Scope، ثم اكتب DrawArc في المربع Name، وأخيراً انقر الزر OK).
أدخل النص التالي ضمن الإجراء DrawArc() الذي أنشأناه في الخطوة السابقة:
Public Sub DrawArc()
Dim x, y
Const pi = 3.14159265
x = frmArcs.ScaleWidth / 2
y = frmArcs.ScaleHeight / 2
frmArcs.Cls
Circle (x, y), vsbRadius.Value * 20, , _
hsbFrom * 2 * pi / 360, hsbTo * 2 * pi / 360
lblFrom.Caption = "من الزاوية: " + Str(hsbFrom.Value)
lblTo.Caption = "إلى الزاوية: " + Str(hsbTo.Value)
lblRadius.Caption = "نصف القطر:" + Str(vsbRadius.Value * 20)
End Sub
أدخل النص التالي ضمن الإجراء cmdExit_Click() للنموذج frmArcs:
Privat sub cmdExit_Click()
End
End sub
أدخل النص التالي ضمن الإجراء hsbFrom_Change() للنموذج frmArcs:
Privat sub hsbFrom_Change()
DrawArc
End sub
أدخل النص التالي ضمن الإجراء hsbFrom_Scroll() للنموذج frmArcs:
Privat sub hsbFrom_Scroll()
hsbFrom_Change
End sub
أدخل النص التالي ضمن الإجراء hsbTo_Change():
Privat sub hsbTo_Change()
DrawArc
End sub
أدخل النص التالي ضمن الإجراءhsbTo_Scroll للنموذج frmArcs:
Private Sub hsbTo_Scroll()
hsbTo_Change
End Sub
أدخل النص التالي ضمن الإجراء VsbRadius_Change للنموذج frmArcs:
Private Sub vsbRadius_Change()
DrawArc
End Sub
أدخل النص التالي ضمن الإجراء VsbRadius_Scroll للنموذج frmArcs:
Private Sub vsbRadius_Scroll()
vsbRadius_Change
End Sub
احفظ المشروع بالطريقة المعتادة.
تنفيذ برنامج الأقواس
لنشاهد برنامج الأقواس على أرض الواقع:
نفّذ برنامج الأقواس.
زد نصف القطر، بتحريك مؤشر شريط التمرير نصف القطر (شريط التمرير العمودي).
زد قيمة شريط التمرير من زاوية (شريط التمرير الأفقي اليميني).
زد قيمة شريط التمرير إلى زاوية (شريط التمرير الأفقي اليساري).
كما تلاحظ، يُرسم قوس يبدأ من النقطة المحددة بواسطة شريط التمرير من زاوية، وينتهي بالنقطة المحددة بشريط التمرير إلى زاوية.
يوضح الشكل 8-21 قوساً يبدأ من الدرجة 180ْ، وينتهي بالدرجة 23ْ.
الشكل 8-21 رسم قوس (180ْ-23ْ).
انقر الزر خروج لإنهاء البرنامج.
كيف يعمل برنامج الأقواس
يَستخدم برنامج الأقواس الطريقة Circle لرسم الأقواس.
تُستخدم قيم الخاصية Value لكل من شريط التمرير نصف القطر وشريطي التمرير من زاوية و إلى زاوية كوسائط للطريقة Circle.
نص الإجراء DrawArc()
ينفذ الإجراء DrawArc() عند تغيير موقع مؤشر شريط التمرير نصف القطر، أو موقع مؤشر شريط التمرير من زاوية، أو عند تغيير موقع مؤشر شريط التمرير إلى زاوية.
يُعرّف هذا الإجراء قيمة الثابت pi (p)، ويُسند له القيمة العددية المكافئة:
CONST pi = 3.14159265
ثم يحسب إحداثيات مركز النموذج:
x = frmArcs.ScaleWidth / 2
y = frmArcs.ScaleHeight / 2
وينظف محتويات النموذج بعد ذلك بالطريقة Cls:
frmArcs.Cls
ثم يرسم القوس باستخدام الطريقة Circle:
Circle (x, y), vsbRadius.Value * 20, , _
hsbFrom * 2 * pi / 360, hsbTo * 2 * pi / 360
نكرر الصيغة الكاملة للطريقة Circle:
[Object].Circle [Step] (X,Y),Radius, _
[color],[Start],[End], [Aspect]
يتحدد مركز القوس في هذا الإجراء بالوسيطين X,Y، كما يتحدد نصف قطر القوس بقيمة الخاصية Value لشريط التمرير vsbRadius مضروبة بـ 20.
تُحدد قيمة الخاصية Min لشريط التمرير، أثناء مرحلة التصميم بالقيمة 1، كما حُددت الخاصية Max لهذا الشريط بالقيمة 100. مما يعني أن نقل مؤشر شريط التمرير من الموضع الأدنى Min إلى الموضع الأعلى Max، يستلزم النقر مائة مرة على أسهم الشريط.
تُضرب قيمة Value بالقيمة 20، ثم تُستخدم القيمة الناتجة للوسيط Radius (نصف القطر)، مما يعني أن نصف القطر يمكن أن يتخذ أي قيمة ما بين 20 و2000.
لم نستخدم في مثالنا هذا الوسيط Color، وإنما وضعنا فاصلة مكانه للإشارة إلى عدم استخدامه. يستخدم البرنامج في مثل هذه الحالة اللون المحدد بالخاصية ForeColor للنموذج، والذي يكون اللون الأسود في الحالة الافتراضية.
الوسيطان التاليان في الطريقة Circle هما: Start و End، ويجب تمرير قيمتهما بالراديان.
تم إسناد القيمة 1 للخاصية Min لشريطي التمرير من زاوية و إلى زاوية، وإسناد القيمة 360 للخاصية Max. مما يعني أن كلا الشريطين، مقسم إلى 360 جزء، يمثل كل جزء منها درجة واحدة، وتستخدم الصيغة التالية للتحويل من الدرجات إلى الراديان:
Radians = Degree * 2 * pi / 360
فمثلاً، الدرجة 360 تكافئ:
360 * 2 * pi / 360 = 6.2831853 Radians
وهذا ما يشرح السبب الذي دفع الإجراء DrawArc إلى جداء قيمة الخاصية Value للشريطين من زاوية (يمثل الوسيط Start)، والشريط إلى زاوية (يمثل الوسيط End) بالقيمة
الفصل التاسع
[/color][color]



إظهار البيانات بصيغة مجدولة




تدعو الضرورة أحياناً إلى إظهار البيانات بشكل صفوف وأعمدة (أي ضمن جداول). يمكن إنجاز ذلك باستخدام الطريقة Print عن طريق إظهار النص سطراً تلو الآخر وحساب المواقع التي ستظهر البيانات عندها.
وعموماً، يقدم فيجول بيسك عنصر تحكم الجدول، يمكّنك من تشكيل الجداول بسهولة.
سنتعلم في هذا الفصل كيفية استخدام عنصر تحكم الجدول.
برنامج الجدول
سنكتب الآن برنامجاً ندعوه برنامج الجدول، الذي يعتبر مثالاً على كيفية استخدام عنصر تحكم الجدول، اللازم لإنشاء جدول من المعلومات.
أنشئ الدليل C:\VB5Prg\Ch09، لأننا سنستخدمه لحفظ برامج هذا الفصل.
أنشئ مشروعاً تنفيذياً قياسياً Standard EXE، واحفظ نموذج المشروع بالاسم Table.frm في الدليل C:\VB5Prg\Ch09، واحفظ ملف المشروع بالاسم Table.Vbp في ذات الدليل.
سنتأكد أولاً من وجود عنصر تحكم الجدول في المشروع قبل استخدامه، علماً بأن عنصر تحكم الجدول، عبارة عن عنصر من النوع OCX.
يوضح الشكل 9-1 رمز عنصر تحكم الجدول. ضع مؤشر الفأرة (بدون النقر عليها) فوق رمز عنصر التحكم هذا، فيظهر مستطيل أصفر يحمل الرسالة MsFlexGrid، وبهذه الطريقة تتحقق من وجود رمز عنصر تحكم الجدول في إطار مربع الأدوات.
الشكل 9-1 رمز عنصر تحكم الجدول في إطار مربع الأدوات.
إذا لم يكن عنصر تحكم الجدول موجوداً في إطار مربع الأدوات، أضفه باتباع ما يلي:
اختر Components من القائمة Project لفيجول بيسك، واختر الصفحة Controls لمشاهدة عناصر التحكم المتاحة Controls)).
يستجيب فيجول بيسك بإظهار صفحة عناصر التحكمControls في مربع الحوار Components.
تأكد أن خانة الاختيار التي تظهر في الصفحة Control بجانب البند
Selected Item Only لا تحوي علامة اختيار داخلها، (لأنك ترغب بمشاهدة لائحة عناصر التحكم الكلية، وليس فقط العناصر المحتواة مسبقاً في المشروع).
تفحّص لائحة عناصر التحكم المخصصة حتى تجد البند Microsoft FlexGrid Control 5.0.
عند وجود علامة اختيار يسار البند Microsoft FlexGrid Control 5.0، فهذا يعني أن عنصر تحكم الجدول موجود مسبقاً في إطار مربع الأدوات، ثم انقر على الزر OK في مثل هذه الحالة، للخروج من مربع الحوار Components.
إذا لم يكن هناك علامة اختيار يسار هذا البند، فهذا يعني أن عنصر التحكم ليس موجوداً حالياً في إطار مربع الأدوات، ولإضافته انقر على خانة الاختيار بجانبه لاختياره، ثم انقر الزر OK.
اتبع الخطوات التالية لإضافة البند Microsoft FlexGrid Control 5.0، إذا لم يظهر في اللائحة السابقة:
انقر الزر Browse في الصفحةControls في مربع الحوار Components.
يظهر نتيجة ذلك مربع الحوار Add ActiveX Control.
اختر الملف MsFlxGrd.OCX من الدليل System ثم انقر على الزر فتح.
عندها يظهر عنصر التحكم Microsoft FlexGrid Control 5.0 نتيجة ذلك، كأحد بنود لائحة عناصر التحكم Controls.
تحقق من وجود علامة اختيار في خانة الاختيار يسار عنصر التحكم Microsoft FlexGrid Control 5.0 ثم انقر الزر OK.
يُظهر الشكل 9-2 البند Microsoft FlexGrid Control 5.0 ضمن الصفحة Controls للإطار Components.
ملاحظة
إذا كنت تعمل ضمن النظام Windows95، يكون اسم دليل النظام هو:
C:\Windows\System
أما إذا كنت تعمل ضمن النظام WinNT، يكون اسم دليل النظام هو:
C:\WinNT\System32
الشكل 9-2 البند Microsoft FlexGrid Control 5.0.
ملاحظة
يأتي فيجول بيسك بعدة إصدارات منها مثلاً Learning Edition وProfessional Edition وEnterprise Edition.
فإذا لم تحتوِ إصداراتك على الملف MsFlxGrd.OCX، فهذا يعني أنك لن تقدر على بناء برنامج الجدول (لأن برنامج الجدول سوف يستخدم عنصر التحكم OCX هذا). لكن رغم ذلك استمر في قراءة برنامج الجدول حتى يتضح لك كيفية استخدام عنصر تحكم الجدول ضمن البرامج.
والآن انقر نقرة مزدوجة فوق رمز عنصر الجدول في مربع الأدوات.
يظهر عنصر الجدول نتيجة ذلك ضمن النموذج، حسب ما يبينه الشكل 9-3.
الشكل 9-3 وضع عنصر الجدول في النموذج (طور التصميم).
أنشئ النموذج بإسناد الخصائص التالية له:
Name: frmTable
Caption: برنامج الجدول
RightToLeft: True
أسند لعنصر تحكم الجدول الخصائص التالية:
Name: grdTable
Rows: 13
Cols: 5
RightToLeft: True
يفترض أن يبدو الجدول المكبر كما في الشكل 9-4.
كبّر النموذج frmTable، وضع فيه زراً آخر.
أسند لزر الأمر الجديد الخصائص التالية:
Name: cmdExit
Caption: &خروج
RightToLeft: True[/color][/color][/color]

ملاحظة
تم إسناد القيمة True للخاصية RightToLeft التابعة لعنصر تحكم الجدول، وذلك بغية تعريبه، وبذلك يصبح العمود الأول من جهة اليمين بدلاً من جهة اليسار، بالنسبة للمستخدم. اقرأ الفصل 22 لمزيد من الإيضاح.

الشكل 9-4 عنصر الجدول بعد تكبيره.
تحقق من وجود العبارة Option Explicit ضمن قسم التصاريح العامة:
'يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء Form_Load() للنموذج frmTable:
Private Sub Form_Load()
'اجعل السطر الحالي هو السطر رقم صفر
grdTable.Row = 0

'اكتب في الخلية (سطر=0،عمود=1)
grdTable.Col = 1
grdTable.Text = "كهرباء"

grdTable.Col = 2
grdTable.Text = "ماء"

grdTable.Col = 3
grdTable.Text = "مواصلات"

grdTable.Col = 4
grdTable.Text = "طعام"

grdTable.Col = 0

grdTable.Row = 1
grdTable.Text = "كانون الثاني"

grdTable.Row = 2
grdTable.Text = "شباط"

grdTable.Row = 3
grdTable.Text = "آذار"

grdTable.Row = 4
grdTable.Text = "نيسان"

grdTable.Row = 5
grdTable.Text = "أيار"

grdTable.Row = 6
grdTable.Text = "حزيران"

grdTable.Row = 7
grdTable.Text = "تموز"

grdTable.Row = 8
grdTable.Text = "آب"

grdTable.Row = 9
grdTable.Text = "أيلول"

grdTable.Row = 10
grdTable.Text = "تشرين الأول"

grdTable.Row = 11
grdTable.Text = "تشرين الثاني"

grdTable.Row = 12
grdTable.Text = "كانون الأول"

End Sub
أدخل النص التالي ضمن الإجراء cmdExit_Click() للنموذج frmTable:
Private Sub cmdExit_Click()
End
End Sub
احفظ المشروع بالطريقة المعتادة.
نفّذ البرنامج الآن، رغم أننا لم ننته بعد من كتابته، يُظهر البرنامج، عنصر الجدول كما في الشكل 9-5.
الشكل 9-5 برنامج الجدول.
تنقل بواسطة مفاتيح الأسهم من خلية إلى أخرى عبر الجدول.
كما تلاحظ، يمتلك عنصر الجدول الآن 13 سطراً و5 أعمدة (بما في ذلك سطر العنوان وعمود العنوان). والسبب في ذلك طبعاً، هو إسناد القيمة 13 إلى الخاصية Rows، وإسناد القيمة 5 إلى الخاصية Cols للعنصر grdTable.
أنهِ البرنامج بنقر الزر خروج.
نفّذ الخطوتين التاليتين وأعد تشغيل البرنامج، وراقب النتائج:
أسند القيمة 2-flexGridInset للخاصية GridLines للعنصر grdTable.
أسند اللون الأبيض White إلى الخاصية BackColor (الخلفية) للعنصر grdTable.
نص الإجراء Form_Load()
يُنفّذ هذا الإجراء عند بدء تحميل النموذج frmTable. يبدأ هذا الإجراء بتحديد السطر الراهن (عن طريق إسناد القيمة صفر للخاصية Row):
'اجعل السطر الحالي هو السطر رقم صفر
grdTable.Row = 0



ملاحظة
يمتلك عنصر الجدول، خاصية تدعى Row، وأخرى تدعى Rows. حاول جاهداً أن لا تخلط بينهما.
تستخدم الخاصية Row لمعرفة أو تغيير السطر الحالي، بينما تستخدم الخاصية Rows لمعرفة أو تغيير عدد الأسطر الحالي.
كما يمتلك عنصر الجدول خاصية تدعى Col، وأخرى تدعى Cols، تجنب كذلك الخلط بينهما.
تستخدم الخاصية Col لمعرفة أو تغيير العمود الحالي، بينما تستخدم الخاصية Cols لمعرفة أو تغيير عدد الأعمدة الحالي.
يكتب الإجراء حال تحديد السطر الراهن، ضمن الخلية المحددة بالسطر Row # 0 والعمود Col # 1 كما يلي:
'اكتب في الخلية (سطر=0،عمود=1)
grdTable.Col = 1
grdTable.Text = "كهرباء"
أي بمعنى أن الإجراء حدد السطر الراهن (السطر الفعال) على أنه السطر رقم صفر، وحدد العمود رقم 1 على أنه العمود الفعال، ثم أسند العنوان كهرباء، إلى الخاصية Text لعنصر الجدول، ونتيجة ذلك، تتوضع كلمة كهرباء في السطر رقم صفر، والعمود رقم 1.
بشكل مشابه، يُسند الإجراء العناوين: ماء و مواصلات و طعام، إلى الخلايا المحددة بالسطر صفر والعمود 2 والعمود 3 والعمود 4 على التوالي. فمثلاً، استخدمت العبارات التالية لتعيين الخاصية Text المحددة بالسطر صفر والعمود 4.
grdTable.Col = 4
grdTable.Text = "طعام"
لا حاجة طبعاً لإسناد القيمة صفر مجدداً إلى الخاصية Row، كلما غيرنا قيمة الخاصية Col، لأنها تحافظ على قيمتها، ما لم يتم إسناد قيمة أخرى إليها.

ملاحظة
يبدأ ترقيم الأسطر والأعمدة في عنصر الجدول، بدءاً من الرقم صفر، وبذلك يكون رقم السطر للخلية الأولى صفراً، ورقم عمودها صفر أيضاً.
يُباشر الإجراء حال الانتهاء من كتابة العناوين الأربعة الرأسية، بتحديد الخاصية Text للعمود اليساري (العناوين الجانبية). فمثلاً استخدمت العبارات التالية لتحديد الخاصية Text للخلية المحددة بالسطر 1 والعمود صفر:
grdTable.Col = 0
grdTable.Row = 1
grdTable.Text = "كانون الثاني"

ملاحظة
يُظهر عنصر الجدول، المعلومات بصيغة جدولية، حيث تستطيع الانتقال من خلية لأخرى، إما بواسطة مفاتيح الأسهم، أو بواسطة شريطي التمرير، لكن لا يمكنك إدخال المعلومات بواسطة لوحة المفاتيح مباشرة داخل الخلية.
تغيير عرض الخلية
قد لا تكون الخلية بالاتساع الكافي، وذلك تبعاً للخط المستخدم، فمثلاً قد لا تتسع الكلمة كهرباء، ضمن خليتها (انظر إلى الشكل 9-5). تستطيع اتباع الخطوات التالية لتوسيع الخلية أثناء زمن التنفيذ.
أضف إجراءً جديداً للنموذج frmTable بالنقر المزدوج عليه (لإظهار إطار نص البرنامج)، ثم باختيار Add Procedure من القائمة Tools لفيجول بيسك.
يُظهر فيجول بيسك مربع الحوار Add Procedure.
أدخل اسم الإجراء الجديد في الحقل Name، لنفترض أننا سنسمي هذا الإجراء SetColWidth.
تحقق من اختيار Sub في مربع الحوار Add Procedure.
تحقق من اختيار Public في مربع الحوار Add Procedure.
انقر الزرOK في مربع الحوار Add Procedure.
يُشكل فيجول بيسك إجراءً جديداً يدعى SetColWidth، ويُظهره في المنطقة العامة General للنموذج frmTable.
أدخل النص التالي ضمن الإجراء SetColWidth:
Public Sub SetColWidth()
Dim Counter
For Counter = 0 To 4 Step 1
grdTable.ColWidth(Counter) = 1300
Next
End Sub
يستخدم هذا الإجراء الحلقة For لتبديل الخاصية ColWidth لكل عمود من أعمدة الجدول إلى 1300 Twip. وكما يظهر من اسم الخاصيةColWidth فإن هذه الخاصية مسؤولة عن تحديد عرض العمود.
وهكذا تحدد grdTable.ColWidth(0) عرض العمود الأول، وتحدد
grdTable.ColWidth(1) عرض العمود الثاني وهكذا...
أضف العبارة SetColWidth (اسم الإجراء الجديد) إلى نهاية الإجراء Form_Load()، بحيث يبدو بالشكل التالي:
Public Sub Form_Load()
''''''''''''''''''''''''''''''''
'اترك أقسام الإجراء على حالها '
'وأضف لها السطر الأخير '
''''''''''''''''''''''''''''''''
SetColWidth
End Sub
احفظ المشروع بالطريقة المعتادة.
نفّذ برنامج الجدول.
يُفترض أن يبدو إطار برنامج الجدول كذلك المبين بالشكل 9-6.
الشكل 9-6 توسيع عرض الأعمدة.
استخدم مفاتيح الأسهم أو شريطي التمرير للانتقال بين الخلايا.
كما ترى من الشكل 9-7، فقد تغير عرض كل الأعمدة.
أنهِ البرنامج بنقر الزر خروج.
كبّر عنصر التحكم grdTable بسحب حوافه، بحيث يظهر كما في الشكل 9-8.
لاحظ أن عرض الخلايا لم يتغير، رغم تكبير كامل منطقة عنصر تحكم الجدول، السبب في ذلك أن توسيع الخلايا يتم فقط أثناء زمن التنفيذ.
الشكل 9-7 استعمال شريطي التمرير أو مفاتيح الأسهم للانتقال بين الخلايا.

الشكل9-8 تكبير حجم عنصر الجدول أثناء زمن التصميم.
نفّذ برنامج الجدول.
يظهر عنصر الجدول الآن، كذاك المبين في الشكل 9-9. كما تلاحظ المنطقة الكلية لعنصر تحكم الجدول أكبر وعرض الخلايا الآن أوسع.
الشكل9-9 عنصر الجدول بعد تكبيره وتوسيع خلاياه.
تمرن على الانتقال بين الخلايا، واستخدام مفاتيح الأسهم أو شريطي التمرير.
أنهِ برنامج الجدول بنقر الزر خروج.
تغيير ارتفاع الخلية
سنكتب الآن نص البرنامج المسؤول عن تغيير ارتفاع الخلايا خلال مرحلة التنفيذ.
أضف إجراءً للنموذجfrmTable بالنقر المزدوج على النموذج frmTable (لإظهار إطار نص البرنامج)، ثم اخترAdd Procedure من القائمة Tools لفيجول بيسك.
يُظهر فيجول بيسك مربع الحوار Add Procedure.
اكتب اسماً للإجراء، (ليكن SetRowHeight) في الحقل Name.
تحقق من اختيار كل من Sub و Public ضمن مربع الحوار Add Procedure
انقر الزر OK.
يُشكل فيجول بيسك إجراءً جديداً يدعى SetRowHeight، في المنطقة العامة General Area للنموذج frmTable.
أدخل النص التالي ضمن الإجراء SetRowHeight:
Public Sub SetRowHeight()
Dim Counter
For Counter = 0 To 12
grdTable.RowHeight(Counter) = 500
Next
End Sub
تعتبر الخاصية RowHeight مسؤولة عن تحديد ارتفاع الخلية.
يَستخدم الإجراء SetRowHeight الحلقةFor لتحديد ارتفاع كل سطر من أسطر عنصر الجدول بـ 500 Twips.
أضف العبارة SetRowHeight في نهاية الإجراء Form_Load() بالشكل التالي:
Public Sub Form_Load()
''''''''''''''''''''''''''''''''
'اترك أقسام الإجراء على حالها '
'وأضف لها السطر الأخير '
''''''''''''''''''''''''''''''''
SetColWidth
SetRowHeight
End Sub
احفظ المشروع كالعادة.
نفّذ برنامج الجدول.
يُفترض أن تبدو خلايا الجدول كما في الشكل 9-10.
الشكل 9-10 زيادة ارتفاع سطور الجدول.
شريطي تمرير عنصر تحكم الجدول
لعلك لاحظت أن فيجول بيسك يضيف آلياً شريطي التمرير الأفقي والعمودي، عندما لا تتسع الخلايا ضمن المنطقة التي يحتلها عنصر الجدول. السبب في ذلك أننا تركنا قيمة الخاصية ScrollBars لعنصر الجدول على حالها، أي وفق قيمتها الافتراضية المساوية إلى 3-flexScrollBarBoth، فإذا أردت إخفاء شريطي التمرير، تستطيع تحديد القيمة 0-flexScrollBarNone للخاصيةScrollBars أثناء زمن التصميم، أو تنفيذ العبارة التالية من ضمن نص البرنامج:
grdTable.ScrollBars = 0
إذا أردت الإبقاء على شــريط التمرير الأفقي فقط، تسـتطيع إسـناد القيمة 1-flexScrollBarHorizontal إلى الخاصية ScrollBars أثناء طور التصميم.
أو استخدم العبارة التالية ضمن نص البرنامج:
grdTable.ScrollBars = 1
وبالعكس إذا أردت الإبقاء على شريط التمرير العمودي فقط، تستطيع استخدام القيمة
2-flexScrollBarVertical للخاصية ScrollBars في طور التصميم.

ملاحظة
مهما تكن قيمة الخاصية ScrollBars فلا توجد مشكلة، لأنك قادر دائماً على الانتقال من خلية لأخرى بواسطة مفاتيح الأسهم من لوحة المفاتيح.
تحديد الخاصيتين Rows و Cols أثناء زمن التنفيذ
حددنا قيمتي الخاصيتين أثناء طور التصميم، فكانت Cols تساوي 5 و Rows تساوي13.
قد يكون عدد الأسطر والأعمدة معلوماً فقط، خلال زمن التنفيذ.
فمثلاً، تستطيع إعداد برنامج الجدول، ليُظهر فقط العمودين كهرباء و ماء شهرياً، (أي فاتورتي الماء والكهرباء). سيتوجب على البرنامج عندها تغيير عدد الأعمدة إلى ثلاثة فقط (واحد للعناوين اليسارية، وواحد للعنوان كهرباء وآخر للعنوان ماء).
تُستخدم عبارة مشابهة للعبارة التالية لإنجاز عملية تغيير عدد الأعمدة:
grdTable.Cols = 3
كما تُستخدم عبارة مشابهة للعبارة التالية، لتغيير عدد الأسطر:
grdTable.Rows = n
علماً أن n متحول يمثل عدد الأسطر. (إضافة لسطر عناوين الأعمدة).
ملء باقي خلايا برنامج الجدول
اتبع الخطوات التالية لملء ما تبقى من خلايا برنامج الجدول:
أضف إجراءً جديداً إلى المنطقة General للنموذج frmTable.
أطلق على هذا الإجراء الاسم FillCells.
أدخل النص التالي ضمن الإجراء FillCells():
Public Sub FillCells()
Dim RowCounter, ColCounter
For ColCounter = 1 To 4
grdTable.Col = ColCounter
For RowCounter = 1 To 12
grdTable.Row = RowCounter
grdTable.Text = "غير معروف"
Next
Next
End Sub
أضف العبارة FillCells إلى نهاية نص الإجراء Form_Load().
يفترض أن يبدو الإجراء بشكل مماثل لما يلي:
Public Sub Form_Load()
''''''''''''''''''''''''''''''''
'اترك أقسام الإجراء على حالها '
'وأضف لها السطر الأخير '
''''''''''''''''''''''''''''''''
SetColWidth
SetRowHeight
FillCells
End Sub
نص الإجراء FillCells()
لقد استخدمت حلقتين متداخلتين في الإجراء FillCells():
For ColCounter = 1 To 4
grdTable.Col = ColCounter
For RowCounter = 1 To 12
grdTable.Row = RowCounter
grdTable.Text = "غير معروف"
Next
Next
ينفذ هذا الإجراء حلقتي For، وتُسنِد كلتا الحلقتين الكلمة غير معروف إلى الخاصية Text لكل خلية من الخلايا. تَعّد الحلقة الخارجية من 1 إلى 4، وتعد الحلقة الداخلية من 1 إلى 12.
وبذلك تتمكن الحلقتان For من تغطية كل خلايا الجدول (باستثناء السطر العلوي الذي يمثل سطر العناوين، وباستثناء العمود اليساري كذلك) وإسناد الكلمة غير معروف إليها.
احفظ المشروع بالطريقة المعتادة.
نفّذ برنامج الجدول.
تملأ خلايا عنصر التحكم بالنص غير معروف (انظر الشكل 9-11).
أنهِ البرنامج بالنقر على الزر خروج.
أضف الآن النص التالي إلى الإجراء FillCells() لنملأ بعض خلايا الجدول بقيم ذات معنى:
Public Sub FillCells()
Dim RowCounter, ColCounter
For ColCounter = 1 To 4
grdTable.Col = ColCounter
For RowCounter = 1 To 12
grdTable.Row = RowCounter
grdTable.Text = "غير معروف"
Next
Next
grdTable.Row = 1
grdTable.Col = 1
grdTable.Text = "$100.00"

grdTable.Row = 2
grdTable.Col = 1
grdTable.Text = "$50.00"

grdTable.Row = 2
grdTable.Col = 2
grdTable.Text = "$75.00"
End Sub
الشكل 9-11 ملء خلايا عنصر الجدول بنص ما (كلمة غير معروف).
يملأ النص الذي أضفناه للتو إلى الإجراء FillCells()،ثلاث خلايا من الجدول، بإسناد رقم سطر وعمود الخلية المحددة، إلى الخاصيتين Row و Col ثم إسناد النص المطلوب إلى الخاصية Text للخلية.
نفّذ برنامج الجدول.
كما تلاحظ، تظهر ثلاث خلايا وهي تحمل النص $100.00 و$50.00 و$75.00 (انظر الشكل 9-12).
أضف زراً يدعى تنظيف إلى النموذج frmTable، حسب ما يوضحه الشكل 9-13.
أسند له الاسم cmdClear في الخاصية Name، أما الخاصية Caption فأسند إليها العنوان &تنظيف.
يفترض أن يبدو النموذج frmTable كما في الشكل 9-13.
الشكل 9-12 ملء ثلاث خلايا في الجدول.
الشكل 9-13 إضافة الزر تنظيف.
أدخل النص التالي ضمن الإجراء cmdClear() للنموذج frmTable:
Private Sub cmdClear_Click()
Dim RowCounter, ColCounter
For ColCounter = 1 To 4
grdTable.Col = ColCounter
For RowCounter = 1 To 12
grdTable.Row = RowCounter
grdTable.Text = ""
Next
Next
End Sub
يعمل هذا الإجراء على تنظيف خلايا الجدول من المعلومات.
احفظ المشروع باختيار Save Project من القائمة File لفيجول بيسك.
نفّذ البرنامج.
انقر الزر تنظيف.
يستجيب البرنامج بمحي كل معطيات الخلايا في عنصر تحكم الجدول.
يعمل الإجراء cmdClear_Click() بشكل مشابه للإجراء FillCells() باستثناء أنه يكتب لاشيء ("") بدلاً من كتابة نص في الخلايا:
For ColCounter = 1 To 4 Step 1
grdTable.Col = ColCounter
For RowCounter = 1 To 12 Step 1
grdTable.Row = RowCounter
grdTable.Text = ""
Next
Next
وبهذا يتسبب فى حذف حذف المعطيات السابقة. يستخدم الإجراء أيضاً حلقتين تَعّد إحداهما إلى 4 وأخرى تعد إلى 12، مما يسمح له بتغطية كل خلايا الجدول باستثناء سطر العنوان وعمود العنوان.
هناك تقنية أفضل، تتمثل باستخدام نص البرنامج التالي:
For ColCounter = 1 To grdTable.Cols - 1
grdTable.Col = ColCounter
For RowCounter = 1 To grdTable.Rows - 1
grdTable.Row = RowCounter
grdTable.Text = ""
Next
Next
فبدلاً من تحديد النهايتين 4 و12 بشكل صريح ضمن حلقتي For، تَستخدم هذه الطريقة قيم الخاصيتين Cols وRows لعنصر تحكم الجدول. وبذلك يتم تنظيف الجدول مهما كان عدد أسطره أو أعمدته. وفي حال ما إذا عدّلت قيمة هاتين الخاصيتين أثناء طور التصميم أو أثناء زمن التنفيذ، حينها لا تحتاج لتغيير نص الإجراء.
محاذاة النص في الخلايا
تُستخدم خلايا السطر صفر (Row # 0) لإظهار عناوين الأعمدة، وتستخدم خلايا العمود الواقع أقصى اليمين لإظهار عناوين الأسطر.
تدعى هذه الخلايا بالسطور الثابتة والأعمدة الثابتة، لأنها تظل دائماً في مكانها، مهما قمت بعملية إزاحة للخلايا الأخرى. تتم إزاحة خلايا الجدول الأخرى يميناً ويساراً، وصعوداً ونزولاً بواسطة شريطي التمرير ومفاتيح الأسهم. وبالمناسبة تدعى خلايا الجدول التي ينتقل المستخدم عبرها بالخلايا غير الثابتة.
تستخدم الخاصية ColAlignment لتنظيم وضبط محاذاة الأعمدة غير الثابتة. والقيم المحتملة لهذه الخاصية مبينة في الجدول 9-1.
الجدول 9-1. الوضعيات الممكنة للبيانات ضمن خلايا الجدول.
القيمة الشرح
0 يسار أعلى الخلية.
1 يسار وسط الخلية (قيمة افتراضية للمعلومات النصية).
2 يسار أسفل الخلية.
3 وسط أعلى الخلية.
4 مركز الخلية.
5 وسط أسفل الخلية.
6 يمين أعلى الخلية.
7 يمين وسط الخلية (قيمة افتراضية للمعلومات الرقمية).
8 يمين أسفل الخلية.
9 عام (يسار وسط للمعلومات النصية، ويمين وسط للمعلومات الرقمية).
فمثلاً لمحاذاة محتويات الخلية إلى الطرف الأيمن والأسفل من الخلية، أسند القيمة 8 إلى الخاصية ColAlignment لهذه الخلية. أما لمحاذاة محتويات خلية إلى الطرف الأيمن والأعلى من الخلية فأسند القيمة 6 إلى الخاصية ColAlignment.
استخدم الخطوات التالية لرؤية عمل الخاصية ColAlignment على أرض الواقع:
أضف الزر محاذاة إلى النموذج frmTable، حسب ما يظهر في الشكل 9-14.
أسند إلى خصائص الزر محاذاة، ما يلي:
الاسم cmdAlign إلى الخاصية Name.
العنوان &محاذاة إلى الخاصية Caption.
الشكل 9-14 إضافة الزر محاذاة.
أدخل النص التالي ضمن الإجراء cmdAlign_Click() للنموذج frmTable:
Private Sub cmdAlign_Click()
Dim ColCounter
For ColCounter = 1 To grdTable.Cols - 2
grdTable.ColAlignment(ColCounter) = 4
Next
End Sub
يسند هذا الإجراء القيمة 4 إلى الخاصية ColAlignment لكل الأعمدة غير الثابتة، باستثناء العمود الواقع أقصى اليسار.
وحسب ما أورده الجدول 9-1، يؤدي إسناد القيمة 4 إلى الخاصية ColAlignment لتمركز البيانات ضمن الخلية.
نفّذ برنامج الجدول.
انقر الزر محاذاة.
كما تلاحظ، يتمركز النص في كل الخلايا غير الثابتة، باستثناء الخلايا الواقعة في العمود اليساري الأخير.
السبب الذي دفعنا إلى عدم توسيط النص في العمود اليساري الأخير، تمكينك من المقارنة بين الخلايا التي يتم تغيير خاصيتها ColAlignment، وبين خلايا العمود اليساري الذي نحافظ فيه على الخاصية ColAlignment بدون تغيير (أي وفق القيمة الافتراضية).
بقي أن تعلم أننا نستطيع أيضاً ضبط (محاذاة) الأعمدة والسطور الثابتة. تُستخدم الخاصية FixedAlignment لهذا الغرض. يمكن استخدام هذه الخاصية مثلاً لمحاذاة السطور والأعمدة الثابتة بشكل مختلف عن السطور والأعمدة غير الثابتة التي تقع تحت العنوان. مثلاً، أسند القيمة 1 إلى الخاصية FixedAlignment للعمود الأول على سبيل المثال، ثم أسند أي قيمة أخرى من القيم المدرجة في الجدول 9-1 إلى الخلايا التي تقع تحت هذا العمود.
استخدم العبارة التالية، كمثال لتوسيط النص الموجود في العمود الواقع أقصى اليمين:
grdTable.FixedAlignment(0) = 1
استخدم العبارات التالية لتوسيط العناوين: الكهرباء و الماء و الطعام (أي توسيط عناوين الأعمدة 1 و2 و3):
grdTable.FixedAlignment(1) = 4
grdTable.FixedAlignment(2) = 4
grdTable.FixedAlignment(3) = 4
تمرن على مختلف قيم الجدول 9-1 واحكم على النتائج بنفسك.
الخلاصة
تعلمت فى هذا الفصل كيفية استخدام عنصر تحكم الجدول وكيفية ملئه بالمعلومات، أو تنظيفه من المعلومات، كما تعلمت أيضاً كيفية محاذاة المعلومات فى الخلية بشتى الأوضاع وكيف أن الجدول يحتوى على خلايا ثابتة (تستخدم كعناوين)، وخلايا متحركة (لإظهار المعلومات. يمكنك الأن تقديم المعلومات للمستخدم فى شكل جدول أنيق.

الفصل العاشر




عملية الإظهار والطباعة




سنتعلم في هذا الفصل كيفية إظهار وطباعة المعلومات، وكيفية إظهار النص بخطوط مختلفة Fonts، وكيفية صياغة الأرقام والتواريخ وإرسال المعطيات (النصية والرسومية) إلى الطابعة.
الخطوط الكتابية Fonts
هنالك نوعان من الخطوط: خطوط قابلة لتغيير حجمها (متدرجة) Scaleable، وخطوط غير قابلة لتغيير حجمها (غير متدرجة) non Scaleable.
يتشكل الخط القابل للتدرج، باستخدام الصيغ الرياضية، فمثلاً يُعرّف الحرف B لمرة واحدة فقط، وتُولّد كل الأحجام الأخرى للحرف B من نفس الحرف الأصلي بتكبيره أو تصغيره.
من جهة ثانية، يخزّن الخط غير القابل للتدرج، بشكل نقطي Bitmap، وتخزّن كذلك الأحجام الأكبر والأصغر لنفس الخط بأشكال نقطية مختلفة، بحيث يكون لكل مقاس حرف مختلف، صورة خاصة به).
ولهذا السبب، قد يظهر الخط المتدرج Scaled (المصغر خاصة) أحياناً، بجودة أقل من الخط غير القابل للتدرج non Scaleable، وخاصة على الشاشة.
استخدام خطوط مختلفة في برامجك
لا بد من اختيار نوع خط Font للنص الذي ترغب بإظهاره، وتعتبر عملية اختيار الخط المناسب عملاً هاماً، فهل سيتوافر هذا الخط لدى المستخدمين الآخرين؟.
ينتقي ويندوز عند عدم توافر ذلك النوع من الخط، أقرب خط مشابه للمطلوب، ولكن عندما لا يكون لدى المستخدم خياراً واسعاً من الخطوط، فقد ينتقي ويندوز خطاً أكبر من الخط الذي يراد استخدامه، مما قد يفسد النموذج، بالتسبب بتخطي النص، بل وفي بعض الأحيان، يحاول ويندوز اختيار الخط الأشبه بالخط المطلوب، مستعيناً بخط موجود على حاسب المستخدم، مما قد يتسبب أيضاً بإفساد جمال وتناسق النماذج.
لعل الوسيلة الأسهل للتغلب على هذه المشكلة، تتمثل باستخدام الخطوط الشهيرة فقط، والتي تأتي مع برمجية النظام ويندوز الأصلية. يمكن لبرامجك أيضاً تفحص الملف Win.INI الذي يحتوي مقطعاً يحمل العنوان [Fonts]، يأتي ضمن هذا المقطع كل الخطوط المثبتة في النظام وبعد تفحص هذا المقطع يمكن للبرنامج تحديد الخط الذي سيستخدمه.
الخاصية FontTransparent
يدعم النموذج وكذلك عنصر تحكم الصورة Picture، الخاصية FontTransparent.فإذا كانت قيمة هذه الخاصية تساوي False، يظهر النص بالخلفية المشار إليها بالخاصية BackColor للكائن الذي سيتم إظهار النص عليه. فمثلاً إذا كانت BackColor للنموذج تشير إلى اللون الأزرق، فإن النص سيظهر على النموذج مع خلفية زرقاء.
يبين الشكل10-1 نموذجاً يحمل صورة نقطية ما بداخله، أي بمعنى أنه تم إسناد ملف من نوع Bmp إلى الخاصية Picture لهذا النموذج.
الشكل 10-1 النموذج frmMyForm وبداخله صورة نقطية من نوع BMP.
تستطيع إظهار نص داخل النموذج بواسطة الطريقة Print. سوف ينفذ الإجراء Form_Click() آلياً عند نقر النموذج:
Private Sub Form_Click()
frmMyForm.FontTransparent = True
frmMyForm.Print "هذه الجملة شفافة"
frmMyForm.FontTransparent = False
frmMyForm.Print "هذه الجملة غير شفافة"
End Sub
يُسند نص هذا الإجراء القيمة True إلى الخاصية FontTransparent للنموذج ثم يستخدم الطريقة Print:
frmMyForm.Print "هذه الجملة شفافة"
ثم يُسند الإجراء القيمة False إلى الخاصية FontTransparent للنموذج ويستخدم الطريقة Print لإظهار النص التالي:
frmMyForm.Print "هذه الجملة غير شفافة"
يبين الشكل 10-2 النموذج بعد النقر عليه عدة مرات (يظهر بعد كل نقرة سطري نص).
وهكذا، فالسطر الأول والثالث والخامس والسابع ... الخ، يظهر وفق القيمة True للخاصية FontTransparent، ويظهر السطر الثاني والرابع والسادس ... الخ، وفق القيمة False للخاصية FontTransparent للنموذج.
لاحظ أن السطور التي تظهر وفق القيمة True للخاصية FontTransparent تقبل اللون الذي يتم إظهارها عليه وتندمج معه، انظر للسطر الثالث مثلاً في الشكل 10-2.
بعكس السطور التي تظهر وفق القيمة False لهذه الخاصية والتي تتسبب بإخفاء جزء من الشكل الذي تظهر عليه، كأن تظهر على خلفية بيضاء (لأن الخاصية BackColor للنموذج على سبيل المثال تشير إلى اللون الأبيض).
تظهر السطور الفردية بدون أن تؤثر على الشكل، وذلك لأن قيمة الخاصية FontTransparent تساوي True، بعكس السطور الزوجية التي تساوي قيمة الخاصية FontTransparent فيها False، والتي تحذف جزءاً من الشكل.
الشكل 10-2 إظهار النص فوق الصورة المبينة في الشكل 10-1.
برنامج عرض الخطوط
يوضح برنامج عرض الخطوط مختلف خصائص الخط المتوفرة في فيجول بيسك.
التمثيل المرئي لبرنامج عرض الخطوط
نبدأ كعادتنا بالتمثيل المرئي لنموذج البرنامج:
أنشئ الدليل C:\VB5Prg\Ch10 لحفظ العمل فيه.
أنشئ مشروعاً قياسياً تنفيذياً Standard EXE، واحفظ النموذج فيه بالاسم ShowFont.frm في الدليل C:\VB5Prg\Ch10 واحفظ ملف المشروع بالاسم ShowFont.VbP في الدليل C:\VB5Prg\Ch10
أنشئ النموذج frmShowFont تبعاً للجدول 10-1.
يفترض أن يبدو النموذج المكتمل كذاك المبين في الشكل 10-3.
الشكل 10-3 النموذج frmShowFont (طور التصميم).
الجدول 10-1. جدول خصائص النموذج frmShowFont.
الكائن الخاصية القيمة
Form Name frmShowFonts
Caption برنامج عرض الخطوط
RightToLeft True
TextBox Name txtTest
Text (اتركه فارغاً)
MultiLine True
ScrollBars 3-Both
RightToLeft True
CommandButton Name cmExit
Caption &خروج
RightToLeft True
CheckBox Name chkBold
Caption خط عريض
Font (اجعله خطاً عريضاً)
RightToLeft True

الكائن الخاصية القيمة
CheckBox Name chkItalic
Caption خط مائل
Font (اجعله خطاً مائلاً)
RightToLeft True
CheckBox Name chkStrike
Caption يتوسطه خط
Font (اجعله خطاً يتوسطه خط)
RightToLeft True
CheckBox Name chkUnderline
Caption تحته خط
Font (اجعل تحته خطاً)
RightToLeft True
Menu (انظر الجدول 10-2) (انظر الجدول 10-2)
الجدول 10-2. جدول قائمة النموذج frmShowFont.
العنوان الخاصية Name
ال&خطوط mnuFonts
…الخط Courier mnuCourier
…الخط MS Sans Serif mnuMSSansSerif
الأ&حجام mnuSize
…حجم 10 نقاط mnu10Points
…حجم 12 نقطة mnu12Points
إدخال نص برنامج عرض الخطوط
سنكتب الآن نص برنامج عرض الخطوط:
أدخل النص التالي ضمن قسم التصاريح العامة:
' يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء chkBold_Click():
Private Sub chkBold_Click()
txtTest.FontBold = chkBold.Value
End Sub
أدخل النص التالي ضمن الإجراء chkItalic_Click():
Private Sub chkItalic_Click()
txtTest.FontItalic = chkItalic.Value
End Sub
أدخل النص التالي ضمن الإجراء chkStrike_Click():
Private Sub chkStrike_Click()
txtTest.FontStrikethru = chkStrike.Value
End Sub
أدخل النص التالي ضمن الإجراء chkUnderline_Click()للنموذج frmShowFont:
Private Sub chkUnderline_Click()
txtTest.FontUnderline = chkUnderline.Value
End Sub
أدخل النص التالي ضمن الإجراء cmdExit_Click():
Private Sub cmdExit_Click()
End
End Sub
أدخل النص التالي ضمن الإجراء mnu10Points_Click():
Private Sub mnu10Points_Click()
txtTest.FontSize = 10
End Sub
أدخل النص التالي ضمن الإجراء mnu12Points_Click():
Private Sub mnu12Points_Click()
txtTest.FontSize = 12
End Sub
أدخل النص التالي ضمن الإجراء mnuCourier_Click():
Private Sub mnuCourier_Click()
txtTest.FontName = "Courrier"
End Sub
أدخل النص التالي ضمن الإجراء mnuMSSansSerif_Click():
Private Sub mnuMSSansSerif_Click()
txtTest.FontName = "MS Sans Serif"
End Sub
احفظ المشروع بالطريقة المعتادة.
تنفيذ برنامج عرض الخطوط
لنشاهد ما كتبناه قيد التنفيذ:
نفّذ برنامج عرض الخطوط.
اكتب شيئاً ما داخل مربع النص (انظر الشكل 10-4).
يظهر النص الذي أدخلته بالخط الافتراضي (الخط المحدد أثناء مرحلة التصميم).
الشكل10-4 الخط الافتراضي لبرنامج عرض الخطوط.
ضع علامة اختيار في خانة الاختيار خط عريض.
يتغير خط مربع النص إلى خط غامق Bold. كما في الشكل 10-5.
الشكل10-5 وضع علامة اختيار في خانة الاختيار خط عريض.
ضع علامة اختيار في خانة الاختيار خط مائل.
يستجيب البرنامج بتغيير نص مربع النص إلى خط مائل Italic، وبما أنه توجد علامة اختيار في خانة الاختيار خط عريض، فسيظهر النص بخط غامق ومائل في نفس الوقت (الشكل 10-6).
الشكل 10-6 وضع علامتي اختيار في خانتي الاختيار خط عريض و خط مائل.
ضع علامة اختيار في خانة الاختيار يتوسطه خط وألغها من خانتي الاختيار خط عريض وخط مائل، وراقب النتائج.
يستجيب البرنامج بإزالة الخط الغامق والخط المائل من النص، ومرور خط من النص (الشكل 10-7).
الشكل 10-7 وضع علامة اختيار في خانة يتوسطه خط.
ضع إشارة في خانة الاختيار تحته خط.
يستجيب البرنامج بتسطير النص في مربع النص (الشكل 10-.
بدّل حجم الخط باختيار حجم ما من القائمة الأحجام.
الشكل 10-8 وضع علامة اختيار في خانة الاختيار تحته خط.
يستجيب البرنامج بتبديل حجم النص إلى الحجم الذي اخترته، يبين الشكل 10-9 مربع النص بعد اختيار الحجم 12.
الشكل 10-9 تحديد حجم الخط بإسناد القيمة 12 للخاصية FontSize.
انقر الزر خروج لإنهاء البرنامج.
كيف يعمل برنامج عرض الخطوط
يُغيِّر البرنامج، خصائص الخط المستخدم في مربع النص، تبعاً لاختياراتك.
نص الإجراء chkBlod_Click()
يُنفذ هذا الإجراء آلياً، عند نقر خانة الاختيار chkBlod (خانة خط عريض):
Private Sub chkBold_Click()
txtTest.FontBold = chkBold.Value
End Sub
تُسند القيمة True إلى الخاصية FontBold لمربع النص، عندما تساوي الخاصية Value لخانة الاختيار chkBold القيمة True.
وعلى العكس، تُسند القيمة False إلى الخاصية FontBold لمربع النص txtTest، عند إزالة علامة الاختيار من الخانة chkBold، أي عندما تساوي الخاصية Value لخانة الاختيار chkBold إلى False.
تعمل الإجراءات chkItalic_Click، chkStrike_Click، chkUnderline_Click بشكل مشابه لعمل الإجراء chkBold_Click.
يُسند الإجراء chkItalic_Click() إحدى القيمتينTrue أو False للخاصية FontItalic.
يُسند الإجراء chkStrike_Click() إحدى القيمتين True أو False للخاصية FontStrike.
يُسند الإجراء chkUnderline_Click() إحدى القيمتين Trueأو False للخاصية FontUnderline.
نص الإجراء mnu10Points_Click()
يُنفذ الإجراء mnu10Points_Click() عند اختيار 10نقاط من القائمة أحجام:
Private Sub mnu10Points_Click()
txtTest.FontSize = 10
End Sub
يُسند هذا الإجراء القيمة 10 إلى الخاصية FontSize لمربع النص txtText، ويعمل الإجراء mnu10Point_Click() بنفس الطريقة، ولكن يسند القيمة 12 إلى الخاصية FontSize.
نص الإجراء mnuCourier_Click()
ينفذ الإجراء mnuCourier_Click() عند اختيار الخطCourier 10 من القائمة أحجام:
Private Sub mnuCourier_Click()
txtTest.FontName = "Courrier"
End Sub
يُسند هذا الإجراء نوع الخط Courier إلى الخاصية FontName لمربع النص txtText، يعمل الإجراء mnuMsSamsSerif_Click() بطريقة مشابهة بإسناد نوع الخط MsSamsSerif للخاصية FontName.
المصطلح WYSIWYG
يقصد بالمصطلح WYSIWYG أن ما تشاهده هو ما تحصل عليه، وهو مأخوذ من العبارة What You See Is What Yow Get، ويُستخدم هذا المصطلح للدلالة على قدرة البرنامج على إنتاج نسخة طبق الأصل على الطابعة لما تشاهده على الشاشة، يتطلب الحصول على برامج WYSIWYG حقيقية مائة بالمائة، دقة برمجية كبيرة، لأن المستخدمين يمكن أن يمتلكوا طابعات وشاشات وخطوط مختلفة.
برنامج الخطوط
يوضح برنامج الخطوط كيف يمكن لبرنامجك اتخاذ القرار بشأن الخطوط المتوفرة في النظام. يمكن استعمال التقنية المستخدمة من قبل برنامج الخطوط لإنتاج برامج WYSIWYG.
التمثيل المرئي لبرنامج الخطوط
سنبدأ كعادتنا بالتمثيل المرئي للبرنامج:
أنشئ مشروعاً تنفيذياً قياسياً Standard EXE، واحفظ نموذج المشروع بالاسم Fonts.frm في الدليل C:\VB5Prg\Ch10 واحفظ ملف المشروع بالاسم Fonts.Vbp في الدليل C:\VB5Prg\Ch10.
أنشئ النموذج frmFonts طبقاً للجدول 10-3.
يُفترض أن يبدو النموذج المكتمل كذاك المبين في الشكل10-10
الشكل 10-10 النموذج frmFonts (طور التصميم).
الجدول 10-3. جدول خصائص النموذج frmFonts.
الكائن الخاصية القيمة
Form Name frmFonts
Caption برنامج الخطوط
RightToLeft True
ComboBox Name cboFontsPrinter
Sorted True
Style 2-Dropdown List
RightToLeft True
ComboBox Name cboFontsScreen
Sorted True
Style 2-Dropdown List
RightToLeft True
CommandButton Name cmExit
Caption &خروج
RightToLeft True
Label Name lblPrinter
Caption الخطوط المتاحة على الطابعة
RightToLeft True
Label Name lblScreen
Caption الخطوط المتاحة على الشاشة
RightToLeft True
Label Name lblSample
Caption فيجول بيسك5 Visual Basic5
Alignment 2-Center
BorderStyle 1-Fixed Single
RightToLeft True
Label Name lblSampleInfo
Caption مثال:
RightToLeft True
يطالبك الجدول 10-3 بوضع مربعي التحرير والسرد في النموذج frmFonts.
يظهر مستطيل أصفر يحمل الرسالة ComboBox (مربع التحرير والسرد) عندما تضع مؤشر الفأرة فوق رمز مربعي التحرير والسرد ComboBox في إطار مربع الأدوات، وبهذه الطريقة تتأكد من وجود هذا الرمز في مربع الأدوات.
إدخال نص برنامج الخطوط
سندخل الآن نص برنامج الخطوط:
أدخل النص التالي ضمن قسم التصاريح العامة General Declartions للنموذج frmFonts:
'يجب التصريح عن كل المتحولات
Option Explicit
Dim gNumOfPrinterFonts
Dim gNumOfScreenFonts
أدخل النص التالي ضمن الإجراء cboFontsScreen_Click():
Private Sub cboFontsScreen_Click()
'اختار المستخدم خطاً جديداً على الشاشة
' لهذا غير خط اللافتة بما يتوافق مع ما اختاره المستخدم
lblSample.FontName = cboFontsScreen.Text
End Sub
أدخل النص التالي ضمن الإجراء cmdNumberOfFonts_Click():
Private Sub cmdNumberOfFonts_Click()
MsgBox "عدد خطوط الشاشة:" + Str(gNumOfScreenFonts)
MsgBox "عدد خطوط الطابعة:" + Str(gNumOfPrinterFonts)
End Sub
أدخل النص التالي ضمن الإجراء Form_Load():
Private Sub Form_Load()
Dim I
gNumOfScreenFonts = Screen.FontCount - 1
gNumOfPrinterFonts = Printer.FontCount - 1

For I = 0 To gNumOfScreenFonts - 1
cboFontsScreen.AddItem Screen.Fonts(I)
Next

For I = 0 To gNumOfPrinterFonts - 1
cboFontsPrinter.AddItem Printer.Fonts(I)
Next

cboFontsScreen.ListIndex = 0
cboFontsPrinter.ListIndex = 0
End Sub
أدخل النص التالي ضمن الإجراء cmdExit_Click():
Private Sub cmdExit_Click()
End
End Sub
احفظ المشروع.
تنفيذ برنامج الخطوط
لنشاهد ما كتبناه قيد التنفيذ:
نفّذ برنامج الخطوط.
انقر على الزر عدد الخطوط.
يستجيب البرنامج بإظهار مربعي رسالة، يعطيان عدد الخطوط المتوفرة لكل من الشاشة والطابعة.
اختر خطاً من خطوط الشاشة المتوفرة.
يتغير نوع خط اللافتة الافتراضي والمسماة مثال.
تبعاً للخط المختار (انظر الشكل 10-11).
الشكل 10-11 اختيار نوع الخط Arial Arabic.
كما يوضح الشكل 10-12 ما يمكن أن يظهر عند تجول المستخدم عبر لائحة خطوط الطابعة المتوفرة.
الشكل 10-12 إظهار خطوط الطابعة.
ملاحظة
لا يتغير نوع خط النص المكتوب في اللافتة مثال، عند اختيار خط طابعة جديد، وإنما يتغير عند اختيار نوع خط شاشة جديد.
كيف يعمل برنامج الخطوط
يستخلص برنامج الخطوط، أنواع الخطوط المتوفرة لكل من الشاشة والطابعة ويظهرها في مربعي التحرير والسرد الخاص بكل منهما.
نص قسم التصاريح العامة
يصرح هذا القسم عن متحولين عامين:
'يجب التصريح عن كل المتحولات
Option Explicit
Dim gNumOfPrinterFonts
Dim gNumOfScreenFonts
يمثل هذان المتحولان عدد خطوط الشاشة وخطوط الطابعة المتوفرة، تُشاهِد كل إجراءات النموذج هذين المتحولين بسبب التصريح عنهما في قسم التصاريح العامة.
نص الإجراء Form_Load()
ينفذ هذا الإجراء عند بدء تحميل النموذج:
Private Sub Form_Load()
Dim I
gNumOfScreenFonts = Screen.FontCount - 1
gNumOfPrinterFonts = Printer.FontCount - 1

For I = 0 To gNumOfScreenFonts - 1
cboFontsScreen.AddItem Screen.Fonts(I)
Next

For I = 0 To gNumOfPrinterFonts - 1
cboFontsPrinter.AddItem Printer.Fonts(I)
Next

cboFontsScreen.ListIndex = 0
cboFontsPrinter.ListIndex = 0
End Sub
يؤدي استخدام العبارة التالية إلى معرفة عدد خطوط الشاشة المتوفرة في الحاسب الشخصي الذي يُنفذ برنامج الخطوط هذا عليه، وذلك بالاستعانة بالخاصية FontCount.
gNumOfScreenFonts = Screen.FontCount - 1
وكذلك، تُسهم العبارة التالية بمعرفة عدد الخطوط المتوفرة للطابعة بالاستعانة بالخاصية FontCount.
gNumOfPrinterFonts = Printer.FontCount - 1
يملأ الإجراء بعد ذلك، مربع السردcboFontsScreen بأنواع خطوط الشاشة:
For I = 0 To gNumOfScreenFonts - 1
cboFontsScreen.AddItem Screen.Fonts(I)
Next
كما يملأ الإجراء مربع السردcboFontsPrinter بأنواع خطوط الطابعة، أي:
For I = 0 To gNumOfPrinterFonts - 1
cboFontsPrinter.AddItem Printer.Fonts(I)
Next

ملاحظة
تُستخلص الخطوط المتوفرة لكل من الطابعة والشاشة بواسطة الخاصية Fonts. فمثلاً تستخدم العبارة التالية لإسناد أول خط من خطوط الشاشة المتوفرة إلى المتحول الكتابي CurrentScreenFont:
CurrentScreenFont = Secreen.Fonts(0)
وتستخدم العبارة التالية لإسناد تاسع خط طابعة متوفر، إلى المتحول الكتابي CurrentPrinterFont: (انتبه إلى أن العد يبدأ من الصفر).
CurrentPrinterFont = Printer.Fonts(
ثم يُجهز الإجراء بعد ذلك مربع السرد، بحيث يشير إلى أول عنصر:
cboFontsScreen.ListIndex = 0
ثم يُبدّل خط النص الذي تورده اللافتة مثال (العنوان Caption) تبعاً للخاصية Text الحالية لمربع سرد أنواع خطوط الشاشة:
lblSample.FontName = cboFontsScreen.Text
وأخيراً، يُجهز الإجراء مربع السرد cboFontsPrinter بإسناد القيمة صفر للخاصية ListIndex بحيث يشير إلى أول خط متوفر:
cboFontPrinter.ListIndex = 0
نص الإجراء cboFontsScreen_Click ()
يُنفذ نص هذا الإجراء عند اختيار خط شاشة جديد من مربع السرد cboFontsScreen (وهو المربع الذي يقع تحت اللافتة "الخطوط المتاحة على الشاشة"):
Private Sub cboFontsScreen_click()
lblSample.FontName = cboFontsScreen.Text
End Sub
يُبدّل الإجراء بعدها، خط اللافتة مثال إلى الخط الذي اخترته.
نص الإجراء cmdNumberOfFonts_Click()
ينفذ هذا الإجراء تلقائياً عند نقر الزر عدد الخطوط:
Private Sub cmdNumberOfFonts_Click()
MsgBox "عدد خطوط الشاشة:" + Str(gNumOfScreenFonts)
MsgBox "عدد خطوط الطابعة:" + Str(gNumOfPrinterFonts)
End Sub
يُظهر هذا الإجراء عدد خطوط الشاشة المتوفرة، وعدد خطوط الطابعة المتوفرة أيضاً، باستخدام عبارتي MsgBox. يخزّن عدد خطوط كل من الشاشة والطابعة في المتحولين gNumOfScreenFonts و gNumOfPrinterFonts على التوالي، وتحدّث قيمة هذين المتحولين من قبل الإجراء Form_Load().
الطريقة Print
يمكن استخدام الطريقة Print في نموذج أو في عنصر تحكم الصورة، فمثلاً استخدم العبارة التالية لإظهار النص "Testing....." في النموذج frmMyForm:
frmMyForm.Print "Testing....."
أو استخدم العبارة التالية مثلاً، لإظهار النص Testing... في عنصر تحكم الصورة المدعو picMyPicture:
picMyPicture.Print "Testing...."
تستخدم الفاصلة المنقوطة ( ; ) لإخبار فيجول بيسك بوضع النص على نفس السطر، فمثلاً يؤدي استخدام العبارتين التاليتين:
frmMyForm.Print "This is line number 1 and ";
frmMyForm.Print "it continues..."
إلى توليد الخرج التالي:
This is line number 1 and it continues...
تولد العبارة التالية نفس الخرج السابق:
frmMyForm.Print _
"This is line "; "number 1 and "; "it continues..."
محو نص
يمكنك استخدام الطريقة Cls لمحو نص كان مكتوباً في نموذج أوفي عنصر الصورة، فمثلاً لمحو النموذج frmMyForm استخدم ما يلي:
frmMyForm.Cls
أما لمحو عنصر التحكم picMyPicture فاستخدم ما يلي:
picMyPicture.Cls
تمحو الطريقة Cls النصوص والأشكال المرسومة بالطرق الرسومية المختلفة (Line، Circle، PSet ... الخ).
وضع نص عند موقع محدد
تستخدم الخاصيتان CurrentX و CurrentY لمثل هذا الغرض، فمثلاً لوضع النص Testing في النموذج frmMyForm عند العمود 5 والسطر 6، استخدم ما يلي:
frmForm.CurrentX = 5
frmForm.CurrentY = 6
frmMyForm.Print "Testing"
وبشكل مشابه، استخدم العبارات التالية لوضع النص Testing في عنصر الصورة المدعو picMyPicture عند العمود 11 والسطر 10:
picMyPicture.CurrentX = 11
picMyPicture.CurrentY = 10
picMyPicture.Print "Testing"
برنامج الفهرس
يوضح برنامج الفهرس كيف تستخدم الخاصيتين TextHeight وTextWidth اللتين تسمحان بمعرفة ارتفاع وعرض نص معين.
فمثلاً تؤدي العبارة التالية إلى إسناد قيمة ارتفاع النص "AaBbCc" إلى المتحول HeightOfabc:
HeightOfabc = frmMyForm.TextHeight("AaBbCc")
تكون القيمة المعادة من الخاصية TextHeight بنفس الوحدات المشار إليها (أي المحددة) بالخاصية ScaleMode.
تصور أن النص AaBbCc عبارة عن مستطيل مغلق، تُسند العبارة السابقة ارتفاع ذلك المستطيل الوهمي إلى المتحول HeightOfabc، والذي يتحدد بارتفاع أعلى رمز بين الرموز AaBbCc.
تعتبر الخاصية TextHeight مفيدة جداً، عندما ترغب بحساب الخاصية CurrentY لسطر محدد، لنفترض مثلاً أنك أظهرت تسعة سطور، ثم رغبت بعد ذلك برسم خط أفقي تحت السطر التاسع، سنحتاج إلى حساب الإحداثيY للسطر العاشر، واستخدام هذه القيمة لإسنادها للخاصية CurrentY، إليك طريقة حساب CurrentY لمثل هذه الحالة:
CurrentY = frmMyForm.TextHeight("AaBbCc") * 9
تُعيد الخاصية TextWidth عرض النص. فمثلاً لحساب عرض النص Index، استخدم هذه العبارة:
WidthOfIndex = frmMyForm.TextWidth("Index")
تصور ثانية، أن كلمة Index مغلقة بمستطيل، تُسند العبارة السابقة عرض ذلك المستطيل الوهمي إلى المتحول WidthOfIndex.
إذاً تعيد الخاصيتين TextHeight و TextWidth ارتفاع وعرض النص، تبعاً للقيمة الحالية للخاصية FontSize والخاصية FontName.
التمثيل المرئي لبرنامج الفهرس
أنشئ مشروعاً قياسياً جديداً Standard EXE، واحفظ نموذج المشروع بالاسم Index.frm في الدليل C:\VB5Prg\Ch10 واحفظ ملف المشروع بالاسمIndex.vbp في ذات الدليل.
أنشئ النموذج frmIndex تبعاً للجدولين10-4 و 10-5.
يفترض أن يبدو النموذج المكتمل كذاك المبين في الشكل 10-13.
الشكل 10-13 النموذج frmIndex (طور التصميم).
الجدول 10-4. جدول خصائص النموذج frmIndex.
الكائن الخاصية القيمة
Form Name frmIndex
Caption برنامج الفهرس
BackColor White
RightToLeft True
Menu (انظر الجدول 10-5) (انظر الجدول 10-5)
الجدول 10-5. جدول قائمة النموذج frmIndex.
العنوان الخاصية Name
&ملف mnuFile
…&عرض الفهرس mnuDisplayIndex
…&حذف الفصل الثاني mnuEraseCh2
…&مسح النص mnuClear
…- mnuSep1
…&خروج mnuExit
إدخال نص برنامج الفهرس
سنباشر الآن بكتابة نص برنامج الفهرس:
أدخل النص التالي ضمن قسم التصاريح العامة للنموذج frmIndex:
'يجب التصريح عن كل المتحولات
Option Explicit
Dim gDots
أدخل النص التالي ضمن الإجراء Form_Load() للنموذج frmIndex:
Private Sub Form_Load()
gDots = String$(84, ".")
End Sub
أدخل النص التالي ضمن الإجراء mnuClear_Click() للنموذج frmIndex:
Private Sub mnuClear_Click()
frmIndex.Cls
End Sub
أدخل النص التالي ضمن الإجراء mnuDisplayIndex_Click() للنموذج frmIndex:
Private Sub mnuDisplayIndex_Click()
frmIndex.Cls
CurrentY = 100
CurrentX = (frmIndex.ScaleWidth - _
frmIndex.TextWidth("الفهرس ")) / 2
frmIndex.FontUnderline = True
frmIndex.Print "الفهرس"

frmIndex.FontUnderline = False
CurrentY = frmIndex.TextHeight("VVV") * 2
CurrentX = 100
Print "الفصل 1" + gDots + "الكمبيوتر"
CurrentY = frmIndex.TextHeight("VVV") * 3
CurrentX = 100
Print "الفصل 2" + gDots + "الشاشة"
CurrentY = frmIndex.TextHeight("VVV") * 4
CurrentX = 100
Print "الفصل 3" + gDots + "الطابعة"
CurrentY = frmIndex.TextHeight("VVV") * 5
CurrentX = 100
Print "الفصل 4" + gDots + "النهاية"
End Sub
أدخل النص التالي ضمن الإجراء mnuEraseCh2_Click() للنموذج frmIndex:
Private Sub mnuEraseCh2_Click()
Dim LengthOfLine
Dim HeightOfLine
CurrentY = frmIndex.TextHeight("VVV") * 3
CurrentX = ScaleWidth - 100
LengthOfLine = frmIndex.TextWidth("الفصل 2" + _
gDots + "الشاشة")
HeightOfLine = frmIndex.TextHeight("ل")
frmIndex.Line -Step(-LengthOfLine, HeightOfLine), _
RGB(255, 255, 255), BF
End Sub
أدخل النص التالي ضمن الإجراء mnuExit_Click() للنموذج frmIndex:
Private Sub mnuExit_Click()
End
End Sub
احفظ المشروع بالطريقة المعتادة.
تنفيذ برنامج الفهرس
نفّذ برنامج الفهرس.
انقر عرض الفهرس من القائمة ملف.
يستجيب البرنامج بإظهار الفهرس المبين في الشكل 10-14.
انقر حذف الفصل الثاني من القائمة ملف.
يستجيب البرنامج بحذف سطر الفصل الثاني (انظر الشكل 10-15).
الشكل 10-14 إظهار الفهرس.

الشكل 10-15 حذف سطر الفصل الثاني.
اختر مسح النص من القائمة ملف.
يستجيب البرنامج بحذف النص من النموذج.
انقر زر الخروج لإنهاء البرنامج.
كيف يعمل برنامج الفهرس
يُظهر برنامج الفهرس نصاً باستخدام الطريقة Print.كما تستطيع إظهار النص في أي موقع بتحديد أو تعديل قيمة الخاصتين CurrentX، CurrentY.
نص قسم التصاريح العامة
يُصرح عن المتحول gDots في هذا القسم مما يعني أنه يصبح مرئياً لكل إجراءات النموذج frmIndex.
نص الإجراء Form_Load()
يُنفذ هذا الإجراء آلياً عند تحميل النموذج frmIndex:
Private Sub Form_Load()
gDots = String$(84, ".")
End Sub
يحفظ هذا الإجراء 84 نقطة في المتحول gDots.
نص الإجراء mnuClear_Click
يُنفذ هذا الإجراء آلياً عند اختيار مسح النص من القائمة ملف:
Private Sub mnuClear_Click()
frmIndex.Cls
End Sub
يستخدم هذا الإجراء الطريقة Cls لمحوالنموذج.
نص الإجراء mnuDisplayIndex_Click
ينفذ الإجراء mnuDisplayIndex_Click عند اختيار عرض الفهرس من القائمة ملف. يبدأ الإجراء بمحو النموذج لحذف أي نص سابق ثم يسند القيمة 100 إلى الخاصية CurrentY:
frmIndex.Cls
CurrentY = 100
وبما أن CurrentY تساوي الآن 100، فهذا يعني أن النص سوف يظهر على بعد 100 Twips عن قمة النموذج كما استخدمت العبارة التالية:
CurrentX = (frmIndex.ScaleWidth - _
frmIndex.TextWidth(الفهرس" / 2")
لإظهار النص Text عند منتصف النموذج (ارجع إلى الشكل 10-15).
يلي ذلك إسناد القيمة True إلى الخاصية FontUnderLine للنموذج، ثم استخدام الطريقة Print لطباعة كلمة الفهرس:
frmIndex.FontUnderline = True
frmIndex.Print "الفهرس"
ثم يعيد الإجراء إسناد القيمة False إلى الخاصية FontUnderLine لإظهار ما تبقى من نصوص بدون تسطير:
frmIndex.FontUnderline = False
تُحدّث قيمة CurrentY لسطر "الفصل 1" كما يلي:
CurrentY = frmIndex.TextHeight("VVV") * 2
طبعاً استخدمت الأحرف "VVV" لمعرفة ارتفاع النص، بفرض أن هذه الأحرف هي أسمك الأحرف الموجودة.
وأُسندت القيمة 100 إلى CurrentX بحيث يبعد السطر بمقدار 100 Twips عن يمين النموذج:
CurrentX = 100
والآن، وبعد تحديث قيمة كل من CurrentX وCurrentY، استخدمت الطريقة Print لإظهار النص:
Print "الفصل 1" + gDots + "الكمبيوتر"
يتم إظهار ما تبقى من أسطر بنفس الطريقة.
يؤدي تجاهل كتابة اسم الكائن قبل الطريقة Print إلى إظهار النص على النموذج الفعال حالياً وهكذا، فإن العبارة:
frmIndex.Print "الفهرس"
تولد نفس النتيجة التي تنتجها العبارة:
Print "الفهرس"
كذلك تُحدّث قيمة الخاصيتين CurrentX وCurrentY في هذا الإجراء، دون ذكر اسم النموذج قبلهما، لأن فيجول بيسك يفترض النموذج الفعال الحالي عند عدم ذكر اسم الكائن، فمثلاً، بفرض أن النموذج الحالي الفعال هو frmIndex، تعتبر العبارتان التاليتان متطابقتين:
frmIndex.CurrentY = 100
CurrentY = 100
نص الإجراء mnuEraseCh2_Click()
يُنفذ هذا الإجراء عند اختيار حذف الفصل الثاني من القائمة ملف:
Private Sub mnuEraseCh2_Click()
Dim LengthOfLine
Dim HeightOfLine
CurrentY = frmIndex.TextHeight("VVV") * 3
CurrentX = ScaleWidth - 100
LengthOfLine = frmIndex.TextWidth("الفصل 2" + _
gDots + "الشاشة")
HeightOfLine = frmIndex.TextHeight("ل")
frmIndex.Line -Step(-LengthOfLine, HeightOfLine), _
RGB(255, 255, 255), BF
End Sub
يسند الإجراء، الموقع الذي سيبدأ منه سطر "الفصل 2"إلى الخاصيتين CurrentX وCurrentY ويرسم مربعاً ذا خلفية بيضاء، ويحسب عرض المربع باستخدام الخاصية TextWidth.
إظهار الجداول
تستطيع استخدام الطريقة Print لإظهار جداول في النموذج أو في عنصر تحكم الصورة.
اتبع الخطوات التالية لرؤية كيفية إنجاز ذلك:
أضف القائمة جدول وبند القائمة عرض جدول إلى نظام قوائم برنامج الفهرس.
تاايع....

الجدول 10-6. جدول قوائم النموذج frmIndex.
العنوان الخاصية Name
&ملف mnuFile
…&عرض الفهرس mnuDisplayIndex
…&حذف الفصل الثاني mnuEraseCh2
…&مسح النص mnuClear
…- mnuSep1
…&خروج mnuExit
&جدول mnuTable
…ع&رض الجدول mnuDisplayTable
أدخل النص التالي ضمن الإجراء mnuDisplayTable_Click للنموذج frmIndex:
Private Sub mnuDisplayTable_Click()
frmIndex.Cls
frmIndex.FontName = "MS Sans Serif"
frmIndex.FontSize = 10
frmIndex.Print "الفصل" , "الشرح" , "الصفحة"
frmIndex.Print
frmIndex.Print "1" , "الكمبيوتر" , "1"
frmIndex.Print "2" , "الشاشة" , "14"
frmIndex.Print "3" , "الطابعة" , "45"
frmIndex.Print "4" , "النهاية" , "65"
End Sub
احفظ المشروع بالطريقة المعتادة.
تنفيذ نسخة برنامج الفهرس المحسنة
لنشاهد ما كتبناه قيد التنفيذ:
نفّذ النسخة المحسنة من برنامج الفهرس.
اختر عرض جدول من القائمة جدول.
يستجيب البرنامج بإظهار الجدول المبين في الشكل 10-16.
اختر خروج من القائمة ملف لإنهاء البرنامج.
الشكل 10-16 إظهار فهرس جدولي.
يستخدم نص الإجراء mnuDisplayTable_Click الطريقة Print مع الفواصل (,):
frmIndex.Print "الفصل" , "الشرح" , "الصفحة"
تتسبب هذه العبارة بإظهار السلسلة الأولى بدءاً من العمود صفر، وتظهر السلسلة الثانية بدءاً من العمود 14، أما السلسلة الثالثة (أي "الصفحة") فتظهر ابتداءً من العمود 28.
يفهم فيجول بيسك من الفواصل، تغيير مواقع الطباعة إلى مناطق يحدد فيجول بيسك كل منطقة طباعة بـ 13 رمز في الحالة الافتراضية.
ملاحظة
استخدم طريقة Print مع الفواصل لطباعة السلاسل التي تبدأ عند مواقع طباعة مختلفة فمثلاً، تؤدي العبارات التالية:
Print "abc","def","ghi"
Print "nop","qrs","tuf"
Print "abc","def","ghi"
إلى توليد الخرج التالي:
abc def ghi
nop qrs tuf
abc def ghi
تعريف مناطق جديدة للطباعة
يمكنك استخدام التابع الوظيفي Tab() لتعريف مناطق جديدة للطباعة.
استبدل نص الإجراء mnuDisplayTable_Click() بالنص التالي:
Private Sub mnuDisplayTable_Click()
frmIndex.Cls
frmIndex.FontName = "MS Sans Serif"
frmIndex.FontSize = 10
frmIndex.Print Tab(5); "الفصل"; Tab(20); _
"الشرح"; Tab(50); "الصفحة"
frmIndex.Print
frmIndex.Print Tab(5); "1"; Tab(20); _
"الكمبيوتر"; Tab(50); "1"
frmIndex.Print Tab(5); "2"; Tab(20); _
"الشاشة"; Tab(50); "14"
frmIndex.Print Tab(5); "3"; Tab(20); _
"الطابعة"; Tab(50); "45"
frmIndex.Print Tab(5); "4"; Tab(20); _
"النهاية"; Tab(50); "65"
End Sub
نفّذ برنامج الفهرس.
اختر عرض جدول من القائمة جدول.
يستجيب البرنامج بإظهار الجدول كما في الشكل 10-17.
الشكل 10-17 إطار برنامج الفهرس.
يحدد وسيط التابع الوظيفي Tab() رقم العمود الذي سيظهر النص عنده، فمثلاً تظهر العبارة التالية النص بدءاً من العمود الخامس:
frmIndex.Print Tab(5); "1"; Tab(20); _
"الكمبيوتر"; Tab(50); "1"
الوسيط الأول في هذه العبارة هو Tab(5)، والذي يُسند القيمة 5 للخاصية CurrentX، أما الفاصلة المنقوطة فتعني لفيجول بيسك، استئناف الطباعة على نفس السطر الحالي.
الوسيط الثالث في العبارة هو Tab(20)، والذي يُسند القيمة 20 للخاصية CurrentX، وتأمر الفاصلة المنقوطة فيجول بيسك، بإبقاء الطباعة على نفس السطر وبهذا تظهر السلسلة "الكمبيوتر" بدءاً من العمود 20.
إذاً، يمكّنك التابع الوظيفي Tab() من إظهار النص عند أي عمود تشاء.
صياغة الأرقام والتواريخ والأزمنة
يُستخدم التابع الوظيفي Format$() لإظهار الأرقام والتواريخ والأزمنة بطرق مختلفة. توضح الفقرتان التاليتان كيف يعمل هذا التابع.
صياغة الأرقام
يمكنك التحكم بالطريقة التي يُظهر فيجول بيسك الأرقام بها، وذلك بواسطة التابع Format$(). يمتلك هذا التابع وسيطين: الأول يمثل الرقم المطلوب إظهاره، والثاني يخدم كتعليمات صياغة Format Instruction، فمثلاً لإظهار الرقم 45.6 بحيث يسبقه عدد من الأصفار، استخدم العبارة التالية:
Print Format$(45.6,"000000.00")
فيتولد ما يلي:
000045.60
الرقم 45.6 يمتلك خانتين على يسار الفاصلة العشرية وخانة واحدة على يمينها، أما الوسيط الثاني فيحتوي (000000.00)، مما يعني وجوب إظهار ست خانات على يسار الفاصلة العشرية وخانتين على يمينها، وبما أن 45.6 يمتلك خانتين فقط على يسار الفاصلة العشرية، يضيف فيجول بيسك أربعة أصفار قبل الرقم، وبما أن 45.6 يمتلك خانة واحدة على يمين الفاصلة العشرية، يضيف فيجول بيسك صفر واحد في نهاية الرقم.
تستخدم هذه الميزة، لإظهار الأعداد في عمود، عندما تدعو الحاجة لإظهار الفواصل العشرية تحت بعضها، أي كما يلي:
000324.45
000123.40
123456.67
000004.90
132123.76
صياغة التواريخ والأزمنة
تستطيع مثلاً، استخدام العبارة التالية لإظهار تاريخ اليوم الحالي:
Print Format$(Now,"m/d/yy")
فإذا كان اليوم الحالي هو 4 تموز 1998، فسوف ينتج الخرج التالي:
7/4/98
يستخدم التابع الوظيفي Now، كأول وسيط في التابع Format$() للحصول على التاريخ، ويزود الوسيط (m/d/yy) طريقة لصياغة التاريخ بشكل شهر/يوم/سنة.
لاحظ أن خرج التابع Now يتعلق بقيمتي تاريخ ووقت الحاسب PC المستخدم.
يمكنك إظهار التاريخ بصيغ أخرى فمثلاً استخدم العبارة التالية:
Print Format$(Now,"dddd, mmmm dd, yyyy")
لتوليد الخرج التالي:
Sunday, April 11, 1999
واستخدم العبارة التالية:
Print Format$(Now,"mmmm-yy")
لتوليد الخرج التالي:
April-99
يمكن استخدام التابع الوظيفي Now أيضاً لإظهار الوقت الحالي. فمثلاً تستطيع استخدام هذه العبارة:
Print Format$(Now,"h:mm:ss a/p")
لتوليد الخرج التالي:
4:23:59 a
برنامج الطباعة
يستعرض برنامج الطباعة مدى سهولة إرسال المعطيات إلى الطابعة، بواسطة الطريقة PrintForm.
التمثيل المرئي لبرنامج الطباعة
سنبدأ كعادتنا بالتمثيل المرئي لنموذج البرنامج:
أنشئ مشروعاً قياسياً تنفيذياً جديداً Standard EXE، واحفظ نموذج المشروع بالاسم Print.Frm في الدليل C:\VB5Prg\Ch10 واحفظ ملف المشروع بالاسم Print.Vbp في ذات الدليل.
أنشئ النموذج frmPrint وفق الجدول 10-7.
يفترض أن يبدو النموذج المكتمل كذاك المبين في الشكل 10-18.
الشكل 10-18 النموذج frmPrint (طور التصميم).
الجدول 10-7. جدول خصائص النموذج frmPrint.
الكائن الخاصية القيمة
Form Name frmPrint
Caption برنامج الطباعة
BackColor Whit
RightToLeft True
CommandButton Name cmPrint
Caption &طباعة
RightToLeft True
CommandButton Name cmExit
Caption &خروج
RightToLeft True
إدخال نص برنامج الطباعة
تأكد من احتواء قسم التصاريح العامة للنموذج frmPrint على العبارة Option Explicit:
'يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء cmdExit_Click() للنموذج frmPrint:
Private Sub cmdExit_Click()
End
End Sub
أدخل النص التالي ضمن الإجراء cmdPrint_Click() للنموذج frmPrint:
Private Sub cmdPrint_Click()
Printer.Print "بسم الله الرحمن الرحيم"
Printer.EndDoc
End Sub
احفظ المشروع باختيار Save Project من القائمة File لفيجول بيسك.
تنفيذ برنامج الطباعة
تحقق بأن الطابعة جاهزة للطباعة.
نفّذ برنامج الطباعة.
انقر على الزر طباعة.
يستجيب البرنامج باستخدام الطابعة لطباعة هذا النص:
"بسم الله الرحمن الرحيم"
كيف يعمل برنامج الطباعة
يستخدم البرنامج الطريقة Print لإرسال المعطيات إلى الطابعة. أما الطريقة EndDoc فترسل أمر بدء الطباعة إلى جهاز الطابعة.
نص الإجراء cmdPrint_Click()
ينفذ الإجراء cmdPrint_Click() عند النقر على زر طباعة:
Private Sub cmdPrint_Click()
Printer.Print "بسم الله الرحمن الرحيم"
Printer.EndDoc
End Sub
ويستخدم الطريقة Print مع الكائن Printer. تتم طباعة الوسيط الممرر للطريقة Print (أي "بسم الله الرحمن الرحيم")، حال تنفيذ الطريقة EndDoc.
ملاحظة
تستطيع الذهاب للفصل 22، وقراءة الفقرة الخاصة بتعريب كائن الطابعة، لزيادة الفائدة.
تحسين برنامج الطباعة
تُرسل الطريقة Print النص إلى الطابعة، سنحسن الآن برنامج الطباعة بحيث يطبع محتويات النموذج frmPrint:
استبدل نص الإجراء cmdPrint_Click() بالنص التالي:
Private Sub cmdPrint_Click()
frmPrint.PrintFrom
Printer.EndDoc
End Sub
احفظ المشروع بالطريقة المعتادة.
تنفيذ النسخة المحسنة لبرنامج الطباعة
لنشاهد أثر ما كتبناه:
نفّذ نسخة برنامج الطباعة المحسنة.
يستجيب البرنامج بطباعة محتويات النموذج.
انقر الزر خروج لإنهاء البرنامج.
نص نسخة الإجراء cmdPrint_Click() المحسنة
تُرسل الطريقة PrintForm محتويات النموذج إلى الطابعة نقطة نقطة (Pixel By Pixel):
frmPrint.PrintFrom
وآخر شيء يفعله هذا الإجراء هو تنفيذ الطريقة EndDoc التي تحمل الطابعة على طباعة المعطيات التي تلقتها.
ملاحظة
تستخدم الطريقة PrintForm لإرسال صورة عن النموذج إلى الطابعة، فمثلاً لإرسال محتويات النموذج frmMyForm إلى الطابعة، استخدم العبارة التالية:
frmMyForm.PrintForm
كان مفروضاً في الإصدارات السابقة لفيجول بيسك إسناد القيمة True إلى الخاصية AutoRedraw للنموذج المطلوب طباعته، حتى تتمكن الخاصية PrintForm من العمل بشكل مناسب. أما في إصدار فيجول بيسك 5، فلا داعي لذلك.
طباعة عدة صفحات
يمكنك طباعة عدة صفحات باستخدام الطريقة NewPage. يحتفظ فيجول بيسك بمسار عدد الصفحات المطبوعة، عن طريق تحديث الخاصية Page.
اتبع الخطوات التالية لطباعة عدة صفحات:
استبدل نص الإجراء cmdPrint_Click() بالنص التالي:
Private Sub cmdPrint_Click()
Printer.Print "This is Page Number " + Str(Printer.Page)
Printer.NewPage
Printer.Print "This is Page Number " + Str(Printer.Page)
Printer.EndDoc
End Sub
نفّذ برنامج الطباعة.
انقر زر طباعة.
يستجيب البرنامج بطباعة صفحتين:
الصفحة الأولى تحمل الرسالةThis is Page Number 1.
الثانية تحمل الرسالة This is Page Number 2.
انقر الزر خروج لإنهاء البرنامج.
يطبع الإجراء cmdPrint_Click() السلسلة التالية:
Printer.Print "This is Page Number " + Str(Printer.Page)
تحتوي الخاصية Page رقم الصفحة الحالية. يحدّث فيجول بيسك قيمة الخاصية Page بإسناد القيمة 1 إليها باعتبار أن هذه الصفحة هي أول صفحة مطبوعة.
يصرح الإجراء بعد ذلك عن صفحة جديدة باستخدام الطريقة NewPage:
Printer.NewPage
ويرسل هذه السلسلة إلى الطابعة:
Printer.Print "This is Page Number " + Str(Printer.Page)
وبما أن القيمة الحالية لـ Page تساوي 2، تطبع الطابعة النص:
This is Page Number 2
طباعة الصور والرسوم
إذا كان المطلوب طباعة صورة ما، فيمكن وضعها في عناصر تحكم الصور Picture Controls، ثم طباعة النموذج باستخدام الطريقة PrintForm، بمعنى آخر، بغض النظر عن ما تضعه في النموذج، فإنه سوف يرسل للطابعة.
الطباعة بجودة أفضل
يوضح برنامج الطباعة، مدى سهولة إرسال المعطيات إلى الطابعة بواسطة إحدى الطريقتين Print أوPrintForm، وللحصول على دقة أفضل تستطيع استخدام الطرق الرسومية الأخرى Pest وLine وCircle الموصوفة سابقاً.
الرسم على الطابعة يتم كالرسم على النموذج، فتستطيع تحديد الخاصيتين CurrentX وCurrentY كما في العبارتين:
Printer.CurrentX = 0
Printer.CurrentY = 0
واستخدام خصائص مثل:
Printer.ScaleLeft
Printer.ScaleTop
Printer.Width
Printer.Height
أو تستطيع استخدام الخاصيتين TextHight وTextWidth لوضع النص في مكان محدد على الورقة.
استبدل نص الإجراء cmdPrint_Click() بالنص التالي:
Private Sub cmdPrint_Click()
Printer.DrawWidth = 4
Printer.Line (1000, 1000)-Step(1000, 1000)
Printer.Cirle(3000, 3000), 1000
Printer.EndDoc
End Sub
يُسند هذا الإجراء القيمة 4 إلى الخاصية DrawWidth للطابعة، ثم يرسم خطاً ودائرة، وينفذ الطريقة EndDoc. يبين الشكل 10-19 الخرج الناتج.
كما تلاحظ لا يوجد اختلاف بين نص البرنامج الذي يرسم على نموذج وبين الرسم على الطابعة.
الشكل 10-19 رسم خط ودائرة على الطابعة.






الخلاصة
تعلمنا فى هذا الفصل كيفية تحديد الخط المستعمل في النصوص بواسطة الخصائص FontName وFontSize وFontItalic وFontUnderLine وFontTransparent.
كما تعلمنا كيف نستخلص الخطوط المتوفرة لكل من الشاشة والطابعة بواسطة الخاصية Fonts، وكيف نستخلص عدد هذه الخطوط بواسطة الخاصية FontCount وكيفية استخدام الخاصيتين TextWidth وTextHight إضافة إلى استعمال التابع الوظيفي Tab().
كما تناول هذا الفصل آلية إرسال المعطيات DATA (نصوص أو رسوم) إلى الطابعة باستخدام تقنيتين:
- الطريقة PrintForm التي ترسل صورة النموذج نقطة نقطة إلى الطابعة.
- الطريقة Print والطرق الرسومية، مثل:
Printer.Print "Abc"
Printer.Line -(1000, 1000)
Printer.Cirle(400, 500), 800

الفصل الحادي عشر




التفاعل بين تطبيقات الويندوز




بما أن البرامج التي تكتبها في فيجول بيسك، هي تطبيقات ويندوز. فإن هذا يعني أن بإمكان تطبيقاتك الاستفادة من ميزات نظام الويندوز. سوف تتعلم في هذا الفصل استخدام ميزتين: الحافظة وحلقات زمن التوقف.
الحافظة
يمكن لبرامج فيجول بيسك استخدام حافظة النظام ويندوز. والحافظة عبارة عن منطقة تُستخدم لنقل المعطيات، سواء أكانت نصوصاً أم صوراً.
برنامج الحافظة
سنكتب الآن برنامجاً يدعى برنامج الحافظة، يمكّنك من كتابة أي نص في مربع نص. وإنجاز عمليات التحرير القياسية (نسخ، قص، لصق) في ويندوز. يمتلك البرنامج قائمة تعديل قياسية. يمكن استخدامها لنسخ Copy أو قص Cut أو لصق Paste أي نص.
التمثيل المرئي لبرنامج الحافظة
سنبدأ كعادتنا بالتمثيل المرئي لنموذج البرنامج.
أنشئ الدليل C:\VB5Prg\Ch11، لحفظ العمل المنجز في هذا الدليل.
أنشئ مشروعاً جديداً من النوع Standard EXE.
احفظ نموذج المشروع باسم Clip.Frm في الدليل السابق واحفظ ملف المشروع باسم Clip.Vbp في ذات الدليل.
أنشئ النموذج frmClip طبقاً للجدولين 11-1 و 11-2.
يفترض أن يبدو النموذج المكتمل كذلك المبين في الشكل 11-1.
الشكل 11-1 النموذج frmClip.
الجدول 11-1. جدول خصائص برنامج الحافظة.
الكائن الخاصية القيمة
Form Name frmClip
RightToLeft True
Caption برنامج الحافظة
Text Box Name TxtUserArea
MultiLine True
ScrollBars 3-Both
Text (اجعله فارغاً)
Left 0
Top 0
Menu انظر الجدول 11-2 انظر الجدول 11-2
الجدول 11-2. جدول قائمة برنامج الحافظة.
العنوان الاسم مفتاح الاختزال Shortcut
&ملف mnuFile None
…&خروج mnuExit None
&تعديل mnuEdit None
…&نسخ mnuCopy Ctrl+C
…&قص mnuCut Ctrl+X
…&لصق mnuPaste Ctrl+V
إدخال نص برنامج الحافظة
سنباشر الآن كتابة نص برنامج الحافظة:
تحقق بأن قسم التصاريح العامة يحوي العبارة:
'يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء Form_Resize():
Private Sub Form_Resize()
txtUserArea.Width = frmClip.ScaleWidthtxtUserArea.Height = frmClip.ScaleHeight
End Sub
أدخل النص التالي ضمن الإجراء munCopy_Click():
Private Sub mnuCopy_Click()
Clipboard.Clear
Clipboard.SetText txtUserArea.SelText
End Sub
أدخل النص التالي ضمن الإجراء munCut_Click():
Private Sub mnuCut_Click()
Clipboard.Clear
Clipboard.SetText txtUserArea.SelText
txtUserArea.SelText = ""
End Sub
أدخل النص التالي ضمن الإجراء munPaste_Click():
Private Sub mnuPaste_Click()
txtUserArea.SelText = Clipboard.GetText()
End Sub
أدخل النص التالي ضمن الإجراء munExit_Click():
Private Sub mnuExit_Click()
End
End Sub
احفظ المشروع باختيار البند Save Project من قائمة File لفيجول بيسك.
تنفيذ برنامج الحافظة
لنشاهد أثر ما كتبناه:
نفّذ برنامج الحافظة ولاحظ مزاياه الكثيرة (رغم أننا لم نكتب إلا قدراً يسيراً من النص).
تمرن على عمليات القص والنسخ واللصق التي يوفرها هذا البرنامج، جرب مثلاً كتابة نص في مربع النص ثم انسخ جزء من هذا النص إلى مكان آخر ضمن مربع النص ذاته أو خارجه كأن تنقله إلى برنامج وورد Word أو إلى الدفتر Word Pad.
اختر البند خروج من قائمة ملف لإنهاء البرنامج.
كيف يعمل برنامج الحافظة
يستخدم برنامج الحافظـة الإجراء Form_Resize() لملء كامل النموذج بمربع النص. وتنجز الإجراءات munCopy_Click() و munCut_Click() و munPaste_Click() عمليات التحرير القياسية (قص ونسخ ولصق).
الإجراء Form_Resize()
ينفذ هذا الإجراء آلياً عند ظهور النموذج لأول مرة (عند تشغيل البرنامج) أو عند تغيير حجم النموذج.
يفترض أن يملأ مربع النص كامل منطقة العمل في النموذج أثناء التنفيذ. ولهذا يعتبر الإجراء Form_Resize() مكاناً مناسباً لوضع جزء البرنامج الذي يمكن مربع النص من ملء النموذج، وتستطيع إنجاز ذلك بإسناد قيمة الخاصيتين ScaleWidth و ScaleHeight للخاصيتين Width وHeight التابعتين لمربع النص على التوالي:
Private Sub Form_Resize()
txtUserArea.Width = frmClip.ScaleWidthtxtUserArea.Height = frmClip.ScaleHeight
End Sub
لنفترض أنك أسندت للخاصيتين Top و Left التابعتين لمربع النـص القيـمة صفر أثناء مرحلة التصميم، بما معناه أن الزاوية اليسرى العليا لمربع النص يجب أن تقع عند الزاوية اليسرى العليا للنموذج. وعندما ينفذ الإجراء Form_Resize() يحدد عرض مربع النص بعرض النموذج ScaleWidth وارتفاعه بارتفاع النموذج ScaleHeight.
نص الإجراء munCopy_Click()
ينفذ الإجراء munCopy_Click() عند اختيار البند نسخ من قائمة تعديل:
Private Sub mnuCopy_Click()
Clipboard.Clear
Clipboard.SetText txtUserArea.SelText
End Sub
ويعمل على نسخ الجزء المضاء من النص إلى الحافظة.
تمحو أول عبارة في الإجراء محتويات الحافظة، أي:
Clipboard.Clear
ثم تنسخ المنطقة المضاءة إلى الحافظة:
Clipboard.SetText TxtUserArea.SelText
نص الإجراء munCut_Click()
ينفذ الإجراء munCut_Click() عند اختيار المستخدم البند قص من قائمة تعديل:
Private Sub mnuCut_Click()
Clipboard.Clear
Clipboard.SetText txtUserArea.SelText
txtUserArea.SelText = ""
End Sub
يقصد بعملية القص، اقتطاع الجزء المضاء من النص ونقله إلى الحافظة:
تمحو أول عبارة في الإجراء محتويات الحافظة:
Clipboard.Clear
ثم تنسخ العبارة الثانية النص المنتقى إلى الحافظة:
Clipboard.SetText TxtUserArea.SelText
ثم تقتطع العبارة الثالثة النص المضاء:
TxtUserArea.SelText = ""
نص الإجراء munPaste_Click()
ينفذ هذا الإجراء عند اختيار البند لصق من قائمة تعديل:
Private Sub mnuPaste_Click()
txtUserArea.SelText = Clipboard.GetText()
End Sub
يقصد بعملية اللصق استبدال المنطقة المضاءة من مربع النص بمحتويات الحافظة. أو حشر محتويات الحافظة في مربع النص مكان وجود المشيرة إذا لم يكن المستخدم قد اختار جزءً من النص. وينجز ذلك بواسطة العبارة التالية:
TxtUserArea.SelText = Clipboard.GetText()
الخاصية SelLength
تعرّف هذه الخاصية كمتحول من النوع Long، وتحتوي على عدد الأحرف المضاءة حالياً (أي المنتقاة، والانتقاء أو الاختيار يتم بالضغط على المفتاح Shift من لوحة المفاتيح وتحريك الفأرة إلى نهاية الجزء المطلوب اختياره ثم تحرير المفتاح Shift).
ورغم أن برنامج الحافظة لا يستخدم هذه الخاصية إلا أنك قد تجد لها استخداماً في مشاريع فيجول بيسك المستقبلية.
فمثلاً لتحديد عدد الرموز التي تم اختيارها للتو في مربع النص المدعو txtMyTextBox استخدم العبارة التالية:
NumberOfCharacters = txtMyTextBox.SelLength
نقل الصور من وإلى الحافظة: برنامج الحافظة2
وضح برنامج الحافظة كيفية نقل نص بين الحافظة ومربع النص. تمتاز الحافظة بقدرتها على احتواء الصور أيضاً. يوضح برنامج الحافظة2 كيفية ذلك:
التمثيل المرئي لبرنامج الحافظة2
سنبدأ كعادتنا بطور التمثيل المرئي لنموذج البرنامج:
أنشئ مشروعاً من النوع Standard EXE.
احفظ نموذج المشروع باسم AnyData.Frm في الدليل C:\VB5Prg\Ch11 واحفظ ملف المشروع باسم AnyData.Vbp في ذات الدليل.
أنشئ النموذج frmAnyData طبقاً للجدولين11-3 و 11-4.
يفترض أن يبدو النموذج المكتمل كذاك المبين في الشكل 11-2.
الشكل 11-2 النموذج frmAnyData.


الجدول 11-3. جدول خصائص برنامج الحافظة2.
الكائن الخاصية القيمة
Form Name frmAnyData
Caption برنامج الحافظة 2
RightToLeft True
PictureBox Name picMyPicture
ListBox Name lstList
RightToLeft True
ComboBox Name cboList
Text (اتركه فارغاً)
RightToLeft True
TextBox Name txtUserArea
Text (اتركه فارغاً)
MultiLine True
ScrollBars 3-Both
RightToLeft True
Menu (انظر الجدول 11-4) (انظر الجدول 11-4)
الجدول 11-4. جدول قائمة برنامج الحافظة2.
العنوان الاسم مفتاح الاختزال Shortcut
&ملف mnuFile None
…&خروج mnuExit None
&تعديل mnuEdit None
…&نسخ mnuCopy Ctrl+C
…&قص mnuCut Ctrl+X
…&لصق mnuPaste Ctrl+V
إدخال نص برنامج الحافظة2
سندخل الآن نص برنامج الحافظة2:
كالعادة يجب أن يحوي قسم التصاريح العامة على العبارة التالية:
'يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء Form_Load():
Private Sub Form_Load()
cboList.AddItem "كمبيوتر"
cboList.AddItem "شاشة"
cboList.AddItem "طابعة"
lstList.AddItem "واحد"
lstList.AddItem "اثنان"
lstList.AddItem "ثلاثة"
End Sub
أدخل النص التالي ضمن الإجراء picMyPicture_GotFocus():
Private Sub picMyPicture_GotFocus()
picMyPicture.BorderStyle = 1
End Sub
أدخل النص التالي ضمن الإجراء picMyPicture_LostFocus():
Private Sub picMyPicture_LostFocus()
picMyPicture.BorderStyle = 0
End Sub
أدخل النص التالي ضمن الإجراء mnuCopy_Click():
Private Sub mnuCopy_Click()
Clipboard.Clear
If TypeOf Screen.ActiveControl Is TextBox Then
Clipboard.SetText Screen.ActiveControl.SelText
ElseIf TypeOf Screen.ActiveControl Is ComboBox Then
Clipboard.SetText Screen.ActiveControl.Text
ElseIf TypeOf Screen.ActiveControl Is PictureBox Then
Clipboard.SetText Screen.ActiveControl.Picture
ElseIf TypeOf Screen.ActiveControl Is ListBox Then
Clipboard.SetText Screen.ActiveControl.Text
Else
End If
End Sub
أدخل النص التالي ضمن الإجراء mnuCut_Click():
Private Sub mnuCut_Click()
mnuCopy_Click
If TypeOf Screen.ActiveControl Is TextBox Then
Screen.ActiveControl.SelText = ""
ElseIf TypeOf Screen.ActiveControl Is ComboBox Then
Screen.ActiveControl.SelText = ""
ElseIf TypeOf Screen.ActiveControl Is PictureBox Then
Screen.ActiveControl.Picture = LoadPicture()
ElseIf TypeOf Screen.ActiveControl Is ListBox Then
If Screen.ActiveControl.ListIndex >= 0 Then
Screen.ActiveControl.RemoveItem _
Screen.ActiveControl.ListIndex
End If
Else
End If
End Sub
أدخل النص التالي ضمن الإجراء mnuPaste_Click():
Private Sub mnuPaste_Click()
If TypeOf Screen.ActiveControl Is TextBox Then
Screen.ActiveControl.SelText = Clipboard.GetText()
ElseIf TypeOf Screen.ActiveControl Is ComboBox Then
Screen.ActiveControl.Text = Clipboard.GetText()
ElseIf TypeOf Screen.ActiveControl Is PictureBox Then
Screen.ActiveControl.Picture = Clipboard.GetData()
ElseIf TypeOf Screen.ActiveControl Is ListBox Then
Screen.ActiveControl.AddItem Clipboard.GetText()
Else
End If
End Sub
أدخل النص التالي ضمن الإجراء munExit_Click():
Private Sub mnuExit_Click()
End
End Sub
احفظ المشروع باختيار البند Save Project من قائمة File.
تنفيذ برنامج الحافظة2
لنشاهد ما كتبناه قيد التنفيذ:
نفّذ برنامج الحافظة2.
يمكّنك البرنامج من نسخ وقص ولصق المعطيات من وإلى الحافظة. والمعطيات قد تكون صوراً أو نصوصاً.
اتبع الخطوات التالية لنسخ صورة من برنامج الرسام Paint إلى مربع الصورة الموجود في برنامج الحافظة2:
نفّذ برنامج الرسام أثناء عمل برنامج الحافظة2.
ارسم شيئاً ما في برنامج الرسام.
انسخ جزءاً من الشكل المرسوم إلى الحافظة، بتحديد ذلك الجزء، ثم اختيار البند نسخ من قائمة عرض التابعة لبرنامج الرسام. يوضح الشكل 11-3 جزء من الصورة تم نسخه إلى الحافظة.
انتقل إلى برنامج الحافظة2.
تحقق بأن عنصر التحكم picMyPicture فعّال الآن (انقر عليه بواسطة الفأرة).
اختر البند لصق من قائمة تعديل التابعة لبرنامج الحافظة2.
يستجيب برنامج الحافظة2 بنسخ الصورة المقيمة في الحافظة إلى مربع الصورة picMyPicture.
الشكل 11-3 استخدام برنامج الرسام لرسم صورة بهدف نسخها إلى برنامج الحافظة2.

الشكل 11-4 نسخ الصورة إلى برنامج الحافظة2.
يمكّنك برنامج الحافظة2 أيضاً من نسخ وقص ولصق النصوص من وإلى مربع النص أو مربع السرد أو مربع السرد والتحرير.
تمرّن على فعاليات برنامج الحافظة2. لا تستطيع لصق الصورة في مربع السرد أو مربع النص أو في مربع السرد والتحرير. كذلك لا تستطيع لصق نص في مربع الصورة. وقبل أن تتمكن من لصق المعطيات في كائن ما، لا بد من اختيار ذلك الكائن أولاً بالنقر عليه (يجب أن ينتقل التركيز إليه).
كيف يعمل برنامج الحافظة 2
يستخدم برنامج الحافظة2 الإجراءات munCopy_Click() و munCut_Click() و munPaste_Click() لنقل المعطيات من وإلى الحافظة Clipboard.
نص الإجراء Form_Laod()
ينفذ الإجراء Form_Laod() آلياً عند تشغيل البرنامج:
Private Sub Form_Load()
cboList.AddItem "كمبيوتر"
cboList.AddItem "شاشة"
cboList.AddItem "طابعة"

lstList.AddItem "واحد"
lstList.AddItem "اثنان"
lstList.AddItem "ثلاثة"
End Sub
يملأ هذا الإجراء كل من مربع السرد ومربع السرد والتحرير بثلاثة بنود.
نص الإجراء picMyPicture_GotFocus()
ينفذ الإجراء picMyPicture_GotFocus() عندما ينتقل التركيز إلى مربع الصورة (أي عند اختيار مربع الصورة):
Private Sub picMyPicture_GotFocus()

picMyPicture.BorderStyle = 1

End Sub
ما الفائدة من هذا الإجراء ؟ !
لا يعطي فيجول بيسك أي دلالة واضحة عند اختيار مربع الصورة، بخلاف ما هو الحال عليه في مـربع النص أو مربع السرد أو مربع السرد والتحرير. ولهذا فإن العبارة التي أدخلناها ضمن الإجراء picMyPicture_GotFocus()، تبدل الخاصية BorderStyle بحيث تتمكن من تمييز أن مربع الصورة تم انتقاؤه. إذ أن إسناد القيمة 1 إلى الخاصية BorderStyle يتسبب بوضع حافة لعنصر تحكم الصورة.
نص الإجراء picMyPicture_LostFocus()
ينفذ هذا الإجراء عند عدم اختيار مربع الصورة (بعكس الإجراء السابق تماماً):
Private Sub picMyPicture_LostFocus()
picMyPicture.BorderStyle = 0
End Sub
إذاً، أسندت العبارة الوحيدة في هذا الإجراء القيمة صفر إلى الخاصية BorderStyle، ويتسبب ذلك بإزالة الحافة المحيطة بعنصر تحكم الصورة، وهذا ما يساعد على تمييز أن مربع الصورة ليس منتقىً الآن.
نص الإجراء munCopy_Click()
يُنفذ هذا الإجراء عندما يختار المستخدم البند نسخ من قائمة تعديل. يمحو نص هذا الإجراء محتويات الحافظة وينسخ المحتويات المضاءة إلى الحافظة:
Private Sub mnuCopy_Click()
Clipboard.Clear
If TypeOf Screen.ActiveControl Is TextBox Then
Clipboard.SetText Screen.ActiveControl.SelText
ElseIf TypeOf Screen.ActiveControl Is ComboBox Then
Clipboard.SetText Screen.ActiveControl.Text
ElseIf TypeOf Screen.ActiveControl Is PictureBox Then
Clipboard.SetText Screen.ActiveControl.Picture
ElseIf TypeOf Screen.ActiveControl Is ListBox Then
Clipboard.SetText Screen.ActiveControl.Text
Else
End If
End Sub
إذاً يمحو هذا الإجراء محتويات الحافظة أولاً، ثم ينسخ محتويات عنصر التحكم الفعّال إلى الحافظة، ولهذا يتوجب أولاً معرفة نوع العنصر الفعال. ينجز الإجراء ذلك باستخدام سلسلة من عبارات الشرط If TypeOf.
تتحقق أول عبارة شرطية If TypeOf إذا كان عنصر التحكم الفعّال هو مربع نص، ويتم نسخ النص المضاء في مربع النص إلى الحافظة:
Clipboard.SetText Screen.ActiveControl.SelText
أما إذا كان العنصر الفعال هو مربع السرد والتحرير، فيتم نسخ النص المضاء إلى الحافظة:
Clipboard.SetText Screen.ActiveControl.Text
وإذا كان العنصر الفعال هو مربع صورة، يتم نسخ الصورة إلى الحافظة.
Clipboard.SetData Screen.ActiveControl.Picture
وأخيراً إذا كان العنصر الفعال هو عنصر السرد، يتم نسخ النص المضاء إلى الحافظة:
Clipboard.SetText Screen.ActiveControl.Text

ملاحظة
تمثل قيمة المتحول Screen.ActiveControl عنصر التحكم الفعّال حالياً. يجدّد البرنامج آلياً هذا المتحول أثناء التنفيذ، وكما ترى يعتبر هذا المتحول مفيداً لإنجاز المهام على عنصر التحكم الفعّال الحالي.
نص الإجراء munCut_Click()
يُنفذ هذا الإجراء عند اختيار البند قص من قائمة تعديل:
Private Sub mnuCut_Click()
mnuCopy_Click
If TypeOf Screen.ActiveControl Is TextBox Then
Screen.ActiveControl.SelText = ""
ElseIf TypeOf Screen.ActiveControl Is ComboBox Then
Screen.ActiveControl.SelText = ""
ElseIf TypeOf Screen.ActiveControl Is PictureBox Then
Screen.ActiveControl.Picture = LoadPicture()
ElseIf TypeOf Screen.ActiveControl Is ListBox Then
If Screen.ActiveControl.ListIndex >= 0 Then
Screen.ActiveControl.RemoveItem _
Screen.ActiveControl.ListIndex
End If
Else
End If
End Sub
يعرّف القص، بأنه نسخ أولاً للمعطيات المنتقاة، ثم حذفها من الأصل. ولهذا ينفذ هذا الإجراء أولاً، الإجراء munCopy_Click():
mnuCopy_Click
ثم يستخدم سلسلة من عبارات If TypeOf لمعرفة نوع عنصر التحكم الفعال الحالي وتقرير طريقة حذف المعطيات التي تم نسخها.
فإذا كان عنصر التحكم الفعال الحالي هو مربع نص، يحُذف النص المنسوخ بواسطة العبارة:
Screen.ActiveControl.SelText = ""
والشكل مشابه بالنسبة لمربع السرد والتحرير، حيث يحُذف النص المنسوخ بواسطة العبارة:
Screen.ActiveControl.Text = ""
بينما يُستخدم التابع الوظيفي LoadPicture() لمحو مربع الصورة.
Screen.ActiveControl.Picture = LoadPicture()
وبسبب عدم تحديد اسم صورة لتحميلها بواسطة التابع الوظيفي LoadPicture() (وذلك بعدم ذكر اسم الصورة بين القوسين وتركهما فارغين). يمحو هذا التابع الصورة الحالية، وهو بالضبط ما نبتغيه.
أما إذا كان عنصر التحكم الفعال هو مربع سرد. فلا بد قبل حذف العنصر، من التأكد أن قيمة الخاصية ListIndex أكبر من أو تساوي الصفر. تمثل الخاصية ListIndex رقم البند المنتقى حالياً. ولهذا يجب التحقق من وجود عنصر منتقى حالياً في مربع السرد (فمثلاً إذا كانت قيمة الخاصية ListIndex تساوي -1 فهذا يعني أنه لا يوجد عنصر منتقى حالياً في مربع السرد).
نص الإجراء munPaste_Click()
ينفذ هذا الإجراء عند اختيار البند لصق من قائمة تعديل:
Private Sub mnuPaste_Click()
If TypeOf Screen.ActiveControl Is TextBox Then
Screen.ActiveControl.SelText = Clipboard.GetText()
ElseIf TypeOf Screen.ActiveControl Is ComboBox Then
Screen.ActiveControl.Text = Clipboard.GetText()
ElseIf TypeOf Screen.ActiveControl Is PictureBox Then
Screen.ActiveControl.Picture = Clipboard.GetData()
ElseIf TypeOf Screen.ActiveControl Is ListBox Then
Screen.ActiveControl.AddItem Clipboard.GetText()
Else
End If
End Sub
يستخدم هذا الإجراء كسابقيه، سلسلة من عبارات If TypeOf لتحديد نوع العنصر الفعّال الحالي، ويستخدم الطريقة المناسبة لنقل المعطيات إلى العنصر الفعال الحالي.
استخدام التابع الوظيفي GetFormat() لتحديد نوع المعطيات الموجودة في الحافظة
كما ذكرنا، تعتبر الحافظة قادرة على الإمساك بالصور والنصوص على حد سواء. يستخدم التابع الوظيفي GetFormat() لمعرفة نوع المعطيات الموجودة حالياً في الحافظة.
فمثلاً، تحدد العبارة التالية، ما إذا كانت المعطيات الموجودة في الحافظة نصية أم لا:
If Clipboard.Getformat (vbCFText( Then
'يوجد في الحافظة معلومات نصية
End If
يعيد التابع GetFormat (vbCFText) القيمة True إذا كانت الحافظة تحوي نصاً.
أما لتحديد ما إذا كانت الحافظة تحوي صورة نقطية، فاستخدم العبارة التالية:
If Clipboard.Getformat (vbCFBitmap) Then
'يوجد في الحافظة صورة نقطية
End If
يعيد GetFormat (vbCFBitmap) القيمة True إذا كانت الحافظة ممسكة بصورة.
الزمن الضائع Idle Time
تمر لحظات كثيرة أثناء تنفيذ برامج فيجول بيسك، بحيث لا ينفذ فيها أي شيء (وقت ضائع). خذ مثالاً، برنامج يصدر صوت رنين Beep مائة مرة، ثم ينتظر إعادة نقر زر يدعى رنين لإصدار صوت الرنين مجدداً. يمر البرنامج في زمن ضائع بانتظار نقر أو ضغط الزر رنين وقد يطول هذا الوقت الضائع.
تستطيع إنجاز مهام أخرى أثناء مرور الوقت الضائع، بالتحول إلى برامج أخرى في ويندوز، فمثلاً عندما يكون البرنامج السابق متوقفاً عن إصدار الرنين، تستطيع حينها الانتقال إلى برامج أخرى، ومتابعة العمل.
أما عندما تنقر الزر رنين، ليبدأ البرنامج بإصدار الرنين مائة مرة، حينها لا تستطيع الانتقال إلى برامج أخرى في ويندوز، إلى أن ينتهي البرنامج من إصدار الرنين لمائة مرة.
برنامج العد
سنكتب الآن برنامجاً يدعى برنامج العد، لعد الأرقام من 1 إلى 999.
التمثيل المرئي لبرنامج العد
أنشئ مشروعاً جديداً بنوع StandardEXE.
احفظ نموذج المشروع باسم Count.Frm في الدليل C:\VB5Prg\Ch11 واحفظ ملف المشروع باسم Count.Vbp في ذات الدليل.
أنشئ نموذج برنامج العد تبعاً للجدول 11-5.
يُفترض أن يبدو النموذج كما في الشكل 11-5.
الشكل 11-5 النموذج frmCount.
الجدول 11-5. جدول خصائص برنامج العد.
الكائن الخاصية القيمة
Form Name frmCount
Caption برنامج العد
RightToLeft True
CommandButton Name cmdExit
Caption &خروج
RightToLeft True
CommandButton Name cmdPause
Caption &توقف مؤقت
RightToLeft True
CommandButton Name cmdStart
Caption ا&بدأ
RightToLeft True
Label Name lblResult
Alignment 2-Center
BorderStyle 1-Fixed Single
Caption (اجعله فارغاً)
RightToLeft True
إدخال نص برنامج العد
تحقق من وجود العبارة Option Explicit ضمن قسم التصاريح العامة.
'يجب التصريح عن كل المتحولات
Option Explicit
أدخل النص التالي ضمن الإجراء cmdExit_Click():
Private Sub cmdExit_Click()
End
End Sub
أدخل النص التالي ضمن الإجراء cmdStart_Click():
Private Sub cmdStart_Click()
Dim Counter As Integer
Counter = 1
' Counter from 1 to 999
Do While Counter < 1000
1b1Result.Caption = Str$(Counter)
Counter = Counter + 1
Loop
End Sub

ملاحظة
لاحظ أننا لم نطلب منك حتى هذه النقطة، كتابة أي شيء ضمن الإجراء cmdPause_Click().
تنفيذ برنامج العد
لنشاهد أثر ما كتبناه:
نفّذ برنامج العد.
انقر الزر ابدأ العد.
يبدو البرنامج وكأنه لا يفعل شيئاً لفترة، ثم يظهر الرقم 999. ويعتمد سرعة ذلك كله على سرعة الحاسب المستخدم.
قد تتوقع لدى قراءتك لنص الإجراء cmdStart_Click() أن البرنامج سيظهر كل الأرقام من 1 إلى 999، ولفهم السبب الذي منع البرنامج من ذلك، تأمل العبارات المسئولة عن إظهار الأرقام. هذه هي العبارة المسئولة عن تغيير عنوان اللافتة:
lblResult.Caption = Strs(Counter)
لفيجول بيسك قدرة على إنعاش الشاشة (وهي معدل إعادة تجديد محتويات الشاشة Refresh Rate) فقط أثناء الزمن الضائع (أي عندما ينتهي تنفيذ الإجراء ويعود البرنامج إلى الزمن الضائع Idle Time).
تذكر أن نقر زر خروج أثناء التعداد لا يُنهي البرنامج، لأن البرنامج يستطيع تمييز حوادث النقر فقط أثناء الأزمنة الضائعة. وحالما ينتهي التعداد يعود البرنامج إلى الزمن الضائع ويستجيب لحادثة نقر الزر خروج.
ملاحظة
إذا كان الحاسب الذي تستخدمه سريعاً، فلعل استبدال العبارة:
Do While Counter < 1000
في الإجراء cmdStart_Click() بالعبارة:
Do While Counter < 10000
يساعدك على تمييز الحلقة بشكل أفضل، لأنك قد لا تتمكن من مشاهدة تنفيذ الحلقة مع القيم الصغيرة إذا كان حاسبك بالغ السرعة (Pentium MMX).
تعديل برنامج العد
اتبع الخطوات التالية لتعديل برنامج العد بحيث تُظهر اللافتة كل رقم من 1 وحتى 999 أثناء التعداد:
أضف العبارة التالية إلى الإجراء cmdStart_Click():
lblResult.Refresh
يفترض أن يبدو الإجراء cmdStart_Click() كما يلي:
Private Sub cmdStart_Click()
Dim Counter As Integer
Counter = 1
' Counter from 1 to 999
Do While Counter < 1000
1b1Result.Caption = Str$(Counter)
lblResult.Refresh
Counter = Counter + 1
Loop
End Sub
تتسبب الطريقة Refresh بإعادة إنعاش الشاشة فوراً.
استخدم الطريقة Refresh للتسبب بإعادة إنعاش أي كائن:
Object.Refresh
تنفيذ نسخة برنامج العد المحسنة
لنشاهد تأثير ما كتبناه:
نفّذ نسخة برنامج العد المحسنة.
تُظهر اللافتة الآن كل رقم من 1 وحتى 999 أثناء التعداد. لاحظ أن النقر على خروج أثناء التعداد لا يُنهي البرنامج، ما هو السبب ؟ ! السبب أن البرنامج أثناء تنفيذ الإجراء cmdStart_Click() ليس في زمن ضائع (ولهذا فالبرنامج لا يمكنه الاستجابة لنقر الزر خروج).
المزيد من التحسين على برنامج العد
لنحسن برنامج العد بحيث يستجيب للنقر بواسطة الفأرة على الزر خروج أثناء التعداد. سنحتاج إلى كتابة إجراء يدعى Main()، والذي سيكون أول إجراء يُنفذ عند تشغيل البرنامج.
اختر البند Project1 Properties من قائمة Project.
يستجيب فيجول بيسك بإظهار نافذة خصائص المشروع.
اختر الصفحة General في مربع الحوار السابق.
ألقِ نظرة على الحقل المدعو Startup Object، والذي يظهر في صفحة General، وبما أنك ترغب أن يكون الإجراء Main() هو أول إجراء ينفذ عند تشغيل برنامج العد، لهذا غيّر الحقل Startup Object إلى Main() وفق ما يلي:
ضع الحقل Startup Object على Sub Main، ثم انقر الزر Ok (انظر الشكل 11-6).
الشكل 11-6 وضع الحقل Startup Object على Sub Main.
والآن، الإجراء Main() هو أول إجراء ينفذ عند تشغيل برنامج العد.
سنكتب الآن الإجراء Main(). يحتاج فيجول بيسك إلى أن يكون Main() ضمن وحدة نمطية (Module) مستقلة. لهذا السبب أضف وحدة نمطية جديدة إلى المشروع:
اختر البند Add Module من قائمة Project.
يستجيب فيجول بيسك بإظهار مربع الحوار Add Module.
اختر الرمز Module في صفحة New لمربع الحوار Add Module ثم انقر الزر فتح.
يستجيب فيجول بيسك بإضافة وحدة نمطية Module جديدة إلى المشروع. الاسم الافتراضي للوحدة النمطية المضافة حديثاً هو Module1.Bas. يمكنك مشاهدة ذلك في إطار المشروع باختيار البند Project Explores من قائمة View.
احفظ الوحدة النمطية المضافة حديثاً باسم CountM.Bas كما يلي:
تحقق من توضع الإضاءة على Module1.Bas في إطار المشروع ثم اختر
Save Module1 As من قائمة File لفيجول بيسك.
يستجيب فيجول بيسك بإظهار مربع الحوار Save File As.
احفظ الوحدة النمطية المضافة حديثاً باسم CountM.Bas في الدليل C:\VB5Prg\Ch11.
سيحتوي إطار المشروع الآن على Count.Frm وCountM.Bas.
سنضيف إجراءً يدعى Main() في الجزء المدعو CountM.Bas:
تأكد من تمركز الإضاءة على CountM.Bas في الإطار Project.
انقر على الرمز View Code الذي يظهر أقصى يسار الرموز على شريط الأدوات
Tool Bar لإطار المشروع (لأنك على وشك إضافة إجراء إلى الوحدة النمطية CountM.Bas).
اختر البند Add Procedure من قائمة Tools.
يستجيب فيجول بيسك بإظهار مربع الحوار Add Procedure.
اكتب Main في الحقل Name لمربع الحوار Add Procedure، وتحقق بأن Type موضوع على Sub وأن Scope موضوع على Public (انظر الشكل 11-7)، وأخيراً انقر الزر Ok.
يستجيب فيجول بيسك بإضافة الإجراء Main() في CountM.Bas. يبين الشكل 11-8 الإجراء Main().
الشكل 11-7 إضافة الإجراء Main() إلى الوحدة النمطية Country.Bas.