Operator Overloading in VB.Net & C#

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

السلام عليكم ورحمة الله وبركاته

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا إنك أنت العليم الحكيم

كما نعلم جمعيا فإن لغتي VB.Net و C# توفران مجموعة من العوامل الاساسية لتنفيذ العمليات الأساسية كالجمع والضرب على الأنواع الرئيسية مثل الأرقام والنصوص

فعند تنفيذ الكود التالي

VB.Net

Dim A As Integer = 12 Dim B As Integer = 34 Dim C As Integer = A + B 

C Sharp

int A = 12; int B = 34; int C = A + B;

فقيمة C الآن تساوي 46 ونفس الفكرة تنطبق على النصوص فبعد تنفيذ الكود التالي

VB.Net

Dim A As String = "Coding" Dim B As String = "proc" Dim C As String = A + B

C Sharp

String A = "Coding"; String B = "proc"; String C = A+ B;

فقيمة C الآن تساوي "Codingproc" إنه نفس "العامل"(+) الذي استخدمناه في المثال السابق إذا تم تطبيقه على أنواع رقمية فإنه يقوم بجمعها وإذا تم تطبيقه على أنواع نصية فإنه يقوم بوصلها.

لكن ماذا إذا أردت أن أن أطبقه على أنواع أخرى من إنشائي لنفترض انه لدي الكلاس
مجلد الذي يحتوي على اسماء عدد معين من الملفات ،وهذا هو الكود الخاص به:
 

VB.Net

Public Class Folder Public Property Files As String() Public Sub New(ByVal ParamArray Files As String()) Me.Files = Files End Sub Public Overrides Function ToString() As String Return Files.Select(Function(f) vbTab & f).Aggregate(Function(a, b) a & vbNewLine & b) End Function End Class

C Sharp

class Folder { public string[] Files { get; set; } public Folder(params string[] files) { this.Files = files; } public override string ToString() { return this.Files.Select((s) => "\t" + s).Aggregate((a, b) => a + "\n" + b); } }

منطقياً أو على أرض الواقع يمكنك دمج مجلدين معاً لينتج لديك مجلد يحتوي على الملفات الموجودة في المجلدين السابقين ،لنجرب ان نفعل ذلك في برنامجنا سيكون الكود الخاص بك مشابهاً للكود التالي 

VB.Net

Sub Main() Dim FolderOne As Folder = New Folder("A.exe", "B.txt", "C.wav") Console.WriteLine("FolderOne ={0}{1}", vbNewLine, FolderOne) Dim FolderTwo As Folder = New Folder("X.mp4", "Y.dll", "Z.sys") Console.WriteLine("FolderTwo ={0}{1}", vbNewLine, FolderTwo) Dim FolderThree As Folder = FolderOne + FolderTwo Console.WriteLine("FolderThree ={0}{1}", vbNewLine, FolderThree) End Sub
C Sharp

static void Main(string[] args) { Folder FolderOne = new Folder("A.exe", "B.txt", "C.wav"); Console.WriteLine("FolderOne =\n{0}", FolderOne); Folder FolderTwo = new Folder("X.mp4", "Y.dll", "Z.sys"); Console.WriteLine("FolderTwo =\n{0}" ,FolderTwo); Folder FolderThree = FolderOne + FolderTwo; Console.WriteLine("FolderThree =\n{0}", FolderThree); }

 الآن إذا حاولت تنفيذ هذا الكود فسيظهر لديك خطاٌ مفاده انه لا يمكن تطبيق العامل (+) على الكلاس Folder، ولحل هذه المشكلة توفر لك لغتي VB.Net و C# الكلمة Operator التي تمكنك من تحديد طريقة إستجابة الكلاس او الستركتشر للعامل (مثل [+] في مثالنا) والتي لا تستخدم إلا مع المحددين (محددات الوصول) Public و Shared (الذي يعرف بـStatic في لغة C#)

اما عن طريقة استخدامها فهي مشابهة للـ Functions بشكل كبير لكن تختلف معها في أنه بدل إستخدام الكلمة Function نستخدم الكلمة Operator (هذا بالنسبة لمستخدمي لغة VB.Net).

يبدو ان الفكرة لم تضح لديك إنظر إلى الكود التالي وهو كود الكلاس Folder بعد تعديله ليصبح قابلاً للجمع

 

VB.Net

Public Class Folder Public Property Files As String() Public Sub New(ByVal ParamArray Files As String()) Me.Files = Files End Sub Public Overrides Function ToString() As String Return Files.Select(Function(f) vbTab & f).Aggregate(Function(a, b) a & vbNewLine & b) End Function Public Shared Operator +(ByVal a As Folder, ByVal b As Folder) As Folder Return New Folder(a.Files.Concat(b.Files).ToArray) End Operator End Class

C Sharp

class Folder { public string[] Files { get; set; } public Folder(params string[] files) { this.Files = files; } public override string ToString() { return this.Files.Select((s) => "\t" + s).Aggregate((a, b) => a + "\n" + b); } public static Folder operator + (Folder a,Folder b){ return new Folder(a.Files.Concat(b.Files).ToArray()); } }

