با سلام.
در ویژوال بیسیک 6 یک نوع حرکت یا پیمایش خاص داشتم می خواستم سوال بپرسم از شما که چطوری میشه اونو انجام داد؟
من یک آرایه دو بعدی نوشتم که مثلا توسط کد زیر به صورت مارپیچ در آن پیمایش می کنم:
Dim A() As Integer
Dim M As Integer, N As Integer
Private Sub cmdCreate_Click()
M = txtM
N = txtN
ReDim A(M, N) As Integer
End Sub
Private Sub cmd1_Click()
Dim T As Integer
M=3
N=5
For i = 1 To M
If i Mod 2 = 1 Then
For j = 1 To N
T = T + 1
A(i, j) = T
Next
Else
For j = N To 1 Step -1
T = T + 1
A(i, j) = T
Next
End If
Next
End Sub
Private Sub cmdOutput_Click()
Cls
For i = 1 To M
For j = 1 To N
Print A(i, j),
Next
Print: Print
Next
End Sub
خروجی:
1 2 3 4 5
10 9 8 7 6
11 12 13 14 15
حالا من می خوام به صورت زیر پیمایش کنه. اسمش هم نفهمیدم چیه! این مدل به صورت زیر است:
1 2 4 7 10
3 5 8 11 13
6 9 12 14 15
اگه توجه کنید یک حالت خطی مورب داره که نمی دونم حلقه اش را چطوری بنویسم. فقط فکر نکنید این مدل ها را به هم ریخته و اشتباه نوشتم! فقط شما باید آنها را به ترتیب اعداد بخوانید. از 1 تا 15.
ممنون میشم راهنمایی کنید این دو مدل را چطوری پیاده کنم.
با تشکر.