دورة تطبيقية لانشاء واستغلال الفئات في برامجنا

إنشاء الخصائص للفئة :

الخصائص تعرف عادة معلومات أو بيانات معينة للفئة , فمثلا فئة تعبر عن موظف مثلا يمكن أن تحوي كخصائص لها : الإسم , اللقب و العمر مثلا

هناك طريقتين لتعريف خصائص للفئة :

• إما بتعريف متغير عام Public داخل كود الفئة
  
• أو باستعمال إجراءات لتعريف الخصائص
  

1-بتعريف متغير عام Public داخل كود الفئة:

إذا كنا لا نريد تنفيذ أي اجراء عند اسناد قيمة للخاصية فانه يمكننا الاكتفاء بتعريف الخاصية كمتغير عام مثلا لو أردنا أن نعرف خاصية الاسم الأول نعرفها Public وليس Private

Public FirstName As String

2-إستعمال إجراءات لتعريف الخصائص:

هذه الطريقة تسمح لنا بالتحكم أكثر بالخاصية المنشئة للفئة فهي تسمح لنا :

• تنفيذ اجراء عند قراءة أو كتابة الخاصية
  
• تحديد الخاصية ضمن قيم معينة أو محددة
  
• جعل الخاصية للقراءة فقط في بعض الأحيان
  

لاسناد قيم للخاصية نستعمل Set أو Let ولقرائة قيمة الخاصية نستعمل Get

نبدأ سويا لانشاء خاصية الاسم الأول مثلا لفئتنا

أولا نعرف المتغير الذي يقوم بتسجيل قيمة الخاصية في قسم التصريحات العامة داخل كود الفئة

Private mvarFirstName As String

الآن نمر إلى بناء هيكل الفئة لذلك نعرف إجراء الاسناد والقراءة وهنا الاجراء يكون عام طبعا لكي يتم الوصول إليه عند إنشاء كائن جديد انطلاقا من فئتنا

Public Property Let FirstName(passedName As String)
	 mvarFirstName = UCase(passedName)
 End Property

 Public Property Get FirstName() As String
	 FirstName = mvarFirstName
 End Property

هنا الخاصية المنشئة يمكننا قرائتها من الإجراء Get واسناد قيمة لها ضمن الإجراء Let

إذا أردنا انشاء خاصية للقراءة فقط فهذا يعني أن نحذف الإجراء المتعلق بكتابة الخاصية أي نحذف الإجراء Let

اذا كان نوع البيانات عبارة عن كائن Object فان عملية اسناد القيمة لا تتم ب Let لكن باستعمال Set

يمكنكم التطبيق بانشاء فئة داخل تطبيقنا وكتابة الخاصية الجديدة

كما في الصورة نلاحظ أننا نجد الخاصية FirstName للكائن المنشئ من فئتنا Class1

بنفس الطريقة يمكننا انشاء باقي الخصائص لفئتنا

إستعمال الثوابت المسماة :

نطلق عادة على الثوابت المسماة الثوابت التي تكون ثابتة وقت التنفيذ ولا يتم تغيير قيمها

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

مثلا لو أردنا إنشاء صندوق نص تحمل الزر نعم و الزر لا يمكننا إستعمال الثابت vbYesNo بدلا من القيمة الإسمية له والمساوية ل4

كيفية إنشاء ثوابت مسماة:

لكي ننشئ ثوابتنا المسماة الخاصة نقوم بإنشاء تعداد نحصر فيه جميع القيم المتاحة داخله

المثال التالي يبين كيف يمكننا انشاء تعداد نسميه JobLevel يحمل ثلاثة قيم

Public Enum JobLevel
		 jExecutive = 1
		 jManagement = 2
		 jStaff = 3
	 End Enum

يمكننا وضع القيم المنشئة في متناول المستخدم للفئة بتعريفها كPublic

يمكن لمستخدمي فئتنا استعمال هذه الثوابت المسماة JobLevel مع تعريف دالة بسيطة تستعمل هذه الثوابت

مثلا نريد انشاء دالة للتحقق من نوع العمل ضمن اطار محدد من 1 إلى 3 باستعمال الثوابت المسماة المنشئة سابقا

Public Sub CheckExecutiveStatus(iLevel as JobLevel)
		 If iLevel = jExecutive Then
			 MsgBox "Statut Ok"
		 Else
			 MsgBox "Statut refused"
		 End If
	 End Sub

الدالة لها برامتر اسمه iLevel من النوع JobLevel

إستعمال التعداد كخصائص للفئة:

يمكننا استغلال الثوابت المسماة في التعداد لتعريف خاصية للفئة

نستعمل التعداد المنشئ سابقا JobLevel لحصر قيم خاصية نسميها ActiveJobLevel

Public Property Let ActiveJobLevel(jl As JobLevel)
mvarJobLevel = jl
End Property

Public Property Get ActiveJobLevel() As JobLevel
ActiveJobLevel= mvarJobLevel
End Property

   Private mvarJobLevel As JobLevel

إنشاء الأحداث للفئة :

بفضل استعمال الأحداث يتم اخبارنا أنه تمت عملية ما داخل الفئة في وقت معين

الفيجوال يوفر لنا حدثين أساسيين كما ذكرنا سابقا Initialize و Terminate

يمكننا أيضا تعريف أحداث خاصة لفئتنا بعد تعريفها ثم استعمال الكود الذي يسببها أو يطلقها

تعريف الحدث:

يتم تعريف حدث للفئة المنشئة في قسم التصريحات العامة باستخدام الكلمة المحجوزة Event

الكود التالي يوضح كيفية تعريف حدث

Public Event Status(ByVal StatusText As String)

