Problème avec mon premier algoRésolu

Question

Bonjour, j'ai un souci je dois realiser un algo qui compare trois nombres et les affiches par ordre croissant. Cependant, mon algo n'affiche qu'une comparaison (quand 1>2>3) sinon il n'affiche rien !!!

est ce que queqlqu'un voit ou est mon erreur ? merci d'avance.

Private Sub btncompare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncompare.Click
        If IsNumeric(txtnb1.Text) Then
            If IsNumeric(txtnb2.Text) Then
                If IsNumeric(txtnb3.Text) Then
                    If txtnb1.Text > txtnb2.Text Then

                        If txtnb2.Text > txtnb3.Text Then
                            MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
                            Exit Sub

                            If txtnb1.Text > txtnb3.Text Then
                                MessageBox.Show("Nombre2 > Nombre 3 > Nombre1")
                                Exit Sub
                            Else : MessageBox.Show("Nombre2 > Nombre1 > Nombre3")
                                Exit Sub
                            End If
                        End If

                        If txtnb1.Text > txtnb3.Text Then
                            MessageBox.Show("Nombre3 > Nombre1 > Nombre2")
                            Exit Sub

                            If txtnb3.Text > txtnb2.Text Then
                                MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
                                Exit Sub
                            Else : MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
                            End If

                        End If

                    End If





                Else : MessageBox.Show("Veuillez saisir des entiers numériques !!!")
                End If
            Else : MessageBox.Show("Veuillez saisir des entiers numériques !!!")
            End If
        Else : MessageBox.Show("Veuillez saisir des entiers numériques !!!")
        End If










    End Sub

Sehnsucht · Accepted Answer

Bonjour,

@nhervagault: ta méthode de comparaison ne marchera pas, elle compare le texte, ce qui veut dire que si par exemple txtnb1 contient "002" et txtnb2 contient "01" (qui sont des valeurs numériques donc passeront le premier test) tu obtiendras "01" > "002" ce qui n'est le résultat attendu numériquement.

@Moundir76: déjà quand on veut saisir des nombres sur une interface il est préférable (sauf besoin spécifique) d'utiliser un NumericUpDown qui est conçu spécifiquement pour ce but (et évite des vérifications et conversions fastidieuses). Mais sinon avec tes TextBox tu peux faire comme ceci (c'est fait vite et par conséquent encore améliorable)


Private Sub btncompare_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btncompare.Click
    Dim numbers(2) As Integer
    Dim message As String = "Only integer values please !"

    If Integer.TryParse(txtnb1.Text, numbers(0)) AndAlso Integer.TryParse(txtnb2.Text, numbers(1)) AndAlso Integer.TryParse(txtnb3.Text, numbers(2)) Then
        Array.Sort(numbers)

        message = numbers(0).ToString

        For i As Integer = 1 To numbers.Count - 1
            message &= " <= " & numbers(i)
        Next
    End If

    MessageBox.Show(message)
End Sub


Cordialement !

nhervagault · Answer

Salut,

Simplifies le code
Il est possible de regrouper si tu veux le premier test
pour des raisons de performances 
mais pour de meilleures performances il faut eviter les conversions implicites 
de string vers integer dans tous les tests de > 


Private Sub btncompare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncompare.Click
    If IsNumeric(txtnb1.Text) or IsNumeric(txtnb2.Text) or IsNumeric(txtnb3.Text) Then
       MessageBox.Show("Veuillez saisir des entiers numériques !!!")
      exit sub
  end if

If txtnb1.Text > txtnb2.Text and txtnb2.Text > txtnb3.Text Then
  MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
  Exit Sub
end if

If txtnb2.Text > txtnb3.Text and txtnb3.Text > txtnb1.Text Then
  MessageBox.Show("Nombre2 > Nombre 3 > Nombre1")
  Exit Sub
end if

If txtnb2.Text > txtnb1.Text and txtnb1.Text > txtnb3.Text Then
  MessageBox.Show("Nombre2 > Nombre1 > Nombre3")
   Exit Sub
End If

If txtnb3.Text > txtnb1.Text and txtnb1.Text > txtnb2.Text Then
   MessageBox.Show("Nombre3 > Nombre1 > Nombre2")
   Exit Sub
end if

If txtnb1.Text > txtnb2.Text and txtnb2.Text > txtnb3.Text Then
  MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
  Exit Sub
end if

End Sub

raffika · Answer

Salut
une autre idée :
    Sub algo3(ByVal un As Integer, ByVal deux As Integer, ByVal trois As Integer)

        Dim t(2) As Integer

        t(0) = un
        t(1) = deux
        t(2) = trois

        Dim resultat(2) As String
        Dim s As String = ""

        For i = 0 To 5000
            If un = i Then s &= "Nombre 1 = " & i & " "

            If trois = i Then s &= "Nombre 3 = " & i & " "

            If deux = i Then s &= "Nombre 2 = " & i & " "

        Next

        MessageBox.Show(s)

    End Sub

Moundir76 · Answer

Merci de cette réponse rapide, en effet je comprends le regroupement lors du premier test, je n'y avait pas pensé.
En effet a la lecture je comprends ce code mais en l&#8217;exécutant même en pas à pas, je ne comprends pas :

Si on entre aucune valeur => Il ne se passe rien
Si on entre des entiers numériques => affichage de la boite "veuillez saisir des entiers numériques!!!"

J'avoue que je suis perdu !

Moundir76 · Answer

