1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
| ReDim TableauAlea(1 To 4, 1 To Me.NbrAllee)
RndUnique fReset:=True
For i = 1 To Me.NbrAllee
TableauAlea(1, i) = RndUnique(1, 10)
Next i
For m = 1 To 3
For j = 1 To Me.NbrAllee
If TableauAlea(m, j) Mod 2 = 1 Then
TableauAlea(m + 1, j) = TableauAlea(m, j) - 2
recommence:
If TableauAlea(m + 1, j) <= 0 Then TableauAlea(m + 1, j) = TableauAlea(m + 1, j) + 10
' contrôle si le chiffre appartiens à la liste
For k = 1 To Me.NbrAllee
If TableauAlea(m + 1, j) = TableauAlea(m, k) Then
Exit For
End If
Next k
' si pas dans la séléction enlève 2
If k = Me.NbrAllee + 1 Then
TableauAlea(m + 1, j) = TableauAlea(m + 1, j) - 2
GoTo recommence '<--- et recommence le contrôle
End If
Else
TableauAlea(m + 1, j) = TableauAlea(m, j) + 2
encore:
If TableauAlea(m + 1, j) > 10 Then TableauAlea(m + 1, j) = TableauAlea(m + 1, j) - 10
' contrôle si le chiffre appartiens à la liste
For l = 1 To Me.NbrAllee
If TableauAlea(m + 1, j) = TableauAlea(m, l) Then
Exit For
End If
Next l
' si pas dans la séléction ajoute 2
If l = Me.NbrAllee + 1 Then
TableauAlea(m + 1, j) = TableauAlea(m + 1, j) + 2
GoTo encore ' <--- et recommence le contrôle
End If
End If
Next j
Next m |
Partager