إنشاء كلاس و إستعماله

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

لو انك تقوم بعمل برنامج متعلق بالرياضيات وتحتاج الي العمليات الحسابيه كثيرا فهل كل مره ستكتب هذا الكود لجمع رقمين :

Dim x, y As Integer
MsgBox(Val(x) + Val(y))

هذا في حالة بسيطه جدا وهي جمع رقمين أما لو طلب منك عمليات حسابيه كبيره وطويله ماذا تفعل !!!
أليس من الأفضل عمل دالة تقوم بعمليه الجمع واستخدامها سهل كالتالي :

myobject.Sum(2, 3)

وظيفة الدرس هو أن نتعلم كيفية عمل دالة تقوم بمثل العمل السابق ,

ا- أنشئ Class لكي نعمل فيها بحريه , ,ولكي تنشئ دالة اكتب في داخل الـ Class التالي :
أولا نعلن عن الدالة كالتالي :

Function Sum

وبالضغط علي زر انتر يتم استكمال باقي الكود :

Function Sum()
End Function

هذا هو هيكل الدالة والذي سنكتب بداخله كود جمع رقمين مثلا ,

الدالة التي تقوم بجمع رقمين التي عرضتها في البدايه تأخذ الرقمين كـ Parameters , اذن كيف يمكن تمريرها الي الداله ؟؟؟

يمكن تمريرها كالتالي :

داخل القوسين بجانب اسم الدالة قم بكتابة اسم المتغير وكذلك حدد نوعه – كأنك تعلن عن متغير عادي أثناء كتابتك للكود :

Function Sum(x As Integer,y As Integer)

ثم أضغط انتر لتجد أنه تمت كتابة ByVal بجانب كل متغير , هكذا تستطيع دالتك أن تأخذ متغيرات ,
لكن كيف نعود بقيمة حاصل جمع الرقمين ؟
يمكن هذا مباشره عن طريق استخدام عبارة Return وهي من مميزات الدوال , وهذه العباره تتيح أن تعود الدالة بقيمة ما لاستعمالها مره أخري …,
في داخل كود الدالة اكتب :

Return (x + y)

يمكنك استعمال عبارة Return بطريقه أخري كالتالي :
نعلن عن متغير يحمل قيمة عملية الجمع , ثم نضع فيه حاصل جمع X+Y هكذا :

Dim z As Integer
z = (x + y)

ثم نسند المتغير z الي عبارة Return ويكون الكود النهائي للداله هكذا ويفضل توضيح نوع القيمه التي ستعود بها الداله ويكون بجوار المتغيرات من خارج الأقواس :

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

في حدث Button_Click أنشئ Object من الكلاس ثم استخدم الدالة Sum , واعرض الناتج في رساله (فرضا هنا اسم الكلاس هو OOP2Class) :

Dim myobject As New OOP2Class
MsgBox(myobject.Sum(2, 3))

اضف تعليقا

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

جميع الدروس