Discussion :

[Attila54]

Bonjour,
Je rencontre un petit souci que je n'arrive pas a elucider et qui, pourtant, me parait simple.

J'ai une valeur Q, une valeur A et une valeur B

le problème est simple :
- Si Q compris entre (-0.5) et (+1.5) inclus
alors A = B * 10%

- Si Q compris entre (1.6) et (+2.5)
alors A = B

- Si Q superieur a +2.5
alors A = B * 5%

J'ai fait ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 If valQ > -0.5 Or valQ < +1.5 Then 
              valA = (valB * 0.1)
              A.Text = valA.ToString("0.00")
          End If
          If valQ >= +1.5 Or valQ <= 2.5 Then 
             valA = (valB * 0.0)
             A.Text = valA.ToString("0.00") 
         End If
         If valQ > +2.5 Then 
            valA = (valB * 0.05) 
            A.Text = valA.ToString("0.00")
        End If

Quelque chose cloche, j'ai l'impression que quel que soit Q il m'applique toujours valA = (valB * 0.1)
Voyez vous une erreur ???
Merci de l'aide

[BenoitM]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
If valQ > -0.5 Or valQ < +1.5 Then 
              valA = (valB * 0.1)
              A.Text = valA.ToString("0.00")
          End If
          If valQ >= +1.5 Or valQ <= 2.5 Then 
             valA = (valB * 0.0)
             A.Text = valA.ToString("0.00") 
         End If
         If valQ > +2.5 Then 
            valA = (valB * 0.05) 
            A.Text = valA.ToString("0.00")
        End If

Et c'est mieux d'utilisé des OrElse et des AndAlso que le simple Or And

De plus ton code ne correspond pas a ta description

[Attila54]

euh je corrige mon code j'ai omis d'inclure le mot "inclus"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If valQ >= -0.5 Or valQ <= +1.5 Then 
valA = (valB * 0.1)
A.Text = valA.ToString("0.00")
End If
If valQ >= +1.6 Or valQ <= 2.5 Then 
valA = (valB * 0.0)
A.Text = valA.ToString("0.00") 
End If
If valQ > +2.5 Then 
valA = (valB * 0.05) 
A.Text = valA.ToString("0.00")
End If

voila

[Attila54]

euh ou je suis carrément aveugle ou je ne vois aucune différence entre ton code et le mien .......... me trompe je

Ou est ce qu'il ne correspond pas ??????
Avec la derniere modif ?

Les also, je ne sais pas m'en servir a bon escient

[BenoitM]

euh ou je suis carrément aveugle ou je ne vois aucune différence entre ton code et le mien .......... me trompe je

Oups j'ai mis la couleur rouge mais pas changer le texte
Remplace les Or par des And

[Attila54]

je vois bien que les couleurs ne sont pas les mêmes oui mais je ne vois rien dans les caracteres !!!!!!!

[Attila54]

ah ok je comprends mieux la
je teste

[BenoitM]

Il faut utilisé les même bornes aussi
Imagine qu'un jour tu as 1.55 tu ne vais rentrer dans aucun de tes cas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 If valQ >= -0.5 AndAlso valQ <= +1.5 Then 
              valA = (valB * 0.1)
              A.Text = valA.ToString("0.00")
         Else If valQ > 1.5 AndAlso valQ <= 2.5 Then 
             valA = (valB * 0.0)
             A.Text = valA.ToString("0.00") 
         Else  If valQ > +2.5 Then 
            valA = (valB * 0.05) 
            A.Text = valA.ToString("0.00")
         Else throw new Exception("Cas non géré")
        End If

quand tu vas avoir ValQ à -1 tu aura une exception
(dans ton code il ne se passera rien pas sur que se soit une bonne solution)