چطوری آرایه ای از ماتریس ها بسازم؟

[MAHDIACTION]

سلام دوستان
من می خواهم چند ماتریس رو توی یک آرایه ای از ماتریس ها ذخیره کنم سورس زیر به ظاهر این کار رو می کنه ولی مقادیر همه ماتریس های ذخیره شده یکی هست(همیشه آخرین ماتریس ذخیره شده) .
راهنمایی:فکر کنم این کد آدرس رو توی ماتریس آرایه ذخیره می کنه .

راستی هنگام اجرا موقع step Info خودتون مقادیر رو تغییر بدبد.

Public Class Form2
Structure SafeMatrix
Dim Matrix2(,) As Integer
End Structure
Dim matrix1(3, 3) As Integer
Dim SafeM(5) As SafeMatrix
Dim Countsafe As Integer 'تعداد ماتریس های موجود در صف

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
matrix1(1, 1) = 0
Matrix1(1, 2) = 4
matrix1(1, 3) = 13
matrix1(2, 1) = 12
matrix1(2, 2) = 5
Matrix1(2, 3) = 1
matrix1(3, 1) = 80
matrix1(3, 2) = 701
matrix1(3, 3) = 601
Countsafe += 1
SafeM(Countsafe).Matrix2 = matrix1

End Sub
End Class

[ACorvinus]

سلام .

کدتون رو اینجوری بنویسین جواب میده !



Public Class Form1

Private Structure SafeMatrix
Dim Matrix2(,) As Integer
End Structure

Private SafeM(5) As SafeMatrix
Private Countsafe As Integer = -1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim matrix1(3, 3) As Integer
For I As Integer = 0 To 3
For J As Integer = 0 To 3
matrix1(I, J) = Int(Rnd(154) * 3)
Next
Next
Countsafe += 1
SafeM(Countsafe).Matrix2 = matrix1
End Sub

End Class



من کاری ندارم چجوری به اندیسهای ماتریستون چجوری عدد میدین، فقط خواستم اینو بگم که کد زیر باید داخل Button1_Click نوشته بشه.


Dim matrix1(3, 3) As Integer


و در ضمن چون آرایه ها از صفر شروع میشن شما باید کد تعداد ماتریس های موجود در صف رو چنین تعریف کنین:


Private Countsafe As Integer = -1


و اگر خواستین به روش خودتون تعریف کنین، دو خط آخر برنامه موجود در Button1_Click رو باید اینجوری تغییر بدین:



SafeM(Countsafe).Matrix2 = matrix1
Countsafe += 1



موفق باشی دوست من .

[nima898]

سلام مگه نمیشه توی یک آرایه سه بعدی ذخیره کنی؟