فيجوال بيزك فى خطوات سهلة )

كيف تصبح مبرمجا بالفيجوال بيسك؟!
الموضوع يحتاج منك الصبررررررررررررر


لاشك في أن كتابة البرامج من الأمور الممتعة أثناء العمل, رغم ما قد يواجه المبرمج أحيانا من مشاكل وتعقيدات في بعض البرامج, إلا أن خروج البرنامج في

شكله النهائي حسب رغبة المبرمج يعتبر بحق المكافأة الحقيقية علي هذا المجهود . ومما لاشك فيه أن لغة البرمجة (فيجوال بيسك) من اللغات القوية التي

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

الماضي عن خطوات العمل في برنامج الفيجوال بيسك والتعامل مع النماذج.

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

هناك مكونات (عناصر) لهذه اللغة وهي :

1- الرموز Symbolsوهي الحروف A,B,C,..... والأرقام (1,2,3,.....) والرموز الخاصة (,!,؟,,, ...)

2- التعبيرات Expressions والمقصود بها تلك المعاملات كالضرب والقسمة ,ويطلق عليها تعبيرات حسابية, أما أن نقول 5 > 10 أو 2<


6 فهي تعبيرات علاقية أو منطقية للمقارنات.

3- الأوامر Commands وهي تلك الأوامر الموجودة بشريط القوائم كأمر Save من File إلي آ خر هذه الأوامر.

4- المتغيرات Variables ويقصد بها ذلك المخزن الذي يتم به حجز مكان في الذاكرة لحفظ قيم معينة وكمثال:A = 10

معني ذلك أننا قد قمنا بحجز مكان للمتغير A في الذاكرة ليحفظ به القيمة 10 مع ملاحظة أنه يمكن أن تكون قيمة المتغير نصية أيضا فمثلا A


= Ahmed معني ذلك أن قيمة المتغير A أصبحت مساوية لكلمة Ahmed وسنعرف فيما بعد أوعية مختلفة لتخزين البيانات غير


المتغيرات.

5- الدوالي Functions: سبق وأن شاهدنا الوظيفة QBcolor (4) ومن هنا نستنتج تطبيقا علي هذه الوظيفة التي هي عبارة كلمة معينة


ترد لنا قيمة معينة, فنفس هذه الوظيفة يختلف مردودها باختلاف القيمة التي تدخل بين القوسين (15-0).

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

أمثلة لاستخدام عناصر فيجوال بيسك :

دعنا الآن نستخدم هذه الأمثلة بشكل أفضل وأكثر احترافا, فمثلا نريد عمل زر في النموذج لإظهار ناتج عملية حسابية معينة بالنقر عليه, والآن


اتبع الخطوات التالية:

- افتح New project من قائمة File ثم اختر Standard EXE وانقر OK.

- من مربع الأدوات الموجود بيسار الشاشة اختر بالنقر علي Command button ثم ارسمه في المكان الذي تريده بالنموذج (تذكر طريقة


وضع مربع عنوان أو مربع نص).

- انتقل إلي مربع الخصائص واذهب إلي خاصية Caption وقم بتغيير كلمة Command1 إلي كلمة (احسب الآن).

- من خاصية Name قم بتغيير الاسم إلي Result بدلا من Command1

- الآن انقر نقرا مزدوجا علي الزر لفتح نافذة كتابة الجمل البرمجية, ستشاهد الكود التالي:

Private sub Result _click ()

End sub

ومعناه عند النقر مرة واحدة علي الزر المسمي Result قم بتنفيذ الآتي..

- قم بكتابة الكود التالي في السطر الفارغ بين السطرين السابقين:

؟ 180 /20

؟ 180 + 20

- قم بتشغيل البرنامج F5 واضغط علي الزر فتظهر النتيجة 9 ,200 علي سطرين متتاليين

- قم بإنهاء البرنامج

والآن دعنا نستخدم نفس المثال السابق ولكن مع استخدام متغيرات:

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

- امسح السطرين اللذين تم كتابتهما المرة السابقة والخاصين بطباعة القسمة والجمع.

- اكتب الكود التالي بدلا منهما:A = 180



B =20

C = A/B

D = A +B

" Cناتج القسمة هو " ؟

" Dناتج الجمع هو " ؟

- قم الآن بتشغيل البرنامج, وانقر الزر ولاحظ الناتج.

لقد قمنا بحجز أماكن في ذاكرة الحاسب A, B وعينا في كل منهم قيمة (20, 180) ثم أجرينا العمليات الحسابية علي هذه المتغيرات.

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


هي وبين ناتج متغير سبق تعيينه.

