POUR .... trouver une suite de nombres alesatoires et TOUS differents
Source / Exemple :
Public Function nombresDifferents(ByVal Combien As Int32, ByVal mini As Int32, ByVal maxi As Int32) As ArrayList
Dim mAR As New ArrayList()
Dim i As Int32
Dim r As New Random()
Dim ar As New ArrayList()
Dim nb As Int32
Dim compte As Int32
For i = mini To maxi
ar.Add(i)
Next
If ar.Count - 1 <= Combien Then
Combien = ar.Count
End If
For i = 1 To Combien
nb = 0
compte = ar.Count
nb = r.Next(compte)
mAR.Add(ar(nb))
ar.RemoveAt(nb)
Next
Return mAR
End Function
Conclusion :
Public Function nombresDifferents(ByVal Combien As Int32, ByVal mini As Int32, ByVal maxi As Int32) As ArrayList
combien = combien de nombres aleatoires vous voulez tirer
mini maxi = fourchette (de 21 a 128 par exemple)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.