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

من طرف **Admin** السبت فبراير 05, 2011 11:40 am

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

تطبيقات الفيجوال والبيسك

موسوعة بلاك تيوب 2
القسم المكتبي
www-blacktube2.ahalamontada.net

تاليف :

ليث قبلاوي .............................

القسم العلمي ...............

الفهرس

1. المقدمة ........................................

2. البرامج متعددة النماذج ........................

3. الاجراءات ....................................

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

المقدمة عن لغة الفيجوال والبيسك

معلومات عامة :

ان لغة الفيجوال والبيسك هي لغة مطورة عن لغة البيسك وتعمل تحت بيئة النوافذ windows الرسومية , هي رسومات وايقونات وقوائم ورموز يتم التعامل معها باستخدام الفارة , وتعد هذه البيئة سهلة ومريحة للمستخدم .

طريقة تشغيل البرنامج :

1. اختر ابدا start .

2. من قائمة البرامج اختر Microsoft Visual Studio 6.0

3. Microsoft Visual Basic 6.0

ملاحظة قد يكون البرنامج موجود في قائمة ابدا start

طريقة تصميم برنامج :

· قم بتصميم الواجهة للبرنامج : من خلال اطار البرنامج الموجود على الجانب الأيسر .

· ضبط الخصائص : يمكن ضبط الخصائص من خلال صندوق الخصائص الموجود على الجانب الأيمن .

· قم بكتابة الأوامر اللأزمة لتشغيل برنامجك حسب القواعد

· نفذ البرنامج : بنقر على ايقونة start او من خلال القائمة run الموجودة في البرنامج ..

اسم المتغير هو الاسم الذي يتكون من مجموعة متتالية من الاحرف والارقام يبدا بحرف مثل : st2 , sulary , x وغيرها من الاسماء ويفضل ان يكون اسم المتغير يدل على طبيعة البرنامج .

للاعلان عن المتغيرات ( اسم , عدد , طول , فحص ) يستخدم الامر Dim

مثلا ً :

Dim name as string ………...

Dim count as integer

Dim length as double

Dim check as boolean

الخيار الاول لنص

الخيارا الثاني عدد صحيح

الخيار الثالث عدد حقيقي

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

مثال : اكتب برنامج بلغة الفيجوال والبيسك يعمل على ايجاد حساب حجم الاسطوانة من خلال نصف قطر القاعدة * وارتفاعها .

الحل :

1. على حساب الخطوات التي اخذتها سابقا في اتباع التصميم في اثناء التصميم صمم الواجهة بحيث اختر صندوقي نص من صندوق البرنامج على الاطار الايسر 3 وصنديق خصائص text وصمم زري أمر command 1& command 2 بحيث الزر الاول لحساب الحاصل بين نصق القطر والارتفاع والاخر للخروج .

2. تنفيذ وكتابة التعليمات :

اولاً : زر الحساب command 1

· اولا قم بضغط على زر الامر command 1 click

· ستظهر شاشة بيضاء اللون شاشة الكتابة

· ستكون اولا جملة تلقائية مكتوبة

Private sub command1_click()

اكتب مايلي :

جديد وحصريا فقط كتاب الفيجوال والبيسك للذين تخطوا المرحلة الابتدائية Clip_image001

Dim y,x as double

جديد وحصريا فقط كتاب الفيجوال والبيسك للذين تخطوا المرحلة الابتدائية Clip_image001

Y=val(text1.text)

جديد وحصريا فقط كتاب الفيجوال والبيسك للذين تخطوا المرحلة الابتدائية Clip_image001

X=val(text2.text)

جديد وحصريا فقط كتاب الفيجوال والبيسك للذين تخطوا المرحلة الابتدائية Clip_image001

Text3.text=(3.14*y^2)

جديد وحصريا فقط كتاب الفيجوال والبيسك للذين تخطوا المرحلة الابتدائية Clip_image001

واخر جملة تلقائية تكون مكتوبة End Sub

ثانياً : زر command 2 للخروج من البرنامج

جديد وحصريا فقط كتاب الفيجوال والبيسك للذين تخطوا المرحلة الابتدائية Clip_image002

كما تعرفت فعند الضغط على الزر الثاني يظهر للك جملة التعريف الاولى وجملة النهاية تلقائية نفذ لاتي بعد الجملة الكتوبة

