دورة فيجوال بيسك 6 للمبتدئين

[azharo]

بسم الله الرحمن الرحيم











"""""""""""""""""""""""""""""""""""""""

""""""""""""""""""""



يقول الرسول الكريم صلي الله عليه وسلم

" إذا مات ابن ادم انقطع عمله إلا من ثلاث، صدقة جارية أو علم ينتفع به أو ولد صالح يدعوا له "




الحمد لله رب العالمين والصلاة و السلام على المبعوث رحمة للعالمين و على آله و صحبه والتابعين و من تبعهم بإحسان إلى يوم الدين.







اخواني واخواتي أعضاء منتديات المشاغب الكرام يسرني أن أقدم لكم هذه الدورة المتواضعة وهي دورة فيجوال بيسك 6 للمبتدئين وإن شاء الله تستفيدوا منها ومن خبرتي العملية أيضا كما أتمنى ان تكون هذه الدورة أساساً تنطلقوا منه إلى عالم البرمجة الممتع جداااااااااااااااااااااا.




وقبل أن نبدأ الدورة أتمني من الله أن يكون هذا العمل خالصا لوجه الله الكريم وكل ما اطلبه ممن سيستفيدمن هذه الدورة هو الدعاء لي ولوالدي.





على جميع الاخوة والاخوات الذين يودون المشاركة في هذه الدورة

- تثبيت Visual Basic 6 و يفضل أن يكون الاصدار Enterprise Edition وذلك حتى لا تواجهنا مشكلة اختلاف الاصدارات .










||||||||||||||||||||||||||||||||||||||||||||||

||||||||||||||||||||||||||||||||||||||

|||||||||||||||||

||||






الدرس الأول



مقدمـــة



تاريخ الفيجوال بيسك








لغة البيسك المرئي VISUAL BASIC تعتبر فى الوقت الحالى من أسهل وأبسط وأقوى لغات البرمجة المستخدمة تحت بيئة النوافذ WINDOWS ورغم أن لغة الفيجوال بيسك سهلة وممتعة إلا أنك تستطيع كتابة برامج قوية باستخدامها.







فهي تمكن المبرمج من تطوير وإنتاج التطبيقات المختلفة في وقت قصير، وبكفاءة عمل عالية ،وتندرج لغة Visual Basic تحت قائمة لغات الأحداث المحركة Object Oriented Languages ، وهذا يعني أن ما يحدثة المستخدم من أفعال مثل ضغط أحدالمفاتيح أو نقر زر الماوس يؤدي إلي تنفيذ الدوال المخصصة لذلك وبذلك يكون مستخدم البرنامج هو المسؤل عن ما يحدث ومتى يحدث ؟







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



لقد قامت شركةمايكروسوفت بتصميم فيجوال بيسك بناءً على لغة البرمجة بيسك والمصممة خصيصاً للمبتدئين في البرمجة نظراً لسهولتها على عكس اللغات التي كانت متوفرةحينذاك مثل الكوبول وفورتران و لغة التجميع Assembly .





فأصل لغة فجوال بيسك هى لغة بيسك التي ظهرت في كلية دارتماوث Dartmaouth علي يد جون كيمني John Kemeny و توماس كيرتز Thomas Kurtz عام 1963م و قدأصبحت بسرعة فائقة من أشهر و أسهل لغات البرمجة بل لم تقف عند هذا فحسب فأصبحت كلغة تعليمية تدرٌس في المعاهد و الكليات و الجامعات و بدأ انتشارها في السبعينات

ثم أخذت هذه اللغة في التطور الدائم مع المحافظة على سهولةاستخدامها و بساطتها و كان الإصدار الأول لهذه اللغة عام 1991 م ثم كان الإصدار الثاني منها عام 1992 م ثم كان الإصدار الثالث عام 1993 ومن ذلك الوقت تعاقبت اصدارات كثيرةمنها ، الإصدار السادس (Visual Basic 6.0) وهو مع مجموعة من اصدارات شركة مايكروسوفت التي اسمته الان فيجوال ستديو 6.0 (Visual Studio 6.0) وبعد ذلك أصدرت مايكروسوفت اصدارها الجديد من لغة فيجوال بيسك هو الاصدار (Visual Basic .Net)




ويتوفر من هذة اللغة ثلاثة إصدارات مختلفةوهي:




1. Visual Basic Standard Edition



2. Visual Basic Professional Edition



3. Visual Basic Enterprise Edition








تمتاز Visual Basic بإمكانيات كثيرة نورد منهاما يلى :


امكانية كتابة برامج تعمل تحت بيئة ويندوز بسهولة وبسرعة.
سهولة تعديل وتطوير البرامج المكتوبة بها وسهولة تعلمها.
تتضمن مجموعة كبيرة من الكائنات objects
امكانية استخدام عددكبير من الايقونات والصور Icons & Pictures في البرامج
سهولة عمل ملف تنفيذي (Execution File).
سهولة التعامل مع قواعد البيانات المختلفة مثل Access - Oracle ... الخ.
قدرتها على التعامل مع الوسائط االمتعددة Multimedia.
تدعم التعامل مع العناصر البرمجية المستوردة Activex Controls.
سهولة ربطها مع التطبيقات الاخرى مثل ( ….Word-Excel ).
تدعم انشاء حزم البرامج (Setup Programms) بكفاءة عالية.
تدعم أدوات كثيرة تتعامل مع الشبكة الدولية Internet.
سهولة اكتشاف وتصحيح الأخطاء أثناء تشغيل البرنامج.
يمكن ان يشغل برامجها مستخدم واحد أو عدة مستخدمين في آن واحد.
البرمجة بالفيجوال بيسك تعتبر متعة حقيقية.


عناصر فيجوال بيسك:




تطورت لغة الفيجوال بيسك بشكل كبير حتى أصبحت تحتوي على أدوات معقدة ولكن ليس بالضرورة معرفة جميع الأدوات التي تأتي مع فيجوال بيسك لتطوير تطبيق ما ... ولكن يكتفي المبرمج بمعرفة الأدوات التي يحتاج لها فقط ولكن هناك بعض الأساسيات التي يجب معرفتها وإتقانها من قبل المبرمجين لكي يصبحوا مطوري برامج على الفيجوال بيسك.

عند تشغيلك لبرنامج الفيجوال بيسك فسوف ترى عدد من النوافذ والتي تعرف ببيئة التطوير المتكاملة للفيجوال بيسك VB IDE (integrated development environment) وكمبرمج فإنك سوف تمضي الوقت الكثير مع هذه الواجهة ، لذلك فاننا سنأخذ بعض الوقت للتعرف على القوائم وما تحتويه من أوامر وجميع الأدوات الاساسية والنوافذ الموجودة في بيئة التطوير الخاصة بفيجوال بيسك.






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








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






كيفية عمل Visual Basic




يمكن القول ان لغة Visual Basic لغةبرمجية ورسومية في آن واحد ( Graphical user interface )حيث انك تصمم واجهة برنامجك على الشكل الذي تريده بما في ذلك الصور والرسومات, وتضع بعض الازرار عليها مثلا , وتضع عناصر ادخال واخراج مثلا, ثم تقوم بكتابة كود لكل عنصر ليؤدي عمله كما يجب وعلى المنوال الذي تريده, ثم تجرب برنامجك وتصحح الاخطاء التي (قد) تتواجد فيه , فجل من لا يسهو , بعدها تأمر لغة فيجول بيسك بعمل ملف تنفيذي للبرنامج الذي صممته فينتجه على هيئة برنامج بامتداد أوتنسيق exe , بمعنى انه من نوع مايطلق عليه (تطبيق) عندها يمكن تنفيذ هذا التطبيق خارج بيئة برنامج Visual Basic (في اى جهاز كمبيوتر).






أساسيات البرمجة بــ Visual Basic




من الأهداف التي يسعى اليها المبرمج عند عمل تطبيق معين هي الوصول الى المنتج النهائي للبرنامج في أسرع وقت ممكن مع مراعاة الكفاءة والدقة وذلك حفاظاً على الوقت والمال. لذلك فإنه من المهم استخدام الإمكانيات المتوفرة في الفيجوال بيسك مثل أدوات التحكم المضمنةمع الفيجوال بيسك.




ومن المهم جداً أن يكون المبرمج متمكناً من جزئين مهمين في الفيجوال بيسك : قواعد البيانات و التقارير.



فالبرامج المصممة باستخدام الفيجوال بيسك تستخدم قواعد البيانات بنسبة 80% حيث ان معظم التطبيقات تحتاج الى حفظ بيانات وطباعتها. وسوف نقوم خلال هذه الدورة بشرح اكثر من طريقة للقيام بهذه المهام الا ان معظم المبرمجين يفضلون التعامل مع قواعد بيانات Access واستخدام مصمم التقارير المدمج مع فيجوال بيسك أو استخدام كريستال ريبورت Crystal Report




ومن الأمور المهمةللمبرمج المبتدئ هو امضاء بعض الوقت في معرفة الأساسيات للبرمجة بالفيجوال بيسك وعدم الذهاب مباشرة الى الأمور المتطورة في الفيجوال بيسك حيث أن90 % من البرامج تستخدم الأساسيات في الفيجوال بيسك ونادرا ما تحتاج إلى الأمور المتطورة.






وفقكم الله





:) :) :)
:p

[fedbh]

شكرا على هذه المعومات القيمة

[المنتبه]

بارك الله فيك
وأعتبرني أول طالب

[سليمان نت]

لا تطول علينا بالدرس الثاني

[مصعب بن عمير]

انا نفسي اتعلم فيجيوال بيسك من زمان

وفي انتظار باقي الدروس

شكرا جزيلا لك

[azharo]

بسم الله الرحمن الرحيم

شكرا لكم اخوتي لمروركم
واليكم


الدرس الثاني



شرح واجهة الفيجوال بيسك

مراحل كتابة البرنامج في Visual Basic
________________________________________




* لتشغيل Visual Basic :

افتح قائمة ابدأ Start ثم اختر البرامج Programs ثم من المجلد Microsoft Visual Basic 6.0

اضغط على Microsoft Visual Basic 6.0














http://bb.domaindlx.com/programmerazhar/ABSA/2/VB2_1.JPG













شرح واجهة الفيجوال بيسك





عند تشغيل الفيجوال بيسك لاول مرة يظهر مربع حوار Dialog Box كما بالصورة يسألك عن نوع المشروع الذي تريد تصميمه (يمكنك إزالة مربع الحوار من بدء التشغيل عن طريق تفعيل علامة الإختيار Don't Show this dialog in the future )، واذا اردت عرضه مجدداً افتح القائمة Tools ثم اختر Options ومنها اختر Environment ثم الخيار Prompt for project










http://bb.domaindlx.com/programmerazhar/ABSA/2/VB2_2.JPG



علامات التبيويب Tabs في أعلى الواجهة:
New : وتعني اختيار مشروع جديد

Existing : فتح مشاريع مخزنة مسبقاً .

Recent : قائمة المشاريع المستخدمة حديثاً والتي قمت بفتحها مرتبة حسب التاريخ







New يضم ما يلي (لاختيار نوع المشروع)

- Standard EXE وهو يقوم بإنشاء برنامج عادي حسب طلبك وتصميمك وقابل للتنفيذ Exe File.

- Activex EXE وهو أيضاً يقوم بإنشاء ملفاً له الامتداد ( DLL ) وهو ملف ذو برامج فرعيه مساعدة و هو لا يعمل بنفسه بل مع exe .

- Activex DLL وهو ينشئ ملفات لها امتداد EXE تعمل مع برامج إخرى لكي يعمل في شكل ( OLE ) .

- Activex control وهو يساعد على إنشاء ملف من نوع ( ocx ) و هي مهمة وتساعد على إحتواء واجهة مستخدم أو برامج فرعية .

- Activex Document DLL وهو يساعد على إنشاء ملف ذو امتداد ( DLL ) يقوم بتشغيل برامج على موقع في الانترنت .

- Activex Document exe يقوم بإنشاء ملفات تظهر على الانترنت .

- Add In وهو خاص بالفيجوال بيسك حيث يمكنك إضافة واجهة مع ما ذكر سابقاً خاصة بك .

- VB Application Wizard وهو معالج تلقائي في هذه اللغة يساعدك على إنشاء نوافذ عدة دون كتابة سطر واحد من النوع .

- ISS Aplication يقصد بـ ( ISS ) إختصار لكلمة ( Internet Information Server ) و يقوم بالتحضير لتصميم ( web class ) وهو ما يسميه المستخدم صفحات ( HTML ) .

- Data project تضع مشروعاً لقواعد بيانات وتهيئة في بيئة متكاملة من أدوات الربط وصنع التقارير دون الحاجة لفتح برامج أخرى .

- Vb wizard manager وتبدو مشابهة لمعالجات ( Microsoft ) يمكنك إستخدامه .

- DHTML Application تسهل عليك صنع صفحات ( HTML ) ديناميكية للإنترنت دون تعلم لغة Java .

- Vb Enterprise Edition controls وهي تساعد على وضع جميع الأدوات المستخدمة بكثرة لقواعد البيانات و الاتصال ومن ثم تطبيقها وهي للمحترفين .




من خيارات الشاشة الافتتاحية نختار Standard EXE ثم نضغط على فتح البرنامج Open


بعد فتح البرنامج تظهر الشاشة التالية وهي تمثل نوافذ بيئة فيجيوال بيسك



http://bb.domaindlx.com/programmerazhar/ABSA/2/VB2_3.JPG













- يحتوي شريط العنوان Title bar في النافذة الرئيسية على اسم المشروع Project الحالى مضافاً اليه بين الاقواس الوضع الحالى للبرنامج ويكون واحداً من هذه الاوضاع (Design-Run - Break)




النموذج (Form ) هو أهم جزء في المشروع فلا يمكن انشاء تطبيقات في فيجيوال بيسك دون استخدام النموذج.

ويسمى ايضاً إطار (Window) فمثلاً، النموذج Form1 المبين في الشكل السابق يدعى نموذج ويدعى إطار (Window) بذات الوقت. يطلق مصطلح النموذج، على النافذة التي أنشأتها في مرحلة التصميم، ويستخدم مصطلح الإطار (أو نافذة)، عند تنفيذ البرنامج. بكلام آخر، عند ذكر مصطلح النموذج، يكون المقصود مرحلة التصميم، وعند ذكر مصطلح الإطار أو النافذة، يكون المقصود مرحلة التنفيذ.

اذا لم يكن النموذج Form1 ظاهراً امامك فلاظهاره مرة اخرى :

- قم بتحديد هذا النموذج بالضغط عليه بالماوس مرة واحدة ثم اضغط على زر عرض شكل النموذج (View Object) الموضح في الصورة التالية

- او اضغط بالماوس ضغطتين متتاليتين على النموذج الموجود في نافذة المشروع Project Window




نافذة المشروع Project Window : تعتبر من الأدوات الهامة التي يقدمها فيجول بيسك، ويمكّنك من رؤية الملفات المختلفة الموجودة في المشروع. (تظهر اهمية هذه النافذة بشكل أفضل كلما زاد تعقيد المشروع).



اذا لم تكن نافذة المشروع Project Explorer ظاهرة امامك فلاظهارها مرة اخرى :

- اضغط على المفتاح Ctrl+R

- او اضغط على الايقونة التى تعرض نافذة المشروع من شريط الادوات Tool Bar

- او اختر Project Explorer من القائمة View لفيجول بيسك، فيظهر إطار المشروع كما هو مبين في الشكل.







http://bb.domaindlx.com/programmerazhar/ABSA/2/VB2_4.JPG





نافذة الخصائص Properties Window: تعرض جميع خصائص الكائن المختار سواء كان نافذة Form او اداة Control ويمكن تغيير هذه الخصائص في مرحلة التصميم Design Time او برمجياً اثناء كتابة الاكواد Run Time مثل التحكم بالالوان والخطوط وكل اداه لها خصائص تختلف عن الادوات الاخرى.


اذا لم تكن نافذة الخصائص ظاهرة امامك فلاظهارها مرة اخرى :

- اضغط على المفتاح F4

- او اضغط على الايقونة التى تعرض النافذة من شريط الادوات Tool Bar

- او قم باختيار Toolbox من القائمة View




http://bb.domaindlx.com/programmerazhar/ABSA/2/VB2_5.JPG




لإطار الخصائص Properties Window صفحتين هما: الصفحة Alphabetic والصفحة Categorized كما بالشكل، عند اختيار الصفحة Alphabetic، تُرتب الخصائص أبجدياً (باستثناء أهم خاصية وهي Name التي تظهر أولاً). بينما تظهر الخصائص مصنفة حسب مواضيعها، عند اختيار الصفحة Categorized.

صندوق الأدوات Tool Box : هو نافذة تحتوى على الأدوات الأساسية التى يتكون منها أى برنامج مصمم بفجيوال بيسك وكما نلاحظ في الصورة فإن هناك 21 اداة تحكم Control في مربع الأدوات يستخدمها المبرمج لتصميم واجهة المستخدم وهى كالتالي :

ملاحظة : من المهم معرفة اسماء هذه الادوات بالانجليزي لان البرمجة ستكون باللغة الانجليزية تستطيع التعرف بسهولة على مختلف الأدوات في صندوق الأدوات بوضع مؤشر الماوس فوق أي أداة بدون النقر عليها، ليظهر مستطيل أصفر يحمل بداخله اسم الكائن Control الذي تمثله هذا الأداة. فمثلاً عند وضع مؤشر الماوس فوق رمز زر الأمر دون النقر عليه، يظهر مستطيل أصفر يحمل الرسالة CommandButton داخله.






http://bb.domaindlx.com/programmerazhar/ABSA/2/VB2_6.JPG











- المؤشر Pointer هو ليس اداة وانما يستخدم في حالة التراجع عن اختيار اداة معينة.


- مربع التسمية Label وهو اداة تعرض عناوين.

- إدراج صورة Picture Box وهو اداة لعرض الصور ويستخدم كحاوية Container للأدوات الأخرى.

- مربع النص Text Box وهو اداة يستطيع المستخدم من خلالها ادخال قيم للبرنامج .

- الاطار Frame وهو اداة تستخدم كحاوية للأدوات الاخرى وكذلك لتزيين الشاشة.

- زر الاوامر Command Button اداة يؤدي النقر عليها الى تنفيذ كود معين.

- الزر Check Button يستخدم في حالة وجود عدة خيارات والمطلوب انتقاء خيار واحد او أكثر .

- الزر Option Button يستخدم في حالة وجود عدة خيارات والمطلوب انتقاء خيار واحد فقط منها.

- مربع التحرير والسرد Combo Box يسمح للمستخدم باختيار قيمة من قائمة منسدلة تشتمل على اختيارات محددة مسبقاً او ادخال قيمة جديدة.

- مربع السرد List Box يسمح للمستخدم باختيار قيمة من قائمة تشتمل على اختيارات محددة مسبقاً.

- شريط تمرير افقي Horizontal ScrollBar ويسمح باختيار قيمة بناءً على موضع الزر على الشريط.

- شريط تمرير رأسي Vertical ScrollBar ويسمح باختيار قيمة بناءً على موضع الزر على الشريط.

- مؤقت Timer يسمح بالقيام بمهام معينة بعد مرور وقت معين.

- مستعرض مشغلات Drive ListBox يسمح باختيار احد مشغلات الاقراص.

- مستعرض فهارس Directory ListBox يسمح باختيار احد الفهارس او المجلدات الفرعية.

- مستعرض ملفات File ListBox يسمح باختيار احد الملفات.

- شكل Shape يستخدم لرسم شكل هندسي على النافذة (الفورم).

- خط Line يستخدم لرسم خط على النافذة (الفورم).

- صورة Image مثل اداة إدراج الصورة الا انها تعرض صورا فقط وتستهلك موارد أقل من النظام.

- أداة ربط البيانات Data Control تربط بين قاعدة بيانات والبرنامج.

- أداة ربط وتضمين OLE تربط بين البرنامج وخادم OLE.






خطوات تصميم برنامج تطبيقي في فيجول بيسك :
1- التصميم المرئي للبرنامج Visual Implementation اى وضع (رسم) عناصر التحكم (الأدوات) Controls على النموذج Form.

2- ضبط خصائص Sitting Properties النماذج Forms والأدوات التى عليها Controls

3- كتابة الكود المرتبط بكل أداة Control.




لوضع أداة Control على النموذج Form اتبع الخطوات احدى الطرق التالية :

- انقر نقراً مزدوجاً على أى أداة Control في صندوق الأدوات. فيستجيب فيجول بيسك بوضع هذه الأداة Control في مركز النموذج.

- انقر نقرةً واحدة على أى أداة Control في صندوق الأدوات فيتم اختياره ، ثم انتقل الى النموذج Form فيكون شكل مؤشر الماوس كالاشارة (+)، قم برسم العنصر على النموذج بنفس الطريقة التى ترسم بها مربعا في برنامج الرسام.




تحريك الأدوات Controls الموجودة على النموذج Form :

- باستخدام الماوس :

1- اسحب الأداة Control إلى الموقع المطلوب بضغط زر الماوس الأيسر على أي مكان من الأداة.

2- اسحب وحرك مؤشر الماوس دون تحرير الزر الأيسر للفأرة.

3- حرر زر الماوس عند الوصول للموقع المناسب.



- باستخدام لوحة المفاتيح Keyboard :

1- قم باختيار وتحديد الأداة Control بالنقر علية نقرة واحدة بالماوس.

2- اضغط على المفتاح Ctrl مع أحد مفاتيح الأسهم فيتم تحريك العنصر بالاتجاه المطلوب.




تغيير حجم الأدوات Controls الموجودة على النموذج Form :

- باستخدام الماوس :

1- قم باختيار وتحديد الأداة Control بالنقر عليها نقرة واحدة بالماوس فيظهر ثمانية مربعات صغيرة تحيط بالأداة تسمى بمربعات تغيير الحجم.

2- ثم ضع مؤشر الماوس على احد هذه المربعات وانقر دون ان تحرر زر الماوس.

3- حرك الماوس في اتجاه يمينا او يسارا لتغيير العرض او الى اعلى او اسفل لتغيير الارتفاع.






http://bb.domaindlx.com/programmerazhar/ABSA/2/VB2_7.JPG









- باستخدام لوحة المفاتيح Keyboard :

1- قم باختيار وتحديد الأداة Control بالنقر عليها نقرة واحدة بالماوس.

2- اضغط على المفتاح Shift مع أحد مفاتيح الأسهم لتغيير الأبعاد.


ضبط الخصائص :


ويعنى وضع المواصفات التى تتحكم في مظهر وسلوك الأدوات Controls أثناء تشغيل البرنامج، ويتم ضبط الخصائص وقت التصميم عن طريق نافذة الخصائص Properties Window ، ويمكن ضبطها برمجياً أثناء كتابة الأكواد.



الأوضاع يمر بها اى مشروع في فيجيوال بيسك هي :

1- وضع التصميم ModeDesign وفيه يتم تصميم البرنامج

2- وضع التنفيذ Run Mode وفيه يتم تنفيذ البرنامج

3- وضع التوقف المؤقت Break Mode وفيه يتم التوقف عن التنفيذ نظراً لوقوع خطأ ما وغالبا نستفيد من هذا الوضع في تدقيق واكتشاف الاخطاء.






ملاحظات :

- صندوق الأدوات يحتوي على الأدوات الاساسية التى يستخدمها اى مبرمج وهناك المزيد من الادوات تأتي مع برنامج Visual Basic كما يمكن الحصول على ادوات اضافية من شركات اخري، وسنتعلم كيفية اضافة هذه الادوات الى مشروعك.

- سنتفق على تسمية البرنامج الذي سنصممه بفجيوال بيسك اسم المشروع Project لانه سيتكون من العديد من الملفات المتنوعة التى سنتعرف عليها لاحقاً.

- كل أداة بفجيوال بيسك تسمى Object وكل اداة عبارة عن كود برمجي مستقل لاداء مهمة معينة.

- يمكنك في فيجول بيسك نقل شتى الإطارات إلى أي موقع ضمن سطح مكتب فيجول بيسك وذلك بسحب عناوين هذه الإطارات بواسطة الماوس.







نشاط :



- قم بمحاولة لرسم الادوات Controls الاساسية على فورم بعدة طرق للتعرف عليها.

- قم بتحريك هذه الادوات من مكانها ثم قم بتغيير حجمها.

- حاول التعرف على خصائص كل اداة.

- اغلق جميع النوافذ (نافذة المشروع – النموذج Form – نافذة الخصائص- صندوق الادوات – نافذة تخطيط النموذج) واعد فتحها بأكثر من طريقة.





سنقوم بإذن الله تعالى في الدرس القادم بتصميم أول برنامج بلغة Visual Basic للتعرف على بعض الأدوات Controls وخصائصها.













وفقكم الله

اختكم في الله

أزهارو




:o :o :o
:o

[مصعب بن عمير]

شكرااااااااااااااااااا لك اختى الكريمة
بارك الله فيكي على هذا الجهد
وانا شايف انه راح تكون الدورة ممتعة ومفيدة اذا كانت كل الدروس بهذه البساطة والوضوح
وانا متابع اكتر من دورة فيجوال على النت
لكن مش بهذا الاسلوب والجمال

بارك الله فيكي بارك الله فيكي بارك الله فيكي
بارك الله فيكي بارك الله فيكي
بارك الله فيكي

ولي رجاء من ادارة منتديات المشاغب ان تتكرم وتثبت الموضوع لاهميته

[king of jed]

مشكوره يا قمري

[مصعب بن عمير]

الاستاذة الكريمة ازهارو

نحن في انتظار الدرس الثالث

اعانك الله وجزاكي كل خير

[ipc]

شكرا عزيزي

ونحن بانتظار درسك القادم

[سليمان نت]

شكرااااااااااااااااااا لك اختى الكريمة
بارك الله فيكي على هذا الجهد
وانا شايف انه راح تكون الدورة ممتعة ومفيدة اذا كانت كل الدروس بهذه البساطة والوضوح
وانا متابع اكتر من دورة فيجوال على النت
لكن مش بهذا الاسلوب والجمال

بارك الله فيكي بارك الله فيكي بارك الله فيكي
بارك الله فيكي بارك الله فيكي
بارك الله فيكي

ولي رجاء من ادارة منتديات المشاغب ان تتكرم وتثبت الموضوع لاهميته

[azharo]

مشكورين اخوتي على مروركم

وجاري تجهيز الدرس الثالث

يارب تكونوا استفدتم من الدروس

[syym_1]

مشكورة اختي وبارك الله فيكي على هذه الدروس القيمة

وجزاكي الله عنا كل خير


ونحن ان شاء الله منتظرين باقية الدروس

[سلوان]

مشكورة اختي
و منتظرين باقي الدروس

[ahmed#2006]

الف شكر مجهود عظيم تشكر علية

[ahmed#2006]

بس عندى رجاء يايريت باقى الشرح فى نفس الموضوع الية مشتركين فية وياريت المشرفين ينقلوة الى قسم البرامج المشروحة

[azharo]

بسم الله الرحمن الرحيم



الدرس الثالث




سنكتب في هذا الدرس أول برنامج باستخدام الفيجول بيسك.


ذكرت في الدرس السابق ان مرحلة كتابة البرنامج في فيجول بيسك تمر بثلاث خطوت هي :


 خطوة التصميم المرئي للبرنامج وتسمى بالتمثيل المرئي Visual Implementation.


 ضبط الخصائص Setting the Properties على مستوى المشروع Project والفورمز Forms و الادوات Controls


 خطوة كتابة نص البرنامج Code Programming.




يتم تصميم البرنامج خلال الخطوة الأولى باستخدام الأدوات التي تأتي مع برنامج فيجيول بيسك.


لا يلزمنا خلال مرحلة البرمجة المرئية كتابة أي كود برمجي، وكل ما عليك معرفته هو كيف تستخدم الأدوات البرمجية التي تأتي مع فيجول بيسك. وسوف تلاحظ أن عملية التصميم المرئي فيها قدر كبير من المتعة وتعتمد بكثرة على استخدام الماوس وهناك لمسات تحتاج الى الدقة هنا نستخدم لوحة المفاتيح .




برنامج الترحيب


سنكتب برنامجاً يدعى برنامج الترحيب وسنتعرف من خلاله على :


 بعض الادوات الموجودة في ToolBox وهي Label- Command Button - Timer


 كيفية ضبط بعض خصائص هذه الادوات


 كتابة بعض الاكواد




البرنامج سيقوم باظهار رسالة ترحيب عند الضغط على زر معين ثم سيقوم بمحو هذه الرسالة عند الضغط على زر آخر كما ان البرنامج سيعرض الوقت والتاريخ تلقائيا بمجرد تشغيله .


وينتهي تنفيذ برنامج الترحيب عند النقر على الزر خروج.




ملاحظة : برنامج الترحيب عبارة عن برنامج بالغ البساطة، لكن مع ذلك يتوجب عليك كتابته بنفسك، لأنه يمثل برنامجاً نموذجياً في فيجول بيسك. وفي الواقع، حال تعلمك كيفية كتابة برنامج الترحيب بنفسك، تستطيع فهم ما هي لغة فيجول بيسك، طبعاً هنالك كم هائل من المعلومات الأخرى في فيجول بيسك لا بد لك من معرفتها، إلا أن كتابة هذا البرنامج بنفسك يعني أنك تعرفت على أساسيات فيجول بيسك.




إنشاء دليل حفظ الملفات :


قبل البدء بتصميم البرنامج، قم بانشاء مجلداً ليتم تخزين جميع البرامج التى سنصممها خلال الدورة .


ثم قم بعمل مجلد مستقل لكل برنامج ومن المستحسن ان يتم تسمية هذا المجلد باسم يدل على البرنامج المخزن به وكذلك عند تسمية كل ملف يفضل ان تختار اسم ليدل على محتويات او مهمة هذا الملف.


ليكن المجلد الرئيسي هو c:\vb6


وداخل هذا المجلد قم بانشاء مجلد آخر باسم welcome


فيصبح مسار البرنامج هو c:\vb6\ welcome




 قم بتشغيل برنامج visual Basic 6، إذا رأيت مربع الحوار الافتتاحي Dialog Box الذي يحتوي على نوع المشروع الذي تريد تصميمه، فاختر منه Standard Exe


أو


 اختر البند New Project من القائمة File، فيستجيب فيجول بيسك بإظهار مربع الحوار New Project اختر ايضا منه Standard Exe


 ثم اضغط على الزر OK لمربع الحوار New Project.




يظهر عند ذلك نموذج Form1 فارغ سنستخدمه مع أدوات لغة فيجول بيسك المتنوعة لتصميم واجهة برنامج الترحيب.




حفظ المشروع الجديد :


رغم أننا لم نجر أي تعديلات بعد على النموذج الفارغ، لكن يتوجب عليك حفظ المشروع في هذه المرحلة المبكرة من التصميم. يؤدي حفظ المشروع إلى تخزين ملفين:


 ملف المشروع Project File، ويمتلك الامتداد vbp. يحتوي هذا الملف على المعلومات التي يستخدمها فيجول بيسك لبناء المشروع.


 ملف النموذج Form File، ويمتلك الامتداد frm. ويحتوي على معلومات تتعلق بالنموذج نفسه.




استخدم الآن الخطوات التالية لحفظ الملفين:


- welcome.vbp (ملف المشروع)،


- welcome.frm (ملف النموذج).




هناك طريقتين للحفظ :


الطريقة الاولى :


اضغط على زر حفظ الموجود في شريط الادوات في واجهة برنامج الفيجيوال



http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_1.JPG





ومن ثم سيظهر لك صندوق حوار يسألك عن اسم الفورم





http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_2.JPG





اختر الدليل c:\vb6\ welcome من أجل حفظ الملف فيه. ثم قم بتغيير الاسم الافتراضي للنموذج من Form1.frm إلى welcome.frm




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_3.JPG






ومن ثم سيظهر لك صندوق حوار يسألك عن اسم المشروع قم بتغيير الاسم الافتراضي للمشروع من Project1.vbp إلى welcome. vbp




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_4.JPG






الطريقة الثانية :


من نافذة المشروع اضغط بالزر اليمين على Form1، ثم اختر Save Form1 As .




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_5.jpg






او اضغط على عنوان الإطار Form1 (ليتم اختياره) ، ثم اختر Save Form1 As من القائمة File لفيجول بيسك.




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_6.jpg






يستجيب فيجول بيسك بإظهار مربع الحوار Save File As كما سبق.




لحفظ ملف المشروع:


اختر Save Project As من القائمة File لفيجول بيسك كما في الصورة السابقة.


يستجيب فيجول بيسك بإظهار مربع الحوار Save Project As.




هناك طريقة سريعة أخرى لحفظ آخر التعديلات التي أجريتها على النموذج النشط الحالي، اضغط فقط المفتاحين Ctrl+S سوياً، ليحفظ فيجول بيسك تعديلات النموذج الحالي فقط، وليس كامل ملفات المشروع.




قم بتغيير اسم النموذج واسم المشروع كما في الطريقة الأولى




لاحظ نافذة المشروع Project Window بعد تغيير اسم النموذج واسم المشروع




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_7.jpg




ملاحظة :


 لا تستخدم الاسم الافتراضي الذي يقدمه فيجول بيسك عند حفظ نموذج ما. بل احفظ النموذج باسم مناسب للتطبيق الذي تصممه. لاحظ مثلاً، أننا استخدمنا الاسم welcome.frm كاسم لنموذج برنامج الترحيب.




 لا تستخدم الاسم الافتراضي الذي يعطيه فيجول بيسك للمشروع عند حفظ ملف المشروع. ولكن بدلاً من ذلك أطلق على المشروع اسماً يتناسب مع التطبيق الذي تصممه. لاحظ مثلاً أننا أطلقنا على مشروع برنامج الترحيب تسمية welcome.vbp.




قم الآن برسم العناصر اللازمة للبرنامج بحيث يصبح شكل النموذج كالتالي :


يمكن عمل نقر مزدوج على أي أداة Control في مربع الأدوات، فيستجيب فيجول بيسك بوضع الأداة في مركز النموذج Form ، بعد ذلك قم بتحريكها بالطرق التى ذكرتها في الدرس السابق.




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_8.jpg






سنقوم بعمل بعض التنسيقات على النموذج وما عليه من عناصر Controls وتغيير خصائصها لتصبح كالتالي (هذه هي المرحلة الثانية – ضبط الخصائص):




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_9.jpg






اضغط بالماوس مرة واحدة على Command1 ثم اضغط مفتاح F4


فتظهر نافذة الخصائص لهذا العنصر كما بالشكل التالي :





http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_10.jpg






سنقوم بضبط بعض خصائص الزر كما بالصورة:




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_11.jpg






- الخاصية Name هي اسم الزر وسنستخدمه في كتابة الكود البرمجي لذا يجب ان يكون الاسم دالاً على مهمة هذا الزر وهي عرض رسالة الترحيب ويجب ان يكون الاسم باللغة الانجليزية وعدم استخدام المسافات في الاسم او الاشارات الخاصة فقط مسموح باستخدام ( _ )


- الخاصية Caption هي الكلمة التى ستظهر على الزر للمستخدم يمكن كتابتها بالعربية او الانجليزية


- الخاصية Font لتغيير نوع الخط وحجمه



قم بتغيير باقي اسماء الـ Command Buttons كالتالى


اسم زر مسح : Erase_Cmd


اسم زر خروج : Exit_Cmd





قم بتغيير خاصية Caption لجميع Command Buttons كما بالشاشة السابقة




تغيير الخاصية Caption للزر خروج (تغيير العنوان) :


العنوان الافتراضي الذي يعطيه فيجول بيسك لزر الأمر هو Command1. وبما أن وظيفة زر الأمر هذا الخروج من البرنامج، فأنسب عنوان له هو خروج:


غير الخاصية Caption لزر الأمر Exit_Cmd من Command1 إلى &خروج أو Exit&.


للحصول على الرمز (&)، اضغط المفتاحين Shift+7 على لوحة المفاتيح. عند استخدام الرمز & (مثل استخدامه قبل الحرف خ في الخطوة السابقة)، يتسبب بقيام فيجول بيسك بوضع خط تحت الحرف الذي يليه (الحرف الذي يأتي بعد الرمز &)، ولاحظ وجود خط تحت الحرف خ في عنوان الزر خروج.


والآن، عند تنفيذ البرنامج، يؤدي الضغط على المفتاحين (خ +Alt) أو (Alt+E) من لوحة المفاتيح إلى نفس تأثير النقر على الزر خروج.





ملاحظة :


يُنصح دائماً باستخدام الرمز & قبل أحد حروف عنوان زر ما وأثناء التنفيذ يصبح المستخدم قادراً، إما على نقر الزر بالفأرة أو ضغط المفتاح Alt إضافة لضغط الحرف المحدد (ضغط المفتاح Alt والمفتاح الذي تحته خط). والذي يمثل حرف وصول سريع.




تبديل خصائص الخط (Font) للزر خروج


 انقر على الخلية الواقعة يمين الخاصية Font التابعة للزر Exit_Cmd. كما تلاحظ تحوي الخلية على مربع داخله ثلاث نقاط، يؤدي نقره إلى فتح مربع حوار تحديد الخطوط، يمكّنك من اختيار قيم معينة بواسطته.


 انقر على الزر ذى الثلاث نقط الموجود جانب الخاصية Font للزر Exit_Cmd.


يستجيب فيجول بيسك بإظهار مربع الحوار Font.


 غير نوع الخط إلى خط مناسب.


 غير حجم الخط إلى حجم مناسب.


 انقر على الزر Ok في مربع الحوار Font.


 ألقِ نظرة على الزر خروج الآن، ولاحظ أن العنوان مكتوب بالخط الذي حددته مسبقاً بواسطة مربع الحوار Font.





ملاحظة :


لعل إحدى المزايا الرئيسية لفيجول بيسك، أنه يمكّنك من رؤية نتائج البرمجة المرئية لحظياً. قم بتجربة خيارات مختلفة (كأن تجرب أنواع خطوط مختلفة، وأحجام وألوان مختلفة) حتى تقتنع بالنتائج.




 احفظ العمل المنجز حتى الآن: اختر Save Project من القائمة File لفيجول بيسك.





الآن سنقوم بتغيير الخصائص التالية لـ Labels :



- Alignment : وتعني تنسيق الكتابة ولها ثلاث قيم (يسار – وسط - يمين)


- Appearance : اى المظهر وقد يكون مستوى او ثلاثى الابعاد وهذه الخاصية مرتبط تأثيرها بالخاصية Borderstyle


- Borderstyle : مع اطار او بدون اطار


فإذا كانت قيمة Borderstyle 0-None)) فلن يظهر تأثير لخاصية Appearance


- AutoSize : تعني ضبط حجم Label حسب النص المكتوب فيه تلقائياً


- Backcolor : لون الخلفية وهذه الخاصية مرتبط تأثيرها بالخاصية BackStyle


- BackStyle : الخلفية شفافة او بها لون معين


فإذا كانت قيمة BackStyle 0-Trancparent)) فلن يظهر تأثير لخاصية Backcolor


- الخاصية Caption هي الكلمة التى ستظهر على Label للمستخدم يمكن كتابتها بالعربية او الانجليزية


- الخاصية Font لتغيير نوع الخط وحجمه


- الخاصية ForeColor لتغيير لون خط الكتابة




الان سنغير قيم خصائص Label1 (التاريخ) و Label2 (الساعة) كما بالصورة :


لا داعي لتغيير خاصية العنوان هنا حيث اننا لن نستخدم هذين العنصرين في البرمجة بل مجرد عناوين على الشاشة.



http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_12.jpg






لتغيير اللون انظر الصورة





http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_19.jpg






الان سنغير قيم خصائص Label3 كما بالصورة :


انتبه لتغيير خاصية Name : الى Date_Lab




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_13.jpg










الان سنغير قيم خصائص Label4 كما بالصورة :


انتبه لتغيير خاصية Name : الى Time_Lab





http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_14.jpg








الان سنغير قيم خصائص Label5 كما بالصورة :


انتبه لتغيير خاصية Name : الى welcome_Lab





http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_15.jpg





الان سنغير قيم خصائص Timer1 :


وظيفة Timer هو تنفيذ كود معين خلال زمن يتم تعيينه في هذا المؤقت





http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_26.jpg







الخاصية Enabled=True تعني أن المؤقت يمكن استخدامه وإذا أردنا ايقاف عمله نغير القيمة الى False وهي القيمة الافتراضية له.


الخاصية Interval = 1000 تعني نفذ الكود الموجود بداخل هذا المؤقت كل ثانية.





الان سنغير قيم خصائص Form1 :


 اضغط بالزر اليسار للماوس على أى مكان فارغ على الفورم Form1


 ثم اضغط مفتاح F4 لاظهار شاشة الخصائص


 قم بتغيير خصائص الفورم كما بالصورة التالية





http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_16.jpg







الخاصية Caption ما هي إلا إحدى خصائص النموذج، فكما تشاهد من إطار الخصائص Properties Window، فإن النموذج يمتلك الكثير من الخصائص الأخرى. ولفهم معنى الخاصية لا بد لك من فهم كيفية تعامل فيجول بيسك مع الكائنات Objects مثل النماذج Forms وأزرار الأوامر Command Buttons وأشرطة التمرير Scroll bars ومربعات الاختيار Check Boxes . . . الخ.


تُعرف خصائص الكائن (Object) كيف يبدو هذا الكائن وكيف يتصرف فمثلاً النموذج عبارة عن كائن تحدد الخاصية Caption للنموذج النص الذي يظهر في شريط عنوانه.





ملاحظة :


لا تخلط بين الخاصية Caption والخاصية Name للنموذج تستخدم الخاصية Caption لإظهار عنوان ما، في شريط عنوان النموذج. أما الخاصية Name فتستخدم لإسناد اسم برمجي خاص بالنموذج نفسه. مع أن فيجول بيسك يفترض القيمة Form1 لكلتا الخاصيتين عند إنشاء نموذج جديد فارغ.


تبديل الخاصية RightToLeft للنموذج (تعريب النموذج)


يمكّنك فيجول بيسك، من إنشاء برامج عربية المظهر والمضمون، بشرط تطوير برنامجك في نظام تشغيل يدعم اللغة العربية.


وما عليك سوى تغيير قيمة الخاصية RightToLeft من القيمة False إلى القيمة True، لأي كائن من كائنات فيجول بيسك، حتى يظهر الكائن بشكل مقبول للمستخدم العربي.




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_20.jpg








الآن بعد أن أنهينا المرحلتين الاولى (التصميم المرئي) والثانية (ضبط الخصائص)





يمكننا ان نقوم بعمل تنفيذ للبرنامج باحدى الطرق التالية :


 اضغط على زر Run الموجود في شريط الادوات في واجهة برنامج الفيجيوال


 من القائمة Run في الفيجيوال اختر Start


 اضغط على المفتاح F5




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_17.JPG _____ http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_18.jpg








لا تنسى ان تقوم بعمل حفظ للمشروع كلما أدخلت بعض التعديلات





ربط الكائنات بنصوص برمجية


باعتبار أننا وضعنا الكائنات في النموذج وحددنا خصائصها، فقد انتهى جزء التصميم المرئي (البرمجة المرئية Visual Programming).


الآن، حان الوقت لكتابة النصوص البرمجية لهذه الكائنات.




تعتبر لغة فيجول بيسك لغة مسيرة بالأحداث Event-Driven Programming Language هذا يعني أن نص البرنامج ينفذ استجابة لحدث ما فمثلاً يؤدي نقر الزر خروج أثناء تنفيذ برنامج الترحيب إلى توليد الحدث Click آلياً، وبالتالي ينفذ الكود المرافق لحادثة نقر الزر خروج آلياً أيضاً.


فما عليك إلا كتابة الكود المناسب وربطه بالكائن Control واختيار الحدث المناسب.


هل يبدو هذا الأمر معقداً؟ بالواقع إنه سهل جداً، إذاً لنبدأ بربط الكود البرمجي بالحدث Click للزر خروج.





اتبع الخطوات التالية لربط نص برمجي بالزر Exit_Cmd:


انقر نقراً مزدوجاً على الزر Exit_Cmd.


يستجيب فيجول بيسك بإظهار إطار نص البرنامج (Code Window) (سنكتب برنامجاً في هذا الإطار)




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_21.jpg










يُسهّل فيجول بيسك إلى حد كبير التعرف على الكود الظاهر حالياً في إطار نص البرنامج.


فكما يتبين من الشكل السابق، يُظهر مربع السرد اليساري اسم الكائن cmd_Exit، ويُظهر مربع السرد اليميني اسم الحدث Click.


كما يظهر في الشكل أيضاً، فقد أضاف فيجول بيسك مسبقاً سطري كود يمثلان بداية ونهاية الإجراء الخاص بالكائن المحدد والحدث الذي تم اختياره، في إطار نص البرنامج:





Private Sub Exit_Cmd_Click()



End Sub


سنكتب الآن نص البرنامج ضمن هذين السطرين.



السطر الأول من النص (الذي كتبه عنك فيجول بيسك) يبدأ بالكلمتين Private Sub.


الكلمة Sub عبارة عن كلمة محجوزة في لغة فيجول بيسك، تدل على أن الإجراء Procedure يبدأ من هنا.


والإجراء Procedure عبارة عن كود برنامج مخصص لحدث معين. اسم الإجراء في مثالنا هو Exit_Cmd_Click ().


السطر الأخير من النص، كُتب أيضاً من قبل لغة فيجول بيسك. وتشير العبارة End Sub لنهاية الإجراء.


اسم الإجراء


اسم الإجراء هو Exit_Cmd_Click ما السبب الذي دفع فيجول بيسك إلى تعيين اسم الإجراء بنفسه؟




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


يمثل القسم الثاني من اسم الإجراء نوع الحدث الناجم (الحدث Click).


أيضاً ما الذي جعل فيجول بيسك يحدد هذا الاسم (Click) ؟


السبب طبعاً أنها تُمثل الحدث التي ترغب بكتابة برنامج لها (يظهر هذا الحدث كقيمة افتراضية Default لأي زر ) ويمكن تغييره بعد ذلك.



لاحظ أن القسمين الأول والثاني من اسم الإجراء يُفصلان عن بعضهما برمز الخط التحتي ( _ )، وبذلك يصبح اسم الإجراء كالتالي: Exit_Cmd_Click().


ولاحظ أيضاً أن آخر رمزين في اسم الإجراء هما القوسين ().





كود برنامج الإجراء Exit_Cmd_Click()


ما هو الكود الذي يتوجب عليك كتابته في الإجراء Exit_Cmd_Click()؟ باعتبار أن هذا الإجراء يُنفذ عند نقر الزر خروج (إنهاء البرنامج)، فالكود الواجب عليك كتابته ضمن هذا الإجراء يجب أن يتسبب بإنهاء البرنامج. تُستخدم العبارة End لإنهاء البرنامج، وبالتالي فكود البرنامج اللازم كتابته ما هو إلا العبارة End فقط.


يُفترض أن يبدو الإجراء بعد كتابة هذه العبارة بالشكل التالي:






Private Sub Exit_Cmd_Click()




End





End Sub

















هذا كل ما في الأمر، هكذا نكون قد ربطنا الإجراءExit_Cmd_Click() بكود البرنامج المناسب.





تنفيذ برنامج الترحيب


رغم أنك لم تنته بعد من ربط باقي الكائنات بنصوصها البرمجية، لكن هذا لا يمنع من تنفيذ برنامج الترحيب ورؤية كيف يعمل كود البرنامج الذي ربطناه بالزر خروج.




 احفظ المشروع باختيار Save Project من القائمة File.


 اضغط مفتاح F5 لتنفيذ البرنامج.


 تستطيع النقر على الزر إظهار الترحيب أو على الزر مسح، لكن لن يحدث شيء، والسبب طبعاً أننا لم نربط بعد هذين الزرين بأي نص برمجي.


 انقر الآن الزر خروج، فينفذ الإجراء Exit_Cmd_Click() استجابة لحادثة النقر، وباعتبار أن نص هذا الإجراء يحوي العبارة End، فسيؤدي تنفيذه إلى إنهاء عمل برنامج الترحيب.





اتبع الخطوات التالية لربط الإجراء Exit_Cmd_Click() بالمزيد من النص البرمجي:


 انقر نقراً مزدوجاً على الزر Exit_Cmd_Click().


يستجيب فيجول بيسك بإظهار Exit_Cmd_Click() جاهزاً للتعديل.


 أضف العبارة Beep قبل العبارة End كما يلي:






Private Sub Exit_Cmd_Click()



Beep


End


End Sub

















 احفظ العمل المنجز.


 نفّذ برنامج الترحيب بالضغط على F5.


تتسبب العبارة Beep بإصدار رنين من قبل الكمبيوتر. وبالتالي يؤدي نقر الزر خروج إلى إصدار صوت رنين، ثم إنهاء برنامج الترحيب.


 انقر الزر خروج وتحقق من أن البرنامج أصدر رنيناً، ثم أنهى نفسه.





ربط الزر إظهار الترحيب بكود البرنامج المناسب


اتبع الخطوات التالية لربط الزر إظهار الترحيب بنص برنامج:


 أظهر النموذج،


 ثم انقر نقراً مزدوجاً على الزر إظهار الترحيب، (يمكن اظهار النموذج باختيار Project Explorer من القائمة View،


 ثم انقر البند Welcome_Frm في إطار المشروع Project،


 ثم انقر الرمز View Object الذي يظهر كثاني رمز على اليسار عند قمة إطار المشروع).



يستجيب فيجول بيسك بعد النقر المزدوج على الزر إظهار الترحيب بإظهار الإجراء Display_Cmd_Click() مع سطري البرنامج التاليين:






Private Sub Display_Cmd_Click()



End Sub




















يا ترى ما هو نص البرنامج الواجب ربطه بهذا الإجراء؟ يعتمد هذا على ما سيحصل عند نقر الزر إظهار الترحيب.


ففي مثالنا هذا يؤدي النقر على هذا الزر الى إظهار رسالة ترحيب في الاداة welcome_Lab.


 أدخل الكود التالي ضمن الإجراء Display_Cmd _Click():


يفترض أن يبدو الإجراء كما يلي عند الانتهاء:


لاحظ اننا نفصل بين اسم الكائن والخاصية التى سنقوم بتغييرها بنقطة (.) كما انه يجب وضع القيمة النصية التى سيتم اسنادها لخاصية Caption بين حاصرتين كما بالشكل (" ")





http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_24.jpg







ربط الزر مسح بكود برنامج مناسب :


اتبع الخطوات التالية لربط الزر مسح بنص برنامج الحدث Click:


 أظهر النموذج،


 وانقر نقراً مزدوجاً على الزر مسح.


يستجيب فيجول بيسك للنقر المزدوج على الزر مسح، بإظهار إطار نص البرنامج Code Window عند الإجراء Erase_Cmd _Click() وجاهزاً للتعديل.


يفترض أن يقوم هذا الإجراء بمسح محتويات مربع النص. أي بمعنى آخر يجب تحويل قيمة الخاصية Caption لمربع النص، إلى سلسلة صفرية (فراغ "")، يمكن إنجاز ذلك بإضافة العبارة التالية إلى الإجراء Erase_Cmd _Click()





http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_25.jpg







إضافة المزيد إلى نص الإجراء Display_Cmd _Click () و الاجراء Erase_Cmd _Click


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




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_29.jpg





وهذا الكود الذي سنضيفه للتحكم بزر مسح الترحيب





http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_30.jpg








ملاحظة :


الكود باللون الاخضر هو عبارة عن جملة ملاحظات ولا يتم تنفيذها من قبل الفيجيوال بيسك فأحياناً يحتاج المبرمج الى وضع بعض الملاحظات التوضيحية بين الأسطر للتذكير بأشياء مهمة أو للتوثيق. (ويستخدم الرمز ( ' ) امام سطر الملاحظات)




 احفظ العمل المنجز باختيار Save Project من القائمة File لفيجول بيسك.




الآن سنقوم ببرمجة المؤقت وربطه بالكود المناسب وذلك لعرض الساعة والتاريخ


 قم بالنقر مرتين على المؤقت فيظهر الاجراء التالي – قم بكتابة الكود كما موضح بالشكل





http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_27.jpg





ملاحظة :


عند تنفيذ البرنامج لن يظهر المؤقت على الشاشة حيث انه يعمل في الخفاء.


يجب كتابة صيغة التاريخ والوقت كما هو موضح بالشكل السابق وهذا يسمى في لغات البرمجة (Syntax)





هناك عدة اشكال لظهور التاريخ والوقت يمكن استخدام احداها وهي كالتالي :



 Long Date


 Medium Date


 Short Date





 Long Time


 Medium Time


 Short Time





 قم بتغيير شكل التاريخ والوقت ونفذ البرنامج في كل مرة لترى الفرق بينهم.

 اكتمل برنامج الترحيب الآن. قم بتنفيذه بالضغط المفتاح F5





ملاحظة :


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


لهذا كن حكيماً، واجعل عملية حفظ العمل قبل تنفيذه قانوناً تسير عليه. والأمر جداً بسيط، فكما ذكرت يقع رمز حفظ المشروع Save Project على شريط الأدوات. ويكفي نقره لحفظ العمل عند المرحلة الراهنة.




انقر الزر إظهار الترحيب وأيضاً الزر مسح وذلك لإظهار رسالة الترحيب ثم مسحها.


تستطيع استخدام المفاتيح أ+Alt و م+Alt للحصول على نفس الاستجابة عند نقر الزر إظهار الترحيب وعند نقر الزر مسح. (طبعاً، بسبب وجود خط تحت الحرف ا في عنوان الزر إظهار الترحيب، وخط تحت الحرف م في عنوان الزر مسح).


يمكن إنهاء البرنامج بنقر الزر خروج، أو بضغط المفتاحين خ+Alt على لوحة المفاتيح.


وهذا هو الشكل النهائي بعد تنفيذ البرنامج والضغط على زر اظهار الترحيب.




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_28.jpg








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


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


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


لذا يجب تحويل برنامج الترحيب إلى ملف تنفيذي welcome.exe كالتالي :


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




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_22.jpg









يستجيب فيجول بيسك بإظهار مربع الحوار Make Project.


استخدم مربع الحوار لحفظ الملف welcome.exe في دليل العمل c:\vb6\ welcome.


ثم اضغط زر OK.




http://bb.domaindlx.com/programmerazhar/ABSA/3/VB3_23.jpg






يستجيب فيجول بيسك بحفظ الملف welcome.exe في دليل العمل c:\vb6\ welcome.


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




قمنا في هذا الدرس بكتابة أول برنامج بلغة Visual Basic فتعلمت الخطوات اللازمة لكتابة أي برنامج، وهما خطوة البرمجة المرئية Visual Programming Step وخطوة ضبط الخصائص Setting the Properties Step وخطوة كتابة نص البرنامج Code Programming Step. يضع المبرمج الكائنات Objects في النموذج ويسند خصائصها بالقيم المناسبة أثناء خطوة البرمجة المرئية. أما فى خطوة كتابة النص Code Programming، فيتم انتقاء الإجراء المرافق لكائن ما باختيار الكائن والحدث ثم يكتب كود البرنامج المناسب فى هذا الإجراء.





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







أرجو ان يكون الدرس والشرح بسيطاً وواضحاً ومفهوماً


وفي انتظار استفساراتكم واسئلتكم وملاحظاتكم






وفقكم الله





أختكم في الله


أزهارو

[N I N J A]

جزاك الله خيراا على هذا الشرح الاكثر من رائع

[azharo]

مشكور اخي N I N J A لردك الجميل

[cableguy_mcm]

بارك الله فيك يا اختى

دروس اكثر من رائعة

استمرى على اطريق التقدم و فقك الله

[sultan2]

ما شاء الله أختي الكريمه

شرح ولا أروع ودوره في غاية الأهميه

جعل الله هذا العمل في ميزان حسناتك

وأستمري على بركة الله

بالتوفيق

[AL_ASSI™]

ما شاء الله أختي الكريمه

شرح ولا أروع ودوره في غاية الأهميه

جعل الله هذا العمل في ميزان حسناتك

وأستمري على بركة الله

بالتوفيق

[MDK2]

ما شاء الله أختي الكريمه

شرح ولا أروع ودوره في غاية الأهميه

جعل الله هذا العمل في ميزان حسناتك

وأستمري على بركة الله

بالتوفيق

[azharo]

شكرا لمروركم اخوتي

واتمنى ان تكونوا قد استفدتم

[المشاغب]

بارك الله فيك يا اختى

دروس اكثر من رائعة

استمرى على اطريق التقدم و فقك الله

[azharo]

اخي المشاغب مرورك نور الموضوع
شكرا لك

[hamza_aj]

الف شكر مجهود عظيم تشكر علية

[azharo]

شكرا لكم اخوتي

وجاري تجهيز الدرس الرابع

[سليمان نت]

نحن بالانتظار

[azharo]

بسم الله الرحمن الرحيم



الدرس الرابـــــع




اولاً : اتمنى ان تكونوا قد طبقتم كل ما تم شرحه في الدرسين السابقين لان ما ساشرحه في هذا الدرس سيكون مكملاً لما تم شرحه سابقاً.





سنقوم في هذا الدرس إن شاء الله بكتابة برنامج جديد نتعرف من خلاله على مجموعة اخرى من عناصر تحكم لغة فيجول بيسك (Objects) مثل شريطي التمرير الأفقي والعمودي Scroll Bar ومربع النص Text Box وأزرار الأوامر Command Button.





ذكرت في الدرس السابق ان مرحلة كتابة البرنامج في فيجول بيسك تمر بثلاث خطوت أساسية هي :



- خطوة التصميم المرئي للبرنامج وتسمى بالتمثيل المرئي Visual Implementation.



- ضبط الخصائص Setting the Properties على مستوى المشروع Project والفورمز Forms و الادوات Controls او (العناصر) (Objects)



- خطوة كتابة نص البرنامج Code Programming.





لذا ستتعلم ايضاً في هذا الدرس كيف تضع هذه العناصر داخل برامجك وكيفية تغيير خصائصها وكيفية ربط النصوص البرمجية بها (أي ربطها ببرامج متعلقة بها).





تُقدم معظم البرامج معلومات إلى المستخدم وتتلقى منه معلومات أيضاً. تُدعى عملية تبادل المعلومات بين التطبيق وبين المستخدم بواجهة المستخدم User Interface. تَستخدم جميع برامج الويندوز عناصر التحكم Controls لتزويد المستخدم بواجهة سهلة ومفهومة (هذا من أهم أسباب شيوع النظام ويندوز). وستلاحظون مدى سهولة بناء واجهة استخدام جذابة في لغة فيجول بيسك.



برنامج السرعة



يوضح برنامج السرعة كيفية استخدام شريط التمرير للحصول على قيمة معينة من المستخدم.



يُفترض في برنامج السرعة إنجاز ما يلي:



لاحظوا الصورة التالية :



http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_1.png











عند بدء تشغيل برنامج السرعة يُفترض أن يوضع مؤشّر شريط التمرير العمودي عند المركز (الموقع الافتراضي) وأن تظهر الرسالة "50 كم/ ساعة" (قيمة السرعة) ضمن مربع النص.



ينبغي على مربع النص إظهار التغير في السرعة عند تغيير موضع مؤشّر شريط التمرير العمودي. فمثلاً يجب إظهار القيمة صفر عندما يوضع المؤشّر عند أقصى اليمين أما عند وضعه عند أقصى اليسار فيجب إظهار القيمة 100.



ايضا سيكون هناك 3 اشرطة تمرير افقية للتحكم في لون خلفية مربع النص حيث سيتم مزج خليط من الالوان لتكوين لون واحد لخلفية مربع النص.



يؤدي نقر الزر خروج لإنهاء البرنامج.






عنصر تحكم شريط التمرير Scroll Bar



يستخدم شريط التمرير Scroll Bar بكثرة في برامج النوافذ Windows حيث انه عندما تختفي بعض المعلومات في النافذة يظهر الشريط فنستخدمه لعرض باقي المعلومات.



ويمكّنك استخدام هذا العنصر من تغيير قيمة معينة زيادة أو نقصان بوضع مؤشّر شريط التمرير عند موقع محدد منه بدلاً من كتابة القيمة.



لهذه الأداة نوعان :



شريط تمرير أفقي : HScrollBar



شريط تمرير عمودي : VScrollBar

http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_2.png







http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_3.png


ملاحظة:




يطلق على شريط التمرير اسم كائن Object او عنصر تحكم Control.



في معظم الأحوال يعتبر الكائن هو نفسه عنصر تحكم، لكن ليس دائماً فالنموذج Form هو كائن لكنه ليس عنصر تحكم. نستطيع استخدام كلمة كائن للدلالة على عنصر تحكم إذا كان هذا العنصر سيوضع في نموذج.



http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_4.png




http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_5.png









صندوق النصوص :



ويستخدم لادخال القيم (على هيئة سلسلة رموز) وكذلك لعرض نصوص قابلة للتعديل بصورة مباشرة.




http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_6.png





التمثيل المرئي لبرنامج السرعة (مرحلة Design Mode )



يَستخدم برنامج السرعة عنصر تحكم شريط التمرير العمودي والأفقي. طبعاً يختلف موضع هذا العنصر ضمن مربع الأدوات Toolbox تبعاً لاختلاف إصدار لغة فيجول بيسك المستخدم. ويؤدي وضع مؤشّر الفأرة فوق رمز شريط التمرير الأفقي دون النقر عليه إلى ظهور مستطيل أصفر يحمل الرسالة HscrollBar او VscrollBar داخله.



بهذه الطريقة تتعرف على رمز شريط التمرير في إطار مربع الأدوات.






http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_7.png








نفّذ فيجول بيسك ثم انقر الزر إلغاء الأمر في الإطار New Project في حال ظهوره لإغلاق هذا الإطار ثم اختر البند New Project من قائمة File للغة فيجول بيسك.



يستجيب فيجول بيسك بإظهار الإطار New Project.



اختر الرمز Standard EXE من ضمن الإطار New Project ثم انقر الزر موافق.



يستجيب فيجول بيسك بإنشاء مشروع جديد.





سنحفظ الآن المشروع الجديد الذي أنشأناه:



أنشئ الدليل C:\VB6\Speed



تحقق من اختيار النموذج Form1 ثم اختر البند Save Form1 As من قائمة File.



يستجيب فيجول بيسك بإظهار مربع الحوار Save File As.



استخدم مربع الحوار Save File As لحفظ النموذج باسم Speed.Frm في الدليل C:\VB6\Speed واختر البند Save Project As من قائمة File ثم استخدم مربع الحوار Save Project As لحفظ المشروع باسم Speed.vbp في الدليل نفسه.





تصميم شاشة البرنامج:



قم بعمل تصميم لشاشة البرنامج وذلك بوضع الادوات Objects المطلوبة كما في الصورة التالية :




http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_8.png












ذكرت في الدرس السابق أن النقر المزدوج على رمز عنصر التحكم Object ضمن مربع الأدوات يؤدي إلى وضع هذا العنصر ضمن النموذج الحالي.



يستجيب فيجول بيسك بوضع عنصر التحكم في وسط النموذج الحالي. تستطيع بعد ذلك نقله إلى مكان آخر عن طريق سحبه بمؤشّر الفأرة. كما تستطيع تكبيره أو تصغيره بسحب المقابض التي تظهر حوله.





لتغيير خصائص عنصر التحكم تأكد من اختيار هذا العنصر على النموذج (أي توضّع المقابض حوله) ثم اختر البند Properties Windows من قائمة Viewاو اضغط مفتاح F4. أو تستطيع بدلاً من ذلك النقر بالزر الأيمن للفأرة على العنصر ثم اختيار البند Properties من القائمة الفرعية السريعة التي ظهرت.



يستجيب فيجول بيسك بإظهار إطار الخصائص Properties لعنصر التحكم المختار. تستطيع الآن تغيير خصائص هذا العنصر.
http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_9.png












ملاحظة :



تعرفنا حتى الآن على كيفية ضبط الخصائص من خلال نافذة الخصائص الخاصة بكل كائن وذلك في مرحلة التصميم (Design Mode). ولكن هناك طريقة اخرى يمكننا بها تغيير بعض خصائص الكائنات وذلك خلال مرحلة تنفيذ البرنامج (Run Mode)





لذلك سنقوم بضبط خاصية اثنين من اشرطة التمرير الافقية في مرحلة التنفيذ بحيث تأخذ نفس الخصائص التى قمنا بضبطها لشريط التمرير الافقي الأول الموجود في الجدول السابق.





كتابة نص برنامج السرعة :



اكتب النص التالي ضمن الإجراء cmdExit_Cilck() التابع للنموذج FrmSpeed:



http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_10.png











ملاحظة :



لإدخال نص البرنامج للزر خروج انقر نقراً مزدوجاً على الزر خروج في مرحلة التصميم فيظهر إطار البرنامج للإجراء cmdExit_Cilck(). ويكون هذا الإجراء جاهزاً للتعديل من قبل المستخدم.





تأكد أن مربع السرد الواقع في الزاوية العليا اليسارية من إطار البرنامج يحوي البند cmdExit وأن المربع المجاور له يحوي البند Click.



احفظ المشروع باختيار البند Save Project من قائمة File التابعة لفيجول بيسك.





تنفيذ برنامج السرعة :



لم ننته بعد من كتابة نصوص برنامج السرعة لكن رغم ذلك سننفذ برنامج السرعة لرؤية نتائج ما تم انجازه حتى الآن.





ملاحظة :



من الافضل ان يقوم المبرمج بتنفيذ البرنامج كلما اضاف تعديلاً عليه فهذا يساعد في تتبع الاخطاء التى قد تحدث ويقلل من الوقت المستغرق في البحث عن الاخطاء.





نفّذ برنامج السرعة (ضغط مفتاح F5 أو اختيار البند Start من قائمة Run).



غيّر موضع مؤشّر شريط التمرير العمودي بواسطة الماوس.



كما تلاحظ لا يظهر أي شيء ضمن مربع النص والسبب في ذلك طبعاً هو أننا لم نكتب الكود اللازم لإظهار القيم الموافقة لتغيير مؤشّر شريط التمرير العمودي.



انقر الزر خروج لإنهاء البرنامج.






الخصائص Min و Max و Value لشريط التمرير



تشرح الفقرات التالية بعض خصائص شريط التمرير:






الخاصيتان Min و Max



يمثّل شريط التمرير مجموعة من القيم. تحدد الخاصية Min القيمة الدنيا، وتحدد الخاصية Max القيمة العليا. مثلاً، تأخذ الخاصية Min في الجدول السابق القيمة صفر، وتأخذ الخاصية Max القيمة 100، وهذا يعني أن شريط التمرير يمكن أن يعطي أية قيمة بين الصفر و 100.



اما في شريط التمرير الافقي فيعطي قيم بين الصفر و 250 (هذه الارقام خاصة بنظام الألوان في بيئة ويندوز)






الخاصية Value



تمثل الخاصية Value التابعة لشريط التمرير القيمة الراهنة لهذا الشريط وبالتالي فقد تكون أية قيمة صحيحة بين الرقم صفر والرقم 100 حسب مثالنا هذا. القيمة الافتراضية لهذه الخاصية هي الصفر وعند تنفيذ البرنامج يوضع مؤشّر شريط التمرير عند الموضع المرافق للخاصية Value (أي عند أقصى يمين شريط التمرير وهو الموضع المرافق للقيمة صفر للخاصية Value).



الآن وباعتبار أن السرعة الافتراضية يجب أن تكون 50 لهذا يجب إسناد القيمة 50 للخاصية Value التابعة لشريط التمرير وستجد عند تنفيذ البرنامج أن الموضع الافتراضي لمؤشّر شريط التمرير سيكون في وسطه (أي منتصف المسافة بين صفر و 100).





لاحظ أن الجدول السابق يطالبك بإسناد القيمة "50 كم/ الساعة" للخاصية Text التابعة لمربع النص. فعند تشغيل البرنامج، ستجد أن مربع النص يُظهر القيمة الابتدائية "50 كم/ الساعة" والمشابهة للموضع الراهن لمؤشّر شريط التمرير (Value = 50).






تركيز Focus لوحة المفاتيح



تستطيع ضغط المفتاح Tab من على لوحة المفاتيح أثناء عمل البرنامج لنقل التركيز من عنصر تحكم إلى آخر. وتستطيع تمييز عنصر التحكم الذي يمتلك التركيز بسهولة لأن ويندوز يعطي دلالة على ذلك (توضّع الإضاءة عنده أو يظهر حول عنوانه مستطيل منقط .. الخ).



فمثلاً يظهر مؤشّر وامض في مربع النص إذا كان التركيز موضوعاً عنده بينما يومض مؤشّر شريط التمرير
عندما يكون التركيز موضوعاً عنده. كما يظهر مستطيل منقط حول عنوان الزر خروج (مثلاً) إذا كان هذا الزر يمتلك التركيز…. وهكذا.





ما المقصود بأن عنصر تحكم ما يمتلك التركيز ؟ المقصود من ذلك هو أنك تستطيع استخدام لوحة المفاتيح للتحكم به عند امتلاكه للتركيز. جرب مثلاً ما يلي لرؤية ظاهرة تركيز لوحة المفاتيح:





نفّذ برنامج السرعة. (لاحظ أن مؤشّر شريط التمرير العمودي يكون في الوسط وهذا طبعاً بسبب إسناد القيمة 50 للخاصية Value التابعة لشريط التمرير).



اضغط المفتاح Tab في لوحة المفاتيح إلى أن يصل التركيز إلى شريط التمرير (ستجد أن مؤشّر شريط التمرير يُومض).





يمتلك شريط التمرير الآن التركيز استخدم مفتاحي الأسهم الأيمن والأيسر على لوحة المفاتيح لتحريك مؤشّر شريط التمرير. باعتبار أن شريط التمرير يمتلك تركيز لوحة المفاتيح فإن الضغط على مفتاحي الأسهم على لوحة المفاتيح يكافئ نقر زري السهمين الايسر والأيمن لشريط التمرير. جرب ضغط المفاتيح Home و End و PgUp و PgDn وراقب النتائج.



اضغط المفتاح Tab حتى يصل التركيز إلى الزر خروج ثم اضغط مفتاح Space أو مفتاح Enter. وهذا يكافئ نقر الزر خروج لإنهاء البرنامج.





لاحظ كم من العمليات تستطيع إنجازها بواسطة برنامج السرعة. تستطيع تبديل موضع مؤشّر شريط التمرير وتكبير أو تصغير إطار البرنامج (بسحب حواف الإطار) ونقل إطار البرنامج بسحب شريط عنوانه وإنجاز الكثير من مهام ويندوز القياسية الأخرى. الجميل في الموضوع أنه لا يلزم كتابة أي كود برمجي لإنجاز كل ذلك. ولعل ذلك من أهم محاسن كتابة برامج تحت بنية ويندوز.





فالمعالم القياسية لويندوز تكون مبرمجة أصلاً في برامجك ولست بحاجة كمستخدم ويندوز إلى الإلمام بكل المظاهر القياسية لويندوز حتى تتمكن من العمل بكفاءة وفق هذه البنية.





لاحظ عندما تضغط على المفتاح Tab كيفية تسلسل الانتقال بين الكائنات. يمكن التحكم في هذا التسلسل باستخدام خاصية تسمى TabIndex وتأخذ هذه الخاصية قيمة عددية تبدأ من الصفر حيث ان الكائن الذي يحمل هذا الرقم في الخاصية TabIndex سيكون التركيز Focus عليه عند بدء تشغيل البرنامج ثم يليه الكائن الذي يحمل الرقم التالي (ليس من الضروري بدء تسلسل الارقام من الصفر فيمكن اختيار اى رقم ولكن المهم هو تسلسل الترقيم يمكن استخدام 10-20-30 .... ) .






سنقوم الآن بتغيير خاصية TabIndex لجميع الكائنات على النموذج كالتالي :






http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_11.png




http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_12.png



نفذ البرنامج ولاحظ كيفية انتقال التركيز Focus من كائن الى آخر حسب الارقام التى تم تحديدها




وهذه الخاصية مهمة جداً عند البدء بتصميم برامج فعلية ليستخدمها الآخرون ويجب فهمها جيداً.





تحسين برنامج السرعة :



انقر نقرة مزدوجة على عنصر تحكم شريط التمرير العمودي ضمن النموذج لإظهار الإجراء VsbSpeed_Change(). تحقق بأنّ مربع السرد في الزاوية اليسرى العليا من إطار نص البرنامج يحمل العبارة النصية VsbSpeed وأنّ مربع السرد المجاور له يحمل العبارة النصية Change وبالتالي عند قراءتهما سوياً تنتج العبارة VsbSpeed_Change().



أدخل النص التالي ضمن الإجراء VsbSpeed_Change():



http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_13.png











ينفذ الإجراء VsbSpeed_Change() (كما هو واضح من اسمه) عند تغيير موضع مؤشّر شريط التمرير. وبالتالي تتغير الخاصية Value تلقائياً تبعاً لذلك التغيير. فمثلاً تُصبح قيمة الخاصية Value مساوية الصفر عند وضع مؤشّر شريط التمرير عند أقصى يمين الشريط وذلك بسبب إسناد القيمة صفر إلى الخاصية Min.



يتوجب على مربع النص إظهار قيمة الموضع الجديد لمؤشّر شريط التمرير عند تغيير موقعه. أي بكلمة أخرى يلزمنا إسناد قيمة الخاصية Value لشريط التمرير إلى الخاصية Text لمربع النص وهذا هو دور العبارة التالية الكود البرمجي الذي تمت كتابته:





فمثلاً إذا كانت قيمة الخاصية Value لشريط التمرير تساوي 20 فقيمة الخاصية Text لمربع النص ستساوي 20 كم/ ساعة.



تتوقع الخاصية Text أن يُسند لها قيمة نصية (سلسلة كتابية) أما الخاصية Value فهي عبارة عن قيمة عددية. مما يعني أنّه يجب استخدام التابع الوظيفي Str() لتحويل القيمة العددية للخاصية Value إلى سلسلة كتابية. يُكتب ضمن قوسي التابع الوظيفي Str()، القيمة العددية المطلوب تحويلها إلى سلسلة كتابية، فمثلاً يُستخدم التابع Str(11) لتحويل العدد 11 إلى السلسلة الكتابية "11" . كما يُستخدم التابع Str(12345) لتحويل العدد 12345 إلى السلسلة الكتابية "12345".





وسنتطرق الى هذه المفاهيم بتفصيل اكثر عند دراسة انواع البيانات Data Typesفي لغات البرمجة.





ملاحظة :



عند تحويل القيمة الرقمية إلى قيمة نصية فإنها تفقد قيمتها الرقمية وتصبح كأي حرف آخر. طبعاً يوجد تابع وظيفي معاكس للوظيفة Str() وهو التابع Val()، الذي يحول القيمة النصية ("1234") إلى قيمة عددية (1234).



في حالتنا هذه يُطلب من الإجراء تحويل القيمة العددية VsbSpeed.Value إلى سلسلة كتابية ولهذا استخدمنا العبارة التالية: Str(hsbSpeed.Value)





وبالتالي فإذا فرضنا مثلاً أنّ الموضع الحالي لمؤشّر شريط التمرير يساوي 32



(hsbSpeed.Value = 32)



فيتم اسناد القيمة 32 كم/ ساعة للخاصية Text التابعة لمربع النص





والآن لنشاهد نتائج ما كتبناه:



احفظ المشروع باختيار Save Project من القائمة File.



نفّذ برنامج السرعة.



انقل مؤشّر شريط التمرير وستجد أنّ محتويات مربع النص تتغير تبعاً لموضع مؤشّر الشريط.



 قم بانهاء برنامج السرعة بنقر الزر خروج.



تغيير محتويات مربع النص مع سحب مؤشّر شريط التمرير





أنهينا برنامج السرعة تقريباً ولكن بقيت مشكلة واحدة ينبغي حلها. وللتعرف على هذه المشكلة اتبع الخطوات التالية:



نفّذ برنامج السرعة.



جرّب سحب مؤشّر شريط التمرير (دون إفلاته) وستجد أنّ محتوى مربع النص لا يتغير أثناء عملية السحب وإنما يتغير فقط بعد تحرير المؤشّر.



كم سيكون جميلاً لو يترافق تغير محتوى مربع النص مع حركة مؤشّر شريط التمرير.



يُنفذ الإجراء VsbSpeed_Scroll() آلياً عند سحب مؤشّر شريط التمرير لهذا:



انقر نقرة مزدوجة على عنصر تحكم شريط التمرير العمودي ضمن النموذج لإظهار الإجراء VsbSpeed_Scroll() في مربع السرد الموجود في الزاوية اليسرى والعليا من إطار نص البرنامج ووجود عبارة النص Scroll في مربع السرد المجاور له.
http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_14.png



أدخل النص التالي في الإجراء VsbSpeed_Scroll():




http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_15.png











يتسبب كود الإجراء هذا بتنفيذ الإجراء VsbSpeed_Change() الذي كتبناه مسبقاً مما يعني أنّ كود الإجراء VsbSpeed_Change() سينفذ عند سحب مؤشّر شريط التمرير الذي يعمل على إسناد الموقع الحالي لشريط التمرير إلى الخاصية Text لمربع النص دعنا نشاهد بأنفسنا أثر ما كتبناه:



احفظ المشروع باختيار Save Project من القائمة File لفيجول بيسك.



نفّذ برنامج السرعة.



اسحب مؤشّر شريط التمرير وتحقق أن محتويات مربع النص تتغير تبعاً لسحب مؤشّر شريط التمرير.



انقر الزر خروج لإنهاء برنامج السرعة.





ملاحظة :



ينفذ الإجراء VsbSpeed_Change() من ضمن الإجراء VsbSpeed_Scroll() كما يلي:



لاحظ عدم استخدام الأقواس بعد الكلمة VsbSpeed_Change أي عند استدعاء الإجراء VsbSpeed_Change().



سيؤدي استخدام القوسين بعد اسم الإجراء في مثل هذه الحالة إلى ظهور رسالة خطأ. وبالواقع يُظهر فيجول بيسك جزء البرنامج الذي يحمل الخطأ بلون أحمر وهي دلالة مرئية على وجود خطأ ضمن نص البرنامج.





ملاحظة :



يوضح برنامج السرعة كيف تتمكن من تشكيل واجهة مستخدم محكمة لإدخال الأعداد.



فبدلاً من إجبار المستخدم على إدخال الأعداد بين صفر و 100 يدوياً قدمنا للمستخدم شريط تمرير يمكّن المستخدم من إعطاء أي قيمة صحيحة ضمن المجال المسموح باستخدام شريط التمرير هذا والحصول على تغذية عكسية (أو تغذية راجعة Feedback وهي الاستجابة الناتجة عن مربع النص) عن مجال الأرقام المسموح بإدخالها.





ايضا يمكنك باستخدام اشرطة التمرير الافقية تغيير لون خلفية مربع النص ومزج الالوان معاُ حاول تغيير مؤشر شريط التمريرولاحظ كيف تتغير الالوان



ملاحظة :
الالوان في البرمجة قد يتم التعبير عنها باسم اللون مثلاً (Red – Blue – Black ….)



او باستخدام ارقام معينة حيث انه لكل لون رقم محدد





قمنا في بداية البرنامج بتغيير خصائص شريط التمرير الافقي الاول من خلال نافذة الخصائص بينما بقيت خصائص الشريطين الآخريين على قيمهما الافتراضية.





سنرى الآن كيف سنقوم بتغيير خصائصهما برمجيا اى في مرحلة تتنفيذ البرنامج



فعليا سيتم تغيير هذه الخصائص عند تحميل الفورم أي قبل ان نرى شاشة البرنامج هنا نعبر عن هذا الحدث بـ Load اى ان الكود اللازم لأداء هذه المهمة يجب وضعه في حدث Load الخاص بالفورم لذلك قم بالضغط المزدوج على الفورم FrmSpeed لاظهار نافذته البرمجية



تأكد من اختيار الحدث Load كما بالصورة التالية



http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_16.png











لاضافة خاصية اثناء مرحلة التنفيذ نقوم بكتابة اسم الكائن ثم نضع نقطة ثم نكتب اسم الخاصية المراد تغييرها بدون استخدام اى مسافات وكما تلاحظ فانه بمجرد كتابة اسم الكائن ووضع نقطة ستظهر تلقائياُ قائمة منسدلة بالخصائص الممكن تغييرها برمجياُ لهذا الكائن كما بالصورة






http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_17.png





مع ملاحظة انه ليس كل الخصائص الموجودة في نافذة الخصائص في مرحلى التصميم Design Mode يمكن تغييرها في مرحلة البرمجة Run Mode





وكما واضح من الصورة السابفة سيظهر في القائمة المنسدلة فقط الخصائص المسموح بتغييرها في مرحلة البرمجة وليس كل خصائص الكائن.



قم بكتابة هذه الاكواد في حدث تحميل الفورم Form Load







http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_18.png





الأن قم بكتابة الاكواد التالية في الحدث Change لأشرطة التمرير الأفقية الثلاثة كما بالصورة التالية حيث ان هذا الأكواد وظيفتها تغيير اللون في خلقية صندوق النص










http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_19.png





• قم بتغيير موضع مؤشّر شريط التمرير في أشرطة التمرير الثلاثة بحيث يأخذ قيماً مختلفة ولاحظ اللون الناتج.



• قم بسحب موضع مؤشّر شريط التمرير في أشرطة التمرير الثلاثة الى اقصى اليمين ولاحظ اللون الناتج.



• قم بسحب موضع مؤشّر شريط التمرير في أشرطة التمرير الثلاثة الى اقصى اليسار ولاحظ اللون الناتج.






http://bb.domaindlx.com/programmerazhar/ABSA/4/VB4_20.png








المرجع دار الكتب العلمية للنشر والتوزيع







تم شرح الدرس الرابع بحمد الله



وفي انتظار اسئلتكم واستفساراتكم


اختكم في الله
أزهارو

[azharo]

اخوتي الأعزاء

كل عام وانتم بخير

ورمضان كريم

[سليمان نت]

شكرا لك على الدرس الجديد وأنا ترى من المتابعين

لا توقف بنصف الطريق

أرجو أن تكون جميع دروسك في هذا الموضوع لأني واضع الموضوع في المفضلة

[azharo]

عفوا اخي سليمان
وباذن الله لن اتوقف في منتصف الطريق طالما هناك من يتابع
حتى لو كان شخص واحد

[sofian]

وانا من المتابعين والمشجعين
بارك الله فيك وعليك
والف الف الف الف الف الف الف شكر لك اخي
ما احلاك وانت مجتهد

تحياتي

[awo2]

بارك الله فيك
مجهود رائع إلى الأمام وفي انتظار المزيد
تقبل الله طاعتك

[azharo]

شكرا لمروركم اخوتي
sofian
awo2

واتمنى ان تكونوا قد استفدتم فعلاً

اختكم في الله
ازهارو

[ROMIOs]

مشكورة اختى فعلا دورة رائعة و شرح اكثر من رائع لانك انسانة اكثر من ممتازة لحرصك على افادة المبتدئين امثالنا

بارك الله فيكى و تقبل منك

انا فى انتظار الدروس القادمة .. وجارى البحث عن نسخة visual basic

و ارجو من الادارة رفع صور الشرح على سيرفر الموقع على الاقل ...

[Mohammed ib]

بارك الله فيك
شرح أكثر من رائع

[azharo]

شكرا لمروركم وردكم الجميل اخوتي
ROMIOs
Mohammed ib

[sofian]

شكرا لمروركم اخوتي
sofian
awo2

واتمنى ان تكونوا قد استفدتم فعلاً

اختكم في الله
ازهارو


اختي الكريمة

هل سيكون تكملة للموضوع ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[بحار الابداع]

مشكور أخوي على المعلومات الرائعة
لكن البرنامج مو موجود عندي ممكن تضيف رابط تحميل االبرنامج

[أبومحماس]

تمام ماشاء الله عليك

الله يوفقك و يوفق الجميع

[azharo]

شكرا لمروركم اخوتي


اخي سفيان
باذن الله سنكمل الكورس


اخي بحار الابداع
اليك هذا الرابط لتنزيل البرنامج

للتحميل (http://www.megaupload.com/?d=05AEI9I0)

وكلمة سر الملف المضغوط هى www.absba.org (http://www.absba.org/)



اخي أبومحماس مرحبا بك معنا

[بحار الابداع]

[/url]مشكور أخوي [url="http://www.absba.org/vb/member.php?u=114042"]azharo (http://www.absba.org/vb/member.php?u=114042)
والله يعطيك العافية

وإلى الأمام

[ماجدولين]

مشكورة أختي على الشرح المميز ...
المشكلة اغلب الصور لا تظهر :(

[chamouch]

مشكور

[azharo]

شكرا لمروركم اخوتي

ماجدولين

chamouch

بالنسبة للصور عندما يكون هناك ضغط على موقع تحميل الملفات لا تظهر

لذا حاولوا فتح الصفحة في اوقات اخري

[ALMANAR-2005]

اخي الكريم الصور لاتظهر
ارجو ان ترفعها على موقع آخر

[azharo]

اخي ALMANAR-2005
حاول فتح الموقع في وقت اخر وستجد كل شئ تمام

هذا افضل موقع تعاملت معه

حيث انني ارفع جميع الصور دفعة واحدة

وليس فقط للمشاغب بل لاكثر من منتدى

[azharo]

بسم الله الرحمن الرحيم

http://www.shams4arab.info/up/files/azharo_salam.gif (http://www.shams4arab.com/forum)


اعزائي واخوتي

اهلاً بكم مرة اخرى مع برنامج جديد ودرس جديد من دروس الفيجيوال بيسك 6
وسامحوني على طول الغياب

اليوم ومن خلال هذا البرنامج البسيط سنتعرف على المزيد من الادوات الجديدة المتاحة في برنامج الفيجوال ألا وهي :

-DriveListBox

- DirListBox

- FileListBox

- Image

وسيكون الهدف من درس اليوم هو تصميم برنامج لاستعراض انواع مختلفة من الصور الموجودة على القرص الصلب او أي وسط تخزين آخر.


قبل الشروع في العمل سنقوم بتعديل على بيئة عمل الفيجيوال وذلك لتسهيل عملية تنسيق الادوات على الفورم.
تلاحظون اخوتي ان خلفية الفورم منقطة وبين النقط توجد مسافات وعندما تقوم بتحريك أي اداة على الفورم تتتحرك من نقطة الى نقطة الاخرى
ايضاً عند تغيير الأبعاد (Resize) للادوات يكون النقص او الزيادة من نقطة الى نقطة الاخرى
ماذا لو أردنا التحكم بهذه الحركة او بتغيير الابعاد بدقة اكثر.

- قم بتشغيل برنامج الفيجيوال بيسك
- اختر من القائمة Tools الخيار Options
- اختر General

قم بعمل التعديل كما بالصورة التالية :

http://www.shams4arab.info/up/files/azharo_vb51.png (http://www.shams4arab.com/forum/forumdisplay.php?f=55/forumdisplay.php?f=55)


- هناك ادوات تأتي مع الفيجيوال وتستخدم للتنسيق ولاظهارها قم بعمل التالي :
- قم بالضغط بالزر اليمين على شريط الادوات ToolsBar واختر Form Editor ثم قم بوضع هذا الشريط في مكان مناسب


http://www.shams4arab.info/up/files/azharo_vb52.png (http://www.shams4arab.com/forum/forumdisplay.php?f=55/forumdisplay.php?f=55)


http://www.shams4arab.info/up/files/azharo_vb53.png (http://www.shams4arab.com/forum/forumdisplay.php?f=55)

ملاحظة /

- هذه الادوات لا تكون فعالة الا اذا كان الفورم مفتوح.

- كما ان بعض هذه الادوات لا تكون فعالة الا اذا قمت باختيار اكثر من اداة في نفس الوقت على نفس الفورم. على سبيل المثال لمحاذاة مجموعة من الادوات (Labels) قم باختيار احداها بالضغط عليها بالزر الايسر مرة واحدة ثم اضغط على المفتاح Ctrl وابقيه مضغوطاً ثم قم بالضغط بالزر الايسر على الادوات الاخرى التى تريد محاذاتها او توحيد ابعادها.

يُفترض في برنامج المستعرض إنجاز ما يلي:

 إظهار نموذج على الشاشة لاختيار الملفات التى نريد عرض صورها.

 إظهار لائحة محركات الأقراص المتوافرة، وتمكين المستخدم الاختيار من بينها.

 إظهار لائحة الملفات الموجودة حالياً، في الدليل الذي يختاره المستخدم من مربع سرد الأدلة.

 إظهار اسم الملف ومساره في مربع Label عند اختياره من مربع لائحة الملفات.

 إظهار صورة الملف بمجرد اختياره

 إنهاء تنفيذ البرنامج عند الضغط على المفتاح Esc


التمثيل المرئي لبرنامج مستعرض الصور :

سنبدأ كعادتنا بطور التمثيل المرئي لنموذج البرنامج:

 أنشئ الدليل الذي سنستعمله لحفظ العمل المنجز.
C:\VB6\Browser

 أنشئ مشروعاً جديداً من النوع Standard EXE.

 احفظ نموذج المشروع بالاسم Browser.Frm واحفظ ملف المشروع بالاسم Browser.Vbp في الدليل السابق
يُفترض أن يبدو النموذج المكتمل كما في الشكل التالي :

http://www.shams4arab.info/up/files/azharo_vb54.png (http://www.shams4arab.com/forum/forumdisplay.php?f=55)


والشكل التالي يبين رموز عناصر التحكم بالملفات في إطار مربع الأدوات :


http://www.shams4arab.info/up/files/azharo_vb55.png (http://www.shams4arab.com/forum/forumdisplay.php?f=55)


ملاحظة /

أدوات التحكم بالملفات تعمل بشكل مترابط مع ببعضها البعض.


http://www.shams4arab.info/up/files/azharo_vb56.png (http://www.shams4arab.com/forum/forumdisplay.php?f=55)

عنصر التحكم Image :

تستطيع أيضاً وضع انواع معينة من ملفات الصور مثل bMP,jpg,gif,ico في عنصر التحكم Image، الذي يدعم الخاصية Stretch. تمكّنك هذه الخاصية من مد (تكبير) الصورة إلى أي حجم شئت. (لا يدعم النموذج ولا عنصر تحكم Picture هذه الخاصية).
بعد إسناد القيمةTrue إلى الخاصية Stretch. سوف تكبر الصورة آلياً لتملأ كامل مساحة عنصر التحكم Image، أي بكلمة أخرى يكبر فيجول بيسك أو يصغر حجم الصورة آلياً.

فمثلاً، إذا كان عنصر التحكم Image بحجم 2 بوصة × 2 بوصة، وكان يحتوي على الصورة MyPic.bmp، فسوف يصغر فيجول بيسك الصورة MyPic.bmp من حجمها إلى 2 بوصة × 2 بوصة.
تستطيع أيضاً إسناد إحدى القيمتين True أو False، أثناء مرحلة البرمجة إلى الخاصية Stretch لعنصر التحكم Image كما يلي :
Image1.Stretch = True

هناك اداه تشبه في عملها عمل Image وهي عنصر التحكم Picture:
يتشابه عنصر التحكم Picture كثيراً مع عنصر التحكم Image، باستثناء أنه يقدّم المزيد من الخصائص، والمزيد من الحوادث والطرق. إلا أنه لا يدعم الخاصية Stretch، (فقط عنصر التحكمImage وحده الذي يدعم الخاصية Stretch).

يقدّم عنصر التحكم Picture الخاصية AutoSize، ويؤدي إسناد القيمة True إلى هذه الخاصية، إلى قيام فيجول بيسك بضبط حجم عنصر التحكم Picture وفقاً لحجم ملف الصورة الذي يحتويها.

فمثلاً، إذا كان ملف الصورة بحجم 3 بوصة × 3 بوصة، فسوف يضبط فيجول بيسك عنصر التحكم Picture بحيث يساوي 3 بوصة × 3 بوصة، لا يقدم النموذج ولا عنصر التحكم Image الخاصية AutoSize.

يستخدم عنصر التحكم Image مصادر أقل Resource، من تلك التي يستخدمها العنصر Picture، ولهذا يتمكن من إعادة رسم الصورة بشكل أسرع.


مرحلة كتابة أكواد البرنامج :

 أدخل النص التالي ضمن الإجراء cmdExit():

Private Sub cmdExit_Click()
End
End Sub

 أنقر نقرتين فوق صندوق محركات الأقراص Drive1 واكتب النص التالي ضمن الإجراء Drive1_Change():


Private Sub Drive1_Change()
On Error GoTo DriveError
Dir1.Path = Drive1.Drive
Exit Sub

DriveError:
MsgBox "محرك الأقراص غير صالح", 16
Drive1.Drive = Dir1.Path
Exit Sub
End Sub


يُنفّذ الإجراء Drive1_Change() آلياً، عند تغيير محرك الأقراص في مربع سرد المحركات. يجدّد هذا الإجراء الخاصية Path لمربع سرد الأدلة، بإسناد محرك الأقراص الجديد الذي تم اختياره إليها:

قبل أن يغيّر الإجراء، الخاصية Path لمربع سرد الأدلة، كتبنا سطر مصيدة الأخطاء. تُعتبر مصيدة الأخطاء هذه لازمة، لأن تغيير مسار Path مربع سرد الأدلة، قد ينجم عنه خطأ ما.

فمثلاً، قد يغير المستخدم مربع سرد السواقات، إلى محرك الأقراص A:، إلا أن A: ليس جاهزاً في تلك اللحظة. فيتسبب تغيير المسار Path في مربع سرد الأدلة إلى A: بظهور خطأ. ولتلافي حصول خطأ أثناء زمن التنفيذ، وُضعت المصيدة الممثلة بالعبارة التالية:
On Error Go To DriveError

فإذا ظهر خطأ ما الآن أثناء تنفيذ هذه العبارة:
Dir1.Path = Drive1.Drive

فسيعمل فيجول بيسك على نقل تنفيذ البرنامج إلى نص البرنامج الواقع تحت اللافتة
DriveError:. ليُظهر نص البرنامج الوارد تحت هذه اللافتة، رسالة خطأ ويسترجع القيمة الأصلية لمحرك الأقراص، وذلك باستخدام العبارة التالية:

Drive1.Drive = Dir1.Path

لاحظ أن قيمة Dir1.Path لم تتغير (أي ما زالت محافظة على قيمتها الأصلية)، لأن العبارة التي تسببت في الخطأ (في حال حدوثه) لم تنفذ بعد.

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

يفترض ان تظهر رسالة الخطأ بهذا الشكل :

http://www.shams4arab.info/up/files/azharo_vb57.png (http://www.shams4arab.com/forum/forumdisplay.php?f=55)


ملاحظة /

سنقوم مستقبلا بشرح كيفية التعامل مع اظهار الرسائل (اخطاء - تنبيه) بشكل مفصل.


أنقر فوق صندوق المجلدات Dir1 وأكتب :

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

يُنفذ الإجراء Dir1_Change()، عند تبديل الدليل الحالي في مربع سرد الأدلة. حيث يتم تحديث الخاصية Path لمربع سرد الملفات

يُظهر مربع سرد الملفات، الملفات المحتواة في الدليل الذي اختاره المستخدم، نتيجة لإسناد الخاصية Path لمربع سرد الأدلة، إلى الخاصية Path لمربع سرد الملفات.


أنقر نقرتين فوق صندوق الملفات File1 وأكتب الشيفرة التالية :


Private Sub File1_Click()
If Right(File1.Path, 1) <> "\" Then
Label1.Caption = File1.Path & "\" & File1.FileName
Else ' If root directory
Label1.Caption = File1.Path & File1.FileName
End If
Image1.Picture = LoadPicture(Label1.Caption)
End Sub


السطر الاول : يُستخدم التابع الوظيفي Right() للتحقق من أن آخر رمز في مسار الملف المنتقى، هو الرمز (\)، فإذا لم يكن كذلك، فلا بد من إضافته إلى نهاية المسار.

تعتبر العبارة السابقة لازمة، لأن الخاصية File1.Path تحتوي على الرمز (\) إضافة لحرف محرك الأقراص، وذلك عند اختيار ملف من الدليل الرئيسي لمحرك الأقراص (مثلاً C:\).

أما عند اختيار الملف من مكان آخر غير الدليل الرئيسي، فلن تحتوي الخاصية File1.Path على الرمز (\) في نهايته (ستكون مثلاً C:\TEST بدلاً من C:\TEST\)، ولهذا لا بد من استخدام عبارة الشرط If لضمان وجود الرمز (\) بغض النظر عن مكان اختيار الدليل.

السطر الثاني: عرض المسار الكامل للملف الذي تم تحديده في الأداة 1Label

السطر الثالث : يعني ان الملف الذي تم اختياره موجود على الفهرس الجذر مثلاً /:C

السطر الرابع : تحميل الصورة التى المختارة من المسار المحدد في Label1 وعرضها في الاداة Image1

 احفظ المشروع باختيار Save Project من القائمة File لفيجول بيسك.


ملاحظة /

بشكل عام تستخدم العبارة التالية لتحميل صورة من مسار معين ووضعها في عنصر التحكم Image:

Image1.Picture = LoadPicture("C:\My Pictuers\MyPic.bmp")

يتسبب التابع الوظيفي LoadPicture() باستبدال الصورة الحالية في حال وجودها حيث ان عنصر التحكمImage لا يستوعب أكثر من صورة واحدة في نفس اللحظة.

أما لمحو (مسح) صورة موجودة حالياً في عنصر التحكم Image أثناء مرحلة التنفيذ، فاستخدم العبارة التالية:

Image1.Picture = LoadPicture("")


تنفيذ برنامج مستعرض الصور :

 نفّذ برنامج مستعرض الصور بالضغط على مفتاح F5 وتمرن على شتى عناصر التحكم التي تظهر على الشاشة.

توضح الصورة التالية الشكل النهائي للبرنامج بعد تنفيذه


http://www.shams4arab.info/up/files/azharo_vb58.png (http://www.shams4arab.com/forum/forumdisplay.php?f=55)


لاحظ المظاهر التالية عند تشغيلك لبرنامج مستعرض الصور:

 تظهر أدلة محرك الأقراص الذي تنتقيه، في مربع سرد الأدلة، حاول اختيار محرك أقراص من مربع سرد محركات الأقراص.

 عند اختيار محرك أقراص غير جاهز، تظهر رسالة خطأ، ويسترجع مربع السرد قيمته الأصلية. فمثلاً لدى محاولتك القراءة من محرك الأقراص A ولم يكن هنالك قرص مرن، تظهر رسالة خطأ، ويسترجع مربع سرد المحركات قيمته الافتراضية (وهي/:C).

 يؤدي النقر المزدوج على الدليل المطلوب في مربع سرد الأدلة إلى اختياره.

 تظهر حال اختيار أحد الأدلة، ملفات ذلك الدليل في مربع سرد الملفات، ويظهر اسم الدليل الحالي فوق مربع سرد الأدلة.

 يظهر اسم الملف في مربع Label حال توضع الإضاءة فوقه، في مربع سرد الملفات ثم تظهر الصورة في المكان المخصص لذلك Image.

 يؤدي ضغط المفتاح Esc إلى نفس دور نقر الزر إلغاء الذي أُسندَت القيمة True إليه أثناء زمن التصميم.

 انقر الزر خروج لإنهاء برنامج مستعرض الصور.



وفي انتظار اسئلتكم واستفساراتكم

اختكم في الله
أزهارو

.
.
.