-= كان يمكنك الاستغناء عن النص المكتوب والاكتفاء ب-

؟ C

؟ D

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

؟ C D

- ماذا تشاهد؟

- غير الفاصلة المنقوطة بفاصلة عادية ثم شاهد الفرق عن طريق تشغيل البرنامج.

عزيزي القارئ: لابد من ذكر بعض المعاملات العلاقية (المنطقية) وكيفية كتابتها:

=يساوي

< > لا يساوي

> أكبر من

< أصغر من

=> أكبر من أو يساوي

=< أصغر من أو يساوي






استخدام الدوالي (الوظائف) Functions :

سبق وأن ذكرنا ماهية الدوالي ولكي تفهم كلمة مردود الوظيفة اخترنا وظيفة Vartype() وهي وظيفة جاهزة مع لغة فيجوال بيزيك مهمتها رد قيمة المتغير

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

مثال:

1- أنشئ زر Command button آخر بنفس نموذج العمل السابق

2- انقر نقرا مزدوجا علي هذا الزر لفتح نافذة كتابة الكود

3- اكتب ما يلي بين سطري :Private..., End sub

A = 100

؟ Vartype (A)

4- قم بتشغيل البرنامج .

5- عد لكود هذا الزر مرة أخري واجعل محتويات المتغيرA مساويا Ahmed بدلا من 100 .

6- قم بتشغيل البرنامج واضغط الزر وشاهد المردود.

7- عد للتصميم مرة أخري ثم افتح كود هذا الزر مرة ثانية وغير قيمة المتغير A إلي 450000..

8- عد لتشغيل البرنامج واضغط الزر وشاهد المردود.

لاحظ أنه في المرة الأولي كانت النتيجة 2 أي أن محتوي المتغير A كان عددا صحيحا Integer

أما في الثانية كانت النتيجة 8 أي أن محتوي المتغير A كان قيمة نصية String

وفي المرة الثالثة كان المردود 3 أي أن محتوي المتغير A كان عدد صحيحا طويلا Long Integer

والجدول التالي يبين أنواع البيانات المختلفة ونتيجة الدالة Vartype


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


في المناقشة.

الشروط واتخاذ القرار:

لكتابة الشروط واتخاذ القرارات في لغة الفيجوال بيزيك نستخدم الصيغة العامة التالية :

If إذا {الشرط}

Then عندئذ

Statements> جملة/جمل تحقق الشرط

Else وإلا

Statements>جملة/جمل عدم تحقق الشرط

End If نهاية جملة التفرع (لابد منها)

وكما تعودنا فإن لكل موضوع مثالا , تعال الآن لهذا المثال : بافتراض أن الحد الأدني لدرجة الحرارة المتوسطة هو 25 ,إذا فأعلي من ذلك


هي درجة حرارة عالية وأقل من هي درجة حرارة منخفضة .

1- قم بإنشاء مشروع جديد New Project من قائمة ملف .(File)

2- اختر Ok ل- .Standard EXE

3- انقر نقرا مزدوجا علي النموذج لتظهر لك نافذة كتابة الكود للبرنامج.

4- من مربع سرد الأحداث غير إلي Click بدلا من .Load

5- اكتب الكود التالي :

Private sub Form1_Click ()

Degree = 25

If Degree >25 Then

؟ "High Degree"

Else

؟ "Low Degree"

End if

End Sub

6- قم بتشغيل البرنامج F5 بالنقر مرة واحدة علي سطح النموذج ستشاهد كلمة Low Degree , وفي كل مرة نقر ستشاهد نفس الكلمة وذلك لأننا قمنا

بتخزين قيمة ثابتة في المتغير Degree وبالتالي في كل مرة مقارنة سيقوم البرنامج بحساب درجة الحرارة فسيجد أنها ليست أكبر من 25 وبالتالي سيقوم

بتنفيذ الخطوات التالية لكلمة Else وهي طباعة كلمةLow Degree .






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

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

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

بحيث نحدد أن عدد تكرار هذه العمليات هو عدد الأشخاص المطلوب حساب مرتباتهم.


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


تعال الآن لنبدأ بمثال بسيط للتكرار, أتتذكر مثال طباعة Welcome To Visual Basic حاول أن تعود لنفس هذا المثال وكرر أمر طباعة هذه الجملة عشر مرات في نافذة كتابة البرامج , لابد انه أمر ممل ومرهق.

الآن إليك هذه الوصفة السحرية:


1- أمح العشرة أسطر المكررين والخاصة بالجملة "Welcome To Visual Basic" Print

