Suite de nombres alesatoires differents

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 295 fois - Téléchargée 36 fois

Contenu du snippet

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)

A voir également

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.