+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : قسم دورات المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=113)
+---- قسم : دورة تعليم البرمجة باستخدام VB.net, (http://vb4arb.com/vb/forumdisplay.php?fid=129)
+---- الموضوع : الفصل(12): Oop بالتفصيل...الجزء الثاني (/showthread.php?tid=4384)
الفصل(12): Oop بالتفصيل...الجزء الثاني - B3dak Hbebe - 23-09-12
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
نبدا من حيث انتهينا من الفصل السابق
يجب قراءة الفصل السابق لتتمكن من الاستمرار في هذا الفصل
الفصل 11
وهذا الفصل ايضا كتب بقلم الاستاذ احمد نجم
السلام عليكم ورحمة الله وبركاته
نبدا من حيث انتهينا من الفصل السابق
يجب قراءة الفصل السابق لتتمكن من الاستمرار في هذا الفصل
الفصل 11
وهذا الفصل ايضا كتب بقلم الاستاذ احمد نجم
وراثة الواجهاتInterface Inheritance
تحدثنا سالفاً عن اشتقاق او وراثة فئة من أخرى وفيها تورث الفئة المشتقة كافة خصائص ووسائل وأحداث الفئة الأب وكذلك أيضاً وراثة الكود المكتوب بالداخل كاملاً. يُمكنك Visual Basic .NET من تعريف أو التصريح عن الواجهات ، والواجهة ما هي إلا واجهة لفئة ما واسمها خير دليل على هذا وهي لا تحتوي على أية أكواد للتنفيذ. بعد تصريحك عن واجهة جديدة يمكنك استخدام الكلمة [FONT=&]Implements[/FONT][FONT=&]<InterfaceName>[/FONT] وذلك كي تشتق أو تستدعي كافة الوسائل والخصائص والأحداث التي تم التصريح عنها داخل الواجهة.
كي تتضح لديك الرؤية أكثر من ذلك ، اتبع ما يلي ... قم بالتصريح عن هذين المتغيرين كما هو موضح أدناه :
كود :
[align=left]Dim CN1 As New System.Data.OleDb.OleDbConnection
[/align]العجيب في هذين التصريحين أنك إذا نظرت في الوسائل والخصائص المصاحبة للكائن [FONT=&]CN1[/FONT] ستجدها بنفس الترتيب ونفس الهجاء بالنسبة للكائن [FONT=&]CN2[/FONT] ، ولكن مع اختلاف الوظيفة ... يعني مثلا الوظيفة [FONT=&]Open[/FONT] فهي مصاحبة لكلا الكائنين ولكنها مع [FONT=&]CN1[/FONT] تتصل بأي قاعدة بيانات حسب جملة الاتصال الممررة إليها [FONT=&]Connection[/FONT][FONT=&]String[/FONT] ، أما مع الكائن [FONT=&]CN2[/FONT] فهي لا تتعامل إلا مع محركات قواعد بيانات [FONT=&]MS[/FONT][FONT=&]SQL[/FONT][FONT=&]Server[/FONT] فقط بالرغم من أن اسم الوظيفة واحد في كلا الكائنين ... هنا يتضح معنى الواجهات.
سأوضح لك مرة أخرى وبمثال آخر .. بفرض أنك مدير مشروع برمجي معين وليكن هذا المشروع خاص بصناعة مكتبة DLL للتعامل مع ملفات MS OFFICE ، وقد قررت كمدير مشروع أن تقوم بعمل أربعة فئات [FONT=&]4[/FONT][FONT=&]Classes[/FONT] ، الأولى منهم لـ MS Word والثانية لـ MS Access والثالثة لـ MS PowerPoint والرابعة لـ MS Excel ، وتم الاتفاق على عدة وظائف مثلا كالآتي :
- [FONT=&]Method [/FONT][FONT=&]>> [/FONT][FONT=&]OpenFile[/FONT]
- [FONT=&]Method [/FONT][FONT=&]>> [/FONT][FONT=&]DeleteFile[/FONT]
- [FONT=&]Property >> FileName[/FONT]
- [FONT=&]Method [/FONT][FONT=&]>> FileSize[/FONT]
وهذا فقط كان على سبيل المثال .. تعال معي نرجع سوياً إلى موضوعنا الأساسي ، أنت كمدير مشروع كما ذكرنا سالفا أنك تريد تواجد هذه الخصائص والوسائل في كل فئة من الأربعة فئات المرجو إنشائها. هل الحل أنك تقوم بالنسخ واللصق ومن ثم تغيير الأكواد ، أم الإملاء على المطورين ومن ثم تجد الأخطاء ؟؟؟ ... هنا سنلجأ إلى استخدام الواجهات فهي من ستحل الموضوع.
من القائمة Project اختر العنصر Add Component ثم اختر العنصر Interface كما هو موضح بالصورة أدناه :
قد قمت بالتصريح عن الوسائل والخصائص السالف ذكرها في الواجهة كما يلي ... ولا زلت أكرر أننا لا نكتب أية أكواد داخل الواجهة ، فقط نقوم بالتعريف والتصريح عن مكونات الفئة كما يلي :
كود :
[align=left]Public Interface MyInterface
'This subroutine to open the file by using [FileName] property value
Sub OpenFile()
'Use this property to specify file path or read the file path to open it or delete it
Property FileName() As String
'This subroutine to delete the file by using [FileName] property value
Sub DeleteFile()
'This function used to return the file size by using [FileName] property value
Function FileSize() As Double
End Interface[b][FONT=Tahoma]
[/FONT][/b][/align]أنا فقط قمت بعمل مثال عابر ومبسط ، فيمكنك عزيزي القارئ أن تقوم بالتصريح عما تحب وكيف تحب ومتي تحب ... قم بالتصريح مثلا عن متغيرات عادية وأحداث ووسائل وخصائص ، أما أن لضيق الوقت أردت إيصال الفكرة فقط. أنا متشوق بالفعل حتى أريك كيف يتم وراثة هذه الواجهة داخل الفئات التي قمنا بإنشائها سابقاً ، فكل ما عليك إلا الدخول داخل كل فئة وتكتب هذه العبارة :
كود :
[align=left]Implements MyInterface[b][FONT=Tahoma]
[/FONT][/b][/align]ستجد نفسك في الفئة مثلا الخاصة بالـ MS Excel قد حصلت على النتيجة التالية كوراثة حقيقية لما تم التصريح عنه في الواجهة [FONT=&]MyInterface[/FONT]:
كود :
[align=left]Public Class Excel
Implements MyInterface
Public Sub DeleteFile() Implements MyInterface.DeleteFile
End Sub
Public Property FileName() As String Implements MyInterface.FileName
Get
End Get
Set(ByVal value As String)
End Set
End Property
Public Function FileSize() As Double Implements MyInterface.FileSize
End Function
Public Sub OpenFile() Implements MyInterface.OpenFile
End Sub
End Class
[/align]هذه هي بالفعل شكل الفئة بعد وراثة الواجهة وما عليك إلا توزيع الهيكل العام لهذه المكتبة DLL على المطورين في المشروع وهم يقوموا بكتابة الكود فقط داخل الوسائل والخصائص والأحداث المصرح عنها ... يمكنك تحميل المشروع من الرابط التالي :
http://www.4shared.com/rar/8gCjzUtj/21250864124.html
أو من المرفقات بإسم : مرفق 1
** ملحوظة **
كما ذكرنا سابقاً أن Visual Basic .NET لا يسمح لك بالوراثة من أكثر من فئة ، ولكن داخل الفئة الواحدة يمكنك وراثة أكثر من واجهة.
كلمة أخيرة في مبدأ الوراثة .. الكلمات المفتاحية
[FONT=&]Access Modifiers[/FONT]
- [FONT=&]Public[/FONT]: يجعل المتغير أو الوسيلة معرفة على مستوى الفئة ككل وكذلك على مستوى المشروع بالكامل ، كما يمكنك الحصول على هذا المتغير أو هذه الوسيلة إذا قمت بأخذ نسخة Instance من الفئة في أي مكان آخر على اختلاف نوع المشاريع سواء ******sApplications أو ClassLibrary ... الخ. كما أن هذا المتغير أو الوسية من النوع [FONT=&]Public[/FONT] تظهر في حالات الوارثة في الفئات المشتقة.
- [FONT=&]Friend[/FONT]: يجعل الإجراء معرف على مستوى الفئة ككل وداخل المشروع الحالي بصفة عامة ، لكن اذا تم دمج الفئة في ملف DLL وأخذ نسخة لكائن من الفئة فإن الاجراءات من هذا النوع لا تظهر.
- [FONT=&]Default[/FONT]: وهنا نحن بصدد الحديث عن عدم استخدام الكلمات المفتاحية والتي يعتبرها المترجم من أنها من النوع [FONT=&]Public[/FONT] وينطبق عليها ما ورد سابقاً.
- [FONT=&]Private[/FONT]: يجعل الإجراء معرف على مستوى على الفئة فقط ، ولا يظهر في أي مكان خارجها.
- [FONT=&]Protected[/FONT]: يشبه الـ [FONT=&]Private[/FONT] تماماً ولكن يختلف عنه في نقطة ، ألا وهي أنه في حالة التوريث فإن الفئة المشتقة [FONT=&]Derived[/FONT][FONT=&]Class[/FONT] يظهر بداخله الإجراءات والمتغيرات من النوع [FONT=&]Protected[/FONT] ، ولكن إذا أخذت نسخة من الفئة الأب [FONT=&]****[/FONT][FONT=&]Class[/FONT] أو ما يسمى بالـ [FONT=&]Parent[/FONT][FONT=&]Class[/FONT] فلن تظهر المتغيرات ولا الإجراءات من النوع [FONT=&]Protected[/FONT].
يمكنك مراجعة المثال التالي ، فهو عبارة عن فئة بالاسم ( MyClass ) وبها بعض الإجراءات باختلاف الكلمات المفتاحية لكل منها:
http://www.4shared.com/rar/pmYpsxLx/31250864124.html
أو من المرفقات بإسم : مرفق 2
الفصل(12): Oop بالتفصيل...الجزء الثاني - B3dak Hbebe - 23-09-12
التعدد [ [FONT=&]Polymorphism[/FONT] ]
من أجمل ما قرأت عن التعدد أو الـ [FONT=&]Polymorphism[/FONT] كان ذلك في كتاب ( Visual Basic 2008 ) لكاتبه Rod Stephens كان الآتي بالنص :Roughly speaking, polymorphism means treating one object as another. In OOP terms, it means that you can treat an object of one class as if it were from a parent class.
فعلا هكذا ، أثناء تعرضك للتعدد أو الـ [FONT=&]Polymorphism[/FONT] فأنت يمكنك معاملة الكائن كما لو كان كائن آخر .. على سبيل المثال فلنفترض افتراضاتنا السابقة وهي أنه لدينا الفئة المسماة [FONT=&]Employee[/FONT] وكذلك الفئة [FONT=&]Customer[/FONT] وهما مشتقان من الفئة الأب المسماة [FONT=&]Person[/FONT]. من هنا يمكنك معاملة الكائنات المصاحبة للفئتين [FONT=&]Employee[/FONT] وكذلك [FONT=&]Customer[/FONT] كما لو انك تتعامل مع كائنات الفئة الأب [FONT=&]Person[/FONT] وذلك لأنهم بكل بساطة للفئة الأب وليس الابن كما يظهر لك. يعني هذا انك ظاهرياً تتعامل مع الفئات [FONT=&]Customer[/FONT] و [FONT=&]Employee[/FONT] ولكن تستخدم هاتين الفئتين كجسر من خلاله تتعامل في الباطن مع كائنات الفئة الأب [FONT=&]Person[/FONT].
يُمكنك الـ [FONT=&]Visual[/FONT][FONT=&]Basic .NET[/FONT] من تعيين أو تخصيص قيمة من فئة مشتقة إلى متغير في الفئة الأب. في المثال التالي يمكنك أن تضع كائني [FONT=&]Employee[/FONT] أو [FONT=&]Customer[/FONT] في متغير من الفئة الأب ... اتبع الكود ثم تابع رابط المشروع في الأسفل :
كود :
[align=left]Dim emp As New Employee 'Create an Employee.
Dim cst As New Customer 'Create a Customer.
Dim per As Person 'Declare a Person variable.
per = emp 'Ok .. An Employee is a Person.
per = cst 'Ok .. A Customer is a Person.
emp = per 'Not Ok .. A Person is not necessarily an Employee.
[/align]يمكنك تحميل المشروع من الرابط التالي :
http://www.4shared.com/rar/kbnuyugP/11250864124.html
أو من المرفقات بإسم : مرفق 3
http://www.4shared.com/rar/kbnuyugP/11250864124.html
أو من المرفقات بإسم : مرفق 3
يمكنك الوصول للمعالم أو المكونات المُعرفة الخاصة بنوع المتغير الذي تستخدمه للإشارة إلى كائن آخر. هذا يعني أنك مثلاً لو لديك متغير من النوع [FONT=&]Person[/FONT] يشير إلى كائن من النوع [FONT=&]Employee[/FONT] فإنك فقط تستطيع الاستفادة من معالم الفئة [FONT=&]Person[/FONT] وليس لك الحق في الاستفادة مما تم إضافته على الفئة [FONT=&]Employee[/FONT] بعد الوراثة.
اعادة التعريف[FONT=&]Overloading[/FONT]
ماذا لو أنك قمت بتصميم فئة Class وأردت عمل إجراء فرعي Subroutine بالاسم [FONT=&]InsertPersonData[/FONT] ، وهذا الإجراء الفرعي يحتوي على الباراميترات أو المعاملات الآتية :
- [FONT=&]FirstName[/FONT]
- [FONT=&]LastName[/FONT]
- [FONT=&]Age[/FONT]
- [FONT=&]Address[/FONT]
- [FONT=&]EMail[/FONT]
- [FONT=&]MobileNumber[/FONT]
كود :
[align=left]
Public Sub InsertPersonData(ByVal FirstName As String, ByVal LastName As String, Optional ByVal Age As Integer = 20, Optional ByVal Address As String = "", Optional ByVal EMail As String = "", Optional ByVal MobileNumber As String = "")
'---------------------------
'Your Convenient Code Lines
'---------------------------
End Sub
[/align]فقد قمنا في الإجراء السابق بجعل بقية الاختيارات من النوع [FONT=&]Optional[/FONT] ولكن للأسف وبكل أسف ستجد أن المعاملات من النوع [FONT=&]Optional[/FONT] يجب أن تحتوي على قيم مبدئية وهذا نصاً للاعتراض الذي يصدره الـ Visual Basic .NET بالنص الآتي :
[FONT=&]Optional parameters must specify a default value[/FONT]
ولو طبقنا هذا الاعتراض في مثالنا الحالي فسنجد مثلا أننا قمنا بتعريف المتغير [FONT=&]Age[/FONT] على أنه متغير رقمي من النوع [FONT=&]Integer[/FONT] ونوعه اختياري [FONT=&]Optional[/FONT] وقيمته الافتراضية = 20 ، وهذا يعني أن المستخدم لهذا الإجراء لن يستطيع الاستفادة من هذا الإجراء لأنه لو لم يقوم بإدخال عمر الشخص فان البرنامج يقوم بشكل افتراضي بوضع القيمة 20 في حقل العمر في حين أن المستخدم للإجراء لا يعرف أو لم يتوفر لديه أية بيانات عن عمر الشخص.
أعتذر لو استطردت كثيراً في وصف المشكلة ، ولكن هنا يأتي دور الـ Overloading ، فهل تعلم أن الـ Visual Basic .NET يعطيك إمكانية تكرار أو إنشاء أكثر من وسيلة Method بنفس الاسم ولكن بشرط اختلاف المعاملات. أي أنك من الممكن مثلاً أن تقوم بإنشاء الإجراء السابق المسمى [FONT=&]InsertPersonData[/FONT] أكثر من مرة وبنفس الاسم ولكن يختلف في المعاملات الممررة إليه. بالطبع أثناء استخدامك للغات الـ .NET لاحظت الآتي :
إذا نظرت إلى ما يشير إليه السهم في الصورة السابقة ستجد الرمز الآتي ([FONT=&]1 of 12 [/FONT]) وهذا يعني بكل بساطة أن الإجراء أو الوسيلة المسماة [FONT=&]Input[/FONT] موجودة داخل الـ .NET Framework اثنتي عشرة مرة ولكن مع اختلاف المدخلات أو المعاملات وهذا تطبيق حي للـ Overloading.
تعال معي نضرب مثلاً آخر .. الفئة المسماة [FONT=&]Person[/FONT] يظهر فيها إجراءان كإجراءات مشيدة للفئة Constructor Subroutines بالاسم New. الإجراء المشيد الأول لا يأخذ أية معاملات بينما الإجراء المشيد الثاني يأخذ المعاملان المتغيران ( [FONT=&]FirstName[/FONT] , [FONT=&]LastName[/FONT] ) كقيم افتراضية أثناء أخذ نسخة Instance من الفئة. وسيكون شكل الفئة Person بعد كتابة الكود كما يلي :
تعال معي نضرب مثلاً آخر .. الفئة المسماة [FONT=&]Person[/FONT] يظهر فيها إجراءان كإجراءات مشيدة للفئة Constructor Subroutines بالاسم New. الإجراء المشيد الأول لا يأخذ أية معاملات بينما الإجراء المشيد الثاني يأخذ المعاملان المتغيران ( [FONT=&]FirstName[/FONT] , [FONT=&]LastName[/FONT] ) كقيم افتراضية أثناء أخذ نسخة Instance من الفئة. وسيكون شكل الفئة Person بعد كتابة الكود كما يلي :
كود :
[align=left]Public Class Person
Public FirstName As String
Public LastName As String
Public Sub New()
FirstName = "<fname>"
FirstName = "<lname>"
End Sub
Public Sub New(ByVal first_Name As String, ByVal last_Name As String)
FirstName = first_Name
LastName = last_Name
End Sub
End Class
[/align]وإذا ذهبت للنموذج وقمت بأخذ نسخة من هذه الفئة سيظهر لديك الشكل التالي :
وهنا تضح فائدة الـ Overloading فبدلاً من استخدام المعاملات الاختيارية Optional Parameters وكذلك حالات الشرط IF Conditions ، فنلجأ حينئذ لمثل هذه الطرق والتي تحل مشاكل كثيرة. وفيما يلي مثال صغير عن أخذ نسختين وإسنادهما للكائنات [FONT=&]Person_1[/FONT] وكذلك [FONT=&]Person_2[/FONT] كما يلي :
كود :
[align=left]Dim Person_1 As New Person
Dim Person_2 As New Person("Ahmed", "Negm")
[/align]يمكنك تحميل المثال من الرابط التالي :
http://www.4shared.com/rar/kbnuyugP/11250864124.html
أو من المرفقات بإسم : مرفق 4
http://www.4shared.com/rar/kbnuyugP/11250864124.html
أو من المرفقات بإسم : مرفق 4
ولكن هل جاء بذهنك أخي القارئ ما هي ميكانيكية تحديد الإجراء ، يعني مثلاً أنه لدينا ثلاثة إجراءات بالاسم [FONT=&]New[/FONT] وبالطبع كما ذكرنا أن لكل منهما معاملاته الخاصة التي تختلف عن المعاملات الخاصة بنظائره ، فكيف أقوم بتحديد التعامل مع الأول أو الثاني أو الثالث ... الخ ؟. هنا يقوم الـ Visual Basic .NET بتحديد الإجراء حسب نوعية وعدد الإجراءات الممررة إليه وليس عليك أية التزامات تجاه هذه الجزئية.
** ملحوظة مهمة جدا **
عند استخدامك للدوال أو ما يسمى بالـ Functions ، فيكون نفس ما تمرسنا عليه في الإجراءات مع الـ Overloading هو نفسه مع الـ Functions ، إلا أنه يوجد جزية هامة يجب التنويه عنها.
من البديهي أن يدور بذهن أحدكم فيما يخص الـ Functions أنه إذا تم تغيير نوع الدالة أو ما يسمى بالـ Return Type فهذا يحقق الـ Overloading ... !!! ، وهنا سأصدمك بلا شك وأقول لك لن يحدث هذا ، فتحقيق الـ Overloading مع الدوال لا يأتي بتغيير نوع الدالة فقط ، ولكن لابد تحقق شرط آخر وهو اختلاف المعاملات. انسخ الكود التالي في محرر Visual Basic .NET واقرأ نص الاعتراض بنفسك :
** ملحوظة مهمة جدا **
عند استخدامك للدوال أو ما يسمى بالـ Functions ، فيكون نفس ما تمرسنا عليه في الإجراءات مع الـ Overloading هو نفسه مع الـ Functions ، إلا أنه يوجد جزية هامة يجب التنويه عنها.
من البديهي أن يدور بذهن أحدكم فيما يخص الـ Functions أنه إذا تم تغيير نوع الدالة أو ما يسمى بالـ Return Type فهذا يحقق الـ Overloading ... !!! ، وهنا سأصدمك بلا شك وأقول لك لن يحدث هذا ، فتحقيق الـ Overloading مع الدوال لا يأتي بتغيير نوع الدالة فقط ، ولكن لابد تحقق شرط آخر وهو اختلاف المعاملات. انسخ الكود التالي في محرر Visual Basic .NET واقرأ نص الاعتراض بنفسك :
كود :
[align=left][b][FONT=Tahoma]
[/FONT][/b]Function MySum(ByVal FirstNumber As Double, ByVal SecondNumber As Double) As Double
Dim x As Double
x = FirstNumber + SecondNumber
Return x
End Function
'-------------------------------------------'
Function MySum(ByVal FirstNumber As Double, ByVal SecondNumber As Double) As Integer
Dim x As Integer
x = FirstNumber + SecondNumber
Return x
End Function
[/align]
وكي لا أرهقك في القراءة من المحرر فنص الخطأ يفيد الآتي : " لا يمكن أن تتعدد الدالة cannot overloaded each other وذلك لاختلافهم فقط في النوع Return Type". أما إذا أردت تصحيح الأوضاع فإليك الكود الصحيح :
كود :
[align=left]Function MySum(ByVal FirstNumber As Double, ByVal SecondNumber As Double) As Double
Dim x As Double
x = FirstNumber + SecondNumber
Return x
End Function
'-------------------------------------------'
Function MySum(ByVal FirstNumber As Integer, ByVal SecondNumber As Integer) As Integer
Dim x As Integer
x = FirstNumber + SecondNumber
Return x
End Function
[/align]** تم إضافة الدالة المسماة MySum إلى المثال OOP4 **
والان بحمد الله تم الانتهاء من الOOP بنوع من التفصيل المجمل ملاحظة:جميع الامثلة صممت ببرنامج ال VB2008.NET
وملاحظة اخرى: يعدكم الاستاذ احمد نجم باصدار كتاب عن الOOP قريبا ان شاء الله
بالتوفيق
دمتم بود
الفصل(12): Oop بالتفصيل...الجزء الثاني - abdoojh - 23-02-13
بارك الله فيكم اخواني على المجهودات الطيبة
ولكن في الحقيقة لم افهم الكثير ربما لاني مبتدئ والدرس يعتبر لفئة متقدمة
الفصل(12): Oop بالتفصيل...الجزء الثاني - خليل اسماعيل - 27-04-13
بارك الله فيك