probleme d'incrémentation d'une variable

Bonjour,
voilà j'ai fait un programme qui simule un tirage de Lotto XD
Avec un petit jeu en plus qui demande à l'utilisateur 6 nombres et qui est cencé ajouter 1 à une variable (lorsque le nombre entré correspond au nombre sorti (par le programme)) et l'affiche dans un label, voici le code :

Code:

---

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 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End   End Sub   Private Sub Btn_tir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_tir.Click   Lbl1.Text = CStr(CInt((41 * Rnd() + 1))) Lbl2.Text = CStr(CInt((41 * Rnd() + 1))) Lbl3.Text = CStr(CInt((41 * Rnd() + 1))) Lbl4.Text = CStr(CInt((41 * Rnd() + 1))) Lbl5.Text = CStr(CInt((41 * Rnd() + 1))) Lbl6.Text = CStr(CInt((41 * Rnd() + 1)))   End Sub   Private Sub BtnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPlay.Click Dim number, numbers, tableau(5) As String   Dim i, B As Short Dim numberwin As Integer = 0     Lbl1.Text = CInt((41 * Rnd() + 1)) Lbl2.Text = CInt((41 * Rnd() + 1)) Lbl3.Text = CInt((41 * Rnd() + 1)) Lbl4.Text = CInt((41 * Rnd() + 1)) Lbl5.Text = CInt((41 * Rnd() + 1)) Lbl6.Text = CInt((41 * Rnd() + 1))   For i = 0 To 5 numbers = InputBox("Rentrez vos nombre ici", "Jeu fictif loterie", number)   tableau(i) = numbers Try If tableau(i) = Lbl1.Text Or Lbl2.Text Or Lbl3.Text Or Lbl4.Text _ Or Lbl5.Text Or Lbl6.Text Then numberwin += 1   Else Lbl1.Text = Lbl2.Text Lbl1.Text = Lbl3.Text Lbl1.Text = Lbl4.Text Lbl1.Text = Lbl5.Text Lbl1.Text = Lbl6.Text   Lbl2.Text = Lbl3.Text Lbl2.Text = Lbl4.Text Lbl2.Text = Lbl5.Text Lbl2.Text = Lbl6.Text   Lbl3.Text = Lbl4.Text Lbl3.Text = Lbl5.Text Lbl3.Text = Lbl6.Text   Lbl4.Text = Lbl5.Text Lbl4.Text = Lbl6.Text Lbl4.Text = Lbl2.Text   Lbl5.Text = Lbl6.Text End If   Catch ex As Exception MsgBox(ex.ToString)   End Try Next     Label1.Text = CStr(numberwin)   End Sub   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Randomize() End Sub End Class

---

il y a plusieurs problèmes :
1) dans tous les cas (que j'ai testé) , la variable "numberwin" contenait le chiffre (6), à mon avis le problème viens de la comparaison entre les valeurs du tableau et les labels

2) Y a t'il moyen de diminuer le nombre de lignes de codes pour exprimer ceci?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Lbl1.Text = Lbl2.Text Lbl1.Text = Lbl3.Text Lbl1.Text = Lbl4.Text Lbl1.Text = Lbl5.Text Lbl1.Text = Lbl6.Text   Lbl2.Text = Lbl3.Text Lbl2.Text = Lbl4.Text Lbl2.Text = Lbl5.Text Lbl2.Text = Lbl6.Text   Lbl3.Text = Lbl4.Text Lbl3.Text = Lbl5.Text Lbl3.Text = Lbl6.Text   Lbl4.Text = Lbl5.Text Lbl4.Text = Lbl6.Text Lbl4.Text = Lbl2.Text   Lbl5.Text = Lbl6.Text

---

Merci d'avance, toute réponse est la bienvenue
PS: si besoin, posez vos questions.

j'ai recréer ton programme ce midi et je l'ai trouvé un peu bizzarre8O

1 - comme il est programmé, tu peux faire un tirage sans entrer de nombre via ton bouton btn_tir

2 - quand tu demande de jouer (btnplay) à chaque fois, tes numéros de tirage sont renouvelé

3 - ton if est mal construit et ton numberwin passe toujours strike

...mais ca dépend de ce que tu voulais faire...mais bon ton tableau est pas remplis qu'il y a déja 6 tirage de fait

4- pour ton else que tu veux raccourcir le code, tu pourrai garder la dernière ligne de chaque lbl1.text = x, lbl1.text = y, ...car de toute facon, ce sera la seule que l'utilisateur risque de voir (tes valeurs sont pas additionné mais remplacé ):oops:

tk on s'en reparle, tu peux resoumettre c'est quand même un bon début de quelque chose:king:

rien ne va dans ton code !!! 8O

Citation:

---

Envoyé par dispa

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Btn_tir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_tir.Click   Lbl1.Text = CStr(CInt((41 * Rnd() + 1))) Lbl2.Text = CStr(CInt((41 * Rnd() + 1))) Lbl3.Text = CStr(CInt((41 * Rnd() + 1))) Lbl4.Text = CStr(CInt((41 * Rnd() + 1))) Lbl5.Text = CStr(CInt((41 * Rnd() + 1))) Lbl6.Text = CStr(CInt((41 * Rnd() + 1)))   End Sub