Merci Sehnsucht, le code fonctionne à merveille mais je ne le comprends pas, je suis en BTS info et donc débutant. il ne me reste plus qu'a le comprendre

raffika · Answer

Resalut
j'ai oublié de dire l'utilisation de ma sub ...
La voici :
algo3(txtnb1.Text,txtnb2.Text,txtnb2.Text)
Mais elle ne vérifie pas si les valeures entrée dans les TextBox
sont des nombres, si ce n'est pas le cas, il y aura une erreur.
Et aussi la valeur maximale des 3 nombres est de 5000 + 1 sinon
ma méthode ne marche pas.
Mais Array.Sort que je ne connaissais pas est plus approprié. bonsoir

Moundir76 · Answer

Merci raffika mais je ne comprends pas, le code ne fonctionne pas

raffika · Answer

Alors essayes celui ci :
Sub algo3(ByVal un As Integer, ByVal deux As Integer, ByVal trois As Integer)

        Dim t(2) As Integer '' Déclare un tableau t de longeur 3 (base 0)

        t(0) = un '' met les éléments envoyés à la Sub algo3
        t(1) = deux
        t(2) = trois '' Dans le tableau t

        Dim s As String = "" '' Déclare s

        For i = 0 To 5000 '' Faire une boucle de 0 à 5000

            If un = i Then s &= "Nombre 1 ( " & i & "<= " '' Si un est égal à i
            '' ajoute à la chaine de caratères s : Nombre 1 (i) <If deux i Then s &= "Nombre 2 ( " & i & "<= " ' Nombre 2 (i) <=
            If trois = i Then s &= "Nombre 3 ( " & i & "<= " ' Nombre 3 (i) <=

        Next

        Dim resultat As String = s.Substring(0, Len(s) - 4) '' Enlève les 4 derniers caratères
        '' dans s car comme on ne connait pas l'ordre
        '' il y a un <= à la fin

        MessageBox.Show(resultat)

    End Sub

raffika · Answer

J'ai omis quelques chose dans la boucle For,
remplacer l'ancien code par :
            If un = i Then s &= "Nombre 1 (" & i & ") <= " '' Si un est égal à i
            '' ajoute à la chaine de caratères s : Nombre 1 (i) <If deux i Then s &= "Nombre 2 (" & i & ") <= " ' Nombre 2 (i) <=
            If trois = i Then s &= "Nombre 3 (" & i & ") <= " ' Nombre 3 (i) <=

Ca devrai marcher mieux

Moundir76 · Answer

Merci raffika pour ta patience !!! Aucune erreur mais le programme reste inerte et quoi que l'on fasse aucun message n&#8217;apparaît. Comme je débute, pour le premier projet je dois utiliser la structure suivante même si à vos yeux elle doit vous paraître trop chargée et inutile, en fait j'aimerais comprendre ou sont mes erreurs, sans chercher a simplifier le code, juste en le faisant fonctionner :
  Private Sub btncompare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncompare.Click
        If IsNumeric(txtnb1.Text) Then
            If IsNumeric(txtnb2.Text) Then
                If IsNumeric(txtnb3.Text) Then
                    If txtnb1.Text > txtnb2.Text Then

                        If txtnb2.Text > txtnb3.Text Then
                            MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
                            Exit Sub

                            If txtnb1.Text > txtnb3.Text Then
                                MessageBox.Show("Nombre2 > Nombre 3 > Nombre1")
                                Exit Sub
                            Else : MessageBox.Show("Nombre2 > Nombre1 > Nombre3")
                                Exit Sub
                            End If
                        End If

                        If txtnb1.Text > txtnb3.Text Then
                            MessageBox.Show("Nombre3 > Nombre1 > Nombre2")
                            Exit Sub

                            If txtnb3.Text > txtnb2.Text Then
                                MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
                                Exit Sub
                            Else : MessageBox.Show("Nombre1 > Nombre2 > Nombre3")

                            End If
                        End If
                    End If

                Else : MessageBox.Show("Veuillez saisir des entiers numériques !!!")
                End If
            Else : MessageBox.Show("Veuillez saisir des entiers numériques !!!")
            End If
        Else : MessageBox.Show("Veuillez saisir des entiers numériques !!!")
        End If

    End Sub

raffika · Answer

Oki donc voici ta Sub,
elle vérifie si les valeurs sont numériques :
    Private Sub btncompare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncompare.Click

        If IsNumeric(txtnb1.Text) And IsNumeric(txtnb2.Text) And IsNumeric(txtnb3.Text) Then
            '' Toutes les valeurs sont numériques

            Dim s As String = "" '' Déclare s

            For i = 0 To 5000 '' Faire une boucle de 0 à 5000

                If CInt(txtnb1.Text) = i Then s &= "Nombre 1 (" & i & ") <= " '' Si un est égal à i
                If CInt(txtnb2.Text) = i Then s &= "Nombre 2 (" & i & ") <= " ' Nombre 2 (i) <=
                If CInt(txtnb3.Text) = i Then s &= "Nombre 3 (" & i & ") <= " ' Nombre 3 (i) <=

            Next

            Dim resultat As String = s.Substring(0, Len(s) - 4) ' Enlève les 4 derniers caractères
            MessageBox.Show(resultat)
        Else '' Une valeur n'est pas numérique
            MessageBox.Show("Veuillez entrer des valeurs numériques uniquement")
            Exit Sub ''Quitte la Sub
        End If

    End Sub
