الفصل(3): التركيبات أنواعها واستخداماتها

السلام عليكم ورحمة الله وبركاته
بسم الله الرحمن الرحيم
درسنا اليوم دسم بعض الشيء ويحتاج لشيء من التركيز.
بداية علينا أن نتيقن أن الأنواع في فيجوال بسيك دوت نت لا تقتصر على ما قد طور مع اللغة مثل short int16 int32 single short integer string date point .......إلخ
فربما احتاج أنواع جديدة من المتغيرات والثوابت التي لا تتواجد في فيجوال بيسك دوت نت....لا مشكلة.....اصنعها بنفسك!

سيحتوي الدرس باذن الله على التالي:

• التركيبات من نوع Enums
  
• التركيبات من نوع Structure
  

أولا: التركيبات من نوع Enums
بالنسبة للتركيبات من نوع Enums فهي تستخدم لتعريف أنواع جديدة من التركيبات على وجه الحصر أو التعميم ....كيف ذلك؟؟!
كما نعرف في السنة 12 شهرًا وبما ان عددها ثابت فيمكننا اختصار جهد تكرارها في الشيفرة كالتالي:



رمز برمجي:
Enum Month
Jan
Feb
Mar
Apr
May
Jun
Jul
Aug
Sep
Oct
Nov
Dec
End Enum
لكن ما الذي حدث وما استفيد؟؟
انظر أخي الكريم:
لقد قمنا بصنع تركيبة جديدة واسميناها بالشهر ووضعنا كل شهر داخل التركيبة كجزء منها....
وماذا بعد...؟
الآن علينا معرفة بعض الأمور:

.عند الاستعلام عن عنصر من عناصر الEnum فاننا نستعلم بالشكل التالي:




رمز برمجي:
TextBox1.Text =Month.Jan

وبما أن الثابت Month.Jan لم يتم اسناد قيمة له فسيتم اسناد القيمة الافتراشية له وهي صفر ..لماذا؟
العنصر الأول من عناصر تركيبة الEnum تبدأ من
الصفر والعنصر الثاني يساوي السابق+1 والثالث يساوي السابق+1 وهكذا إلى أن
نصل إلى العنصر Month.Dec فسنراه يحمل القيمة 11 ولك التجربة
.يمكن اسناد قيم وقت صنع التركيبة كالتالي:




رمز برمجي:
Enum Month
Jan = 22
Feb = 5
Mar = 23
Apr
May
Jun
Jul
Aug
Sep
Oct
Nov
Dec
End Enum






رمز برمجي:
TextBox1.Text =Month.Mar

وكما نرى فان العنصر Month.Mar يحمل القيمة 23 والعنصر التالي سيحمل القيمة السابقة + 1 حسب ما ذكرنا في الأعلى .





رمز برمجي:
TextBox1.Text =Month.Apr


ملاحظة: يمكننا الجزم بأن التركيبات من نوع Enum تعادل
بوظيفتها الثوابت فعناصرها عبارة عن ثوابت ولهذا عند محاولة اسناد قيم
للعنصر خارج سطره في التركيبة فان ذلك سيتوج بالرفض من قبل
المترجم........انظر الصورة التالية:

ونص رسالة الخطأ يقول:Constant cannot be the target of an
assignment أي أنه الثابت لا يمكن أن يكون هدفا لعملية تعيين.(أي اسناد
قيمة)
اذن يمكن استخدام الEnum في استخدامات الثوابت والتي يمكنك مراجعتها من الموضوع التالي:
http://vb4arab.com/vb/showthread.php?t=36557
ملاحظة : جميع قيم الEnum في المثالين السابقة من النوع Integer كما يمكن
تغيير نوعها لLong او Short او ما الى ذلك(أقصد المتغيرات العددية الصحيحة)
مثال:




رمز برمجي:
Enum Month As Long
Jan
Feb
....
....
End Enum
والآن دعونا نتطرق قليلا الى موضوع مرتبط
بالمتغيرات والثوابت ألا وهو محدودية المتغيرات والثوابت (بمعني آخر أين
يمكنني استخدامها) .... يمكنك تحديد محدودية الEnum كالتالي:
عندما تريد الEnum عامة ومستخدمة من جميع وحدات المشروع عليك سبقها ب Public أو بلا شيء
مثال:




رمز برمجي:
Public Enum Month As Long
Jan
Feb
....
....
End Enum



رمز برمجي:
Enum Month As Long
Jan
Feb
....
....
End Enum
وإن كنت حصرها داخل الوحدة البرمجية المعلنة بها فعليك سبقها ب Private
مثال:



رمز برمجي:
Private Enum Month As Long
Jan
Feb
....
....
End Enum
ملاحظة أخيرة: علينا وضع التركيبة خارج أي حدث لان ذلك سوف يحدث خطأ برمجي:
مثال:




رمز برمجي:
Public Class Form1
'لا مشكلة
Enum Month
Jan
Feb
Mar
Apr
....
....
End Enum
End Class



رمز برمجي:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'هنا المشكلة
Enum Month
Jan
Feb
Mar
Apr
....
....
End Enum
End Sub

ثانيا: التركيبات من نوع Structure
يعرف هذا النوع من التركيبات بالانواع المعرفة من قبل المستخدم(User Defined Type-UDT)
ويمكن دمج العديد من المتغيرات والتركيبات داخل التركيبة الأم باستخدام الكلمة المحجوزة Structure
نعرف انه لدينا متغيرات من النوع String و Integer وDate وما الى ذلك.
لكن هل يمكنني صياغة متغير بالكيفية التي اريدها....لم لا؟
هذا النوع من المتغيرات يسمى Structure والتي دعمت ببيئة الدوت نت اكثر من ذي قبل
الآن نريد صنع متغير من نوع سيارة اي صنع خاص لا يعرفه فيجوال بيسك دوت
نت...لكن قبل ذلك علينا تحديد العناصر التي تدخل في مكونات السيارة وهي
الاسم والموديل والسعر والسعة وتاريخ الصناعة وتاريخ التصدير..... وما الى
ذلك

مثال:




رمز برمجي:
Structure Car
Dim Name As String
Dim cost As Integer
Dim Model As String
End Structure
استخدام المتغير الجديد بالضبط كاستخدام المتغير العادي
مثال:




رمز برمجي:
Dim NewCar As Car
NewCar.Name = "Mercedes"
NewCar.cost = 15
'طبعا انا ما بعرف ايش موديلاتها بس للتوضيح مش اكثر
NewCar.Model = "Gaosdh/#25"

MsgBox("Name: " & NewCar.Name & vbCrLf & "Cost: " & (NewCar.cost).ToString & vbCrLf & "Model: " & NewCar.Model
)


الآن دعونا نتعمق أكثر
يمكن للتركيبة من Structure أن تحتوي على تراكيب داخلية الأمر الذي يطلق عليه تراكيب متداخلة
Nested Structures
كيف ذلك ولماذا..؟
الآن دعنا نرجع قليلا الى السيارة ...نريد ألحاق مكون آخر للسيارة وهو
تاريخ الانتاج وتاريخ التصدير..هل يتوجب علينا جعل كل مكون منفصلا عن
الآخر؟
ليس تماما .. كما نعلم فان كلا المكونين من النوع Date والذي يمكن اجماله بالشكل التالي: