[oneyemenweb2]

منقول من المنتدى القديم
كاتب المقال احمد جمال المشرف العام
ارسال واستقبال المصفوفات من وإلى الدوال :

بعد مراجعتك للدرس التالي الخاص بالدوال واستقبال البارميترس :

http://vb4arb.com/vb/showthread.php?1313...1%D8%D1%DE

يمكنك عمل دالة لطباعة محتويات مصفوفة بالشكل التالي :
C#:

كود :

static void print(int[] arr)
{
for (int i = 0; i < arr.Length; i++)
Console.WriteLine(arr[0]);
}

VB.net:

كود :

Private Shared Sub print(ByVal arr As Integer())
    For i As Integer = 0 To arr.Length - 1
        Console.WriteLine(arr(0))
    Next
End Sub

لا تنسى طبعاً انه يتم التعامل معها byref افتراضياً ، لذا أي تعديل في الدالة سيؤثر على المصفوفة الأساسية .

في حالة كون ال array هي ما نود اعادته من الدالة return ، نكتب الكود بالشكل التالي :

C#:

كود :

static int [] read()
{
int []arr=new int[3];
for (int i=0;i<3;i++)
arr[i]=Console.Read();
}

VB.net:

كود :

Private Shared Function read() As Integer()
  
    Dim arr As Integer() = New Integer(2) {}
    For i As Integer = 0 To 2
        arr(i) = Console.Read()
    Next
End Function