Discussion :

[jmud127]

Bonjour , je dois actuellement créer un loto donc j'ai fait le code pour générer aléatoirement mes 6 chiffres de 1 à 49 pas de problème. Tirage d'un numero complémentaire de 1 à 12.
J'ai ma TextBox pour écrire ma grille sous la forme 5,49,35,22,16,8 je met ma grille dans une ListBox.
Mon problème est le suivant :
Je voudrais prendre les valeurs ma grille (ou mes grilles si j'en ai plusieurs) et les comparer a mon tirage et si j'ai 3 numéro en communje gagne ...€ 4 numéro .....€ etc. jusqu’à 6 numéro et je n'arrive pas a les comparer. J'ai tester plusieurs façon en mettant ma grille (Lisbox) en string puis en remplacant mes , par des espaces et après je voulais mettre le tous dans un tableau et tester leur égualité 1 par 1 et si j'ai une égalité mettre un variable à 0 et à chaque égalité faire +1 et a la fin suivant ma valeur de ma variable je fait un if tous simple avec afficher la somme gagner mais pour mes connaissance en VB et l'aide d'internet impossible pour le moment. Donc je vous demande de l'aide car je viens de passer l'après-midi dessus et j'avoue en avoir un peu ras le bol ^^

Merci d'avance

[ProgElecT]

Salut jmud127, bienvenue sur DVP

Un minimum du code que tu as déjà fait permettrait de te guider, indique nous la/les lignes ou il te semble que cela ne donne pas le résultat attendu.

[jmud127]

Voici mon code pour afficher mes GAINS :

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
Dim NombreNumeros As Integer
        ListBox3.Items.Clear()
        If NombreNumeros = 6 Then
            ListBox3.Items.Add("15 000€")
        ElseIf NombreNumeros = 5 Then
            ListBox3.Items.Add("1000€")
        ElseIf NombreNumeros = 4 Then
            ListBox3.Items.Add("100€")
        ElseIf NombreNumeros = 3 Then
            ListBox3.Items.Add("10€")
        ElseIf NombreNumeros = 3 & Complementaire Then
            ListBox3.Items.Add("50€")
        ElseIf NombreNumeros = 4 & Complementaire Then
            ListBox3.Items.Add("150€")
        ElseIf NombreNumeros = 5 & Complementaire Then
            ListBox3.Items.Add("10000€")
        Else
            ListBox3.Items.Add("0€")
        End If

J'aimerai comparer mes grilles ajouter manuellement au tirage effectuer et afficher mes gains en fonction du nombre de numéro présent dans mes grilles !
Mon interface
Si ça peut aider.
Merci, cette comparaison me permettra aussi de tester dans une fonction spécifique appeler lors de l'ajoute de ma grille pour savoir si j'ai bien le nombre de chiffre qu'il faut (7 : 6 + complémentaire) et tester aussi si les 6 sont compris entre 1 et 49 et si mon complémentaire et bien compris en 1 et 10 ! merci beaucoup de votre aide

[Invité]

Bonsoir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub test()
Dim Tirage As object,grille
Set Tirage= CreateObject("Scripting.Dictionary")
Tirage(10)=1
Tirage(49)=1
Tirage(16)=1
grille=split("10,20,16",",")
NombreNumeros=0
For i =0 to ubound(grille)
 if Tirage.exists(grille(i)) then NombreNumeros=NombreNumeros+1
Next
End sub

Edit: J'ai pas fai attention, la réponse est bonne sur le principe mais pas pour le langage de programmation (Vba pour .net)

[jmud127]

ok merci je vais essayé de comprendre comment ça fonctionne car juste ne lisant comme ça j'en ai aucune idée ^^

[Pol63]

Code :

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

1
2
dim numeroscommun = listeTirage.intersect(listeJouee).tolist
select case numeroscommun.count ...

[jmud127]

Merci de vos réponse je continue a taf et je vous recontacte si j'ai des problèmes mais vos explication m'ont beaucoup aider !

[jmud127]

Bonsoir , je vous remercie encore mon loto est presque fini! je me demande juste si il y a un moyen de sélection un chemin d'un fichier pour le lire ensuite afin d'ajouter la possibilité d'avoir un fichier avec ses grilles a joué et de l'importer pour les jouer directement depuis le fichier ! svp merci

[ZenZiTone]

Bonsoir , je vous remercie encore mon loto est presque fini! je me demande juste si il y a un moyen de sélection un chemin d'un fichier pour le lire ensuite afin d'ajouter la possibilité d'avoir un fichier avec ses grilles a joué et de l'importer pour les jouer directement depuis le fichier ! svp merci

Un sujet = un poste. Donc soit tu refais un post, soit tu cherches sur le net (la sélection de fichier étant relativement courante, tu devrais très rapidement trouver ton bonheur !)