إطلاق الحدث :

يتم اطلاق الحدث من الفئة باستخدام RaiseEventمع ذكر كل البارمترات المستعملة في تعريفها

كمثال نريد اطلاق الحدث Status المعرف سابقا عند تحديث بيانات معينة مثلا تسجيل المستخدم فنكتب بالكود في المكان المناسب لذلك ونكتب كود اطلاق الحدث

RaiseEvent Status ("يتم تحديث البيانات والتسجيل...")

الآن لاستعمال الحدث في الكود نقوم بتعريف الكائن المشتق من فئتنا لاشتقاق الأحداث الموجودة بالفئة

Dim WithEvents s As Class1

بمجرد تعريفنا للكائن s سيظهر لنا الحدث Status المنشئ في الفئة

Dim WithEvents s As Class1

	 Private Sub s_Status(ByVal StatusText As String)

   End Sub

توليد أخطاء خاصة بالفئة :

يمكننا أن نقوم بانشاء فئة تولد لنا أخطاء خاصة لتمريرها للكود الذي يستعمل فئتنا ويمكن اعتبارها كحدث من الأحداث التي يتم اطلاقها لكن الفرق هنا أن هذه الأحداث تطلق فقط وقت حدوث خطأ داخل الفئة

من أجل التحكم في الأخطاء داخل الفئة المنشئة نقوم باستعمال الإجراء Raise للكائن Err

ERR.Raise Num, Source, Description, Help File ,Help Contexte ID

هنا علينا باختيار رقم يختلف عن الرقم vbObjectError

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

لذلك نقوم باضافة رقم للثابت المذكور

Err.Raise vbObjectError + 1000, "CPlayer", "error Adding New Player"

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

سنرى اليوم كيفية انتاج مكتبات DLL انطلاقا من الفئات التي سننشؤها وكيف نستخدمها داخل برنامجنا بطريقة مبسطة

ملاحظة : فقط أعتذر لكوني أستعمل النسخة الفرنسية للVB6 (يعني تعلموا معانا شوية فرنسي)

نختار مشروع جديد من النوع Activex DLL

سيتم اضافة كلاس جديدة فارغة للمشروع Class1

نقوم باضافة خصائص للفئة وقد رأينا ذلك في الجزء الأول

نطبق مثلا خاصية الاسم الأول كما رأينا ذلك سابقا

Private mvarFirstName As String
Public Property Let FirstName(passedName As String)
	mvarFirstName = UCase(passedName)
End Property

Public Property Get FirstName() As String
	FirstName = mvarFirstName
End Property

بالضغط على مفتاح F2 سنرى فئتنا Class1 تحتوي على الخاصية التي أضفناها

لكن الخاصية لا تحوي وصف في الأسفل أليس كذلك ؟

ولعمل وصف للخاصية نذهب إلى قائمة الأدوات Tools ونختار Procedure Attributes

نكتب مثلا : خاصية الإسم الأول

ستلاحظ التغيير بعدها

من الأحسن أن نقوم باعادة تسمية المشروع من Project1 إلى MyDLL بعدها يمكننا أن نقوم بترجمة المشروع إلى ملف DLL من قائمة File>Make MyDLL.dll

طبعا أكيد بالفرنسي مختلفة :D

مبروك أنشأنا مكتبتنا بنجاح

نكمل المرة القادمة ونرى كيف نستعمل هذه المكتبة (DLL ) مع برنامج آخر

بالتوفيق للجميع

نكمل الشطر الثاني والخاص بكيفية استعمال المكتبة المنشئة

ويمكن ذلك بطريقتين:

1-إضافة المرجع :

ننشئ مشروع Standard EXE ونقوم باضافة مرجع للمكتبة التي قمنا بانشائها

ستلاحظ عند استعراض الobject الموجودة في المشروع بعد اضافة المرجع (بالضغط على F2 ) أن الفئة Class1 موجودة

هذا يعني أننا يمكننا استعمالها

نصرح بمتغير يحمل اسم الفئة Class1 في قسم التصريحات العامة ليتسنى لنا استعماله وتجربته على زري أمر

Private ClassTest As Class1

في الزر الأول ننشئ نسخة من الفئة كما رأينا في الدروس الاولى

ونقوم باسناد قيمة للخاصية FirstName

Set ClassTest = New Class1
ClassTest.FirstName = "arabTeam"

في الزر الثاني نتأكد من قيمة الخاصية هل تم تسجيلها

MsgBox ClassTest.FirstName

اذا العملية نجحت واستطعنا تحويل فئتنا إلى ملف DLL واستعملناه بنجاح

2-الطريقة الثانية انشاء الفئة من الكائن المخصص لها :

في العادة يتم تسجيل مكتبات dl activex أو الocx في الريجيستري ويخصص id خاص لكل فئة يتم التعرف على كائناتها بواسطة هذا الid الذي يكون وحيد

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

للوصول إلى الكائن الذي يعرف فئتنا والموجود في ملف الdll يكفي استعمال الدالة CreateObject مع تحديد "myDLL.class1"

وبذلك نستطيع انشاء كائن يحمل مواصفات فئتنا المنشئة سابقا

طبعا في قسم التصريحات نعرف المتغير ClassTest ككائن

Private ClassTest As Object

في الزر الأول

Set ClassTest = CreateObject("myDLL.class1")
ClassTest.FirstName = "arabTeam"

عملية التحقق في الزر الثاني تكون نفسها

ستلاحظ هنا أن خصائص الفئة لن تكون مرئية عكس الطريقة الأولى التي قمنا فيها بادراج مرجع المكتبة

بالتوفيق للجميع