---

---

enfin si, ca c'est pas trop moche, tu places donc un nombre aléatoire dans chaque label

Citation:

---

Envoyé par dispa

Code:

---

1 2 3 4 5 6 7

Lbl1.Text = CInt((41 * Rnd() + 1)) Lbl2.Text = CInt((41 * Rnd() + 1)) Lbl3.Text = CInt((41 * Rnd() + 1)) Lbl4.Text = CInt((41 * Rnd() + 1)) Lbl5.Text = CInt((41 * Rnd() + 1)) Lbl6.Text = CInt((41 * Rnd() + 1))

---

---

euh, pourquoi la meme chose à un autre endroit ?
si tu veux faire la meme chose, autant appeler la sub directement, m'enfin à mon avis faut pas faire la meme chose

Citation:

---

Envoyé par dispa

Code:

---

1 2 3 4

numbers = InputBox("Rentrez vos nombre ici", "Jeu fictif loterie", number)   tableau(i) = numbers

---

---

wow, demander quelque chose avec un inputbox, et en plus un tableau de nombre ??
pas possible et carrément pas ergonomique

Citation:

---

Envoyé par dispa

Code:

---

1 2 3

If tableau(i) = Lbl1.Text Or Lbl2.Text Or Lbl3.Text Or Lbl4.Text _ Or Lbl5.Text Or Lbl6.Text Then

---

---

ca, ca sent le option explicit off, pas recommandé du tout
de plus le or ne fonctionne pas comme tu le pense ici, à mon avis ca teste que tableau(i) est égal à la somme des textes, car or est un opérande d'ajout binaire aussi
tu voulais écrire :

Code:

---

If tableau(i) = Lbl1.Text Or tableau(i) = Lbl2.Text etc...

---

Citation:

---

Envoyé par dispa

Code:

---

1 2 3 4 5 6

Lbl1.Text = Lbl2.Text Lbl1.Text = Lbl3.Text Lbl1.Text = Lbl4.Text Lbl1.Text = Lbl5.Text Lbl1.Text = Lbl6.Text

---

---

alors ca, si j'hallucine pas, c'est du grand n'importe quoi aussi
l'enchainement de ca ne fait rien de plus Lbl1.Text = Lbl6.Text
je ne comprends pas du tout ce que tu voulais faire


il faut activer option explicit dans ton les propriétés de ton projet, ca évite quelques bugs

il faut que tu lises ca :http://plasserre.developpez.com/vsommair.htm
tu comprendras un peu plus .net


une solution que je te propose :
un bouton "faire une grille", qui rend visible 6 textbox et les vide
6 textbox, dans lequel l'utilisateur entre des nombres
un bouton démarrer le tirage
un label ou apparaitront les numéros tirés

pour le bouton démarrer le tirage :
- vérifier que les textbox contiennent bien des nombres if isnumeric(), sinon on ne va pas plus loin
- générer les nombrs dans un system.collections.generic.list(of integer)

Code:

---

1 2 3 4 5 6 7 8

for i as integer = 1 to 6 if listof.contains(cint(directcast(me.controls("txt" & i),textbox).text)) then directcast(me.controls("txt" & i),textbox).backcolor = green else directcast(me.controls("txt" & i),textbox).backcolor = red end if next

---

Ouah... tu es courageux Sperot d'avoir fait l'analyse de son code...........

Code:

---

1 2	Option Strict On Option Explicit On 'a placer en haut d'une feuille de code

---

Voici mon cours :
http://aspic.developpez.com

ca m'arrive des fois oui :lol:

Comment appelle t'on la procédure du bouton "tirage" ? Parce que en fait si j'en ai besoin pour le jeu u_u

pour appeler une sub il suffit de taper son nom 8O

pour mieux expliquer...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

public sub 6nombre(byval x as shit)e.envie avec ma main...   bla blabla stocke par ici bla bla bla stocke par la call tirage() end sub public sub tirage()   sort 6 nombre aleatoire met ca dans les labels call resultat() end sub public sub resultat()   si stocke ici = label1.text 'résultat 1 call winner() si (tu comprend qu'on fait ca pour les 6 nombres) call tout le temps winner() end sub public sub winner() bigbigbigwinner = bigbigbigwinner + 1 end sub

---

....j'ai écris ca pour m'amuser à t'aider a mieux voir comment on peut structurer son travail...et ca vaut la peine8O (surtout dans des programmes de 40 000 lignes) le tout est totalement fictif mais la fonction call est fonctionnel..( call nomdelafonction(valeurapasser, autrevaleur)

bon l'heure de la pause...bon développement lache pas, moi aussi ils m'ont blasté au début...et c'est normal, c'est pour voir si tu es fait fort :evilred::yaisse2::king:

Citation:

---

Envoyé par Ouija33

...

---

tu viens de quelle planète l'ami ?? :lol:

Je comprends rien à son code.......