الفيجوال بيسك 6
ـــــــــــــــــــــ
بقلم م / حمدى عبد الحى عبد الواحد
الإسكندرية فى 27/12/2004
المدرسة الثانوية الفندقية المتقدمة
أولاً:- ملاحظات عامة
(1) لحفظ المشاريع قبل كل عملية تشغيل من مربع Environment Option ننقر الإختيار
Save Project Befor Run
(2) لرسم عدة عناصر من نفس الأداة فى وقت واحد نضغط على مفتاح Ctrl عند إختيار الأداة من مربع الأدوات
(3) الضغط على مفتاح F5 يؤدى إلى تشغيل البرنامج
(4) الضغط على مفتاح F4 يؤدى إلى عرض نافذة الخصائص أو من قائمة View/ Properties
(5) الضغط على مفتاح F7 يؤدى إلى فتح نافذة الكود ويمكن تنفيذ هذا الأمر من قائمة View/ Code
(6) الضغط على مفتاح F2 يؤدى إلى عرض نافذة مستعرض الكائنات
(7) لجعل الإعلان عن المتغيرات إجبارياً فى البرنامج نتبع الخطوات التالية :-
Tools / Options / Editor
Require Variable Declaration
(
لتشغيل البرنامج خارج بيئة الفيجوال بيسك لابد أن نحوله إلى ملف تنفيذى أولاً وذلك باستخدام الأمر التالى :-
File / Make Project.Exe
(9) لإضافة نموذج جديد إلى المشروع ننفذ الأمر التالى :-
Project / Add Form / Form – Open
(10) لتغيير صفات الشبكة ننفذ الأمر التالى :-
Tools / Options / Form Grid Settings
(11) لإظهار النافذة الفورية نضغط مفتاحى Ctrl + G من لوحة المفاتيح
أو ننفذ الأمر التالى :
View / Immediate Window
(12) لإضافة أداة إلى مربع الأدوات ننفذ الأمر التالى :-
Project / Component
(13) الحد الأقصى لعدد الحروف التى يمكن أن تظهر فى مربع النص هو 32 كيلو بايت أو 32000 حرف …. بشرط أن تكون الخاصية Maxlength = 0
(14) لإظهار شريط أدوات محرر النافذة أو محرر النموذج أو ما يسمى بـ Form Editor
ننفذ الأمر التالى :-View / Tool Bars / Form Editor
ومن خلال هذا الشريط يمكن عمل الآتى :-
** الإحضار للأمام : ويجعل أداة التحكم النشطة تظهر فوق كل الأدوات
** الإرسال إلى الخلف :- لجعل أداة التحكم النشطة تظهر أسفل كل الأدوات
** المحاذاة Align :- لمحاذاة مجموعة من أدوات التحكم
** التوسيط :- لتوسيط مجموعة من الأدوات المختارة
** مساواة الأحجام :- لجعل كل العناصر المختارة متساوية من حيث الحجم .
** الحماية والإغلاق :- لمنع المستخدم من تغيير موضع أو حجم الأدوات بالماوس .
** التباعد الرأسى والتباعد الأفقى بين أدوات التحكم الموجودة على الشاشة
** ضبط الأبعاد تبعاً للشبكة
** كل هذه الأوامر يمكن تنفيذها من القائمة تنسيق أو Format
(15) إذا أردنا أن يعمل الكود فى أى نافذة بغض النظر عن إسمها نستخدم كلمة Me بدلاً من إسم النافذة
مثال :- If Me .Hight >= Screen.Hight Then
Me .Top = 0
Else
Me.Top = (Screen.Hight – Me.Hight) /2
(15) لتحديد موقع النموذج على الشاشة نستخدم الخصائص التالية :-
Top & Left & Hight & Width
مثال :- Form1.Top = 0
Form1.Left = 0
(16) لإظهار نافذة محرر القوائم نضغط مفتاحى Ctrl + E من لوحة المفاتيح
(17) لإنشاء شريط أدوات لابد أن نستخدم أداتين هما :-
** أداة التحكم Tool Bar
** أداة التحكم Image List
** ولإظهار هاتين الأداتين ننفذ الأمر التالى :-
Project / Components / Controls / Microsoft Common Controls
(18) مثال على القيم الراجعة من الدالة Input Box
Dim A As String
A Val = InputBox (“Enter Trainer Age”)
If Len(A) = 0 Then
MsgBox “ The Age Does Not Entered”
Else
If Val(A Val) = 0 Then
MsgBox “Very Good Right Age”
Else
MsgBox” Continue”
End if
End if
(19) لفتح ملف موجود على الكمبيوتر باستخدام مربع الحوار فتح نستخدم الوظيفة :-
Show Open وهذا الأمر خاص بالأداة Common Dialog
وتكون صيغة الأمر كالتالى :- Common Dialog1.Show Open
مثال :- Common Dialog1.Show Open
Text1.text = Common Dialog1.File Name
(20) لحفظ ملف على الكمبيوتر باستخدام مربع الحوار حفظ بإسم أو Save As
نستخدم الأمر Show Save وهذا الأمر خاص بالأداة Common Dialog
مثال :- Common Dialog1.Show Save
Text1.text = Common Dialog1.File Name
(21) لتحديد أنواع الملفات المعروضة فى مربع الحوار فتح ومربع الحوار حفظ باسم نستخدم الأمر Filter وهو خاص بالأداة Common Dialog
مثال :- Common Dialog1.Show Save
Text1.text = Common Dialog1.File Name
Common Dilog1.Filter = “ TextFiles|*.TXT|WordDocument|*.Doc “
(22) لتحديد الفهرس الذى سيظهر عند عرض مربع الحوار فتح أو حفظ بإسم هل هو C أو D نستخدم الأمر IniDir
مثال :- Common Dialog1.Show Open
Text1.text = Common Dialog1.File Name
Common Dialog1.Filter = "Text Files |*.TXT|WordDocuments|*.doc”
Common Dialog1.Inidir = "C:\Windows"
(23) منع ظهور مربع الإختيار " فتح للقراءة فقط "
مثال :- Common Dialog1.Show Open
Text1.text = Common Dialog1.File Name
Common Dialog1.Filter = "Text Files |*.TXT|Word Documents|*.doc"
Common Dialog1.Inidir = "C:\Windows"
Common Dialog1.Flags = Common Dialog1 OFN Hide Read Only
(24) فتح مربع الحوار خطوط :- نستخدم الأمر Show Fonts والخاصية Flags هى التى تحدد نوع الخطوط المطلوب فتحها
1 – خطوط الشاشة أو Common Dialog CF Screen Fonts
2 – خطوط الطابعة أو CF Printer Fonts
3 – خطوط الشاشة والطابعة معاً أو CF Both
** الثابت CF Effects يتيح للمستخدم إختيار مؤثرات خاصة إضافية على الخط مثل الخط المائل أو المسطر أو الملون
الكود المستخدم لإظهار مربع حوار الخطوط :-
Common Dialog1.Flags = Common Dialog1 CF Both( CF effects)
Common Dialog1.Show Fonts
Text1.Font Name = Common Dialog1.FontName
(24) فتح مربع حوار الألوان :- نستخدم الأمر Show Color الثابت الذى يتحكم فى الألوان هو CCRGB Init
ولابد من ضبط الخاصية Flags
Common Dialog1.Flags = Common Dialog1 CF Both( CF effects)
Common Dialog1.Show Color
Text1.Font Name = Common Dialog1.FontName
Common Dialog1.Flags = Common Dialog1 CCRGB Init
Me.Back Color = Common Dialog1.Color
(25) فتح مربع الحوار طباعة :- نستخدم الأمر Show Printer
لا نحتاج إلى ضبط الخاصية Flags
الكود المستخدم هو :- Common Dialog1.Show Printer
(26) جمع أو طرح أو ضرب أو قسمة محتويات مربع النص 1 مع محتويات مربع النص 2 وإظهار الناتج فى مربع النص 3 وفى كل مرة نغير المعامل الحسابى فقط + أو – أو ÷
Text3.text= Val(Text1.text) + Val(Text2.text)
(27) تفريغ مربع النص 1 ومربع النص 2 من أى محتويات مع نقل التركيز إلى مربع النص 1
Text1.text= " "
Text2.text = " "
Text1.Setfocus
(28) إظهار عبارة معينة داخل مربع النص 1
"العبارة المطلوبة " Text1.text =
(29) العبارات ( الحروف) دائماً لابد من وضعها داخل قوسين تنصيص " "
(30) لإظهار مربع النص خالياً أثناء تشغيل البرنامج لابد من حذف القيمة الموجودة أمام الخاصية Text من نافذة الخصائص التابعة لمربع النص .
(31) لكى نتمكن من إدخال النص على أكثر من سطر داخل مربع النص نجعل الخاصية Multiline = True
(32) الكود الخاص بمفتاح الحفظ Save
Open " C:\Hamdy.txt" For Output As #1
Print #1,Text1.text
Close #1
(33) الكود الخاص بمفتاح الفتح Open
Open "C:\Hamdy.txt" For Input As #1
Text1.text = Input (LOF(1) ,1)
Close #1
(34) الكتابة داخل مربع النص بخط أسود عريض أو مائل أو مسطر
Text1.FontBold = True
Text1.FontItalic = True
Text1.FontUnderline = True
(35) التحكم فى لون خط الكتابة داخل مربع النص
Text1.Forecolor= Vb Red – Vb Green – Vb Yellow – Vb Cyan
(36) التحكم فى لون الخلفية داخل مربع النص :
Text1.Backcolor = Vb Red – Vb Green – Vb Yellow – Vb Cyan
(37) تغيير شكل الخط داخل مربع النص أثناء تشغيل البرنامج :-
Text1.Font.Name = " Traditional Arabic "
(38) إذا لم تكن أداة مربع النص كافية لأداء الوظيفة المطلوبة منها يمكن الإستعاضة عنها بالأداة
Rich Textbox ويمكن إضافتها لصندوق الأدوات عن طريق النقر بالزر الأيمن للماوس على أى مكان خالى من صندوق الأدوات ونختار Components ثم نختار Microsoft Rich Textbox Control6
(39) الكود الخاص بمفتاح الحفظ داخل الأداة Rich Textbox
RichTxt.SaveFile "C:\Hamdy" , rtfRTF
(40) الكود الخاص بمفتاح فتح الملفات من داخل الأداة Rich Textbox
RichTxt.LoadFile "C:\Hamdy" , rtfRTF
(41) الكود الخاص بنسخ محتويات الأداة Rich Textbox إلى حافظة الكمبيوتر مع نقل التركيز إلي الأداة
Clipboard.Clear
Clipboard.SetTextRichTxt.SelText
RichTxt.SetFocus
(42) الكود الخاص بقص محتويات الأداة Rich Textbox إلى حافظة الكمبيوتر مع نقل التركيز إلي الأداة
Clipboard.Clear
Clipboard.SetTextRichTxt.Seltext
RichTxt.SelText = " "
RichTxt.SetFocus
(43) الكود الخاص بلصق محتويات الأداة Rich Textbox إلى حافظة الكمبيوتر مع نقل التركيز إلي الأداة
RichTxt.SelText = Clipboard.GetText
RichTxt.SetFocus
(44) الكتابة بخط أسود عريض أو مائل أو مسطر داخل الأداة Rich Textbox مع نقل التركيز إلى نفس الأداة :-
RichTxt.SelBold = True
RichTxt.SelItalic = True
RichTxt.SelUnderLine = True
RichTxt.SetFocus
(45) الكود الخاص بمحاذاة النص داخل الأداة Rich Textbox ( يسار – أو يمين _ أو فى المنتصف )
RichTxt.SelAlignment = 0
RichTxt.SelAlignment = 1
RichTxt.SelAlignment = 2
(46) الكود الخاص بلون الأداة Rich Textbox
RichTxt.SelColor = Vb Green – Vb Yellow – Vb Cyan – Vb Red
(47) الكود الخاص بأداة محرك الأقراص Drivr1 مع الحدث Change
Dir1.Path = Drive1.Drive
(48) الكود الخاص بالأداة Dir1 مع الحدث Change
File1.Path = Dir1.Path
(49) الكود الخاص بتحويل محرك الأقراص Ch Drive مع الحدث Load Form
Ch Drive "C:\"
(50) إنشاء مربع حوار خاص بكلمة السر :-
1- ننشىء مشروع جديد Standard.Exe
2- نضيف نموذج جديد إلى المشروع بحيث يحتوى المشروع على نموذجين
Form 1 & Form 2
3- نغير خصائص النموذج الأول Form 1 كما يلى :-
** الخاصية Caption = مربع حوار كلمة السر
** الخاصية Border Style = Fixed Dialog
** الخاصية Control Box = False
** الخاصية Start Up Position = Center Screen
** الخاصية Pass Word Char = *
4 – نضيف مربعين نص إلى النموذج Form1 وكذلك نضيف مربعين تسمية
وكذلك نضيف زرين أوامر Ok و Cancel
5 – نقوم بتعريف خصائص جديدة للنموذج Form1 وذك باستخدام الأمر
Public فى الإجراء الحدثى General Declaration كما يلى :-
Public A As String
Public B As String
6 – فى الإجراء الحدثى Form Activate نكتب الكود التالى :-
Text1.text = A
Text2.text = B
7 – الكود الخاص بزر الأمر OK فى الإجراء الحدثى Click نكتب ما يلى :
A = Text1.text
B = Text2.Text
Me. Hide
8 – الكود الخاص بزر الأمر Cancel : فى الإجراء الحدثى Click نكتب التالى
A = " "
B = " "
Me. Hide
9 – نجعل الكائن البادىء هو Form2
Project/ Project Properties / start Up Object = Form2
10- فى الإجراء الحدثى Form Load للنموذج Form1 نكتب الكود التالى
With Form1
. A = "Anonymous"
. B = ""
. Show
If A = " Admin" And B = "Root " Then
Unload Form2
MsgBox " Info ok "
Else
Unload Form2
MsgBox”Bad Info"
End
End if
End with
End sub
(51) إضافة ملف أو حذف ملف من المشروع :-
Project / Add File & Remove File
(28) ترجمة البرنامج إلى ملف تنفيذى
File /Make Project….. Exe
إستخدام معالج تجهيز التطبيقات (يوجد فيهاخطأ فى الخطوات)
Start / Programs /M.s Visual Basic 5
Application Setup Wizard / Next
نحدد المشروع المطلوب عمل ملف الإعداد له
نحدد نوع الإعداد ( عادى – إنترنت ) وبعدها ننقر زر Next
نحدد وسيلة التوزيع ولتكن Single Directory ثم ننقر زر Next
نحدد شاشة مكونات الأكتيف إكس الضرورية للبرنامج ومن خلالها يمكن إضافة ملفات إلى البرنامج أو حذف ملفات حسب الطلب ثم ننقر زر Next
تظهر شاشة فيها ملخص الملفات التى سيتم نقلها إلى وسيلة التوزيع ( قرص مرن – قرص ليزر ) ويمكن من خلالها إضافة ملفات الصور التى سوف يستخدمها البرنامج ثم ننقر زر Next
يمكن حفظ هذه الخطوات حتى يمكن تطبيقها مع برنامج آخر .
(52) إنشاء إجراء :-
Tools / Add Procedure
(53) النداء على الإجراء نستخدم الأمر Call
Call
(54) مثال على الإجراءات [ إجراء يحسب محيط الدائرة 2 ط نق ومساحتها ط نق 2]
نرمز للنسبة ط بالرمز Pi
نرمز للمحيط بالرمز P
نرمز للمساحة بالرمز A
نرمز لنصف القطر بالرمز R
نفتح قائمة Tools ونختار منها Add Procedure
من مربع الحوار الذى يظهر نحدد الإختيارات التالية :-
Type = Sub
Name = Circle
Const P = 3.14
P = 2*Pi*R
A= Pi * R2
فى الإجراء الحدثى Form Load نكتب العبارة التالية Call Circle
للخروج من الإجراء قبل تنفيذه نكتب الجملة الشرطية التالية : ومعناها إذا كانت قيمة نصف القطر سالبة إخرج من الإجراء
If R < 0 Then Exit sub
(55) إنشاء دالة Creating Function
من قائمة Tools نختار Add Procedure
من مربع الحوار نختار ما يلى :-
Type = Function
Name = Sum
Scope = Public
تظهر لنا العبارة التالية
Public Function Sum (A As Single, B As Single, X As single)
نكتب ما يلى :-
N = 3
M = 4
X = Sum (N, M)
If Sum (N, M) <10 Then
Print “ Small Sum"
ملحوظات هامة :-
(1) تجنب استخدام الإجراء العام Public ولا تستخدم الإجراء Static بكثرة داخل برنامجك حتى لا تهدر الذاكرة
(2) عند التعامل مع أكثر من نموذج واحد داخل نفس البرنامج نستخدم الأوامر التالية :-
Load & unload & Show & Hide
(3) أكبر عدد مسموح به لمشغلات الأقراص هو 256 مشغل
(4)التاريخ لابد أن يوضع بين العلامتين # & #
(5) أولويات تنفيذ العمليات الحسابية
** الأقواس
** الأسس
** الضرب
** القسمة
** الجمع والطرح
(6) الكود الخاص بمفتاح الإرجاع Back Space = 8
(7) الكود الخاص بمفتاح الجدولة Tab = 9
(
الكود الخاص بمفتاح الإدخال Enter = 13
(9) الكود الخاص بمسطرة المسافات = 32
(10) الكود الخاص بمفتاح الرقم صفر = 48
(11) الكود الخاص بمفتاح الحرف A = 65
(12) الكود الخاص بمفتاح الحرف a = 97
(13) الدالة التالية تعطينا الحرف المقابل للكود Chr$
(14) الدالة التالية تعطينا الكود المقابل للحرف
(15) الدالة التالية تحول المتغير الرقمى إلى
صيغة نصية
(16) الدالة التالية تحول المتغير النصى المكون من أرقم إلى صيغة رقمية
(17) الدالة التالية تعطينا الفرق بين تاريخين
Date Diff (“صيغة الناتج باليوم أو بالشهر أو بالسنة”, ”التاريخ الأول”, “التاريخ الثانى “)
(18) الدالة التالية تسترجع تاريخ النظام الحالى [ التاريخ اللى على الكمبيوتر ] :-
Date ( )
(19) الدالة التالية تسترجع وقت النظام الحالى [ الوقت اللى على الكمبيوتر ]
Now ( )
ثانياً :- ضبط خصائص المشروع
Project / Project Properties
من التبويب General يمكن ضبط كل من :-
(1) كائن بدء التشغيل
(2) إسم المشروع
(3) إسم ملف التعليمات
(4) معرف الحصول على تعليمات البرنامج أثناء التشغيل
(5) وصف البرنامج
(6) طلب مفتاح الترخيص
من التبويب Make يمكن ضبط كل من :-
(1) رقم الإصدار
(2) عنوان البرنامج بعد ترجمته
(3) أيقونة البرنامج
(4) معلومات الإصدار مثل ( إسم الشركة – حقوق الطبع ) …. إلخ
(5) وسيطات سطر الأوامر الخاص بالأمر " تشغيل " من قائمة إبدأ
موضوع: مقدمة فى الفيجوال بيسك 6