الآن إذا أعدنا تنفيذ كود الجمع الذي بالأعلى فسيطبع البرنامج

 FolderOne = A.exe B.txt C.wav FolderTwo = X.mp4 Y.dll Z.sys FolderThree = A.exe B.txt C.wav X.mp4 Y.dll Z.sys

الآن ما هي العوامل التي يمكننا تحديد طريقة إستجابة الكلاس لها
VB.Net

العامل	المعاملات
+, -, *, /, \, ^, &, Like, And, Mod, Or, Xor	يأخذ عاملين الأول من نفس نوع الكلاس والآخر ليس هنالك نوع محدد له
<<, >>	يأخذ عاملين الأول من نفس نوع الكلاس والآخر نوعه (Integer)
=, <>	يأخذ عاملين الأول من نفس نوع الكلاس والآخر ليس هنالك نوع محدد له ويعيد (Boolean) وإذا حددت طريقة إستجابة الكلاس لواحد منهما يجب ان تحددها للآخر
<, >	يأخذ عاملين الأول من نفس نوع الكلاس والآخر ليس هنالك نوع محدد له ويعيد (Boolean) وإذا حددت طريقة إستجابة الكلاس لواحد منهما يجب ان تحددها للآخر
<= ,>=	يأخذ عاملين الأول من نفس نوع الكلاس والآخر ليس هنالك نوع محدد له ويعيد (Boolean) وإذا حددت طريقة إستجابة الكلاس لواحد منهما يجب ان تحددها للآخر
IsTrue, IsFalse	يأخذ عامل واحد من نفس نوع الكلاس ويعيد (Boolean) وإذا حددت طريقة إستجابة الكلاس لواحد منهما يجب ان تحددها للآخر

C Sharp

العامل	المعاملات
+, -, *, /, ^, &, %, |	يأخذ عاملين الأول من نفس نوع الكلاس والآخر ليس هنالك نوع محدد له
<<, >>	يأخذ عاملين الأول من نفس نوع الكلاس والآخر نوعه (Integer)
==, !=	يأخذ عاملين الأول من نفس نوع الكلاس والآخر ليس هنالك نوع محدد له ويعيد (Boolean) وإذا حددت طريقة إستجابة الكلاس لواحد منهما يجب ان تحددها للآخر
<, >	يأخذ عاملين الأول من نفس نوع الكلاس والآخر ليس هنالك نوع محدد له ويعيد (Boolean) وإذا حددت طريقة إستجابة الكلاس لواحد منهما يجب ان تحددها للآخر
<= ,>=	يأخذ عاملين الأول من نفس نوع الكلاس والآخر ليس هنالك نوع محدد له ويعيد (Boolean) وإذا حددت طريقة إستجابة الكلاس لواحد منهما يجب ان تحددها للآخر
true, false	يأخذ عامل واحد من نفس نوع الكلاس ويعيد (Boolean) وإذا حددت طريقة إستجابة الكلاس لواحد منهما يجب ان تحددها للآخر
++, --, ~	يأخذ عامل واحد من نفس نوع الكلاس

 حينما تقوم بكتابة طريقة إستجابة كلاس لعامل ثنائي (أي يقبل معاملين(two arguments)) فلا يجب ان يكون المعاملين من نفس النوع فــفي الكلاس Folder في الأعلى العامل (+) يأخذ معاملين من نوع Folder وهذا ليس ضروري يمكننا كتابة العامل (+) للكلاس Folder مرة أخرى ليأخذ معاملين الأول نصي والثاني من نوع Folder ويضيف المعامل الأول إلى الملفات في المجلد ليصبح الكلاس

VB.Net

Public Class Folder Public Property Files As String() Public Sub New(ByVal ParamArray Files As String()) Me.Files = Files End Sub Public Overrides Function ToString() As String Return Files.Select(Function(f) vbTab & f).Aggregate(Function(a, b) a & vbNewLine & b) End Function Public Shared Operator +(ByVal a As Folder, ByVal b As Folder) As Folder Return New Folder(a.Files.Concat(b.Files).ToArray) End Operator Public Shared Operator +(ByVal a As Folder, ByVal b As String) As Folder Return New Folder(a.Files.Concat({b}).ToArray) End Operator End Class

C Sharp

class Folder { public string[] Files { get; set; } public Folder(params string[] files) { this.Files = files; } public override string ToString() { return this.Files.Select((s) => "\t" + s).Aggregate((a, b) => a + "\n" + b); } public static Folder operator +(Folder a, Folder b) { return new Folder(a.Files.Concat(b.Files).ToArray()); } public static Folder operator +(Folder a, string b) { return new Folder(a.Files.Concat(new string[] { b }).ToArray()); } }

وليصبح كود الجمع 

VB.Net

Sub Main() Dim FolderOne As Folder = New Folder("A.exe", "B.txt", "C.wav") Console.WriteLine("FolderOne ={0}{1}", vbNewLine, FolderOne) Dim FolderTwo As Folder = FolderOne + "E.mp4" Console.WriteLine("FolderTwo ={0}{1}", vbNewLine, FolderTwo) End Sub

