محتويات الدرس الثالث

v معنى الخصائص

v ضبط الخصائص

v الخصائص المشتركة



معنى الخصائص

لكل أداة من أدوات "فيجول بيسيك" بما في ذلك نافذة البرنامج كما ذكرنا في المحاضرات السابقة

ويوجد عدة خصائص لنافذة البرنامج مثل خاصية الخط FontName وهي تحدد اسم الخط المستخدم

وخاصية BackColor وهي تحدد لون الخلفية للنافذة أو الأداة

ويوجد خصائص كثيرة في كل أداة من الأدوات .



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

فمثلاً : يختار "فيجول بيسيك" خط ms sans serif للأدوات التي لها عنوان مثل أزرار الأوامر ، فإذا لم يعجبك هذا الخط ، فإنه يمكنك أن تغيره إلى أي خط موجود في "ويندوز". والهدف من وضع قيم افتراضية لخصائص الأدوات هو التسهيل عليك . فلو ترك "فيجول بيسيك" كل الخصائص بدون قيمة ، ستضطر إلى وضع قيمة لكل خاصية لكل أداة . وهي عملية شاقة بالطبع



الرجوع إلى القائمة العليا



ضبط الخصائص
هناك طريقتان لضبط الخصائص :
1. أثناء تصميم البرنامج

2. واثناء تشغيله


ضبط الخصائص أثناء تصميم البرنامج
كما ذكرنا في المحاضرات السابقة يتم ضبط الخصائص أثناء تصميم البرنامج باستخدام نافذة الخصائص propertie window وهناك ثلاثة خطوات تمر بها عملية تغيير الخصائص ، هي :

1. تحديد الأداة التي تريد ضبط خصائصها (يمكنك تحديد أكثر من أداة )

2. تحديد الخاصية التي تريد تغييرها

3. إدخال القيمة الجديدة

إذا لم تكن نافذة الخصائص ظاهرة على الشاشة ، اضغط مفتاح F4 لإظهارها :



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

1. أن تنتقل إلى نافذة البرنامج FORM1 ثم تنقر فوق الأداة المطلوبة

2. أن تضغط السهم الموجود في يمين خانة الأداة . عندها سيعرض لك "فيجول بيسيك" قائمة بكل الأدوات الموجودة فوق النافذة لتختار أحدها. انقر فوق الأداة المطلوبة .

خانة إدخال القيمة

تستخدم هذه الخانة لإدخال القيمة الجديدة للخاصية التي حددتها في قائمة الخصائص .

لاحظ أن الزر الموجود في يمين خانة إدخال له ثلاثة أشكال وهي :

الشكل الأول

معناه انك لن تضطر إلى كتابة القيمة بنفسك وإنما يمكنك اختيارها من قائمة سيعرضها لك "فيجول بيسيك" عند النقر على السهم مثل خاصية الخط

الشكل الثاني
معناه أنه يمكنك أن تختار قيمة الخاصية الحالية من مربع حوار فمثلا عند تغيير خاصية BACKCOLOR سيظهر الزر في يمين خانة إدخال القيمة انقر عليه سيظهر مربع حوار يحتوي على الألوان الموجودة في "ويندوز" . انقر فوق لون لتختاره .

الشكل الثالث :

وهو مثل الشكل الأول ولكنة خافت ، وهذا معناه أن "فيجول بيسيك" ليس لديه اختيارات للخاصية الحالية وأنك يجب أن تدخل قيمتها بالكتابة . مثل خاصية Caption التي تحدد خاصية العنوان أو Left التي تحدد موقع الأداة أفقيا أو Top التي تحدد موقع الأداة رأسيـاً . فـ "فيجول بيسيك" ليس لديه خيارات لهذه الخصائص وإنما يجب أن تدخلها بنفسك .





ضبط الخصائص أثناء تشغيل البرنامج

هناك بعض الخصائص التي لا تكون متاحة إلا عند تشغيل البرنامج ، مثل خاصية Drive التي تحدد القرص الحالي في أداة الأقراص أو خاصية path التي تحدد المسار لأداة الأدلة

وحتى ولو كانت الخاصية متوفرة أثناء تصميم البرنامج ، فمن الممكن أن تحتاج إلى تغيرها أثناء تشغيل البرنامج . فمثلا خاصية backcolor التي تحدد لون الخلفية متوفرة أثناء تصميم البرنامج ولكن من الممكن أن تحتاج إلى تغييرها أثناء تشغيل البرنامج .

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