Seul problème dans la méthode : la limitation à 5000
mais on peux bien entendu modifier 5000 par n'importe quel nombre.
Après, si le nombre est plus grand, cela nécessitera plus de calcul de l'ordinateur.
Je peux te donner la même Sub en utilisant Array.Sort
qui ne sera pas limitée à 5000 et qui marche avec autant de 
nombres qu'on veux.

raffika · Answer

Ps : en te relisant tu dis que
tu veux savoir d'ou vient le problème ^^'
Déjà tu utilises plusieurs If
pour vérifier que les valeurs sont numériques
alors que dans min code ci dessus, on vérifie
directment les 3 valeurs
le code n'est pas très clair
pense à arranger un peu en faisant des espaces
et en utilisant le : à bon escient pour
pouvoir déjà t'y retrouver dans le code.
Je vais regarder ton code et voir si
je trouve d'ou vient le problème.

Moundir76 · Answer

Encore merci, l'algo fonctionne aussi à merveille ! 

Mais actuellement je n'ai pas vu les structures telles que "If CInt(txtnb1.Text) = i Then s &= "Nombre 1 (" & i & ")" ou encore "Dim resultat As String = s.Substring(0, Len(s) - 4)" .

Mon projet doit comporter des structures simples que j'ai déjà vu en cours 

Saurais tu me dire pourquoi mon code precedemment posté ne permet que d'afficher les boites suivantes : nombre1>nombre2>nombre3 et nombre1>nombre3>nombre2

Moundir76 · Answer

Oui c'est sur mon code n'est pas très clair ^^
Mon prof nous a seulement dit de ne pas utiliser de Else If. Quand aux " : ", je ne sais pas à quoi ils servent, après un Else, intellisense me les place tout seul !!!

Enfait le but du projet est d'adapter un algo ecrit sur papier en delphi en programme VB mais avec en plus les contraintes de vérification d'entiers

Sehnsucht · Answer

Bonsoir,

Commençons par décortiquer ton code et pourquoi il ne donne pas les résultats escomptés: (je n'ai pris que la partie sans les vérifications car cette partie là semble comprise)


If txtnb1.Text > txtnb2.Text Then
    ' Ici on peut déjà dire Nombre1 > Nombre2
    If txtnb2.Text > txtnb3.Text Then
        MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
        Exit Sub
        ' Cette partie du code ne sera jamais atteinte à cause du Exit Sub juste avant
        ' Je mets donc cette partie en commentaire
        'If txtnb1.Text > txtnb3.Text Then
        '    MessageBox.Show("Nombre2 > Nombre 3 > Nombre1")
        '    Exit Sub
        'Else : MessageBox.Show("Nombre2 > Nombre1 > Nombre3")
        '    Exit Sub
        'End If
    End If
    If txtnb1.Text > txtnb3.Text Then
        ' Ici on peut dire que Nombre1 > Nombre3
        ' Mais on ne sait pas si Nombre2 > Nombre3 ou le contraire
        MessageBox.Show("Nombre3 > Nombre1 > Nombre2")
        Exit Sub
        ' Comme précédemment cette partie ne sera jamais atteinte
        ' je commente donc la zone
        'If txtnb3.Text > txtnb2.Text Then
        '    MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
        '    Exit Sub
        'Else : MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
        'End If
    End If
End If

'Ici je remets le code sans les commentaires
If txtnb1.Text > txtnb2.Text Then
    If txtnb2.Text > txtnb3.Text Then
        MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
        Exit Sub
    End If
    If txtnb1.Text > txtnb3.Text Then
        MessageBox.Show("Nombre3 > Nombre1 > Nombre2")
        Exit Sub
    End If
End If


On comprend déjà mieux pourquoi certains cas ne se produisent jamais ; en ce qui concerne les : ils servent à écrire deux instructions sur la même ligne Else étant considéré comme une instruction pour pouvoir écrire MessageBox... derrière les : sont nécessaires exemples:

If True Then
    DoSomething()
Else : SomethingElse()
End If
'ou
If True Then
    DoSomething()
Else ' plus besoin des : ici
    SomethingElse()
End If
' de même on peut écrire (même si c'est peu lisible et non recommandé)
Dim i As Integer : Dim s As String : i 42 : s "Une Chaine " : MessageBox.Show(s & i.ToString())


Une manière correcte d'écrire le code d'origine correctement (et en conservant les instructions utilisées étant donné qu'elles semblent t'être imposées):

Private Sub btncompare_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btncompare.Click
    Dim message As String = "Veuillez saisir des entiers numériques !!!"

    If IsNumeric(txtnb1.Text) Then
        MessageBox.Show(message)
        Exit Sub
    End If
    If IsNumeric(txtnb2.Text) Then
        MessageBox.Show(message)
        Exit Sub
    End If
    If IsNumeric(txtnb3.Text) Then
        MessageBox.Show(message)
        Exit Sub
    End If

    'À partir d'ici on est sûrs que toutes les valeurs sont bien numériques

    If txtnb1.Text > txtnb2.Text Then
        'Nombre1 > Nombre2
        If txtnb1.Text > txtnb3.Text Then
            'Nombre1 > Nombre3 mais on ne sait pas encore si c'est 1-2-3 ou 1-3-2
            If txtnb2.Text > txtnb3.Text Then
                'Nombre2 > Nombre3
                message = "Nombre1 > Nombre2 > Nombre3"
            Else
                'Nombre3 > Nombre2
                message = "Nombre1 > Nombre3 > Nombre2"
            End If
        Else
            'Nombre3 > Nombre1
            message = "Nombre3 > Nombre1 > Nombre2"
        End If
    Else
        'Nombre2 > Nombre1
        If txtnb1.Text > txtnb3.Text Then
            'Nombre1 > Nombre3
            message = "Nombre2 > Nombre1 > Nombre3
        Else
            'Nombre3 > Nombre1 mais on ne sait toujours si c'est 2-3-1 ou 3-2-1
            If txtnb2.Text > txtnb3.Text Then
                'Nombre2 > Nombre3
                message = "Nombre2 > Nombre3 > Nombre1"
            Else
                'Nombre3 > Nombre2
                message = "Nombre3 > Nombre2 > Nombre1"
            End If
        End If
    End If

    MessageBox.Show(message)            

