matt06m
Messages postés5Date d'inscriptionmercredi 24 mai 2006StatutMembreDernière intervention13 février 2010
-
3 mars 2009 à 18:56
matt06m
Messages postés5Date d'inscriptionmercredi 24 mai 2006StatutMembreDernière intervention13 février 2010
-
5 mars 2009 à 16:11
Bonsoir, je tente de réaliser un mastrmind , mais j'ai un soucis, soit j'ai tout bon ou tout faux, et cela me l'affiche sans soucis, soit j'ai un problème au niveau des résultats justes. En fait lorsque, par exemple je choisis pour le 1er joueur :
Rouge et pour le joueur 2 : Rouge
Rouge Rouge
Rouge Rouge
Rouge Rouge
Rouge Vert
Cela m'affiche 5 bien placés, alors qu'en réalité, il y en a 4.
Voici le code du traitement, si quelqu'un voit, Merci
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim i As Integer
While (i < 5)
If (couleur1(i) Like couleur2(i)) = True Then
bp = bp + 1
End If
If (couleur1(i) Like couleur2(i)) = False Then
mp = mp + 1
End If
i = i + 1
End While
TextBox1.Visible = True
TextBox2.Visible = True
TextBox1.Text = bp
TextBox2.Text = mp
If TextBox1.Text = "5" Then
MsgBox("Goodgame")
TextBox1.Clear()
End If