شرح برنامج VISUAL BASIC 0.6

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

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

قبل ما نبدء بالشرح هذه وصلة لتنزيل برنامج الفيجوال بيسيك
<a href="http://www.arabteam2000.com/prog/badwi/vbArabic.EXE">لتنزيل برنامج الفيجوال بيسيك</a>
الاصدار السادس، ويكون الشرح عليه.

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

<img border="0" src="http://logeen.8k.com/Visual_Sun1.jpg" width="456" height="430">

فالانفترض انك أخترت جديد واخترت القالب
(Standard EXE)
فسوف تفتح معاك هذه الصفحة:::
<img border="0" src="http://logeen.8k.com/Visual_Sun2.jpg" width="794" height="557">

وهذا شرح بعض الادوات::





.إلان سوف نعمل برنامج ساعة قياس الزمن 
بسم الله: 
واجهة البرنامج



<img border="0" src="http://logeen.8k.com/Visual_Sun4.jpg" width="408" height="343">

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

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

مكونات البرنامج

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

شيء آخر يجب ألا ننساه، يتعلق بالأسماء التي نطلقها على تلك الكائنات.. فللكائن عنون (Caption)
وأسم (Name)..
والعنوان هو ألاسم الذي يظهر لنا على الشاشة، مما يعني أن (مفتاح البدء) عنوان وليس أسماً.. ولكن للكائن الذي يحمل عنوان (مفتاح البدء) أسماً خاصاً به وهو (Start) ،
يستخدم للإشارة إلى الكائن عند كتابة الشفيرة. فألاسم (Start)
هو الوسيلة التي يتعرف بها ((فيجوال بيسك)) على الكائن.
أما العنوان فهو الوسيلة التي يتعرف بها مستخدم البرنامج على الكائن.. فعندما نريد أن نقول للمستخدم ((أنقر بالماوس فوق الكائن الأول الموجود على يسار الشاشة)) نقول له: (( أنقر بالماوس فوق (مفتاح البدء)).. ولكن حين نكتب شفيرة ونريد أن نطلب من ((فيجوال بيسك)) القيام بعمل يتعلق بالكائن ذاته، فإننا نشير إلى ذلك لكائن بالاسم الذي أخترناه لهُ، وكتبناه في حاشية (Name)
الموجودة في نافذه الخصائص.
والحين تتذكر أننا أطلقنا أسم (Start)
على الكائن المذكور.. وإذا نسينا أسم الكائن، واردنا معرفته، فما علينا سوى النقر فوقه نقرة واحدة لتحديده ثم الضغط على مفتاح الوظائف F4 لإظهار نافذه
الخصائص (Properties Window)،
والبحث عن حاشيه (Name).
وسنجد في الحقل الواقع أمام تلك الحاشية ألاسم الذي اخترناه للكائن.

لأضافة كائن نص

<img border="0" src="http://logeen.8k.com/Visual_Sun5.jpg" width="199" height="409">

وظيفة الشيفر: 


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

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

ثانياً
سوف نبداء بكتابة ثلاثة بلاغات في شاشة البلاغات العامة
(General)
فيمكننا الوصول إلى هذه الشاشة بأي كائن آخر موجود على النموذج (مثل نافذه البلاغات الخاصة بمفتاح الإيقاف). فنحن نفتح نافذه بلاغات الكائن بالنقر فوقه نقرتين سريعتين بالماوس. ثم ننتقل إلى الشاشة المطلوبة بالنقر بالماوس فوق السهم المتجه إلى أسفل..(يمين كلمة Object)
والذي يقع على يمين الإطار الذي يحوي أسم الكائنات ، فتظهر قائمة بأسماء الكائنات الموجودة على النموذج، بلإضافة إلى كلمة
(General)
التي تشير إلى شاشة البلاغات العامة. وعندما ننقر بالماوس على كلمة
(General)
ينقلنا ((فيجوال بيسيك)) إلى شاشة البلاغات العامة. والبلاغات الثلاثة هي:
<img border="0" src="http://logeen.8k.com/Visual_Sun6.jpg" width="382" height="156">

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

الـــمـــتـــغـــــيـــرات 


تعتبر كلمة Dim
واحدة من الكلمات المستخدمة في قاموس لغة (فيجوال بيسيك) وتعطي عند استخدامه تعليمات للكمبيوتر بحجز مكان في الذاكرة للمتغير
(Variant)،
الذي نختار له الاسم الذي نريد. وقد أخترنا في الحالة السابقة كلمة
(StartTime)،
كأسم للمتغير الذي قررنا استخدمه. ولكن ماهو (المتغير)؟ وما هي وظيفته؟
المتغير هو مكان نحجزه في الذاكرة، لتخزين بيانات معينة، يمكن أن نجري عليها تغييرات في وقت لاحق.. المهم أن أسم المتغير هو ألاسم الذي نختاره للمكان الذي حجزناه في الذاكرة، وليس أسم البيانات التي نضعها في المكان.. فإذا قررنا، مثلاً، أن نخـزن العدد 6 في المكان الذي حجزناه في ذاكرة الكمبيوتر بأسم
(Start Time)،
فأننا نعطي الأمر التالي للكمبيوتر:
StartTime = 6 
 


وبناء على الإمر السابق، يقوم الكمبيوتر بتخزين العدد 6 داخل المكان في الذاكرة المسمى
(StartTime)
فإذا طلبنا من الكمبيوتر في وقت لاحق، أن يكتب لنا على الشاشة البيانات المخزنة في المكان المسمى (StartTime)،
فإننا نكتب الأمر التالي:

 
Print StartTime 
 

ويكتب الكمبيوتر، بناء على الإمر السابق، الرقم 6 على الشاشة.. ولكننا قلنا أن المكان الذي حجزناه في الذاكرة وأسميناه
(StartTime)
(متغير)
Variant .
فما المقصود بهذه الكلمة؟ ومالذي يتغير؟
لنحاول فهم المقصود، من السطور الثلاثة التالية:

 
StartTime = 6 
StartTime = StartTime + 2 
Print StartTime 
 


لو أننا كتبنا السطور السابقة في مفسر لغة (فيجوال بيسيك)، أو أي مفسر أي لغة من اللغات المشتقة من لغة (بيسيك)، لكتب لنا الكمبيوتر على الشاشة العدد 8 .
لماذا؟؟؟

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

StartTime = 2 + 6 
 


وهكذا نكون قد غيرنا القيمة التي خزَّناها داخل المكان الموجود في الذاكرة، والذي أسميناه
StartTime.
ففي الخطوة الأولى، جعلنا المكان المذكور يخزن العدد 6، وفي الخطوة الثانية جعلناه يضيف غلى القيمة الموجودة في ذلك المكان القيمة الموجودة في ذلك المكان قيمة أخرى هي 2 ، لذلك حين نصل إلى الخطوة الثالثة التي تقول للكمبيوتر: أطبع العدد على الشاشة القيمة المخزنة داخل المكان المحجوز بالذاكرة بأسم
StartTime،
فإن الكمبيوتر سيكتب لنا العدد 8 .
والمهم من ذلك أن نفهم أن في الذاكرة أماكن مخصصة لحفظ البيانات القابلة للتغيير والتعديل
(نطلق عليها Variable)،
وأماكن أخرى لحفظ البيانات التي لا ننوي أجراء تغييرات عليها
(نطلق عليها ثوابت Constant)
وغالباً ما نلجأ في بداية البرنامج إلى أستخدام التعليمات الإعلانية أو الإعلامية
(Declaration)
التي نخبر بها (فيجوال بيسيك) بالمتغيرات والثوابت التي سنستخدمها في برنامجنا..
وقد أستخدمنا في برنامج ((ساعة قياس الزمن)) ثلاث متغيرات وهــي:

 
StartTime 
EndTime 
ElapsedTime 
 


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

Dim StartTime As Variant 
Dim EndTime As Variant 
Dim ElapsedTime As Variant

نعود إلى الكائن الأول
<img border="0" src="http://logeen.8k.com/Visual_Sun7.jpg" width="458" height="212">