- Trier un tableau de manière aléatoire
- Créer un tableau avec des lignes de couleurs aléatoires
- PHP : Tableau de nombres entiers aléatoires, tous différents ou non, compris ou non da
- C# / .NET : Récupérer aléatoirement une valeur unique d'un tableau - CodeS Sou
- Python : Récupérer aléatoirement une valeur unique d'un tableau - CodeS Source
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:
- Tableau aléatoire
- Accès aléatoire - Meilleures réponses
- Remplir un tableau aleatoirement java - Guide
- Tableau aléatoire par paires ✓ - Forum - Visual Basic 6
- [ URGENT] prob tableau aleatoire ✓ - Forum - PHP
- Remplir un tableau avec des valeur aléatoire ✓ - Forum - C
- Initialiser un tableau avec des données aléatoires, tout en ayant des conditions ✓ - Forum - C
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