2- اكتب بدلا من هذه الأسطر مايلي :

Private Sub Form1_Click ()

For I = 1 to 10

؟ "Welcome to Visual Basic"

Next I

End Sub

قم الآن بتنفيذ البرنامج F5 وانقر علي النموذج فستجد أن الكلمة تكررت عشر مرات كما لو كنت كتبت الكود عشر مرات علي الرغم من أنك كتبتها مرة واحدة

فقط, ولكن ما السبب؟


الإجابة ببساطة أن جملة الطباعة وضعت في حلقة تكرارية بين سطري FOR و NEXT وتم تحديد عدد مرات التكرار في جملة 1 TO 10 أي التكرار من

واحد حتي عشرة بحيث أن كل قيمة أو كل مرة طباعة تخزن في متغير أسميناه I بحيث عندما تكون قيمة I = 1 يقوم بكتابة الجملة المطلوبة ثم يقوم بتنفيذ

السطر التالي وهو Next I أي اذهب لقيمة I التاليةI =2 وقم بتنفيذ طباعة الكلمة ثم I التالية , وهكذا حتي نصل إلي قيمة I=10 وهي نهاية المطاف

(الحلقة التكرارية) فيقوم بكتابة الجملة للمرة الأخيرة وطالما أننا ذهبنا لنهاية الحلقة يقوم البرنامج بتخطي جملة Next I لتنفيذ ما بعدها وفي حالتنا هذه يقوم

بتنفيذ سطرEnd Sub .


عمل برنامج بسيط لجمع رقمين متغيرين :

1- قم بعمل مشروع جديد New Project من قائمة ملف File واختر Open ل- .Standard EXE

2- توجه إلي نافذة الخصائص وتحديدا إلي خاصية Caption واكتب "نموذج الجمع" بدلا منForm1 .

3- توجه إلي أداة مربع النص Textbox من أدوات التحكم وانقر عليه ثم قم برسمه في النموذج .

4- توجه إلي مربع العنوان Label وانقر عليه واسحبه إلي جوار مربع النص السابق عمله وتوجه إلي خاصية Caption لهذا المربع وأكتب "الرقم الأول".

5- قم بتخليق مربع نص آخر Text2 أسفل المربع السابق وكذا مربع عنوان آخر بجوار مربع النص الثاني وغير ال- Caption لمربع العنوان الثاني إلي "الرقم الثاني" .

6- قم بتخليق مربع نص ثالث بأسفل المربعين السابقين Text3 وكذا مربع عنوان بجواره يحمل Caption نصه "النتيجة".

7- قم بتخليق زر أمر Command Button بأسفل النموذج وأجعل خاصية ال- Caption لهذا الزر "أحسب الآن" .

8- قم بالنقر المزدوج علي سطح النموذج واكتب الكود التالي :

Private Sub Form1_Load ()

Text1.text=""

Text2.text= ""

Text3.text=""

End Sub

وهذا الكود يقوم بمحو مربعات النص الثلاث من كلمة Text بمجرد تحميل النموذج .

9- عد إلي تصميم النموذج وانقر نقرا مزدوجا علي زر الأمر Command Button , فتظهر لك نافذة كتابة كود البرنامج فتكتب فيها ما يلي :


Private Sub Command1_Click ()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

ومعني هذا الكود أن قيمة مربع نص Text3 ستصبح مساوية لجمع محتوي مربعي النص Text1 , Text2 ولقد وضعنا الوظيفة Val () قبل كل منهما لتحويل محتوي المربعين من الحالة النصية إلي الحالة الرقمية حتي يمكن جمعهما - حاول أن تجري نفس المثال دون استخدام الوظيفة وشاهد الفرق .


الآن قم بتخليق زر أمر آخر الغرض منه ضرب الرقمين الموجودين بمربعي نص Text1 و Text2 وأظهر الناتج في مربع النص Text3.






عمل برنامج تنفيذيEXE File-
1- بعد أن تحفظ مشروعك والنماذج التابعة له بأسم Calc افتح قائمة ملف File

2- اختر Make Calc EXE ... فيظهر المربع الحواري Make Project .

3- اكتب أسم الملف Calc واختر المجلد الذي تريد الحفظ فيه من مربع سرد Save in ثم انقر فوق Ok.

4- بعد انتهاء فيجوال بيزيك من عمله توجه إلي الملف التنفيذي والذي خلقته للتو من Windows Explorer ثم انقر عليه نقرا مزدوجا


فستجد أن البرنامج يعمل دون الدخول إلي الفيجوال بيزيك .

وهناك ملاحظتان هامتان هما :-

