Petit souci avec calcul

**Attila54** · 07/10/2011, 12h33

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** · 07/10/2011, 12h56

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** · 07/10/2011, 12h58

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** · 07/10/2011, 13h01

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** · 07/10/2011, 13h04

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)

**BenoitM** · 07/10/2011, 13h05

Envoyé par Attila54

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** · 07/10/2011, 13h06

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

**Attila54** · 07/10/2011, 13h07

ah ok je comprends mieux la

je teste

**Attila54** · 07/10/2011, 13h11

ben pour 1.55
il n'entre pas dans ce cas la

Code :

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

 Else If valQ > 1.5 AndAlso valQ <= 2.5 Then

????????

si on est en dessous de -1.5 et au dessus de 2.5 alors j'aurai toujours

Code :

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

valA = (valB * 0.05)

**BenoitM** · 07/10/2011, 13h15

Quand ce sont de simples And il teste toutes les opératantes avant de décider d'aller dans le If ou le Else

Avec des AndAlso est très pratique car il est short-circuiting.
donc dès qu'il trouve un cas Faux il va dans le Else
Exemple

Code :

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

If (Not MaClass= Nothing AndAlso MaClass.Id=1) MaClass.Id=2

Fonctionnera
Mais avec

Code :

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

If (Not MaClass= Nothing And MaClass.Id=1) MaClass.Id=2

Tu aura une NullReferenceException car il va tester MaClass.Id=2 alors que maClass vaut Nothing

Le OrElse à le même avantage
Avec le Or il teste tout les cas avant d'aller dans le If ou le Else

Avec le OrElse il va directement dans le If si il trouve un cas vrai

Exemple

Code :

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

If (MaClass.Id=1 OrElseMaClass.Id=2 OrElse MaClass.Id=2)

Si Id vaut 1 il effectura le if au premier check

Code :

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

If (MaClass.Id=1 Or  MaClass.Id=2 Or MaClass.Id=2)

Il va tester tous les cas avant d'effectuer le if donc prendre plus de temps

**Attila54** · 07/10/2011, 13h20

ah oui daccord je comprends mieux maintenant
merci pour ces précisions fort utiles

**BenoitM** · 07/10/2011, 13h23

Envoyé par Attila54

ben pour 1.55
il n'entre pas dans ce cas la

Code :

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

 Else If valQ > 1.5 AndAlso valQ <= 2.5 Then

????????

si on est en dessous de -1.5 et au dessus de 2.5 alors j'aurai toujours

Code :

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

valA = (valB * 0.05)

Euh ici oui mais avant tu faisais

Code :

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

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

Or entre 1.5 et 1.6 tu as 1.500000001, 1.52,1.53,...,1.5999999999...

**Attila54** · 07/10/2011, 13h36

ah mais ouiiii bien sur
en fait le mieux serait que j'aille a 2 decimales dans mes conditions car le resultat final sera lui même a deux décimales

**Attila54** · 07/10/2011, 13h38

donc la tous les cas seraient traites ......... non ?

Code :

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

1
2
3
4
5
6
7
8
9
10
If valQ >= -0.50 AndAlso valQ <= +1.50 Then 
              valA = (valB * 0.1)
              A.Text = valA.ToString("0.00")
         Else If valQ > 1.50 AndAlso valQ <= 2.50 Then 
             valA = (valB * 0.0)
             A.Text = valA.ToString("0.00") 
         Else  
            valA = (valB * 0.05) 
            A.Text = valA.ToString("0.00")
         End If

**BenoitM** · 07/10/2011, 13h49

donc la tous les cas seraient traites ......... non ?

Code :

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

...

Oui parce que vous

Code :

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

valQ <= +1.5

et

Code :

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

valQ > 1.5

Non parce qu'il n'y a toujours pas de cas prévu pour les valeurs plus petite que -0.50

le mieux est de prendre le code du poste #5

Soit vous lancer une exception New Exception(Opération impossible: ValQ ne peut-être plus petit que <5") avec une gestion dans un try catch
Soit vous faites A.Text = "Opération impossible: ValQ ne peut-être plus petit que <5"

**Attila54** · 07/10/2011, 13h55

Ben si par exemple ValQ = -1.65 on aura valA = (valB * 0.05)

c'est pour cela que j'avais mis

Code :

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

1
2
3
4
Else  
            valA = (valB * 0.05) 
            A.Text = valA.ToString("0.00")
         End If

à la place de

Code :

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

1
2
3
4
5
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

**Attila54** · 07/10/2011, 14h14

D'ailleurs j'ai un bug :
Pour exemple : j'ai Q = + 3.50 et valB = -1.28
je devrais donc avoir valA = (valB * 0.05)
donc numeriquement valA = 0.064
eh bien j'ai valA = -0.13 soit le double de la valeur attendue
conclusion : même avec ce code il me calcule valA = (valB * 0.10) donc il ne cerne pas la plage a priori

**BenoitM** · 07/10/2011, 14h16

Ah oui pas été tout a fait attentif
Tu recouvres bien tous les cas

Part contre valA = 0 quand valQ > 1.50 AndAlso valQ <= 2.50 => ValB * 0

Le code me semble correcte donc utilise le debugger avec un breakpoint pour voir par où il passe et utilises aussi les watch

**franticfranz** · 07/10/2011, 19h55

Le code est bon, l'erreur doit venir d'ailleurs. Voilà le code que j’exécute :

Pour le test :

Code :

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

1
2
3
        Dim valQ As Single = 3.5
        Dim valA As Single
        Dim valB As Single = -1.28

Votre test :

Code :

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

1
2
3
4
5
6
7
        If valQ >= -0.5 AndAlso valQ <= +1.5 Then
            valA = (valB * 0.1)
        ElseIf valQ > 1.5 AndAlso valQ <= 2.5 Then
            valA = (valB * 1.0) ' Et non pas valB * 0.0 !!!
        Else
            valA = (valB * 0.05)
        End If