End Sub


Voilà j'espère que c'est un peu plus clair (vérifier si je n'ai pas commis une erreur de syntaxe, comme j'ai codé directement ici et que je n'ai pas l'habitude de programmer de cette manière).

Cordialement !

raffika · Answer

Salut,
le : sert à séparer plusieurs lignes
d'instructions différentes, par exemple :
MessageBox.Show("Salut") : MessageBox.Show(" !! ") : MessageBox.Show("")
Quand à ton code, pourquoi tu encastre plusieurs If
les un dans les autres (ça sert dans certains cas
mais dans le cas de 5 conditions différentes à vérifier
ça ne s'applique pas)
? Il faut que tu fasse à la suite
plusieurs vérification distinctes à la suite 
comme dans le code de nhervagault ou dans
celui de Sehnsucht (je n'ai pas tout lu tout son code).
Je remet le code pour que tu voie bien :

If txtnb1.Text > txtnb2.Text and txtnb2.Text > txtnb3.Text Then
  MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
  Exit Sub
end if

If txtnb2.Text > txtnb3.Text and txtnb3.Text > txtnb1.Text Then
  MessageBox.Show("Nombre2 > Nombre 3 > Nombre1")
  Exit Sub
end if

If txtnb2.Text > txtnb1.Text and txtnb1.Text > txtnb3.Text Then
  MessageBox.Show("Nombre2 > Nombre1 > Nombre3")
   Exit Sub
End If

If txtnb3.Text > txtnb1.Text and txtnb1.Text > txtnb2.Text Then
   MessageBox.Show("Nombre3 > Nombre1 > Nombre2")
   Exit Sub
end if

If txtnb1.Text > txtnb2.Text and txtnb2.Text > txtnb3.Text Then
  MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
  Exit Sub
end if

Quant à l'erreur que tu as fait dans le code
elle est dès le départ :

        If txtnb1.Text > txtnb2.Text Then '' Ici tu vérifie si Nombre1 > Nombre2
'' Donc le code ci dssous ne s'execute que si cette condition est vraie
            If txtnb2.Text > txtnb3.Text Then
                MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
                Exit Sub
                If txtnb1.Text > txtnb3.Text Then
                    MessageBox.Show("Nombre2 > Nombre 3 > Nombre1")
                    Exit Sub
                Else
                    MessageBox.Show("Nombre2 > Nombre1 > Nombre3")
                    Exit Sub
                End If
            End If

            If txtnb1.Text > txtnb3.Text Then
                MessageBox.Show("Nombre3 > Nombre1 > Nombre2")
                Exit Sub
                If txtnb3.Text > txtnb2.Text Then
                    MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
                    Exit Sub
                Else
                    MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
                End If
            End If
        End If '' C'est sur cette ligne que tu arrives si Nombre1 < Nombre2
'' Donc dans ce cas, pas de MessageBox, rien ne se passeras.

Sehnsucht · Answer

Bonjour

@raffika:

Quel est l'intérêt de répéter une grande partie de ce que j'ai dit (l'histoire des : et "l'explication" de la non apparition de certaines MessageBox) ? l'aurais-je mal expliqué ? 
Fais juste attention à ce que tu écris sinon 

If txtnb1.Text > txtnb2.Text and txtnb2.Text > txtnb3.Text Then
    MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
    Exit Sub
end if

If txtnb2.Text > txtnb3.Text and txtnb3.Text > txtnb1.Text Then
    MessageBox.Show("Nombre2 > Nombre 3 > Nombre1")
    Exit Sub
end if

If txtnb2.Text > txtnb1.Text and txtnb1.Text > txtnb3.Text Then
    MessageBox.Show("Nombre2 > Nombre1 > Nombre3")
    Exit Sub
End If

If txtnb3.Text > txtnb1.Text and txtnb1.Text > txtnb2.Text Then
    MessageBox.Show("Nombre3 > Nombre1 > Nombre2")
    Exit Sub
end if

If txtnb1.Text > txtnb2.Text and txtnb2.Text > txtnb3.Text Then
    MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
    Exit Sub
end if


Il y a deux fois la même chose (Pour Nombre1 > Nombre2 < Nombre3) et il manque 2 combinaisons sur les 6 possibles (tu en as écris 5 - 1 (le doublon)): il manque Nombre1 > Nombre3 > Nombre2 et Nombre3 > Nombre2 > Nombre1.

Quant à la source de l'erreur de Moundir76 ce n'était pas l'imbrication de multiple If (même si j'en conviens c'est une pratique à éviter dans la mesure du possible); l'erreur provenait réellement d'une mauvaise utilisation de Exit Sub qui empêchait certaines parties du code d'être atteintes et atteignables surtout.

Cordialement !

raffika · Answer

Avec Visual Basic 2010, on voit clairement que :
If IsNumeric(txtnb1.Text) Then
            If IsNumeric(txtnb2.Text) Then
                If IsNumeric(txtnb3.Text) Then
If txtnb1.Text > txtnb2.Text Then '' Ce premier If

                        If txtnb2.Text > txtnb3.Text Then
                            MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
                            Exit Sub

                            If txtnb1.Text > txtnb3.Text Then
                                MessageBox.Show("Nombre2 > Nombre 3 > Nombre1")
                                Exit Sub
                            Else : MessageBox.Show("Nombre2 > Nombre1 > Nombre3")
                                Exit Sub
                            End If
                        End If

                        If txtnb1.Text > txtnb3.Text Then
                            MessageBox.Show("Nombre3 > Nombre1 > Nombre2")
                            Exit Sub

                            If txtnb3.Text > txtnb2.Text Then
                                MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
                                Exit Sub
                            Else : MessageBox.Show("Nombre1 > Nombre2 > Nombre3")

                            End If
                        End If
                    End If '' renvoie ICI

                Else : MessageBox.Show("Veuillez saisir des entiers numériques !!!")
                End If
            Else : MessageBox.Show("Veuillez saisir des entiers numériques !!!")
            End If
Et pour le code dans mon dernier post, je n'ai que fait un
copié-collé du code de nhervagault.
Sinon pour les : j'ai juste mis un exemple personnel. Excuse moi
j'ai tendance à lire un peu trop vite.
Sinon je ne vois pas ou dans le code de Moundir76, un Exit Sub
est placé avant un MessageBox. Si le MessageBox est affiché,
le résultat est trouvé donc on peux quitter la Sub.
Salutations.

Moundir76 · Answer

Bonsoir, merci a vous 2 pour votre aide.
Cependant, il y a toujours des problemes, deja avec :
 Dim message As String = "Veuillez saisir des entiers numériques !!!"


je comprends l'utilisation mais ce message s'affiche quand on met des entiers ^^
J'ai donc essayé de les supprimer car meme si ma methode est beaucoup plus lourde et certainement mal redigée, mes multiples conditions le fesaient fonctionner.
Et donc lorsque je reprends ton code :
  Private Sub btncompare_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btncompare.Click
      
        If txtnb1.Text > txtnb2.Text Then
            'Nombre1 > Nombre2
            If txtnb1.Text > txtnb3.Text Then
                'Nombre1 > Nombre3 mais on ne sait pas encore si c'est 1-2-3 ou 1-3-2
                If txtnb2.Text > txtnb3.Text Then
                    'Nombre2 > Nombre3
                    MessageBox.Show("Nombre1 > Nombre2 > Nombre3")
                Else
                    'Nombre3 > Nombre2
                    MessageBox.Show("Nombre1 > Nombre3 > Nombre2")
                End If
            Else
                'Nombre3 > Nombre1
                MessageBox.Show("Nombre3 > Nombre1 > Nombre2")
            End If
        Else
            'Nombre2 > Nombre1
            If txtnb1.Text > txtnb3.Text Then
                'Nombre1 > Nombre3
                MessageBox.Show("Nombre2 > Nombre1 > Nombre3")

            Else
                'Nombre3 > Nombre1 mais on ne sait toujours si c'est 2-3-1 ou 3-2-1
                If txtnb2.Text > txtnb3.Text Then
                    'Nombre2 > Nombre3
                    MessageBox.Show("Nombre2 > Nombre3 > Nombre1")
                Else
                    'Nombre3 > Nombre2
                    MessageBox.Show("Nombre3 > Nombre2 > Nombre1")
                End If
            End If
        End If



Tout marche avec des chiffres tels que 0 1 2 3 4 5 6 7 8 9
cependant, lorsque je tape par exemple 9   60 et 1, le programme va m'afficher 9>60>1
je pense que c'est une fonction propre a visual studio. Ce ne sont que des suppositions car dans le code, je ne vois rien qui indique que les entiers ne doivent être composés que d'un seul chiffre !!!

Encore merci pour votre aide

Sehnsucht · Answer

Bonsoir,

Pour le message qui s'affiche c'est une erreur d'étourderie, le message doit s'afficher si le contenu de la textbox n'est pas numérique et moi j'ai écrit s'il est numérique, affiche le message ; conclusion il faut inverser la condition (mettre Not devant les 3 IsNumeric), désolé lol.

Pour les comparaisons qui foirent, comme ton exemple 9 > 60 > 1, revoir ma toute première intervention et la remarque que j'avais faite à nhervagault.

Cordialement !

nhervagault · Answer

Pour la premiere partie 

        If Not IsNumeric(txtnb1.Text) Or Not IsNumeric(txtnb2.Text) Or Not IsNumeric(txtnb3.Text) Then
            MessageBox.Show("Veuillez saisir des entiers numériques !!!")
            Exit Sub
        End If


Il faut mettre les convertions 
Pour la seconde partie si on utilise les option strict 
mais le programme est OK et fonctionne avec ton cas sans probleme.


  
        Dim nb1 As Int32 = Convert.ToInt32(txtnb1.Text)
        Dim nb2 As Int32 = Convert.ToInt32(txtnb2.Text)
        Dim nb3 As Int32 = Convert.ToInt32(txtnb3.Text)
        If nb1 > nb2 Then
            'Nombre1 > Nombre2
            If nb1 > nb3 Then
                'Nombre1 > Nombre3 mais on ne sait pas encore si c'est 1-2-3 ou 1-3-2
                If nb2 > nb3 Then
....



Autre solution plus propre

  Dim nb1 As Int32 
        Dim nb2 As Int32 
        Dim nb3 As Int32 

        If Not Int32.TryParse(txtnb1.Text, nb1) Or Not Int32.TryParse(txtnb2.Text, nb2) Or Not Int32.TryParse(txtnb3.Text, nb3) Then
            MessageBox.Show("Veuillez saisir des entiers numériques !!!")
            Exit Sub
        End If

    
        If nb1 > nb2 Then
.....

Sehnsucht · Answer

Lol On en revient à ma solution de départ (à ceci près que j'utilisais un tableau des fois qu'un jour un rajoute un 4ème (voire plus) nombre)

Moundir76 · Answer

Tout s&#8217;éclaire !!! voici le code définitif qui fonctionne comme je voulais :

    Private Sub btncompare_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btncompare.Click
        Dim message As String = "Veuillez saisir des entiers numériques !!!"

        If Not IsNumeric(txtnb1.Text) Or Not IsNumeric(txtnb2.Text) Or Not IsNumeric(txtnb3.Text) Then
            MessageBox.Show("Veuillez saisir des entiers numériques !!!")
            Exit Sub
        End If
        'À partir d'ici on est sûrs que toutes les valeurs sont bien numériques
        Dim nb1 As Int32 = Convert.ToInt32(txtnb1.Text)
        Dim nb2 As Int32 = Convert.ToInt32(txtnb2.Text)
        Dim nb3 As Int32 = Convert.ToInt32(txtnb3.Text)

        If nb1 > nb2 Then
            'Nombre1 > Nombre2
            If nb1 > nb3 Then
                'Nombre1 > Nombre3 mais on ne sait pas encore si c'est 1-2-3 ou 1-3-2
                If nb2 > nb3 Then
                    'Nombre2 > Nombre3
                    message = "Nombre1 > Nombre2 > Nombre3"
                Else
                    'Nombre3 > Nombre2
                    message = "Nombre1 > Nombre3 > Nombre2"
                End If
            Else
                'Nombre3 > Nombre1
                message = "Nombre3 > Nombre1 > Nombre2"
            End If
        Else
            'Nombre2 > Nombre1
            If nb1 > nb3 Then
                'Nombre1 > Nombre3
                message = "Nombre2 > Nombre1 > Nombre3"

            Else
                'Nombre3 > Nombre1 mais on ne sait toujours si c'est 2-3-1 ou 3-2-1
                If nb2 > nb3 Then
                    'Nombre2 > Nombre3
                    message = "Nombre2 > Nombre3 > Nombre1"
                Else
                    'Nombre3 > Nombre2
                    message = "Nombre3 > Nombre2 > Nombre1"
                End If
            End If
        End If

        MessageBox.Show(message)

    End Sub



Et donc ma derniere question est : lorsque l'on a  Dim nb1 As Int32 = Convert.ToInt32(txtnb1.Text)  a quoi sa sert de mettre int32 ?

nhervagault · Answer

C'est pour changer le type des variables

Dans un champ texte c'est un String et c'est a convertir dans type integer ou int32
c'est possible en int64 ou long (apres c'est à voir)

Il n'est pas recommandé de comparer des string avec > par exemple.

Si on change l'exemple avec des dates 
si txt1.text = "02/10/2010"
il est preferable d'indiquer au systeme que c'est une date avec un convert.toDatetime(txt1.text)
il est meme recommandé d'utiliser date.tryparse

c'est pour cela qu'il faut mettre option explicit on et option strict on dans le projet vb

Esperant que tu comprennes mieux le but des conversions explicites 
par rapport aux conversions implicites

raffika · Answer

Dans Convert.
il y a beaucoup des méthodes, Convert
est utilisé pour convertir des variables,
il y en a de différents types, booléeenes, chaine de caractères etc.
Donc ToInt32 précise en quel type de variable
tu souhaite convertir txtnb1.Text...
Salut

Sehnsucht · Answer

Int32 c'est exactement la même chose que Integer en fait ou plutôt Integer est un alias vers Int32 (à vérifier sur un système 64bits s'il n'est pas l'alias de Int64 mais je crois que non).

Pourquoi cet alias existe n'est pas vraiment important pour le problème en question ici (et je saurais très mal l'expliquer donc on va éviter mais ça doit se trouver sur google).

