MAHDIACTION
یک شنبه 08 آذر 1388, 07:21 صبح
سلام دوستان
من می خواهم چند ماتریس رو توی یک آرایه ای از ماتریس ها ذخیره کنم سورس زیر به ظاهر این کار رو می کنه ولی مقادیر همه ماتریس های ذخیره شده یکی هست(همیشه آخرین ماتریس ذخیره شده) .
راهنمایی:فکر کنم این کد آدرس رو توی ماتریس آرایه ذخیره می کنه .
راستی هنگام اجرا موقع 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
من می خواهم چند ماتریس رو توی یک آرایه ای از ماتریس ها ذخیره کنم سورس زیر به ظاهر این کار رو می کنه ولی مقادیر همه ماتریس های ذخیره شده یکی هست(همیشه آخرین ماتریس ذخیره شده) .
راهنمایی:فکر کنم این کد آدرس رو توی ماتریس آرایه ذخیره می کنه .
راستی هنگام اجرا موقع 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