[oneyemenweb2]

منقول من المنتدى القديم
كاتب المقال احمد جمال المشرف العام
بتاريخ 27-02-08

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


ال Structure او Structs هي انواع مخصصة من البيانات يمكنك انشاءها تستطيع حمل اي خصائص على شكل متغيرات او حتى دوال وخلافه ، ابسط مثال على Struct هو مثال السيارة ، لكل سيارة نجد موديل الصنع واسم الماركة ورقم اللوحة مثلاً ، يمكننا كتابة ال Struct بالشكل التالي مثلاً :

C#:

كود :

struct Car
{
public int carNumber;
public int year;
public string factory;
};

VB.net:

كود :

Structure Car
    
    
    Public carNumber As Integer
    
    Public year As Integer
    
    Public factory As String
    
End Structure

والآن عندما نريد تعريف نسخة من (سيارة) فإننا نقوم بتعيين خصائصها بالشكل التالي :

C#:

كود :

Car ahmedcar = new Car();
ahmedcar.carNumber = 1000;
ahmedcar.factory = "Nissan";
ahmedcar.year = 2007;

VB.net:

كود :

Dim ahmedcar As New Car()
ahmedcar.carNumber = 1000
ahmedcar.factory = "Nissan"
ahmedcar.year = 2007

يمكن ان يحتوي ال Struct على عنصر هو الآخر بدوره Struct ، لو افترضنا Struct لرخصة السير يحتوي على اسم المستخدم والسنوات المتبقية لانتهاء الرخصة مثلاً ، فسيكون ذلك بالشكل التالي :

C#:

كود :

[CODE]


struct Licence
{
public string UserName;
public int yearsToFinish;

[/CODE]

VB.net:

كود :

Structure Licence
    
    
    Public UserName As String
    
    Public yearsToFinish As Integer
    
End Structure

والآن لو اردنا ان نجعل رخصة السير جزء من خصائص السيارة ، فسيتم ذلك بالشكل التالي :

C#:

كود :

struct Car
{
public int carNumber;
public int year;
public string factory;
public Licence carLicence;
};

VB.net:

كود :

Structure Car
    
    
    Public carNumber As Integer
    
    Public year As Integer
    
    Public factory As String
    
    Public carLicence As Licence

ولتحديد خصائص اي سيارة سنكتب كود بالشكل التالي :

C#:

كود :

Car ahmedcar = new Car();
ahmedcar.carNumber = 1000;
ahmedcar.factory = "Nissan";
ahmedcar.year = 2007;
ahmedcar.carLicence.UserName = "Ahmed Gamal";
ahmedcar.carLicence.yearsToFinish = 3;

VB.net

كود :

Dim ahmedcar As New Car()
ahmedcar.carNumber = 1000
ahmedcar.factory = "Nissan"
ahmedcar.year = 2007
ahmedcar.carLicence.UserName = "Ahmed Gamal"
ahmedcar.carLicence.yearsToFinish = 3