Bref si ça t'embête mais Integer à la place par contre le Convert.ToInt32 celui là tu peux pas le changer c'est le nom de la méthode :)

Moundir76 · Answer

Merci pour vos reponses .

J'ai montré mon projet au prof, il ne veut pas de else if ni de conversion...
de ce fait je suis totalement perdu, j'ai tenté plein d'essais differents et aucun code ne m'affiche quelque chose de correct...

Je vous avoue que je ne sais pas du tout comment faire. meme avec les else le programme affiche des abérations

Je m'explique : par exemple je rentre 6 9 31 et le programme m'affiche 9>6>31...
   Private Sub btncompare_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btncompare.Click
        Dim message As String = "Veuillez saisir des entiers numériques !!!"

        If Not IsNumeric(txtnb1.Text) Or Not IsNumeric(txtnb2.Text) Or Not IsNumeric(txtnb3.Text) Then
            MessageBox.Show("Veuillez saisir des entiers numériques !!!")
            Exit Sub
        End If
        'À partir d'ici on est sûrs que toutes les valeurs sont bien numériques
        'Dim nb1 As Int32 = Convert.ToInt32(txtnb1.Text)
        'Dim nb2 As Int32 = Convert.ToInt32(txtnb2.Text)
        'Dim nb3 As Int32 = Convert.ToInt32(txtnb3.Text)

        If txtnb1.Text > txtnb2.Text Then
            'Nombre1 > Nombre2
            If txtnb1.Text > txtnb3.Text Then
                'Nombre1 > Nombre3 mais on ne sait pas encore si c'est 1-2-3 ou 1-3-2
                If txtnb2.Text > txtnb3.Text Then
                    'Nombre2 > Nombre3
                    message = "Nombre1 > Nombre2 > Nombre3"
                Else
                    'Nombre3 > Nombre2
                    message = "Nombre1 > Nombre3 > Nombre2"
                End If
            Else
                'Nombre3 > Nombre1
                message = "Nombre3 > Nombre1 > Nombre2"
            End If
        Else

            'Nombre2 > Nombre1
            If txtnb1.Text > txtnb3.Text Then
                'Nombre1 > Nombre3
                message = "Nombre2 > Nombre1 > Nombre3"

            Else
                'Nombre3 > Nombre1 mais on ne sait toujours si c'est 2-3-1 ou 3-2-1
                If txtnb2.Text > txtnb3.Text Then
                    'Nombre2 > Nombre3
                    message = "Nombre2 > Nombre3 > Nombre1"
                Else
                    'Nombre3 > Nombre2
                    message = "Nombre3 > Nombre2 > Nombre1"
                End If
            End If
        End If

        MessageBox.Show(message)

    End Sub
