التحميل الزائد (OverLoading)

بسم الله الرحمن الرحيم

ما هو Overloading ؟؟؟

لكي تفهم معني الـ Overloading أشرح لكم المعني النظري الذي فهمته من كتاب ,,,
الكثير منا لديه تليفون محمول (موبايل) ألم تلاحظ أن بعض أزرار الوظائف تؤدي أكثر من وظيفة !!!
مره تكون وظيفة الزر هي الاتصال ومره قطع الاتصال ومره حذف رساله ومره …………… ,,,,
كيف يكون نفس الزر ويؤدي أكثر من وظيفة , كذلك سنقوم بعمل أكثر من دالة بنفس الاسم ولكن وظائف مختلفه بشرطين علي الأقل :

1- أن يختلف عدد معاملات كل دالة عن الأخري ,
2- أن تختلف معاملات الدوال في نوعها String,integer و هكذا …….,,,

مثال :

تعالوا نصمم دالتين بنفس الاسم Sum ولكن الأولي تأخذ متغيرين فقط والثانيه تأخذ 3 متغيرات كالتالي :
الأولى ستكون على الشكل التالي و ستاخد معاملين اثنين X و Y :

Function Sum(ByVal x As Integer, ByVal y As Integer) As Integer
Dim z As Integer
z = (x + y)
Return z
End Function

اما الثانية فسنضيف اليها معامل آخر و بهذا سيتم مناداة الدالة المناسبة على حسب العلومات الممررة اليها

Function Sum(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) As Integer
Dim r As Integer
r = (x + y + z)
Return r
End Function

وكما رايتم أضفت متغير جديد لتتماشي مع التعديل ,
ان كان توفيق فمن الله وان كان تقصير فمني والسلام عليكم ورحمة الله وبركاته ,,,”

اضف تعليقا

أيوب جمال الادريسي

جميع الدروس