جديد وحصريا فقط كتاب الفيجوال والبيسك للذين تخطوا المرحلة الابتدائية Clip_image002

Private sub command2 _ click()

جديد وحصريا فقط كتاب الفيجوال والبيسك للذين تخطوا المرحلة الابتدائية Clip_image002

End

End sub

البرامج متعددة النماذج

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

قم بفتح البرنامج كما تعلمت سابقا من قائمة project اختر Add Form

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

للتنقل بين النماذج قم بكتابة الجمل البرمجية الاتية :

للأظهار formname.show وليس معناه بكتابة قم بكتابة اسم النموذج مثل نموذج السيارة carform قم بكتابة جمل الاظهار carform.show

للاخفاء نفذ الجمل البرمجية formname.hide وبنفس المثال السابق

Carform.hide

مثال قم بتصميم النموذج الاتي :

اكتب لغة برنامج للتنقل بين نموذجين الاول الموذج الرئيسي والثاني نموذج التسجيل وزر امر خروج أي يكون في النموذج الاول زري امر تكون بالاسماء

التسجيل والخروج .

الحل : اضغط على زر التسجيل , كتابة التعليمات :

Private sub command1_click ()

Recordform.show

Mainform.hide

End sub

في زر الخروج

Private sub command2_click

End

End sub

في نموذج التسجيل صمم زري امر احدهما العودة الى النموذج الرئيسي والاخر خروج , سنسمي النموذج الرئيسي mainform

في زر العودة الى النموذج الرئيسي

Private sub command1_click()

Mainform.show

Recordform.hide

End sub

في زر الخروج أي الزر الثاني

Private sub command2_click()

End

End sub

اخيراً نفذ البرنامج

سؤال : ماذا لو حدث وان حذفنا جملة الاخفاء .

الجواب : لا يحدث أي شيء يخفي دون الحاجة الى كتابة الجملة .

تدريب :

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

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

شرط البرنامج ان يكون في النموذج الرئيسي زري امر التسجيل والخروج النموذج الثاني نموذج التسجيل ان يكون فيه 3 ازرار امر ( التنفيذ ) العودة ونموذج حساب الاسطوانة وزر الخروج .

الاجراءات

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

فوائد الاجراء :

§ يقلل من عدد الجمل البرمجية المستخدمة في البرنامج

§ يسهل من عملية اكتشاف الاخطاء وتصحيحها .

§ يساعد في تصميم البرنامج باشترك اكثر من ممبرمج

اجراء الحدث :

هو اداة لتنفييذ اجراء معين او اشعار لنموذج ما .

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

دعنا نتعرف على انواع جديدة من الاوامر :

تحدثنا سابقا عن امر الكومند command هو زر امر لتنفيذ اجراء ويجب ان تعرف انه لكل اداة اوامر مثل صندوق النص label وصندوق الخصائص text وايضا سوف نتحدث عن اوامر الضغط (click) وامر تحريك المؤشر الفارة mouse move ) امر تحميل load وكلها تستخدم جملة التعريف نفسها بتغير الزر او بتغير الامر النهائي .

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

هنالك بعض الاوامر مثل back color , fore color borde style

ساتحدث عنها اولا

Border style تستخدم لتغير شكل صندوق النص الى متلقي الحدث يصبح لي صندوق النص اطار Fixed single

Fore color تستخدم لتغير لون الخط الكتوب في اداة مثل صندوق النص بشرط ان تاخذ رمز اللون منها وتنفذه في كتابة التعليمات .

Back color تستخدم لتغير لون الخلفية وشرطها مثل شرط سابقته .

مثال : عند الضغط على زر امر command 1 يتحول لون الكتابة في label 1 الى اللون الاحمر ويكتب داخل صندوق النص بلاك تيوب 2 علما ان لون الاحمر ً &H000000FF&

الحل :

Private sub command1_click()

Label1.caption = &H000000FF&

" بلاك تيوب " = text .text1

End sub

مثال: عند تحريك مؤشر الفارة على نموذج form1 يتحول لون الكتابة في label1 الى ازرق علما ان رمز اللون الازرق &H00FF0000& .

Private sub form 1 _ Mouse Move ()

Label1.caption = &H00FF0000&

End sub

تم بحمد الله تجهيز الكتاب الاول