End Class


quelqu'un voit ou est l'erreur ? et comment faire sans les else If ???

Sehnsucht · Answer

Bonsoir,

Quelles instructions sont autorisées au juste parce que c'est pas les idées qui manquent, mais si à chaque fois tu dois nous répondre que le prof n'en veut pas autant savoir de suite, ce qui est accepté on gagnera du temps 

Soit dit en passant, ton prof à l'air ...  enfin je me comprends 

Cordialement !

raffika · Answer

Salut,
moi je pense que l'utilisation des Else
est pas très logique. Tu vérifie en premier
si :
txtnb1.Text > txtnb2.Text
Alors que ce n'est pas le but de l'algorithme
de savoir si nb1 > nb2 ...
Même si la méthode marche car tu vérifie
après les autre conditions dans lesquelles
tu déduis l'ordre décroissant des nombres,
ça n'est pas très lisible et voir
même mal optimisé.
De plus qu'il n'y as pas beaucoup
de combinaisons différentes possibles
 3 * 2 * 1 | 3 nombre au début possible, en reste 2 puis qu'un seul...
Et puis si ton prof l'accepte, renomme tes Textbox
pour des raisons de lisibilité et aussi de rapidité
dans la création du code.
Donc je te proposes :

If nb1.text > nb2.text AND nb2.text > nb3.text then
msgbox("nb1>nb2>nb3")
end if
If nb3.text > nb1.text AND nb1.text > nb2.text then
msgbox("nb3>nb1>nb2")
end if
If nb2.text > nb1.text AND nb1.text > nb3.text then
msgbox("nb2>nb1>nb3")
end if
If nb3.text > nb2.text AND nb2.text > nb1.text then
msgbox("nb3>nb2>nb1")
end if
If nb1.text > nb3.text AND nb3.text > nb2.text then
msgbox("nb1>nb3>nb2")
end if
If nb2.text > nb3.text AND nb3.text > nb1.text then
msgbox("nb2>nb3>nb1")
end if