C Sharp

static void Main(string[] args) { Folder FolderOne = new Folder("A.exe", "B.txt", "C.wav"); Console.WriteLine("FolderOne =\n{0}", FolderOne); Folder FolderTwo = FolderOne + "E.mp4"; Console.WriteLine("FolderTwo =\n{0}", FolderTwo); }

وستكون نتيجة التنفيذ

FolderOne = A.exe B.txt C.wav FolderTwo = A.exe B.txt C.wav E.mp4

لنجرب عامل آخر عامل المساواة على سبيل المثال ،عندما تقوم بمقارنة مجلدين في الواقع فما ستقوم به هو إنك سترى إن كان المجلدين يحتويان على نفس الملفات ،وإذا حاولت التعديل على الكلاس Folder فسيصبح قريبا للكود التالي

VB.Net

Public Class Folder Public Property Files As String() Public Sub New(ByVal ParamArray Files As String()) Me.Files = Files End Sub Public Overrides Function ToString() As String Return Files.Select(Function(f) vbTab & f).Aggregate(Function(a, b) a & vbNewLine & b) End Function Public Shared Operator =(ByVal a As Folder, ByVal b As Folder) As Boolean If a.Files.Length <> b.Files.Length Then Return False Return a.Files.Except(b.Files).Count = 0 End Operator End Class

C Sharp

class Folder { public string[] Files { get; set; } public Folder(params string[] files) { this.Files = files; } public override string ToString() { return this.Files.Select((s) => "\t" + s).Aggregate((a, b) => a + "\n" + b); } public static bool operator ==(Folder a, Folder b) { if (a.Files.Length != b.Files.Length) return false; return a.Files.Except(b.Files).Count() == 0; } }

لنحاول الآن ان نقارن مجلدين يحتويان نفس الملفات

VB.Net

Sub Main() Dim FolderOne As Folder = New Folder("A.exe", "B.txt", "C.wav") Console.WriteLine("FolderOne ={0}{1}", vbNewLine, FolderOne) Dim FolderTwo As Folder = New Folder("B.txt", "C.wav", "A.exe") Console.WriteLine("FolderTwo ={0}{1}", vbNewLine, FolderTwo) Console.WriteLine() Console.WriteLine("FolderOne {0} FolderTwo", If(FolderOne = FolderTwo, "equal", "dose not equal")) End Sub

C Sharp

static void Main(string[] args) { Folder FolderOne = new Folder("A.exe", "B.txt", "C.wav"); Console.WriteLine("FolderOne =\n{0}", FolderOne); Folder FolderTwo = new Folder("B.txt", "C.wav", "A.exe"); Console.WriteLine("FolderTwo =\n{0}", FolderTwo); Console.WriteLine(); Console.WriteLine("FolderOne {0} FolderTwo", (FolderOne == FolderTwo) ? "equal" : "dose not equal"); }

  الآن إذا حاولت تنفيذ هذا الكود فسيظهر لديك خطاٌ مفاده انه يجب عليك ان تحدد طريقة إستجابة الكلاس Folder للعامل <> في VB.Net و != في C# ،وسبق أن ذكرت هذا في الجدول في الأعلى

"وإذا حددت طريقة إستجابة الكلاس لواحد منهما يجب ان تحددها للآخر" لكن ضربت لك هذا المثال لأوضح لك الفكرة ،الآن لنعدل كود الكلاس Folder حتى يصبح قابلا للمقارنة.

VB.Net

Public Class Folder Public Property Files As String() Public Sub New(ByVal ParamArray Files As String()) Me.Files = Files End Sub Public Overrides Function ToString() As String Return Files.Select(Function(f) vbTab & f).Aggregate(Function(a, b) a & vbNewLine & b) End Function Public Shared Operator =(ByVal a As Folder, ByVal b As Folder) As Boolean If a.Files.Length <> b.Files.Length Then Return False Return a.Files.Except(b.Files).Count = 0 End Operator Public Shared Operator <>(ByVal a As Folder, ByVal b As Folder) As Boolean If a.Files.Length <> b.Files.Length Then Return True Return a.Files.Except(b.Files).Count() <> 0 End Operator End Class

C Sharp

class Folder { public string[] Files { get; set; } public Folder(params string[] files) { this.Files = files; } public override string ToString() { return this.Files.Select((s) => "\t" + s).Aggregate((a, b) => a + "\n" + b); } public static bool operator ==(Folder a, Folder b) { if (a.Files.Length != b.Files.Length) return false; return a.Files.Except(b.Files).Count() == 0; } public static bool operator !=(Folder a, Folder b) { if (a.Files.Length != b.Files.Length) return true; return a.Files.Except(b.Files).Count() != 0; } }

ثم إذا نفذت كود المقارنة الذي بالأعلى فستكون النتيجة

FolderOne = A.exe B.txt C.wav FolderTwo = B.txt C.wav A.exe FolderOne equal FolderTwo
 =====================================================

إن أصبت فمن الله ، وإن اخطئت فمني ومن الشيطان  اترككم في امان الله ورعايته 

والسلام عليكم ورحمة الله وبركاته
DoneByA