دروس الفيجوال بيزك6:الدرس الرابع و الخامس:

درس 4 : تطبيقات متقدمة على الكـــود:
تطبيق1 :
ضع على الفورم Timer وهو العنصر الذي أجلناه ولم نتكلم عنه اتجه إلى نافذة خصائصه ستجد خاصية باسم Interval وهي مسؤولة عن سرعة المؤقت Timer و ستكون قيمتها 0 قد يتغييرها إلى 1000 و أضف Label إلى المشروع ثم اكتب الكود التالي في ال Timer:
كود:
Label1.Caption = Time
ها قد حصلنا على ساعة رقمية ..ما رأيكم..حاولوا تطبيق نفس الفكرة على الText ...

تطبيق 2 :
الفكرة هي كيفية تغييراللون عند وضع الفأرةعلى العنصر
1.في الفورم ضعlabel ولتكن label1 وسمها بالاسم الذي تشاء.
2.اجعل خاصية الlabel وهي الخاصية BACK STYLE تساوي O-TRANSPARENT.
3.ضع الكود التالي في ال LABEL والحدث MouseMove:
كود:
Label1.ForeColor = &H8000000E
4.ضع في الفورم و الحدث MosueMove الكود التالي:
كود:
Label1.ForeColor = &H80000012
5. شغل البرنامج وضع الفارة على ال LABEL وسترى أن لونها قد تغييرإلى الأزرق بمجرد المرور عليها طبق ذلك على ألوان مختلفة..

تطبيق 3:
سنصمم برنامج يتحكم بالنظام قليلا أو يسهل عملية تصفحه:
الكود التالي يقوم بفتح الخيارات الإقليمية:
كود:
Dim ei As Long
ei = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2", vbNormalFocus)
الكود التالي لفتح خيارات المودم :
كود:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)
الكود التالي لفتح خيارات الانترنت:
كود:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl", vbNormalFocus)
الكود التالي لفتح خصائص جهاز الكمبيوتر :
كود:
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl", vbNormalFocus)
الكود التالي لفتح إضافة إزالة برامج جديدة :
كود:
Dim ad As Long
ad = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1", vbNormalFocus)
إلى هنــا يكفي كتطبيقات و أترككم قليلا لكي تتدربوا على موضوع الكود المهم جدا حتى نكمل دروسنــا مع تحزيم البرامج..وشكرا.

درس5:جعل البرنامج جاهزا ليعمل خارج الجهاز:
السلام عليكم و رحمة الله ... بعد أنا يتعرف الشخص على الفيجوال ويصمم برنامج عليه و لو كان بسيط يريد ان بجعل برنامجه جاهزا للعمل بعيدا عن بيئة الvb اما عمل البرنامج تنفيذي فهو أمر سهل:
من القائمة( file)ملف خذ الأمر Make Project 1 .exe و طبعا إذا كان برنامجك اسمه eias مثلا ستجد الاسم بدلا من اسم Project1..وقم بتعيين مكان الحفظ اتجد ملف واحد هو الملف التنفيذي أي ال Exe الخاص ببرنامج و بالأيقونة التي عينتها من داخل الفيجوال من الخاصية Icon للفورم..
الآن بعد أن تجد البرنامج مكان ما حددته افتحه ستجد انه يعمل وستجده بالأيقونة التي عينتها ( من خصائص الفورم icon) كما قلنا سابقا..
ولكن كثير ما تحدث المفاجأة عندما ننقل البرنامج إلى جهاز آخر غير جهازنا وهو أن البرنامج لا يعمل و على لأغلب ستكون العبارة بأنه يحتاج ملف dll .....
ماالحل؟؟؟؟
إن البرنامج عندما تعمل له أمر تنفيذي exe يكون غير كامل في الحقيقة و غالبا ما يعتمد على ملفات موجودة في system32 عندك في الجهاز لأن العناصر من Command و TextوLabel و غيرها ليست إلا ملفات بلاحقة Ocx (سنتكلم عنها لاحقاً) يجب أن تنقل مع البرنامج لكي يعمل على جهاز الغير الذي لايحوي فيجوال والآن ما العمل......إنه تحزيم البرنامج..
ما هو تحزيم البرنامج :
هو ضم جميع الملفات التي يحتاجها البرنامج مع الملف التنفيذي exe وخاصة إذا كان البرنامج فيه صور أو ماشابه..
كيف نحزم البرنامج .....نحزم لبرنامج عن طريق برنامج مرفق مع الvb اسمه
Package and deployment wizard
من القائمة ابدأ خذ كافة البرمج في Xp والبرامج في Me ثم خذ
Microsoft Visual Studio 6.0
ثم Microsoft tisual Studio 6.0 Tools
ثم Packge & Deployment Wizard فنكون قد وصلنا له...
(ملاحظة : إن لم تجد هذا المعالج في المكان المذكرو سابقاً لسبب ما فستجده في مجلد الفيجوال نفسه في الموقع التالي
Microsoft Visual Studio\VB98\Wizards\PDWizard
ويكون باسم PDCMDLN افتحه من هناك).
افتح ستجد واجهته بسيطة مكونة من ثلاث صور(لاحظ الصور المرفقة مع الدرس):
الأولى Packgeأي تحزيم و الثانية deploy أي نشر و الثالث نحن لسنا فيه الآن.
خطوات التحزيم:
1. ستجد كبسة browse استعراض اضغطها وحدد له البرنامج غير التنفيذي أي ليس الexe.
2.بعد التحديد اضغط Package عندها قد يظهر لك مريع يسألك ها تردي ترجمة المشروع أو Compile أو تحديدد الملف التنفيذي Browse..
خذ complie وإذا لم يقبل اعمل البرنامج تنفيذي وحدد له الملف التنفيذي.
3. بعدها كل ما سيأتيك اضغط NEXt وكل مايأتيك من مربعات نص اكتب فيه اسم البرنامج خاصتك.
4.بعد النتهاء قد يطلب ملف اسمه macab او ماشابه حدد له الملف في windows\system32 وبعدها سيعطيك تقرير .
5.بعدها نكون قد انتهينا من الحزم وجاء دور النشر...
6.خذ الخيار deploy..
7.بعدها ستمر بنفس الخطوات اضغط فقط next.
8.بعد الانتهاء اذهب للمجلد الذي وضعت فيه البرنامج غير التنفيذي ستجد مجلد اسمه حزم أو Packge افتحه ستجد قد صار لبرنامجك set up عندها يكون البرنامج جاهزا ..
هناك برامج أخرى للتحزيم مثل الSet up factory و wise Installion.هم أقوى من المعالج ولكن عندما تريد أن تحزم البرنامج عليك ان تضع في الحسبان نقل ملفات الDLLو ال OCX مع البرنامج وذلك لأن المعالج يقوم بنقل هذه الملفات إلى مجلد النظام في جهاز المستخدم أما هذه البرامج (مثل الSet up Factory ) فيجب وضع ملفات الdllو الocx مع البرنامج في نفس المجلد ...
فبعد أن تعمل تحزيم للبرنامج ستجد في نفس مجلد الحزم ملف بلاحقة Zip يحوي كل ملفات ال dll و ال ocx التي يجب نقلها مع البرنامج..
على فكرة إذا أردت أن تضع للبرنامج اسم الشركة و اسم المنتج التي تظهر في الخصائص أو اللون الباهت في xp اتبع ما يلي :
عندما تعطي خيار الMake exe ستجد في نافذة تحديد مكان الحفظ خيار Option افتحه وضع فيه ماتشاء من اسم وغيره..