[B3dak Hbebe]

التعدد [ [FONT=&amp]Polymorphism[/FONT] ]

من أجمل ما قرأت عن التعدد أو الـ [FONT=&amp]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=&amp]Polymorphism[/FONT] فأنت يمكنك معاملة الكائن كما لو كان كائن آخر .. على سبيل المثال فلنفترض افتراضاتنا السابقة وهي أنه لدينا الفئة المسماة [FONT=&amp]Employee[/FONT] وكذلك الفئة [FONT=&amp]Customer[/FONT] وهما مشتقان من الفئة الأب المسماة [FONT=&amp]Person[/FONT]. من هنا يمكنك معاملة الكائنات المصاحبة للفئتين [FONT=&amp]Employee[/FONT] وكذلك [FONT=&amp]Customer[/FONT] كما لو انك تتعامل مع كائنات الفئة الأب [FONT=&amp]Person[/FONT] وذلك لأنهم بكل بساطة للفئة الأب وليس الابن كما يظهر لك. يعني هذا انك ظاهرياً تتعامل مع الفئات [FONT=&amp]Customer[/FONT] و [FONT=&amp]Employee[/FONT] ولكن تستخدم هاتين الفئتين كجسر من خلاله تتعامل في الباطن مع كائنات الفئة الأب [FONT=&amp]Person[/FONT].
يُمكنك الـ [FONT=&amp]Visual[/FONT][FONT=&amp]Basic .NET[/FONT] من تعيين أو تخصيص قيمة من فئة مشتقة إلى متغير في الفئة الأب. في المثال التالي يمكنك أن تضع كائني [FONT=&amp]Employee[/FONT] أو [FONT=&amp]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

** ملحوظة **
يمكنك الوصول للمعالم أو المكونات المُعرفة الخاصة بنوع المتغير الذي تستخدمه للإشارة إلى كائن آخر. هذا يعني أنك مثلاً لو لديك متغير من النوع [FONT=&amp]Person[/FONT] يشير إلى كائن من النوع [FONT=&amp]Employee[/FONT] فإنك فقط تستطيع الاستفادة من معالم الفئة [FONT=&amp]Person[/FONT] وليس لك الحق في الاستفادة مما تم إضافته على الفئة [FONT=&amp]Employee[/FONT] بعد الوراثة.

اعادة التعريف[FONT=&amp]Overloading[/FONT]
ماذا لو أنك قمت بتصميم فئة Class وأردت عمل إجراء فرعي Subroutine بالاسم [FONT=&amp]InsertPersonData[/FONT] ، وهذا الإجراء الفرعي يحتوي على الباراميترات أو المعاملات الآتية :

• [FONT=&amp]FirstName[/FONT]
  
• [FONT=&amp]LastName[/FONT]
  
• [FONT=&amp]Age[/FONT]
  
• [FONT=&amp]Address[/FONT]
  
• [FONT=&amp]EMail[/FONT]
  
• [FONT=&amp]MobileNumber[/FONT]
  

المعاملان ( FirstName , LastName ) يعدان من المعاملات الإجبارية Not Optional Parameter ، أما عن بقية المعاملات فهي اختيارية حسب المتوفر لدى مستخدم الإجراء [FONT=&amp]InsertPersonData[/FONT] ، ولو تخلينا عن مبدأ الـ Overloading ضمن مبادئ الـ OOP فسيكون شكل الإجراء الفرعي كالآتي :

كود :

[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=&amp]Optional[/FONT] ولكن للأسف وبكل أسف ستجد أن المعاملات من النوع [FONT=&amp]Optional[/FONT] يجب أن تحتوي على قيم مبدئية وهذا نصاً للاعتراض الذي يصدره الـ Visual Basic .NET بالنص الآتي :

[FONT=&amp]Optional parameters must specify a default value[/FONT]

ولو طبقنا هذا الاعتراض في مثالنا الحالي فسنجد مثلا أننا قمنا بتعريف المتغير [FONT=&amp]Age[/FONT] على أنه متغير رقمي من النوع [FONT=&amp]Integer[/FONT] ونوعه اختياري [FONT=&amp]Optional[/FONT] وقيمته الافتراضية = 20 ، وهذا يعني أن المستخدم لهذا الإجراء لن يستطيع الاستفادة من هذا الإجراء لأنه لو لم يقوم بإدخال عمر الشخص فان البرنامج يقوم بشكل افتراضي بوضع القيمة 20 في حقل العمر في حين أن المستخدم للإجراء لا يعرف أو لم يتوفر لديه أية بيانات عن عمر الشخص.
أعتذر لو استطردت كثيراً في وصف المشكلة ، ولكن هنا يأتي دور الـ Overloading ، فهل تعلم أن الـ Visual Basic .NET يعطيك إمكانية تكرار أو إنشاء أكثر من وسيلة Method بنفس الاسم ولكن بشرط اختلاف المعاملات. أي أنك من الممكن مثلاً أن تقوم بإنشاء الإجراء السابق المسمى [FONT=&amp]InsertPersonData[/FONT] أكثر من مرة وبنفس الاسم ولكن يختلف في المعاملات الممررة إليه. بالطبع أثناء استخدامك للغات الـ .NET لاحظت الآتي :

إذا نظرت إلى ما يشير إليه السهم في الصورة السابقة ستجد الرمز الآتي ([FONT=&amp]1 of 12 [/FONT]) وهذا يعني بكل بساطة أن الإجراء أو الوسيلة المسماة [FONT=&amp]Input[/FONT] موجودة داخل الـ .NET Framework اثنتي عشرة مرة ولكن مع اختلاف المدخلات أو المعاملات وهذا تطبيق حي للـ Overloading.
تعال معي نضرب مثلاً آخر .. الفئة المسماة [FONT=&amp]Person[/FONT] يظهر فيها إجراءان كإجراءات مشيدة للفئة Constructor Subroutines بالاسم New. الإجراء المشيد الأول لا يأخذ أية معاملات بينما الإجراء المشيد الثاني يأخذ المعاملان المتغيران ( [FONT=&amp]FirstName[/FONT] , [FONT=&amp]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=&amp]Person_1[/FONT] وكذلك [FONT=&amp]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

ولكن هل جاء بذهنك أخي القارئ ما هي ميكانيكية تحديد الإجراء ، يعني مثلاً أنه لدينا ثلاثة إجراءات بالاسم [FONT=&amp]New[/FONT] وبالطبع كما ذكرنا أن لكل منهما معاملاته الخاصة التي تختلف عن المعاملات الخاصة بنظائره ، فكيف أقوم بتحديد التعامل مع الأول أو الثاني أو الثالث ... الخ ؟. هنا يقوم الـ 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 قريبا ان شاء الله

بالتوفيق
دمتم بود