Mensen,
op internet heb ik de volgende code gevonden om een numerieke array te randomizen:
nu staat hier het volgende :
Stel je voor dat RandNum een nummer is dat al een keer geweest is (zou toch mogelijk zijn), en dat toen de plaats gevuld is met een 0 uit theArray(), dan zou de voorwaarde dat de inhoud van die regel een 0 is opgaan, en zal die waarde dus overschreven worden met een ander nummer uit theArray()...
Toch gebeurd dit niet, ook na vele malen uitproberen. Nu begrijp ik dit dus niet. Kan iemand mij dit uitleggen.
Bedankt
op internet heb ik de volgende code gevonden om een numerieke array te randomizen:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Function RandomizeINTArray(theArray() As Integer, count As Integer)
Randomize
Dim RandNum As Integer
Dim shuffle1() As Integer
ReDim shuffle1(count - 1)
For i = 0 To count - 1
shuffle1(i) = 0
Next i
For i = 0 To count - 1
RandNum = Int(Rnd * count)
If shuffle1(RandNum) = 0 Then
shuffle1(RandNum) = theArray(i)
Else
i = i - 1
End If
Next i
For i = 0 To count - 1
theArray(i) = shuffle1(i)
Next i
End Function |
nu staat hier het volgende :
code:
1
2
| If shuffle1(RandNum) = 0 Then shuffle1(RandNum) = theArray(i) |
Stel je voor dat RandNum een nummer is dat al een keer geweest is (zou toch mogelijk zijn), en dat toen de plaats gevuld is met een 0 uit theArray(), dan zou de voorwaarde dat de inhoud van die regel een 0 is opgaan, en zal die waarde dus overschreven worden met een ander nummer uit theArray()...
Toch gebeurd dit niet, ook na vele malen uitproberen. Nu begrijp ik dit dus niet. Kan iemand mij dit uitleggen.
Bedankt