Dr-Neo
10-02-2007, 02:38 PM
المحاضرة السادسة
اهدف المحاضرة:
1- التعرف على أداة Picture box و Image و Shape.
2- تمرين عملي على Picture box و Image و Shape.
3- التعرف على الأدوات DriveListBox, DirListBox, FileListbox.
4- تمرين عرض الصور باستخدام الأدوات DriveListBox, DirListBox, FileListbox.
5- تمرين تنفيذ و فتح برامج تطبيقية مثل ( Microsoft Word ) باستخدام الأدوات DriveListBox, DirListBox, FileListbox.
6- التعرف على المصفوفات، و تمرين إدخال مرتبات الموظفين على المصفوفات الثابتة.
الأداة Picture Box و Image و Shape:
الأداة Picture Box:
هي أداة يستخدمها المبرمج لعرض صور.
الفرق بين الأداة Picture Box و Image:
وجه المقارنة Picture Box Image
الصورة درجة الوضوح عالية اقل جودة.
إمكانية الكتابة يمكن المبرمج أن يكتب بعض على الـ Picture و يستخدمها كـ Status bar تستخدم لعرض الصور فقط
نمرين:
إنشاء مشروع جديد باسم " برامج حديثة و متنوعة".
مرحلة التصميم:
1- نضع على الـ Form الأداة Picture box.
2- نضع على الـ Form الأداة Image box. ثم ندخل على الخاصية Stretch و نجعلها True .
3- نضع الأداة Shape ( هي أداة يستخدمها المبرمج كشكل جمالي ) ثم ندخل على خصائصها و أمام الخاصية Shape نحدد و نختار الشكل المطلوب ( مربع أو دائرة أو أي شكل نريده) - و ليكن Square، أمام الخاصية Border width نختار رقم ليكبر حجم الخط.
فكرة البرنامج:
عندما يضغط المستخدم على Image يتحرك الـ Shape من مكانه و يلتف حول الصورة.
ملحوظة هامة:
أي كائن له بعدين ، البعد Left ( و هو بعد الكائن افصى يسار الـ Form )، و البعد الثاني Top ( و هو بعد الكائن على أعلى الـ Form ).
الكود الخاص بالنموذج
Private Sub Form_Load()
Shape1.Visible = False
End Sub
الكود في حالة الضغط على الـ Image:
Private Sub Image1_Click()
Shape1.Visible = True
Shape1.Left = Image1.Left
Shape1.Top = Image1.Top
Shape1.Width = Image1.Width
Shape1.Height = Image1.Height
Picture1.Cls
Picture1.Print "first test"
End Sub
التعرف على الأداة Drive, Dir, File (Listbox):
الأداة DriveListBox:
هي أداة الغرض منها إظهار أسماء السواقات الموجودة بالـ Hard Disk.
الأداة DirListbox:
هي أداة الغرض منها عرض ما بداخل السواقات من Directories و الـ Directory هو الدليل.
الأداة FileListbox:
هي أداة الغرض منها عرض ما بداخل الـ Directories من ملفات (Files).
تمرين
مطلوب إنشاء مشروع جديد باسم "Image Viewer" وتسمية النموذج باسم "عرض الصور".
مرحلة تصميم البرنامج:
1- يتم إضافة الأدوات DriveListBox و DirListbox و FileListBox.
2- يتم إضافة Label لنظهر عليه المسار.
3- يتم إضافة أداة Image.
فكرة البرنامج:
عندما نضغط على Drive List box يظهر ما بداخل السواقات من Directories، و عندما يضغط على الـ Directories يظهر ما بداخله من أسماء الملفات، و عندما نختار اسم الملف تظهر صورة الملف في أداة Image و يظهر المسار مكتوباً على Label.
مرحلة كتابة الكود:
1- الكود الخاص بالـ DriveListBox:
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
2- الكود الخاص بالـ DirListBox:
Private Sub Dir1_Change()
File1.FileName = Dir1.Path
End Sub
3- الكود الخاص بالـ FileListBox:
Private Sub File1_Click()
If Right(File1.Path, 1) <> "\" Then
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
Label1.Caption = File1.Path & "\" & File1.FileName
Else
Image1.Picture = LoadPicture(File1.Path & File1.FileName)
Label1.Caption = File1.Path & File1.FileName
End If
End Sub
ملاحظات هامة:
1- تم استخدام الوظيفة Right للتعرف على أول حرف من جهة اليمين لمعرفة هل الملف موجود على Root أم موجود تحت Directory معين.
2- ثم الدخول على الخصائص FilelistBox و جعلنا خاصية *.bmp Pattern و معناها إظهار الملفات التي بها هذا الامتداد (Extension ).
تمرين:
مشروع جديد باسم " فتح برامج تطبيقية ". يسمي النموذج باسم " الشاشة الرئيسية ".
مرحلة تصميم البرنامج:
1- يتم إضافة الأدوات DriveListBox و DirListbox و FileListBox.
2- يتم إضافة Textbox لنظهر عليه المسار.
3- يتم إضافة أداة Command Button مكتوب عليه "تشغيل البرنامج".
فكرة البرنامج:
عندما نضغط على Drive List box يظهر ما بداخل السواقات من Directories، و عندما يضغط على الـ Directories يظهر ما بداخله من أسماء الملفات، و عندما نختار اسم الملف تظهر أسماء الملفات في أداة Text Box و يظهر المسار مكتوبا عليه.
مرحلة كتابة الكود:
1- الكود الخاص بالـ DriveListBox:
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
2- الكود الخاص بالـ DirListBox:
Private Sub Dir1_Change()
File1.FileName = Dir1.Path
End Sub
3- الكود الخاص بـ FileListBox:
Private Sub File1_Click()
Text1.Text = File1.FileName
End Sub
4- الكود الخاص بـ Command1:
Private Sub Command1_Click()
Dim x As Long
Select Case Right(Text1, 3)
Case "doc"
x = Shell("C:\Program Files\Microsoft Office\Office\Winword.exe", vbMaximizedFocus)
Case "xls"
x = Shell("C:\Program Files\Microsoft Office\Office\Excel.exe", vbMaximizedFocus)
End Select
End Sub
ملحوظة هامة:
يلاحظ أننا لم نستخدم IS مع Case، و ذلك لعدم وجود شرط ( < أو > أو = ).
التعرف على المصفوفات:
مصفوفة المتغيرات Variable Array:
هي عبارة عن حجز مكان في الذاكرة مقسمة إلى عناصر كجدول واحد مقسم إلى خلايا.
أنواع المصفوفات:
• المصفوفة ثابتة العدد: مصفوفة عدد عناصرها ثابتة Static Array.
• المصفوفة متغيرة العدد: مصفوفة عدد عناصرها متغير Dynamic Array.
مزايا المصفوفات:
• الاقتصاد في كتابة الأكواد بالنسبة للمبرمج.
• الاقتصاد في استخدام الذاكرة بالنسبة للمستخدم.
تمرين:
بفرض أن لدينا موظفين نريد إدخال مرتباتهم و الحصول علي مجموع المرتبات أو المتوسط.
مرحلة التصميم:
1- مطلوب إنشاء مشروع جديد باسم " المصفوفة الثابتة العدد".
2- نسمي النموذج باسم " مرتبات الموظفين".
3- نضع Command1 مكتوب عليه "ادخل مرتبات الموظفين".
4- نضع Command2 مكتوب عليه "إجمالي المرتبات و المتوسط".
مرحلة كتابة الكود:
الكود الخاص بتعريف المصفوفة في Module:
Rem متغير لمصفوفة ثابتة العدد
Public SA(5) As Variant
علماً بان SA هو اسم المصفوفة و 5 هو عدد عناصر المصفوفة
الكود الخاص بـ Command1:
Private Sub Command1_Click()
Cls
Prompt = "ادخل مرتبات الموظفين"
For I = 1 To 5
Title = "الموظف رقم" & I
SA(I) = InputBox(Prompt, Title)
Next I
End Sub
الكود الخاص بـ Command2:
Private Sub Command2_Click()
Print
For I = 1 To 5
Print I, "الموظف رقم", SA(I)
Total = Total + SA(I)
Next I
Print
Print Total
Print "المتوسط هو:", Int(Total / 7)
End Sub
اهدف المحاضرة:
1- التعرف على أداة Picture box و Image و Shape.
2- تمرين عملي على Picture box و Image و Shape.
3- التعرف على الأدوات DriveListBox, DirListBox, FileListbox.
4- تمرين عرض الصور باستخدام الأدوات DriveListBox, DirListBox, FileListbox.
5- تمرين تنفيذ و فتح برامج تطبيقية مثل ( Microsoft Word ) باستخدام الأدوات DriveListBox, DirListBox, FileListbox.
6- التعرف على المصفوفات، و تمرين إدخال مرتبات الموظفين على المصفوفات الثابتة.
الأداة Picture Box و Image و Shape:
الأداة Picture Box:
هي أداة يستخدمها المبرمج لعرض صور.
الفرق بين الأداة Picture Box و Image:
وجه المقارنة Picture Box Image
الصورة درجة الوضوح عالية اقل جودة.
إمكانية الكتابة يمكن المبرمج أن يكتب بعض على الـ Picture و يستخدمها كـ Status bar تستخدم لعرض الصور فقط
نمرين:
إنشاء مشروع جديد باسم " برامج حديثة و متنوعة".
مرحلة التصميم:
1- نضع على الـ Form الأداة Picture box.
2- نضع على الـ Form الأداة Image box. ثم ندخل على الخاصية Stretch و نجعلها True .
3- نضع الأداة Shape ( هي أداة يستخدمها المبرمج كشكل جمالي ) ثم ندخل على خصائصها و أمام الخاصية Shape نحدد و نختار الشكل المطلوب ( مربع أو دائرة أو أي شكل نريده) - و ليكن Square، أمام الخاصية Border width نختار رقم ليكبر حجم الخط.
فكرة البرنامج:
عندما يضغط المستخدم على Image يتحرك الـ Shape من مكانه و يلتف حول الصورة.
ملحوظة هامة:
أي كائن له بعدين ، البعد Left ( و هو بعد الكائن افصى يسار الـ Form )، و البعد الثاني Top ( و هو بعد الكائن على أعلى الـ Form ).
الكود الخاص بالنموذج
Private Sub Form_Load()
Shape1.Visible = False
End Sub
الكود في حالة الضغط على الـ Image:
Private Sub Image1_Click()
Shape1.Visible = True
Shape1.Left = Image1.Left
Shape1.Top = Image1.Top
Shape1.Width = Image1.Width
Shape1.Height = Image1.Height
Picture1.Cls
Picture1.Print "first test"
End Sub
التعرف على الأداة Drive, Dir, File (Listbox):
الأداة DriveListBox:
هي أداة الغرض منها إظهار أسماء السواقات الموجودة بالـ Hard Disk.
الأداة DirListbox:
هي أداة الغرض منها عرض ما بداخل السواقات من Directories و الـ Directory هو الدليل.
الأداة FileListbox:
هي أداة الغرض منها عرض ما بداخل الـ Directories من ملفات (Files).
تمرين
مطلوب إنشاء مشروع جديد باسم "Image Viewer" وتسمية النموذج باسم "عرض الصور".
مرحلة تصميم البرنامج:
1- يتم إضافة الأدوات DriveListBox و DirListbox و FileListBox.
2- يتم إضافة Label لنظهر عليه المسار.
3- يتم إضافة أداة Image.
فكرة البرنامج:
عندما نضغط على Drive List box يظهر ما بداخل السواقات من Directories، و عندما يضغط على الـ Directories يظهر ما بداخله من أسماء الملفات، و عندما نختار اسم الملف تظهر صورة الملف في أداة Image و يظهر المسار مكتوباً على Label.
مرحلة كتابة الكود:
1- الكود الخاص بالـ DriveListBox:
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
2- الكود الخاص بالـ DirListBox:
Private Sub Dir1_Change()
File1.FileName = Dir1.Path
End Sub
3- الكود الخاص بالـ FileListBox:
Private Sub File1_Click()
If Right(File1.Path, 1) <> "\" Then
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
Label1.Caption = File1.Path & "\" & File1.FileName
Else
Image1.Picture = LoadPicture(File1.Path & File1.FileName)
Label1.Caption = File1.Path & File1.FileName
End If
End Sub
ملاحظات هامة:
1- تم استخدام الوظيفة Right للتعرف على أول حرف من جهة اليمين لمعرفة هل الملف موجود على Root أم موجود تحت Directory معين.
2- ثم الدخول على الخصائص FilelistBox و جعلنا خاصية *.bmp Pattern و معناها إظهار الملفات التي بها هذا الامتداد (Extension ).
تمرين:
مشروع جديد باسم " فتح برامج تطبيقية ". يسمي النموذج باسم " الشاشة الرئيسية ".
مرحلة تصميم البرنامج:
1- يتم إضافة الأدوات DriveListBox و DirListbox و FileListBox.
2- يتم إضافة Textbox لنظهر عليه المسار.
3- يتم إضافة أداة Command Button مكتوب عليه "تشغيل البرنامج".
فكرة البرنامج:
عندما نضغط على Drive List box يظهر ما بداخل السواقات من Directories، و عندما يضغط على الـ Directories يظهر ما بداخله من أسماء الملفات، و عندما نختار اسم الملف تظهر أسماء الملفات في أداة Text Box و يظهر المسار مكتوبا عليه.
مرحلة كتابة الكود:
1- الكود الخاص بالـ DriveListBox:
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
2- الكود الخاص بالـ DirListBox:
Private Sub Dir1_Change()
File1.FileName = Dir1.Path
End Sub
3- الكود الخاص بـ FileListBox:
Private Sub File1_Click()
Text1.Text = File1.FileName
End Sub
4- الكود الخاص بـ Command1:
Private Sub Command1_Click()
Dim x As Long
Select Case Right(Text1, 3)
Case "doc"
x = Shell("C:\Program Files\Microsoft Office\Office\Winword.exe", vbMaximizedFocus)
Case "xls"
x = Shell("C:\Program Files\Microsoft Office\Office\Excel.exe", vbMaximizedFocus)
End Select
End Sub
ملحوظة هامة:
يلاحظ أننا لم نستخدم IS مع Case، و ذلك لعدم وجود شرط ( < أو > أو = ).
التعرف على المصفوفات:
مصفوفة المتغيرات Variable Array:
هي عبارة عن حجز مكان في الذاكرة مقسمة إلى عناصر كجدول واحد مقسم إلى خلايا.
أنواع المصفوفات:
• المصفوفة ثابتة العدد: مصفوفة عدد عناصرها ثابتة Static Array.
• المصفوفة متغيرة العدد: مصفوفة عدد عناصرها متغير Dynamic Array.
مزايا المصفوفات:
• الاقتصاد في كتابة الأكواد بالنسبة للمبرمج.
• الاقتصاد في استخدام الذاكرة بالنسبة للمستخدم.
تمرين:
بفرض أن لدينا موظفين نريد إدخال مرتباتهم و الحصول علي مجموع المرتبات أو المتوسط.
مرحلة التصميم:
1- مطلوب إنشاء مشروع جديد باسم " المصفوفة الثابتة العدد".
2- نسمي النموذج باسم " مرتبات الموظفين".
3- نضع Command1 مكتوب عليه "ادخل مرتبات الموظفين".
4- نضع Command2 مكتوب عليه "إجمالي المرتبات و المتوسط".
مرحلة كتابة الكود:
الكود الخاص بتعريف المصفوفة في Module:
Rem متغير لمصفوفة ثابتة العدد
Public SA(5) As Variant
علماً بان SA هو اسم المصفوفة و 5 هو عدد عناصر المصفوفة
الكود الخاص بـ Command1:
Private Sub Command1_Click()
Cls
Prompt = "ادخل مرتبات الموظفين"
For I = 1 To 5
Title = "الموظف رقم" & I
SA(I) = InputBox(Prompt, Title)
Next I
End Sub
الكود الخاص بـ Command2:
Private Sub Command2_Click()
For I = 1 To 5
Print I, "الموظف رقم", SA(I)
Total = Total + SA(I)
Next I
Print Total
Print "المتوسط هو:", Int(Total / 7)
End Sub