1- أن عملية تخليق ملف تنفيذي لا تتم إلا بعد أن يقوم الفيجوال بيزيك بعمل مسح شامل للأوامر المستخدمة وكود البرنامج, فإذا وجد أي خطأ


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


التنفيذي دون تردد .

2- ملف EXE والذي تم تخليقه لا يتم تشغيله إلا بوجود برنامج الفيجوال بيزيك علي الجهاز أو علي الأقل بعض الملفات الأساسية لتشغيله


ضمن ملفات النظام ,بمعني آخر إذا أردت تشغيل الملف علي جهاز ليس به فيجوال بيزيك فإن هذا الملف لن يعمل معك

التوسع في استخدام أدوات التحكم :

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


النموذج ثم السحب حتي تنتهي من تحديد المساحة المطلوبة للكائن . ولكي نبدأ عملنا بصورة أكثر توسعا مع الكائنات دعنا أولا نتعرف علي بعض المفاهيم الأساسية والتي ستساعدنا في العمل :-

1- أداة التحكم : وهي تلك الأداة التي نستعملها لإنشاء الكائنات علي نموذج العمل .

2- الكائنات : وهي تلك العناصر الموجودة في مربع الأدوات والتي نقوم بإنشائها علي النموذج ويمكننا تغيير خصائصها وحجمها , وتتمتع تلك


الكائنات باحتفاظها بأصلها أي أنه إذا أنشأت مثلا مربع سرد فيمكنك استعراض ما بداخله عن طريق شريط التمرير الذي يتبع مربع السرد نظرا


لوجود خاصية التمرير به .

3- الخاصية : وهي تلك القيمة التي يأخذها الكائن الذي تم إنشاؤه ومن أمثلة الخصائص : ForeColor-Caption-Visible-.. ويمكننا


وضع صيغة عامة لإعداد الخواص للكائنات في كتابة البرامج :

Object. Property=Value

وObject هو ذلك الكائن الذي يتم إنشاؤه و Propertyهي الخاصية التي نريد تغيير قيمتها و Value هي تلك الإعداد الجديد (القيمة الجديدة) للخاصية , وكمثال :

"موافقCommand1.Caption = "

4- الطريقة : هي كلمة خاصة تؤدي وظيفة لكائن معين , وكمثال:

List1.AddItem = "First"

وذلك يقوم بإضافة AddItem لنص First في مربع سردList1

استعمال كائنات نظام الملفات :

إذا ط لب منك عزيزي القارئ عمل برنامج يشبه في عمله عمل برنامج Windows Explorer وذلك لتصفح الملفات الموجوده علي مختلف المجلدات

بمختلف محركات الأقراص علي الكمبيوتر ,فماذا ستفعل ؟


دعني أساعدك في عمل هذا البرنامج المبسط :

1- قم بعمل مشروع جديد ثم انقر Open علي Standard.EXE

2- قم بعمل Maximize للنموذجForm1.

3- من خاصية Caption للنموذج غير القيمة من Form1 إلي "مستكشف الملفات" .

4- انقر أداة التحكم DriveListBox من مربع الأدوات ثم ارسم بأسفل النموذج مربعا ليمثل هذا المربع محركات الأقراص.

5- انقر أداة التحكم DirListBox من مربع الأدوات ثم أرسم مستطيلا أعلي مربع محركات الأقراص .

6- أنقر أداة تحكم FileListBox من مربع الأدوات ثم أرسم مستطيلا بجوار مستطيل مستعرض المجلدات السابق .

7- انقر نقرا مزدوجا علي مربع سرد DriveListBox ثم اكتب الكود التالي :

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

8- انقر نقرا مزدوجا علي مربع سرد DirListBox, ثم أكتب الكود التالي :

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

9- الآن اضغط F5 لتنفيذ البرنامج وغير في محركات الأقراص وكذلك في المجلدات التابعة لكل محرك أقراص لتشاهد الملفات التابعة لكل


مجلد .

الآن سنقوم بإضافة أخري وهي إظهار مسار الملف بمجرد النقر عليه :

10- في نفس المثال قم بإضافة مربع عنوان Label Box أسفل النموذج وتوجه إلي نافذة الخصائص وامسح كلمة Label1 من الخاصية


.Caption

11- انقر نقرا مزدوجا علي مربع FileListBox واكتب الكود التالي:

Private Sub File1_Click()

Label1.Caption= File1.Path + "\" + File1.FileName

End Sub

الآن قم بالضغط علي F5 واختر ملفا معينا بالنقر عليه ستشاهد مسار هذا الملف بالكامل بأسفل النموذج .

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









0