فرستادن آرایه 2 بعدی به تابع

[sarakh]

سلام نحوه فراخوانی تابع با آرایه دو بعدی و فرستادن آرایه 2 بعدی به تابع در vb6؟؟؟
ممنون.

[sarakh]

لطفا راهنماییم کنین لازم دارم.

[vbhamed]

سلام


Private Sub test(x() As Integer)

MsgBox x(1, 1)

End Sub

Private Sub Form_Load()

Dim x(10, 2) As Integer

x(1, 1) = 10

test x

End Sub

[AmirPasha_vb]

خیلی ممنون آقای vbhamed

آیا میشه خروجی تابع test یک آرایه باشد ؟

مثلا یه فانکشن test داریم که دو تا آرایه بهش پاس دادیم حالا مقدار فانکشن یک آرایه ای باشد که بعد و اندیس آن را نمیدانیم ؟

برای نوشتن برنامه ضرب ماتریس ها احتیاج دارم (دو ماتریسی که قراره در هم ضرب بشن به شکل آرایه 2 بعدی پاس داده میشه به تابع و مقدار برگشتی تابع باید یک ماتریس به صورت آرایه باشه)

ممنون

[Felony]

من با VB زیاد کار نکردم ولی تا جایی که اطلاع دارم میتونید آرایه هایی رو که به تابع به عنوان پارامتر ارجاع میدید ByRef ارجاع بدید تا به مبداء آرایه اشاره بشه و تغییرات اعمال شده به آرایه تو تابع مستقیما رو خود آرایه ارجاع داده شده تاثیر بزاره .

[vbhamed]

سلام

نظر آقاي تاجيك درست است
در اينگونه موارد به شكل زير عمل مي‌شود
در مثال زير جمع ماتريسي انجام شده البته فقط يك عنصر براي نمونه

Private Sub test(x() As Integer, y() As Integer, Result() As Long)

Result(0, 0) = x(0, 0) + y(0, 0)

End Sub

Private Sub Form_Load()

Dim x(2, 2) As Integer, y(2, 2) As Integer, r(2, 2) As Long

x(0, 0) = 10
y(0, 0) = 20

test x, y, r

MsgBox r(0, 0)

End Sub