Accés aléatoire à un élément d'un tableau [Résolu]
Signaler
hela_bouks
cs_Willi
- Messages postés
- 18
- Date d'inscription
- vendredi 24 février 2006
- Statut
- Membre
- Dernière intervention
- 2 janvier 2008
cs_Willi
- Messages postés
- 2375
- Date d'inscription
- jeudi 12 juillet 2001
- Statut
- Modérateur
- Dernière intervention
- 15 décembre 2018
A voir également:
- Accés aléatoire à un élément d'un tableau
- Structure, tableaux, Fichiers a acces aleatoire ✓ - Forum - VB.NET
- Ajouter un element dans un tableau java - Forum - Java
- Decaler les elements d'un tableau en c - Forum - C
- Ajout d'element dans une JList - Forum - Java
- Insertion d'un élément dans un tableau en java - Forum - Java
5 réponses
econs
- Messages postés
- 4030
- Date d'inscription
- mardi 13 mai 2003
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2008
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
cs_Willi
- Messages postés
- 2375
- Date d'inscription
- jeudi 12 juillet 2001
- Statut
- Modérateur
- Dernière intervention
- 15 décembre 2018
Bonjour,
Randomize
MsgBox CInt(Rnd * UBound(NomDeTonTableau)) - 1
Voila
Randomize
MsgBox CInt(Rnd * UBound(NomDeTonTableau)) - 1
Voila
econs
- Messages postés
- 4030
- Date d'inscription
- mardi 13 mai 2003
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2008
Et un p'tit Randomize Timer dans le Form_Load pour ne pas avoir toujours les mêmes permutations !
Manu
Manu