Accés aléatoire à un élément d'un tableau [Résolu]
hela_bouks
18
Messages postés
vendredi 24 février 2006Date d'inscription
2 janvier 2008
Dernière intervention
-
7 mars 2006 à 09:59 - Dernière réponse :
cs_Willi
2381
Messages postés
jeudi 12 juillet 2001Date d'inscription
13 février 2015
Dernière intervention
- 7 mars 2006 à 10:21
- Accés aléatoire à un élément d'un tableau
- Tirage aleatoire d'un element d'un tableau constitué de doc.pdf » Forum - C
- Supprimer un élément d'un tableau » Codes sources - Visual Basic / VB.NET (Divers)
- Comment compter le nombre d'élément dans un tableau commençant par une chaine sp (Résolu) » Forum - VB.NET
- Ajouter un élément à un tableau (Résolu) » Forum - VB.NET
- Fichier à acces aleatoire (Résolu) » Forum - C / C++ / C++.NET
5 réponses
Meilleure réponse
Salut,
La procedure permutationAleatoire ci-dessous fait çà. La procédure test te servira juste à tester que tout va bien.
Sub test()
Dim tt(3 To 8) As Long
Dim sTemp As String
For l = 3 To 8
tt(l) = l
Next l
permutationAleatoire tt
sTemp = ""
For l = 3 To 8
sTemp = sTemp & tt(l) & " "
Next l
MsgBox sTemp
End Sub
Sub permutationAleatoire(t() As Long)
Dim indice1 As Long
Dim indice2 As Long
Dim nbElements As Long
Dim k As Long
nbElements = UBound(t) - LBound(t) + 1
indice1 = Int(Rnd * nbElements)
indice2 = Int(Rnd * nbElements)
k = t(LBound(t) + indice1)
t(LBound(t) + indice1) = t(LBound(t) + indice2)
t(LBound(t) + indice2) = k
End Sub
Manu
La procedure permutationAleatoire ci-dessous fait çà. La procédure test te servira juste à tester que tout va bien.
Sub test()
Dim tt(3 To 8) As Long
Dim sTemp As String
For l = 3 To 8
tt(l) = l
Next l
permutationAleatoire tt
sTemp = ""
For l = 3 To 8
sTemp = sTemp & tt(l) & " "
Next l
MsgBox sTemp
End Sub
Sub permutationAleatoire(t() As Long)
Dim indice1 As Long
Dim indice2 As Long
Dim nbElements As Long
Dim k As Long
nbElements = UBound(t) - LBound(t) + 1
indice1 = Int(Rnd * nbElements)
indice2 = Int(Rnd * nbElements)
k = t(LBound(t) + indice1)
t(LBound(t) + indice1) = t(LBound(t) + indice2)
t(LBound(t) + indice2) = k
End Sub
Manu
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 72 internautes ce mois-ci
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.