ScarHand
Messages postés12Date d'inscriptionmardi 1 février 2005StatutMembreDernière intervention 1 septembre 2005
-
17 juin 2005 à 23:24
ScarHand
Messages postés12Date d'inscriptionmardi 1 février 2005StatutMembreDernière intervention 1 septembre 2005
-
20 juin 2005 à 00:02
Bonsoir,
Je voudrais connaitre un moyen simple pour insérer des nombres aléatoires de 1 à 10 (par ex) dans un tableau, de telle manière que chaque élément soit différent des autres.
Autrement dit, j'ai les nombres de 1 à 10 et je voudrais les mélanger et les stocker dans un tableau.
J'ai essayé ça :
For i = 0 To 9
Tab(i) = Int((24 * Rnd) + 1)
If i > 0 Then
temp(i) = Tab(i)
While (temp = Tab[i])
Tab(i) = Int((24 * Rnd) + 1)
Wend
End If
Next i
Mais apparement il teste que l'élément précédent et pas tous.
Je voudrais tyrouver un moyen de le faire sans passer dans une deuxième boucle...
Est-ce possible?
gabrielgarcin
Messages postés23Date d'inscriptionmardi 29 juillet 2003StatutMembreDernière intervention30 novembre 2011 18 juin 2005 à 10:43
Bonjour.
Il y certainement plusieurs solutions.
En ce qui me concerne j'utiliserais la suivante:
Gabriel GARCIN
__________________________________________________________________
Dim i As Integer, j As Integer, N As Integer, A(24) As Integer, Test(24) As Boolean
N = 24
For i = 1 To N
A(i) = 0
Test(i) = False
Next i
'______________________________________________
'Pour obtenir la même série de nombres
'Call Rnd(-1)
'Call Randomize
'_______________________________________________
For i = 1 To N
Continue:
j = Rnd(13) * (N - 1) + 1
If Test(j) = False Then
A(i) = j
Test(j) = True
Else
GoTo Continue
End If
Next i
For i = 1 To N
MsgBox "A(" & i & ")=" & A(i)
Next i
MsgBox "FIN"
ScarHand
Messages postés12Date d'inscriptionmardi 1 février 2005StatutMembreDernière intervention 1 septembre 2005 18 juin 2005 à 11:24
Merci, je trouve la solution de Daniel plus clair et simple. Cependant, il me semble que sa méthode ne fonctionne pas si les nombres d'origines ne sont pas consécutifs...
Celle de Gabriel n'est pas mauvaise non plus.
Merci à tous les deux, vous avez résolu mon problème...
Vous n’avez pas trouvé la réponse que vous recherchez ?
ScarHand
Messages postés12Date d'inscriptionmardi 1 février 2005StatutMembreDernière intervention 1 septembre 2005 20 juin 2005 à 00:02
Rebonsoir,
Voila, je vais pas créer un nouveau topic pour ça, je veux juste savoir comment je pourrais faire pour intégrer 2 dossiers remplis d'images lors de l'empaquetage (création de l'install)... pour que ces dossiers soient installés aussi.