Implémentation Données floues

Bonsoir,

Soit le petit programme suivant :
Code:

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.

Code:

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.

Plutot :

Code:

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 ;)

Effectivement, je ne l'avais pas testé! ;)