Discussion :

[Attila54]

Bonjour,
Je dois comparer 3 valeurs affichées dans 3 textbox différentes et tout simplement afficher la valeur de la plus petite d'entre elles dans un nouveau textbox.
Je m'embrouille avec les opérateurs et je voulais savoir si il n'y avait pas quelque chose de plus simple que de comparer ligne par ligne les 3 valeurs.

Ex : j'ai "2" affiché dans textboxA
"4" affiché dans textboxB
"6" affiché dans textboxC
Ma textboxD affichera dans ce cas "2"

Merci beaucoup

[_Ez3kiel]

Si tu utilises le framework 3.5 ou + :

Code :

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

1
2
3
4
      Dim ListeValeur As List(Of Integer) = New List(Of Integer) From {Integer.Parse(TextBox1.Text), Integer.Parse(TextBox2.Text), Integer.Parse(TextBox3.Text)}
 
       ' MsgBox(ListeValeur.Max())
         MsgBox(ListeValeur.Min())

Enumerable.Max<TSource>

EDIT: Oups, tu voulais le minimum !

Enumerable.Min, méthode

[Attila54]

ah merci mais il veut pas le "min"

Erreur 1 'Min' n'est pas un membre de 'System.Collections.Generic.List(Of Integer)'.

j'utilise bien le framework 3.5 pourtant

[_Ez3kiel]

J'ai downgradé en 3.5 et retesté, et ça marche chez moi ...

Tu as eu cette erreur avec les 2 lignes de code que j'ai proposé ou en l'adaptant au tien ? Si c'est le tien, peut-on voit le code ?

[Attila54]

ben mon code ne change pas du tien hormis le nom des textbox en fait. J'ai mis tout ca dans une simple sub compare(). Ca donne :

Code :

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

1
2
3
4
Private Sub compare()
        Dim ListeValeur As List(Of Integer) = New List(Of Integer) From {Integer.Parse(SPIMAGE2P.Text), Integer.Parse(P_SPIMAGE2.Text), Integer.Parse(P2_SPIMAGE2.Text)}
       MsgBox(ListeValeur.Min())
    End Sub

Apres je veux juste afficher le plus petit des 3 dans une textbox appelée result. Par contre, si l'une des valeurs est = 0, elle ne sera pas prise en compte dans la comparaison.

[_Ez3kiel]

Le 0 ne sera pas pris en compte, mais tu en auras l'utilité par la suite ?

Tu peux le retirer de la liste le temps de calculer min.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
        Dim ListeValeur As System.Collections.Generic.List(Of Integer) = New System.Collections.Generic.List(Of Integer) From {Integer.Parse(TextBox1.Text), Integer.Parse(TextBox2.Text), Integer.Parse(TextBox3.Text)}
        Dim mini As Integer
 
        If ListeValeur.Contains(0) Then
            ListeValeur.Remove(0)
            mini = ListeValeur.Min
            ListeValeur.Add(0)
        Else
            mini = ListeValeur.Min
        End If
 
        MsgBox(mini)

Ou sinon si tu n'as pas l'utilité du zero tu peux ne pas le rentrer dans la liste si l'une des textboxs est remplie avec.

Mais ça ne résout pas ton problème de 'Min n'est pas un membre de 'System.Collections.Generic.List(Of Integer)'.


EDIT: Tu peux essayer cette syntaxe en faisant un import de System.linq.Enumerable :

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
Imports System.Linq.Enumerable
 
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ListeValeur As System.Collections.Generic.List(Of Integer) = New System.Collections.Generic.List(Of Integer) From {Integer.Parse(TextBox1.Text), Integer.Parse(TextBox2.Text), Integer.Parse(TextBox3.Text)}
        Dim mini As Integer
 
 
        If ListeValeur.Contains(0) Then
            ListeValeur.Remove(0)
            mini = Min(ListeValeur)
            ListeValeur.Add(0)
        Else
            mini = Min(ListeValeur)
        End If
 
        MsgBox(mini)
    End Sub