فكيف إذا نغير الخصائص أثناء تشغيل البرنامج ؟

ولتغيير الخصائص أثناء عمل البرنامج اتبع الصيغة التالية :

القيمة الجديدة = اسم الخاصية . الأداة


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

وتجربة على ذلك .



v انقر زر أوامر من نافذة الأدوات واوضعه في نافذة البرنامج

v انقر زر اوامر نقرا مزدوجا

v سيظهر لك نافذة البرمجة الخاصة بهذا الزر :

ادخل الاسطر التالية :



وبعد ذلك اضغط F5 لتشغيل البرنامج

الخصائص المشتركة

خاصية العنوان )تستخدم هذه الخاصية عندما تريد تغير عنوان زر الأمر من command1 إلى خروج مثلاً(

اسم الخاصية : Caption

متوفرة أثناء : التصميم والتنفيذ

هذه الخاصية متوفرة لجميع الأدوات

مثال :

"مسابقة الشاطر يربح"form1.caption =



خاصية الاســم

اسم الخاصية : Name

متوفرة أثناء : التصميم فـقط.

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

عندما تضع اداة معينة على نافذة البرمجة يقوم "فيجول بيسيك" بتسميتها بطريقة اتوماتيكية بإضافة الاسم ثم رقم مثل form1 أو command1 أو label1 كل هذه اسماء يقوم "فيجول بيسيك" بوضعها



خصائص اللون

اسم الخاصية : forecolor للون الكتابة

backcolor للون الخلفية

متوفرة أثناء : التصميم والتنفيذ

تتحكم هاتان الخاصيتان في لون الكتابة ولون الخلفية فمثلا الأمر :



وهذا يعني قم يا"فيجول بيسيك" بتغيير لون الكتابة لأداة العنوان إلى اللون الأزرق



خصائص الخط المستخدم في الكتابة

اسم الخاصية : fontbold , fontitalic ,fontname ,fontsize ,fontstrike ,fontunderline

متوفرة أثناء : التصميم والتنفيذ

تتحكم هذه الخصائص في اسم وصفات الخط المستخدم في الكتابة

اسم الخاصية : تتحكم في …
Fontname: اختيار اسم الخط
Fontbold: سمك الخط
Fontitalic: ميل الخط مثل : خط مائل
Fontsize: حجم الخط
Fontstrikethru: خط وسط الخط
fontunderline: خط تحت الخط مثل : "فيجول بيسيك"

خصائص الحجم والموقع على النافذة

اسم الخاصية : Top,Lift,Height,Width

متوفرة أثناء : التصميم والتنفيذ

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

اسم الخاصية: تتحكم في …
Top: الطرف العلوي للأداة
Left: الطرف الأيسر للأداة
Height: أرتفاع الأداة
Width: عرض الأداة

مثال :

سيحركان النافذة إلى أقصى اليسار العلوي من الشاشة . كما إن الأمر :



سيجعل عرض الأداة command1 يتضاعف
خاصية شكل المشيرة

اسم الخاصية : MousePointer

متوفرة أثناء : التصميم والتنفيذ

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



وهذا يغير شكل المشيرة إلى سهم لأعلى كلما مرت فوق الزر command1

أما الامر التالي يحول المشيرة إلى علامة الانتظار (الساعة الرملية )




وأما اصدار الامر التالي يعيد شكل المشيرة إلى الوضع الطبيعي




خاصية الظهور

اسم الخاصية : Visible

متوفرة أثناء : التصميم والتنفيذ

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



يؤدي إلى اختفاء خانة النص text1 بينما الأمر :



يعيد إظهارها .

لا يظهر تأثير هذه الخاصية إلا عند تشغيل البرنامج

خاصية التمكين

اسم الخاصية : enabled

متوفرة أثناء : التصميم والتنفيذ

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

خصائص السحب والإلقاء

اسم الخاصية : DragIcon , DragMode

متوفرة أثناء : التصميم والتنفيذ

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

وتتحكم خاصية طور السحب DragMode في أسلوب عملية السحب ولها وضعان

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

1 "تلقائي" وفيه تبدء عملية السحب تلقائياً عندما يضغط المستخدم زر الفأرة فوق الأداة .

تستخدم هاتين الخاصيتين بالاشتراك مع الحدثين dragdrop ,dragover

في القيام بعملية السحب . ولأننا لم نشرح الأحداث بعد ، دعنا نأخذ مثالاً بسيطا على عملية السحب والإلقاء.

v ضع خانتي نص على النافذة وكبر حجمهما ، واتركهما على اسمهما الافتراضي text1,text2

v انتقل إلى الخانة الأولى text1 وانقر عليها لتنشيطها

v انتقل إلى نافذة الخصائص وانقر فوق خاصية طور طور السحب DragMode

وحولها إلى 1automatic

v انتقل إلى نافذة البرنامج form1 ثم انقر فوق خانة النص الثانية text2 نقراً مزدوجاً

v سيفتح "فيجول بيسيك" نافذة البرمجة الخاصة بهذه الخانة :



كما ترى من الشكل اختر الحدث OLEDragdrop الخانة الموضحة في الشكل اكتب السطر :





v اضغط F5 لتشغيل البرنامج

v استخدم لوحة المفاتيح لكتابة بعض النص في خانة النص text1

v انقر فوق خانة النص text1 واسحبها ستجد أن هناك مستطيلا بنفس حجم الخانة يتحرك مع حركة الفأرة

v ألق هذا المستطيل فوق خانة النص الثانية text2

ستجد أن النص الموجود في خانة النص الأولى قد انتقل إلى خانة النص الثانية .

محتويات الدرس الرابع :

v ما هو الحدث ؟

v كيف تستجيب للحدث ؟

v نافذة البرمجة

v الأحداث المشتركة

v المتغيرات والمصفوفات والإجراءات

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



كيف تستجيب للحدث ؟
عند وقوع الحدث هناك أمران : الأول ، هو الحدث نفسه كالنقر مثلاً والثاني هو الأداة التي وقع الحدث فوقها مثل زر الأوامر . يقوم "فيجول بيسيك" بإعداد إجراء حدث على كل أداة موجودة فوق النافذة ويكون الإجراء كما في الشكل التالي :






أي أن "فيجول بيسيك" يقوم بوضع إجراء فارغ لهذا الحدث ، وأنت تضع فيه التعليمات Code التي تريد أن تنفذها عند وقوع الحدث . لذلك يجب هنا أن تسأل نفسك : ماهي التعليمات في داخل إطار الإجراء . وبالتالي كلما نقر المستخدم هذا الزر أثناء تشغيل البرنامج ، فإن "فيجول بيسيك" يقوم بتنفيذ هذه التعليمات لاحظ كيف يربط "فيجول بيسيك" بين الأداة والحدث :

sub command1_click

فهو يضع كلمة sub وهي تحدد بدء الإجراء ثم يضع اسم الأداة ثم حرف (-)ثم اسم الحدث . وفي النهاية يضع عبارة end sub وهي تحدد نهاية الإجراء .



الأحداث الناتجة عن الفأرة
[line]
-متى يقع
- معناه
- الحدث
[line]
عند نقر المستخدم فوق الأداة أو النافذة ويمكن أن يقع أيضاً إذا ضغط المستخدم عصا المسافة على لوحة المفاتيح بينما التركيز على زر أوامر
النقر
Click
[line]
عند نقر المستخدم نقراً مزدوجاً فوق الأداة أو النافذة
النقر المزدوج
DbClick
[line]
عند تحريك المستخدم الفأرة فوق الأداة أو النافذة
حركة الفأرة
MouseMove
[line]
عندما يقوم المستخدم بنقر زر الفأرة وقبل أن يحرره..أي أثناء عملية النقر
زر الفأرة اسفل
MouseDown
[line]
بعد أن يقوم المستخدم بنقر زر الفأرة وتحريره . أي بعد عملية النقر .
زر الفأرة ارتفع
MouseUp

[line]

وهو هنا يعطيك متغيرات ، كل واحد منها يحمل معلومة معينة ، كما يلي :

المتغير Button :

الأحداث الأربعة السابقة تقع عند ضغط المستخدم بأي زر من أزرار الفأرة الثلاثة ويوضح لك المتغير Button أي زر منها قام المستخدم بضغطه ، وله ثلاثة احتمالات :

1. المستخدم ضغط الزر الأيسر

2. المستخدم ضغط الزر الأيمن

3. المستخدم ضغط الزر الأوسط

ولايمكن للمستخدم أن يضغط أكثر من زر في نفس الوقت . قإذا أردت أن تختبر إن كان المستخدم قد ضغط الزر الأيمن ، فإنك تكتب :



فإذا كان المستخدم قد ضغط الزر الأيمن ، سيقوم "فيجول بيسيك" بتنفيذ الأمر التالي لكلمة then

التغير Shift :

يوفر لك معلومات عن حالة المفاتيح الثلاثة Ctrl و Shift و Alt أثناء ضغط زر الفأرة ، كما يلي :

1 المستخدم ضغط مفتاح shift

2 المستخدم ضغط مفتاح Ctrl

4 المستخدم ضغط مفتاح Alt

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


أو أردت أن تختبر إن كان قد ضغط مفتاحي alt و shift أثناء ضغطة لزر الفأرة




المتغيران y,x :

يحددان موقع المشيرة داخل الأداة أثناء عملية ضغط زر الفأرة .

الأحداث الناتجة عن لوحة المفاتيح
هناك ثلاثة أحداث متعلقة بلوحة المفاتيح ، هي :
[line]
متى يقع
معناه
الحدث
[line]
عندما يقوم المستخدم بضغط حرف من حروف آسكي فوف لوحة المفاتيح
ضغط حرف
Keypress
[line]
عندما يقوم المستخدم بضغط أي حرف على حرف وقبل أن يحرره أي أثناء عملية الضغط
المفتاح أسفل
KeyDown
[line]
عندما يقوم المستخدم بضغط أي حرف على لوحة المفاتيح ثم يحرره أي بعد عملية الضغط
المفتاح ارتفع
Keyup
[line]
ويستخدم الحدث keypress عندما تريد أن تعرف الحرف الذي ضغطه المستخدم فوق لوحة المفاتيح

مثال :





v المتغيرات

v المصفوفات

v الثوابت



المتغيرات
المتغير Variable هو اسم تستخدمه لحمل قيمة متغيرة . فمثلاً إذا أردت أن تسأل المستخدم عن اسمه ، فاسم المستخدم قيمة متغيرة لأنك لاتعرف ماهو . فممكن أن يكون "علي" أو "محمد" أو "عبدالمحسن" أو أي اسم آخر . لذلك نستخدم له متغير ، وليكن UserName$ في هذه الحالة يمكنك كتابة الأمر :



سيعرض "فيجول بيسيك" مربع حوار التالي :



ملاحظة : يستخدم امر inputbox$ لطلب معلومة من المستخدم.

شرح السطر السابق هو :

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

وعندما ينتهي المستخدم من إدخال الاسم ، فإن "فيجول بيسيك" يضع هذا الاسم في المتغير username$ . ويبقى هذا المتغير يحمل هذه القيمة حتى تقوم بتغييرها.

ويمكنك استخدام القيمة التي يحملها المتغير كأن تضعها في متغير آخر ، مثل :



فهنا سينسخ "فيجول بيسيك" القيمة الموجودة في المتغير username$ ويضعها في المتغير cilentname$ . ويمكن أن تضع هذه القيمة في أداة القائمة مثلاً :



ويمكنك تغيير القيمة التي يحملها المتغير بوضع قيمة جديدة داخله ، فيلغي "فيجول بيسيك" القيمة القديمة ويضع محلها القيمة الجديدة . مثلاً :



وهذا المتغير يُسمى متغير حرفي string variable لأنه يحتوي على مجموعة حروف . وتوجد كذلك متغيرات عددية وهي تستخدم لحمل الأعداد وليس الحروف . فمثلاً يمكنك أن تسأل المستخدم عن عمره وتضع القيمة التي يدخلها في متغير عددي :



ويتميز المتغير العددي بإمكانية إجراء العمليات الحسابية مثل الطرح والضرب والقسمة عليه مثل برنامج الوحدات الذي قمتُ ببرمجته وشرحة


اختيار اسم المتغير
هناك شروط لاختيار اسم المتغير منها :

· يجب ألا يزيد اسم عن 40 حرفاً

· يجب أن يكون أول حرف منه حرفاً هجائياً

· يجب ألا تستخدم كلمة من الكلمات المحجوزة reserved words كأسم للمتغير من الكلمات المحجوزة print و end ولكن يمكن أن تكون جزء من اسم اخر مثل PrintText
[line]
أنواع المتغيرات
[line]
مداه
معناه
نوع المتغير
[line]
من –32768 إلى 32767
عدد صحيح
Integer
[line]
من –214748E إلى 21474
عدد صحيح
Long
[line]
-3.402823 إلى –1.40129
من 1.4012 إلى 3.4028
عدد ذو فاصلة عشرية عائمة
Single
[line]
-1.7976931 إلى –4.9406

من 4.94065 إلى 1.79769
عدد ذو فاصلة عشرية
Double
[line]
============
=======
Currency
[line]
من 0إلى 65.500 حرف تقريباً
مجموعة من الحروف
String
[line]
حرفي أو عددي
بتاع كُـله
Variant
[line]

الإعلان عن المتغيرات
الإعلان عن المتغير أن تخبر "فيجول بيسيك" عن اسم المتغير ونوعه ، مثل :



فهنا الأمر Dim يخبر "فيجول بيسيك" أننا نريد أن نعلن عن متغير ، وكلمة UserName كمتغير يحمل سلسلة حروف . في هذه الحالة ، يقوم "فيجول بيسيك" بحجز الذاكرة الضرورية لذلك المتغير وتهيئته .

لاحظ أن الإعلان عن المتغير ليس إجباري

الفائدة من الإعلان عن المتغيرات

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





سيقوم السطر الأول بالتنفيذ ويطلب المستخدم بالاسم ولكن لن يطبع اسم المتغير لإن الكلمة خطا (ناقصة حرف r ) ومع ذلك سوف يقوم"فيجول بيسيك" بتنفيذ البرنامج بدون أي مشاكل !!!

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



ويتم الإعلان عن المتغيرات باستخدام أحد الأوامر التالية :

Dim ,Global ,Static

يجب الإلتزام بنوع المتغير
مثلا :

لا يجوز أن تعلن عن متغير عددي وتضع فيه قيمة حرفية

والعكس صحيح كذلك



مدى المتغيرات وعمرها :

المتغيرات العامة

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

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

ولكن يجب أن تضع الإعلان عن المتغير العام في ملف برمجة وليس في نافذة .

طريقة ادخال المتغيرات التي ترغب في جعلها متغيرات عامة هي

Global UserName As String

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



المصفوفات

المصفوفة Array هي سلسلة من المتغيرات تحمل نفس الاسم ويتم التمييز بين المتغيرات داخل هذه المصفوفة باستخدام رقم المتغير داخلها .

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

هنا ، الاسم EmpName هو اسم المصفوفة ، والرقم (50) هو عدد العناصر داخلها ثم كلمة String تحدد نوع المتغيرات التي ستضعها في المصفوفة . كلمة as string اختيارية وإن لم تحددها سيكون نوع المتغيرات هو variant وبالتالي يمكن تخزين أي نوع فيه .

يمكنك قراءة أسماء الموظفين ووضعها في المصفوفة باستخدام تكرار For …Next

بالشكل التالي :



فهنا نستخدم تكرار for ..next (سوف نشرحها بالتفصيل في المحاضرات التالية)

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

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



وإذا أردت قراءة القيمة الموجودة في المتغير رقم 20 داخل المصفوفة ووضعها في متغير آخر فإنك تكتب :



لاحظ مرة أخرى أن الوضع الافتراضي للمصفوفات هو أن يبدأ العد داخلها من صفر . فإذا رغبت أن تجعل العد يبدأ العد من 1 ضع الأمر التالي :




الثوابت

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

مثلا بدلا من أن تضع قيمة معينة على كل البرنامج ضع ثابت لها في أول البرنامج ثم اكتب البرنامج على اساس الثابت بدلا من القيمة في كل البرنامج

مثال :

لنفرض أن لديك عشرين موظفاً تريد أن تطلب بياناتهم من المستخدم يمكنك أن تكتب عدد الموظفين وهو هنا 30 مباشرة في كل مرة تحتاج إلى ذلك مثل :

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

وكحل لتلك المسألة ، استخدم ثابتاً constant وضعة في بداية البرنامج أو الإجراء مرة واحدة وتضع فيه العدد الذي ترغب فيه ، مثل :

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

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



فإن "فيجول بيسيك" يستخدم الرقم &HFF0000 للأزرق وغيرها من الألوان فكيف يمكنك أن تتذكر كل هذه الأرقام الغير مفهومة ؟

الحل : هو أن تضعها في ثوابت بالطريقة التالية :

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

مثال :


مدى الثوابت :

مثل المتغيرات بالضبط فإذا كنت تريد أن تستعمل الثابت في كل النوافذ الموجودة في البرنامج فيجب أن تضع الثابت في ملف برمجة وتسبقه بكلمة Global

مثال :



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

الاجراءات

متى تحتاج إلى الاجراءات ؟

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

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

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

كيف تكتب الإجراء ؟




Object انقر نافذة البرنامج نقرا مزدوجا لكي تفتح لك نافذة البرمجة ثم إذهب إلى


واضغط السهم سوف ينسدل لك قائمة انقر منها (general)

وبعد ذلك سوف تجد نافذة البرمجة خالية اكتب فيها ما يلي :

اسم الاجراءsub

Sub Getfilename مثل :

ثم اضغط زر إدخال من لوحة المفاتيح يظهر لك مايلي :





هنا تكتب الاوامر التي تريدها لهذا الاجراء


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

محتويات الدرس الخامس :

v المعاملات (<> و < و > و => و =< )

v تركيب If…Then

v تركيب if …then …else

v تركيب select case

v تركيب For…Next

v تركيب do...loop



أولاً : المعاملات

سوف نلخصها في هذا الجدول
[line]
خاطئ إذا
صحيح إذا
مثال
معناه
المعامل
[line]
A أصغر أو أكبر من B
A تساوي B
A = B يساوي =
[line]
A تساوي B
A تختلف عن B
A <> B
لايساوي
<>
[line]
A أكبر من أو يساوي B
A أصغر من B
A < B
أصغر من
>
[line]
A أكبر من B
A أصغر من أو يساوي B
A <= B
أصغر من أو يساوي
=>
[line]
A أصغر من أو تساوي B
A أكبر من B
A > B
أكبر من
<
[line]
A أصغر من B
A أكبر من أو يساوي B
A >= B
أكبر من أو يساوي
=<
[line]

ملاحظة :الرجاء من المبرمجين حفظ هذا الجدول

تركيب If…Then



فإذا كانت الكلمة التي أدخلها المستخدم تختلف عن <> عبارة "علي" فإن الشرط يعد صحيحاً ويقوم "فيجول بيسيك" بتنفيذ الأمر الذي يلي كلمة Then وهو امر end وهو يقوم بإنهاء البرنامج .

يمكن تنفيذ عدة أوامر بالطريقة التالية



مثال : (برنامج إدخال كلمة سر )





تركيب if…then ….else

وتكون صياغته بالشكل التالي :





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

التي تلي كلمة else حتى كلمة end if . أي أنه لابد من تنفيذ إحدى المجموعتين من الأوامر . مثال :




يقوم البرنامج بسؤال المستخدم عن كلمة سر فإذا كانت صحيحة فإنه يرحب به وأما إذا كانت غير ذلك يعرض عليه رسالة توضيحية وبعدها يخرج من البرنامج



تركيب Select Case

إذا كان لديك احتمال واحد أو احتمالين للشرط ، فإنه يمكنك إستخدام تركيبات if التي ذكرناها سابقاً . أما إذا كان لديك عدة احتمالات فإنه من الأفضل أن تستخدم تركيب Select Case وتكون صياغته كالتالي




في هذا التركيب يقوم "فيجول بيسيك" بتقييم الشرط في بداية التركيب . ثم يبدأ في مقارنته مع الاحتمالات المختلفة التي تذكرها عند كلمة Case ، فإذا وافق أحدها الشرط ، فإنه يقوم بتنفيذ مجموعة الأوامر التي تليها حتى كلمة Case التالية . وإذا لم يوافق أي من الاحتمالات المذكورة فإنه ينفذ مجموعة الأوامر التي تلي كلمة Case Elese ( وهي اختيارية ) فإذا لم تكن موجودة ، فإنه لانفذ أي من تلك الأوامر

وكمثال على تركيب Select Case ، لنفرض أن لديك أربعة مستخدمين للبرنامج وتريد أن تحدد درجة المستخدم حسب كلمة السر التي يدخلها ، فإنك تكتب شيئاً مشابها لمجموعة الأوامر التالية :




التكرار :

التكرار loop يعني تكرار مجموعة معينة من الأوامر عدد معين من المرات . وهناك ثلاثة تركيبات لعمل ذلك وهي :

تركيب for …next

يستخدم إذا كنت تعرف عدد المرات التي ترغب في تكرارها ، وتكون صياغته كالتالي:




مثال :

إذا أردت أن تكرر مجموعة أوامر عشرة مرات مثلا قم بما يلي :



مجموعة الأوامر



ويجب أن لا تعدل قيمة المتغير الذي يحمل عدد مرات التكرار

مثال

هذا التكرار سيتفذ 5 مرات لأن في كل مرة يتم فيها تنفيذ مجموعة الأوامر المحصورة بين for و next تتم فيها زيادة المتغير مرتان .


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

الشكل الأول

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



في هذا المثال يضل يقرأ حتى يصل إلى كملة "bye "

الشكل الثاني

DO
مجموعة الأوامر

الشرط Loop while

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


[line]
الخروج من التكرار :
[line]
اسم التكرار Exit for
طريقة الخروج التكرار for…next
[line]
اسم التكرار Exit loop
طريقة الخروج التكرار do …loop
[line]

محتويات الدرس السادس :

v أهم خصائص النافذة

v أهم أحداث النافذة

v إظهار النوافذ وإخفائها



أهم الخصائص للنافذة
اسم الخاصية : AutorRedraw

متوفرة أثناء : التصميم والتنفيذ

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

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

مثال

v افتح مشروع جديد

v انقر نقراً مزدوجاً فوق النافذة form1 لتفتح نافذة البرمجة الخاصة بها .

v غير الحدث المعروض في النافذة إلى حدث النقر click

v اكتب التعليمات التالية :


v شغل البرنامج بالضغط على F5

v انقر فوق النافذة سوف يقوم "فيجول بيسيك" بتنفيذ الأوامر التي وضعتها في



حدث النقر فيرسم دائرة ويطبع جملة .
v صغر النافذة ثم كبرها ، ماذا تلاحظ ؟؟؟ ستجد أن النافذة فقدت محتوياتها .

والحل هو أن تضع الأوامر في الحدث paint بدلاً من click

مثال :


v شغل البرنامج F5

v صغر النافذة وكبرها ، ستجد أن النافذة محتفظة بمحتوياتها

حل أخر ( هو يمكن أن تغير خاصية النافذة form1 وتضع autodedraw قيمة true

شرح دراسة الخصائص للنافذة form1 في المحاضرة



إخفاء النافذة
استخدم امر hide لإخفاء النافذة

مثال :



وهذا الامر يقوم بإخفاء form2

اظهار النافذة
مثال :



وهذا الامر يقوم بإظهار form2

أوامر التعامل مع الملفات والأدلة
v معرفة القرص والدليل الحالي

إذا أردت معرفة القرص والدليل الحالي ، استخدم الأمر curdir$

مثال :




يعود هذا بالدليل الحالي بكاملة بما فيه القرص الحالي . لذلك يمكنك استخدام الأمر left$ لقراءة أول حرف فيه ومن ثم معرفة القرص الحالي ، مثل :



فهنا المتغير mydrive يحتوي على القرص الحالي



معرفة الدليل الذي بدأ منه برنامجك

مثال :





نسخ ملف

عندما ترغب في نسخ ملف ، استخدم الأمر filecopy وله الصيغة التالية

"الهدف" ," المصدر" filecopy

مثال :



ومن الممكن تغيير اسم الملف عند النسخ

مثال :



حذف ملف
باستخدام امر kill

مثال :





يجب أن تتحلى بالحذر عند استخدام هذا الامر لإنه أيضا يستخدم خاصية * و ؟

كما تفعل في نظام دوس

مثال :




إعادة تسمية الملفات والأدلة
فمثلاً من الممكن تسمية الملفات أو الأدلة باستخدام الأمر name وله الصيغة التالية:

"الاسم الجديد"as "الاسم القديم"name

مثال



ومن الممكن أن تستخدم الأمر لنقل ملف من دليل إلى آخر فمثلاً :



فهنا ننقل الملف test.exe من دليل mypro إلى الدليل الجذري c:\

البحث عن ملف
بإستخدام امر dir$

مثل الامر الموجود في نظام دوس

مثال :



يحمل المتغير exits$ نتيجة البحث عن الملف . ويمكنك بعد ذلك إختباره

مثال :


فتح الملف
لكي نقرأ أو نكتب إلى ملف ، يجب أن تفتحه أولاً . ويمكنك فتح الملف باستخدام الأمر open وله الصيغة التالية :



ويعني طور الملف مايلي
[line]
فتح الملف للقراءة : استخدم كلمة input
[line]
فتح الملف للكتابة (يمسح محتويات الملف) :استخدم كلمة output
[line]
فتح الملف للإضافة (يقوم بإضافة ) :استخدم كملة append
[line]
بعد فتح الملف يمكنك أن تقوم بالعمليات التالية :

v الكتابة إلى الملف

تتم الكتابة إلى الملف باستخدام الأمر print

وله الصيغة التالية :



مثال


مثال على ذلك
v افتح مشروع جديد

v ضع اداة الأوامر على نافذة البرنامج

v وبعد ذلك انقر على اداة الأوامر نقرا مزدوجاً

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


القراءة من الملف
استخدم الأمر input وله الصيغة التالية :



وفي هذه الحالة سيقوم بقراءة سطر كامل من الملف ، ويضعه في المتغير . فإذا فرضنا أنك فتحت الملف تحت الرقم 1 ، يمكنك أن تكتب :



فهنا سيقرأ الأمر input سطراً من الملف ويضعه في المتغير myline$


ولكن إحذر أن تقرأ إلى نهاية الملف لإن "فيجول بيسيك" سوف يقوم بتوقيف البرنامج

ولحل ذلك اختبر قيمة الأمر ) رقم الملف EOF(


جرب القراءة من الملفات :

v افتح مشروع جديد

v ضع اداة الأوامر على نافذة البرنامج

v وبعد ذلك انقر على اداة الأوامر نقرا مزدوجاً

سيفتح لك نافذة البرمجة اكتب مايلي :
v

شغل البرنامج F5


كيف تغلف الملف ؟

بعد أن تنتهي من القراءة أو الكتابة ، يجب أن تغلف الملف وهو سهل جداً ماعليك إلى أن تكتب



وإذا كنت تريد أن تغلف ملفات كثيرة فتحتها اكتب




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

طلب معلومة من المستخدم استخدم الامر inputbox$

وله صيغة التالية


رسالة تعني : الجملة التي تريد عرضها على المستخدم

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

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





كيف تعرض هذه الرسالة ؟



يتم عرض هذه الرسائل باستخدام الأمر msgbox وله شكلان . الأول إذا كنت تريد عرض رسالة بيسطة ولا تطلب من المستخدم أن تحدد رأيه في مسألة معينة ، في هذه الحالة استخدام الصيغة التالية :

عنوان مربع الحوار, الأزرار والرموز , الرسالة المطلوبه msgbox

أما إذا كنت تريد أن تعرف رأيه بشئ معين قم بوضع الامر بالطريقة التالية


وفي هذه الحالة سيحمل المتغير رد فعل المستخدم

الرسالة المطلوبه : هو الجملة التي تريد عرضها على المستخدم

عنوان مربع الحوار : هو عنوان شريط عنوان مربع الحوار

الأزرار والرموز : وهو يحدد نوعية الأزرار التي ترغب في عرضها والرموز

وهذه الرموز والأزرار :
[line]
الرقم ----> معناه
[line]
0 عرض زر ok (موافق)
1 عرض زري ok (موافق) و cancel (إلغاء الأمر)
2 عرض أزرار abort (توقف) وretry (إعادة المحاولة) ignore (تجاهل)
3 عرض أزرار yes (نعم) و no (لا) و cancel (إلغاء الأمر)
4 عرض أزرار yes (نعم) و no (لا)
5 عرض أزرار retry (إعادة المحاولة) وcancel ( إلغاء الأمر)
16 عرض رمز قف
32 عرض رمز علامة الاستفهام
48 عرض رمز علامة التعجب
64 عرض رمز علامة الاستعلام
[line]

فإذا رغبت في عرض رسالة تحتوي على الأزرار ok و cancel ومعها رمز علامة الاستعلام ،فإنك تجمع 1+64 = 65 وتستخدمها عندما تطلب الرسالة هكذا :



وإذا كنت تريد أن تعرف رد فعل المستخدم ، فإن الأمر msgbox يعود بالاحتمالات التالية :
[line]
الرقم ----> المستخدم نقر زر...
[line]
1 Ok ( موافق)
2 Cancel (إلغاء امر)
3 Abort (توقف)
4 Retry (إعادة المحاولة)
5 Ignore (تجاهل)
6 Yes (نعم)
7 No (لا)
[line]

ومثال على ذلك :


شرح البرنامج :

في هذه الحالة سيعرض "فيجول بيسيك" الرسالة وإذا اختار المستخدم "نعم" yes

فإن "فيجول بيسيك" ينهي البرنامج .



الصوت في "فيجول بيسيك"

يجب كتابة هذا الربط الديناميكي في ملف برمجة في سطر واحد ولكنه هنا في سطرين ‍‍‍‍‍.



أما هذا الامر فوق النافذة نفسها وتضعه في general


وبعد كتابة هذا السطر ماعليك الان إلا كتابة الاسم فقط وهو SNDPLAYSOUND



يقوم هذا الاجراء بمعرفة مسار برنامجك الذي شغل منه ثم يشغل ملف موجود في نفس المسار وهو أفضل من السابق .


[line]
[line]
نتمنى أن تكونو قد أستفدتم من هذه الدروس
[line]
[line]