Je ne l'ai pas testé mais il 
devrai marcher. Tu devra juste rajouter
les Exit Sub et aussi modifier peut
être les noms des Textbox.

nhervagault · Answer

Bon bien ton prof, il faut qu'il retourne a l'ecole faire des cours de programmation.
Car si il interdit d'utiliser les conversions, c'est pas une bonne méthode et il ne peut pas entrainer ses etudiants a travailler proprement.

les differents methodes de conversions 
sont 
* cint
* tryparse
* parse
* convert.toInt32

Si on ne peux utiliser tu ne pourras pas y arriver a résoudre ton problème.

Explications :
Les opérateurs > et < ne fonctionne pas sur les strings.
Ça compile mais ca donnes pas le bon résultat.

Exemple 
si 1 - 3 - 40 --> nb3>nb2>nb1
si 1 - 9 - 40 --> nb2>nb3>nb1
 If nb2 > nb3 Then '--> true

C'est que le premier caractère qui est pris en compte dans la conversion.

Voila le pourquoi

raffika · Answer

Effectivement, nhervagault, 
je ne le savais pas 
Donc voici le code avec le Val qui va bien
@Moundir76 Val convertit les
String en Double (Double -> Nombre à virgule flottante
double précision...)
 If Val(nb1.Text) > Val(nb2.Text) And Val(nb2.Text) > Val(nb3.Text) Then
            MsgBox("nb1>nb2>nb3")
        End If
        If Val(nb3.Text) > Val(nb1.Text) And Val(nb1.Text) > Val(nb2.Text) Then
            MsgBox("nb3>nb1>nb2")
        End If
        If Val(nb2.Text) > Val(nb1.Text) And Val(nb1.Text) > Val(nb3.Text) Then
            MsgBox("nb2>nb1>nb3")
        End If
        If Val(nb3.Text) > Val(nb2.Text) And Val(nb2.Text) > Val(nb1.Text) Then
            MsgBox("nb3>nb2>nb1")
        End If
        If Val(nb1.Text) > Val(nb3.Text) And Val(nb3.Text) > Val(nb2.Text) Then
            MsgBox("nb1>nb3>nb2")
        End If
        If Val(nb2.Text) > Val(nb3.Text) And Val(nb3.Text) > Val(nb1.Text) Then
            MsgBox("nb2>nb3>nb1")
        End If
        Exit Sub

