Nombre aleatoire
Résolu
bux
-
13 déc. 1999 à 15:27
cs_tibass Messages postés 1 Date d'inscription samedi 12 avril 2003 Statut Membre Dernière intervention 5 novembre 2004 - 5 nov. 2004 à 05:31
cs_tibass Messages postés 1 Date d'inscription samedi 12 avril 2003 Statut Membre Dernière intervention 5 novembre 2004 - 5 nov. 2004 à 05:31
5 réponses
C'est pas optimisé mais enfin... J'ai mis ça dans un Bouton.
Dim Nombre As Integer
Dim Tableau() As Integer
Dim Cmpt As Integer
Dim Cmpt2 As Integer
Dim PasDoublon As Boolean
List1.Clear
Randomize
ReDim Tableau(10)
For Cmpt = 0 To 9
Do
PasDoublon = True
Nombre = Int((Rnd * 10) + 1)
For Cmpt2 = 0 To Cmpt If Nombre Tableau(Cmpt2) Then PasDoublon False
Next Cmpt2
Loop Until PasDoublon
Tableau(Cmpt) = Nombre
Next Cmpt
For Cmpt = 0 To 9
List1.AddItem Str$(Tableau(Cmpt))
Next Cmpt
Dim Nombre As Integer
Dim Tableau() As Integer
Dim Cmpt As Integer
Dim Cmpt2 As Integer
Dim PasDoublon As Boolean
List1.Clear
Randomize
ReDim Tableau(10)
For Cmpt = 0 To 9
Do
PasDoublon = True
Nombre = Int((Rnd * 10) + 1)
For Cmpt2 = 0 To Cmpt If Nombre Tableau(Cmpt2) Then PasDoublon False
Next Cmpt2
Loop Until PasDoublon
Tableau(Cmpt) = Nombre
Next Cmpt
For Cmpt = 0 To 9
List1.AddItem Str$(Tableau(Cmpt))
Next Cmpt
oui si j'utilise ce code il peut y avoir plusieur fois le meme chiffre alors que je ne veux que 10 chiffres de 1 a 10 mais classes aleatoirement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_tibass
Messages postés
1
Date d'inscription
samedi 12 avril 2003
Statut
Membre
Dernière intervention
5 novembre 2004
5 nov. 2004 à 05:31
5 nov. 2004 à 05:31
peut être que tu peux t'inspirer de ce code :
***********************************
Dim intNbLoop As Single
Dim strTemp, caractere As String
intNbLoop = 0
Randomize
'caracteres possibles
caractere = "123456789"
strTemp = "123456789"
'ajout de chaque caractere choisi aleatoirement
Do While countChar("*", strTemp) <> Len(strTemp)
'generation du nombre determinant le caractere
valeur = Int((Rnd * 9) + 1)
'selection du caractere
cara = Mid(caractere, valeur, 1)
'on garde le caractere choisi ds une variable de controle
test = Mid(strTemp, valeur, 1)
'on "masque" le caractère choisi dans la chaine qui sert de controle
strTemp = Replace(strTemp, cara, "*")
'ajout du caractere au résultat
If test <> "*" Then
pass = pass & cara
End If
Loop
MsgBox (pass)
Function countChar(unChar, uneString) As Integer
'Cette fonction retourne le nombre d'occurences
'd'un caractère spécifique dans une string
Dim intCptChar As Integer
intCptChar = 0
For i = 1 To Len(uneString)
If Mid(uneString, i, 1) = unChar Then
intCptChar = intCptChar + 1
End If
Next
countChar = intCptChar
End Function
***********************************
Dim intNbLoop As Single
Dim strTemp, caractere As String
intNbLoop = 0
Randomize
'caracteres possibles
caractere = "123456789"
strTemp = "123456789"
'ajout de chaque caractere choisi aleatoirement
Do While countChar("*", strTemp) <> Len(strTemp)
'generation du nombre determinant le caractere
valeur = Int((Rnd * 9) + 1)
'selection du caractere
cara = Mid(caractere, valeur, 1)
'on garde le caractere choisi ds une variable de controle
test = Mid(strTemp, valeur, 1)
'on "masque" le caractère choisi dans la chaine qui sert de controle
strTemp = Replace(strTemp, cara, "*")
'ajout du caractere au résultat
If test <> "*" Then
pass = pass & cara
End If
Loop
MsgBox (pass)
Function countChar(unChar, uneString) As Integer
'Cette fonction retourne le nombre d'occurences
'd'un caractère spécifique dans une string
Dim intCptChar As Integer
intCptChar = 0
For i = 1 To Len(uneString)
If Mid(uneString, i, 1) = unChar Then
intCptChar = intCptChar + 1
End If
Next
countChar = intCptChar
End Function
