For j = 1 To nofper
For i = 1 To nsales
For k = 1 To nofret(j, i)
For l = 1 To nofcomp
If diotlevel(j, k, l) < 4 Then
Print #1, k + ret(j - 1) & "." & l & "." & j & " 1"
Else
Print #1, k + ret(j - 1) & "." & l & "." & j & " 0"
End If
Next l
Next k
Next i
Next j
Yukarıdaki kod da hatalı calışıyor malesef her bır nsales =5 için içerdeki döngüyü 5 kez döndürüyor ve sonuçta
49.1.1 1
49.2.1 1
49.3.1 1
49.4.1 1
49.5.1 0
50.1.1 1
50.2.1 1
50.3.1 1
50.4.1 1
50.5.1 1
1.1.1 1
1.2.1 1
1.3.1 1
1.4.1 1
1.5.1 1
2.1.1 0
2.2.1 1
2.3.1 1
2.4.1 1
2.5.1 1
3.1.1 1
3.2.1 1
hatalı dongu yapıyor aslında benım k ile tanımladıım sey bir dizi ve bu dizi (j,i) den olusuyor o yuzden i indisini tanımlamak için For i döngüsünu yukarı koydum ancak hatalı sıralama yaptı bu konuda nofret(j,i) dizisini iki indis yerine tek indisle nasıl ifade ederim ??
For i = 1 To nsales
For k = 1 To nofret(j, i)
For l = 1 To nofcomp
If diotlevel(j, k, l) < 4 Then
Print #1, k + ret(j - 1) & "." & l & "." & j & " 1"
Else
Print #1, k + ret(j - 1) & "." & l & "." & j & " 0"
End If
Next l
Next k
Next i
Next j
Yukarıdaki kod da hatalı calışıyor malesef her bır nsales =5 için içerdeki döngüyü 5 kez döndürüyor ve sonuçta
49.1.1 1
49.2.1 1
49.3.1 1
49.4.1 1
49.5.1 0
50.1.1 1
50.2.1 1
50.3.1 1
50.4.1 1
50.5.1 1
1.1.1 1
1.2.1 1
1.3.1 1
1.4.1 1
1.5.1 1
2.1.1 0
2.2.1 1
2.3.1 1
2.4.1 1
2.5.1 1
3.1.1 1
3.2.1 1
hatalı dongu yapıyor aslında benım k ile tanımladıım sey bir dizi ve bu dizi (j,i) den olusuyor o yuzden i indisini tanımlamak için For i döngüsünu yukarı koydum ancak hatalı sıralama yaptı bu konuda nofret(j,i) dizisini iki indis yerine tek indisle nasıl ifade ederim ??