Moundir76 · Answer

@nhervagault : Mon prof m'a dit que c'etait inutile de convertir, que ca marchait bien sans. En effet son programme ne contient aucune conversion ni même de val !!! Au moins ici j'apprends des astuces et je t'en remercie !
Tu dis que les operateurs ne fonctionnent pas avec des strings, mais si j'utilise "txtnb1.text", c'est considéré comme string ??? pour Nb1>nb2 je comprends parfaitement 

@raffika, merci pour ton code très simplifié avec les val ! c'est exactement ce que je cherchais ! (même si ont est censés les faire sans val).


il ne me reste plus qu'a afficher en plus dans la boite de dialogue les nombres précédemment entrées (avec le & il me semble) ainsi que gérer les égalités telles que : 1 1 1 ou 1 5 1 ou encore 5 5 1. je vais me creuser les méninges.
je vous tiens au courant de mes essais !!!

nhervagault · Answer

Oui c'est des string
 
Dim nb1 As String = txtnb1.Text
Dim nb2 As String = txtnb2.Text
Dim nb3 As String = txtnb3.Text


Je ne voulais pas reecrire le code :-)

Les comparaisons des chaines c'est avec compare en dotnet,
mais la plus par du temps c'est fait avec = ou .equals
par abus 

compare est la seule fonction qui fait intervenir la culture et la case (minuscule et majuscule)

et permet de les ranger comme dans un dictionnaire
http://www.blackwasp.co.uk/StringComparison.aspx

Moundir76 · Answer

Oui mais si je ne veux pas utiliser  nb1 nb2 etc, mais directement le nom de ma textbox, c'est un string ??

Est ce que lorsque Dim nb1 As String = txtnb1.Text, cela signifie que l'on "cree" notre langage (ici nb1) qui se réfère a au nom dans la propriété de notre textbox ??

raffika · Answer

txtnb1.Text est de type String
et dans 
Dim sfghvbxcv As String = txtnb1.Text
sfghvbxcv prend la valeur de txtnb1.Text
mais
si tu changes sfghvbxcv, avec une instruction comme 
sfghvbxcv = "Hello"
txtnb1.Text ne changeras pas,
c'est la base de la programmation...
Si tu veux changer la propriété Text de txtnb1
du devra l'appeller avec son nom (txtnb1) puis . puis le nom de 
la propriétée que tu désires utiliser (Text)

raffika · Answer

...
Regardes plutôt ce code :
Dim s As System.Windows.Forms.TextBox = nb1
s.Text = "un chiffre"
Ici c'est s.Text qui se réfère à nb1.Text.
Mais je n'ai pas encore trouvé dans quel
cas cela pourrai servir.
Salutations

mdevaux62 · Answer

Bonjour,
J'apporte ma pierre à l'édifice histoire d'alimenter le sujet.

J'ai créé une Form avec les contrôles suivants :
TextBox1
TextBox2
TextBox3
btnLancer
Label1

J'intègre dans ma Form le code suivant :

Public Class Form1

    Private Function ComparaisonEntier(ByVal X As Integer, ByVal Y As Integer) As Integer
        Return X.CompareTo(Y)
    End Function

    Private Sub btnRanger_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRanger.Click
        'Transfert du contenu des textboxes dans une liste (sans conversion !!!)
        Dim pliste As New List(Of Integer)
        Try
            pliste.Add(TextBox1.Text)
            pliste.Add(TextBox2.Text)
            pliste.Add(TextBox3.Text)
        Catch ex As Exception
            MessageBox.Show("Les textBoxes doivent contenir des valeurs numériques !")
            Return
        End Try
        'Tri
        pliste.Sort(AddressOf ComparaisonEntier)
        'Composition d'une chaîne à afficher dans le Labels (j'aurais pu afficher les élements directement mais bon...)
        Dim chaine As String = ""
        For Each elt As Integer In pliste
            chaine &= elt.ToString & "<"
        Next
        Label1.Text = chaine.Substring(0, chaine.Length - 1)
        'Fini !
    End Sub

End Class

Sehnsucht · Answer

Oh le truandage pour la conversion ^^

Mais bon ça m'étonnerait que les List, la gestion d'exception le sorting par delegate soient autorisés si déjà un Else If n'est pas autorisé ;)

Sinon dans le genre bourrin on peut aussi faire ça

Public Class Form1

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        MessageBox.Show(
            (
                From txt In Controls.OfType(Of TextBox)()
                Where Integer.TryParse(txt.Text, Nothing)
                Let value = Integer.Parse(txt.Text)
                Order By value Descending
                Select value
            ).Aggregate(String.Empty, Function(acc, current) If(String.IsNullOrEmpty(acc), current.ToString, acc & " > " & current)))
    End Sub

End Class


Code à propre au Xième degré bien sûr :D

Moundir76 · Answer

MERCI A VOUS TOUS POUR VOS EXPLICATIONS ET VOS AIDES !!!

Problème avec mon premier algo

39 réponses

Votre réponse

Discussions similaires