Discussion :

[Ribéry]

Bonour tout le monde!

Bon j vous explique le truc: j'ai fais un petit programme qui me donne les numéros à jouer pour l euro millions aléatoirement avec la fonction Rnd. Seulement le probleme c'est que quand j le lance en fait, c'est toujours les memes suites de chiffres. J'm'explique: pour le premier numéro: si au lancement j'ai le numéro 36 et apres je ferme le programme, qd j le relance j aurais encore le numero 36 en premier numero...

Est ce que c normal et est ce qu il y a une solution??

Merci

[jmfmarques]

montre ton code, d'abord (on corrigera ensuite)

[Ribéry]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim MyValue
Dim MyValue1
Dim MyValue2
Dim MyValue3
Dim MyValue4
Dim MyValue5
Dim MyValue6
Private Sub Command1_Click()
    Tirage
End Sub
Private Sub Command2_Click()
    Unload Me
End Sub
Public Function Tirage()
    MyValue = Int((50 * Rnd) + 1)
    MyValue1 = Int((50 * Rnd) + 1)
    MyValue2 = Int((50 * Rnd) + 1)
    MyValue3 = Int((50 * Rnd) + 1)
    MyValue4 = Int((50 * Rnd) + 1)
    MyValue5 = Int((9 * Rnd) + 1)
    MyValue6 = Int((9 * Rnd) + 1)
 
    If Not MyValue = MyValue1 = MyValue2 = MyValue3 = MyValue4 Then
        If Not MyValue5 = MyValue6 Then
            Text1.Text = "Le numéro " & MyValue & vbCrLf & "le numéro " & MyValue1 & vbCrLf & "le numéro " & MyValue2 & vbCrLf & "le numéro " & MyValue3 & vbCrLf & "et enfin le numéro " & MyValue4 & vbCrLf & "Et maintenant passons aux étoiles de la chance..." & vbCrLf & "La " & MyValue5 & vbCrLf & "et la " & MyValue6
            Else
            Tirage
        End If
        Else
        Tirage
    End If
End Function

[jmfmarques]

Il te manque simplement le Randomize

essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Command2_Click()
Randomize
myvalue = Int((50 * Rnd) + 1)
MsgBox myvalue
End Sub

c'est tout

[Delbeke]

Bonjour

Tu peux utiliser la fonction Randomize X

Personellement, j'utilise
Randomize Timer

Ce qui initialise le générateur de nombre aléatoire de vb avec le nb de secondes écoulées depuis minuit

[Ribéry]

Super ca marche Merci...

J'ai juste rajouté "Randomize" et voila

Bonne journée

[Ribéry]

Y a un autre soucis que je croyais avoir réglé en mettant dans la fonction Tirage un if qui teste si les valeurs sont égales. J aimerais relancer le tirage si elles sont égales mais avec le code que j ai mis qui se trouve au dessus ca fonctionne pas.

Si qqun a une solution...

[zazaraignée]

Si tes valeurs à tirer sont une suite de chiffres, de 1 à 24 par exemple, tu peux les mettres dans un tableau booléen

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim tblTirage(1 to 24) as boolean

Au départ, toutes les valeurs sont fausse. Lorsqu'une valeur est tirée, tu vérifie si l'indice du tableau contient false...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If Not(tblTirage(myValue)) Then
    tblTirage(myValue) = True
    ...
  Else
    ' tirer à nouveau
End If

[Ribéry]

OK j vais tenter merci

[jmfmarques]

c'est celà que tu veux ?
une form avec un bouton command1 et un label label1 et ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private tableau() As Long
 
Public Sub Main()
    Initialiser 20 ' pour tirer parmi 20 numéros
    Permuter
    afficher 6 'pour ne retenir que 6 numéros
End Sub
Public Function afficher(nb As Integer) As String
    Dim Index As Long
        For Index = LBound(tableau) To nb - 1
        afficher = afficher & tableau(Index) & ", "
    Next
    Label1.Caption = afficher
End Function
Public Sub Permuter()
    Dim Index As Long
    Dim i1 As Long, i2 As Long
    Randomize
    For Index = 1 To UBound(tableau) / 2
        i1 = LBound(tableau) + Int(Rnd() * (UBound(tableau) - LBound(tableau) + 1))
        i2 = LBound(tableau) + Int(Rnd() * (UBound(tableau) - LBound(tableau) + 1))
         If i1 <> i2 Then
            tableau(i1) = tableau(i1) - tableau(i2)
            tableau(i2) = tableau(i1) + tableau(i2)
            tableau(i1) = tableau(i2) - tableau(i1)
        End If
    Next
End Sub
Public Sub Initialiser(Taille As Long)
    Dim Index As Long
     Erase tableau
    ReDim tableau(Taille - 1)
    For Index = LBound(tableau) To UBound(tableau)
        tableau(Index) = Index
    Next Index
End Sub
Private Sub Command1_Click()
  Main
End Sub