[VB.net] Aide textbox

[maitegamyn]

Salut !
Je crée ce post car je n'arrive pas à faire mon logiciel VB...
Je m'explique : j'ai 5 textbox qui quand on appuie sur un bouton sont remplies aléatoirement entre 1-6. Puis j'ai mis un timer qui est lancé pendant 3 secondes et à la fin je voudrais que le logiciel regarde si par exemple 2 textbox sont égales et que les 3 autres aussi mais par un autre chiffre Ex : textbox1 = 1 textbox2 = 1 (et) textbox3 = 5
textbox4 = 5 textbox6 = 5 et je cherche aussi à regarder si par Ex : textbox1 = 1 textbox2 = 3 textbox3=4 textbox4 = 2 textbox5 = 5
ou (or) textbox1 = 6 textbox2 = 3 textbox3=4 textbox4 = 2 textbox5 = 5
Désolé si c'est mal expliqué :s
Voila je crois que c'est tout.
Merci d'avance !
Ps : Si tu m'aides tu auras et +1 et le reste :)
:bye:

 

[Cyrion]

Et.. c'est quoi la question ?

Tu as commencé quelque chose ?

 

[Nayres]

Ici on t'aide si tu as des erreurs, ou si tu es bloqué dans ton code, on ne va pas t'écrire le code source sans que tu ne fasses aucun effort.

 

[maitegamyn]

Ma question

Salut,
Bah sur une Form j'ai 1 bouton et 5 textbox donc je clique sur le bouton ça génère un nombre entre 1-6 dans chaque textbox
(pour l'instant j'y arrive). Puis ça vérifie dans les textbox si 2 sont égales et les trois autres égales à un autre nombre exemple : 3 textbox sont égales à 4 et les 2 autres à 6. Et la Msgbox("Full !!!").
J'ai déjà testé :

If textbox3.Text = textbox2.Text And textbox4.Text = textbox5.Text = textbox6.Text Then
            MsgBox("Full")
            End If

Mais ce code ne vérifie que Ex : 2 textbox sont égales et les 2 autres égales à un autre nombre... il ne vérifie pas la 6ieme.
Voila.
Merci d'avance
EDIT : @ Akius désolé de ne pas avoir mis mon code avant.

---------- Message ajouté à 21h39 ---------- Le message précédent était à 19h59 ----------

Up (je sais qu'il faut attendre mini 24h mais bon...) ? please :s

 

[Nayres]

If textbox3.Text = textbox2.Text And textbox4.Text = textbox5.Text And TextBox5=textbox6.Text Then
            MsgBox("Full")
            End If

Essaye ça.

 

[maitegamyn]

Merci :D

Salut,
Merci pour ton message ça marche :) ,
mais on ne peut pas faire plutôt un code du genre :

If 2 textbox are = and 3 (autre nombre que les 2) are =

Sans faire le code :

If textbox3.Text = textbox2.Text And textbox4.Text = textbox5.Text And TextBox5=textbox6.Text Then 
            MsgBox("Full") 
            End If

Pour toutes les possibilités ?
Merci d'avance.

PS : +1

 

[Evaelis]

Tu fais un for et tu check les 5 textbox :

For each textbox (...)
For each othertextbox
if textbox.text = othertextbox.text Then
'What you wanna do !
End if
Next
Next

 

[maitegamyn]

Reponce

Salut merci de ton aide,
Je ne suis pas très fort pour comprendre ton code en gros c'est :

For each textbox (textbox1,textbox2,textbox3,textbox4,textbox5)
For each othertextbox
                    If TextBox.Text = othertextbox.text Then

                    End If
                    'What you wanna do !

                Next
            Next

Si c'est ça j'ai plusieurs erreurs :
1: erreur de syntaxe ( à la fin de "textbox5)")
2: erreur de syntaxe ( à othertextbox)
3: 'textbox' est un type et ne peut pas être utilisé en tant qu'expression.

Si tu peux m'aider à les corriger merci :)
:bye:

 

[Evaelis]

Il faut créer un array de textbox
Si je me trompe pas Dim x as array from textbox mais pas sur
Donc For each variable in x
ensuite tu other textbox c'est la même chose ne supprimant 1 textbox de cette array ( Celle en cours d'utilisation)

 

[maitegamyn]

Donc en gros faut faire :

Dim x as array (textbox1.text,textbox2.text,textbox3.text,Textbox4.text)
For Each as string in TextBox1.text
For each textbox (textbox1.text,textbox2.text,textbox3.text,Textbox4.text,Textbox5.text)
For each othertextbox 
                        If TextBox.Text = othertextbox.text Then
                            MsgBox("Full !!!", MsgBoxStyle.Information, "Vous avez fait un :")
                        End If
                    Next
                Next
            Next
        End If

Mais array c'est pour faire plusieurs msg dans l'ordre non ?
Du genre Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
Merci d'avance

 

[ragnarock]

Salut, essaye déjà de revoir les bases .. là ton code devient n'importe quoi.

Je te passe ça, c'est plus du bricolage que de la prog', mais ça marche.
On doit pouvoir s'en sortir avec 2 boucles foreach comme t'essayes sans trop de problèmes, mais j'ai aucune envie de réfléchir ce matin.

En gros le code trie les textboxes en les sortant par leur texte et en foutant tout ça dans un dico.

        Dim array = New TextBox() {tb1, tb2, tb3, tb4, tb5}
        Dim dico = New Dictionary(Of Integer, List(Of TextBox))

        For Each tb In array
            Dim key = Integer.Parse(tb.Text)

            If dico.ContainsKey(key) Then
                ' Add textbox to list
                dico(key).Add(tb)
            Else
                ' Add new entry
                dico.Add(key, New List(Of TextBox) From {tb})
            End If
        Next

        ' Check if there is more (or less) entries that we want
        If dico.Count <> 2 Then
            MessageBox.Show("Wrong number of entries")
            Return
        End If

        ' Check if there is too much textboxes with the same value
        For Each kvp In dico
            If kvp.Value.Count <> 2 AndAlso kvp.Value.Count <> 3 Then
                MessageBox.Show("Numbers doesn't match")
                Return
            End If
        Next

        MessageBox.Show("You have a full house !!")

 

[maitegamyn]

Salut ragnarock,
Ca marche :D c'est exactement ce qu'il me fallait !
Merci à tous de m'avoir aidé :)
+1 pour vous tous

 

[Evaelis]

Je lock, résolu