Discussion :

[amirad]

Bonsoir,

Soit le petit programme suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 Dim x As Integer
        x = CInt((TextBox1.Text))
 
        If 0 <= x <= 2 Then
            MessageBox.Show("faible")
        ElseIf 1= < x <= 3 Then
            MessageBox.Show("moyen")
        Else : MessageBox.Show("fort")
        End If

Si je lui donne 2, il va m'afficher "faible" ,, pourtant 2 peut être à la fois "faible " et "moyen".

Comment faire de sorte que mon programme m'affiche "faibl" et "moyen" . (JE cherche à implémenter des données en logique floue)
Si quelqu'un aurait une idée.

[roster]

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim x As Integer
        x = CInt((TextBox1.Text))
 
        If 0 <= x AndAlso x <= 2 Then
            MessageBox.Show("faible")
            If 1 <= x AndAlso x <= 3 Then
                MessageBox.Show("moyen")
            End If
        Else : MessageBox.Show("fort")
        End If

Voilà pour le bricolage.

[Philippe Vialatte]

Plutot :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim x As Integer
x = CInt((TextBox1.Text))
 
If x > 3 Then
   MessageBox.Show("fort")
Else
   If 0 <= x AndAlso x <= 2 Then
     MessageBox.Show("faible")
   End If
   If 1 <= x AndAlso x <= 3 Then
     MessageBox.Show("moyen")
   End If
 End If

Dans l'exemple precedent, si x vaut 3, on aura une messagebox a fort

[roster]

Effectivement, je ne l'avais pas testé!