probleme avec des comparaison

Version imprimable

j'ai crée un prog avec des if pour faire des plages de valeur
le problème c 'est que quand je met 311 il me met 15.44 au lieu de 15.46
voici le prog

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
If z < 74 Then
 
        b = (0.072329 * z)
 
        ElseIf 73 < z < 155 Then
        g = 5.28
        coef = 0.06321
        X = z - 73
        b = g + (coef * X)
 
 
        ElseIf 154 < z < 235 Then
        g = 10.46
        coef = 0.06475
        X = z - 154
        b = g + (coef * X)
 
        ElseIf 234 < z < 312 Then
        g = 15.64
        coef = 0.066494
        X = z - 234
        b = g + (coef * X)
 
 
        ElseIf 311 < z < 396 Then
        g = 20.78
        coef = 0.062024
        X = z - 311
        b = g + (coef * X)
 
        ElseIf 395 < z < 472 Then
        g = 25.99
        coef = 0.067273
        X = z - 395
        b = g + (coef * X)
 
    End If

28/05/2007, 13h48
Delbeke

Ca serait sympa d'ultiliser les balises [ Code] [ /Code] pour mettre ton code en evidences.

Dans l'editeur de message c'est le bouton #

Je pense que ton problème pourrait venir du type de variable que tu utilises. Ce qu'on ne voit pas dans ton extrait de code

Ensuite la formulation

Code:

ElseIf 311 < z < 396 Then

n'est pas tres orthodoxe pour vb, il vaidrait mieux utiliser

Code:

ElseIf z>311 and z < 396 Then

Code:

1
2
3
4
5
Public b As Single
Public coef As Single
Public g As Single
Public X As Single
Public z As Single 'variable pour essai

28/05/2007, 13h51
Delbeke

Essaye de passer le tout en double, et j'ai édité mon post pour le compléter,rafraichis ta page pour voir mon ajout
28/05/2007, 13h56
thunderpat

j'ai mis tout en double et c'est toujours le meme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Dim b As Double
Dim coef As Double
 Dim g As Double
 Dim X As Double
 Dim z As Double 'variable pour essai
 
 z = valaffiche
 
    If 74 > z Then
 
        b = (0.072329 * z)
 
        ElseIf 73 > z < 155 Then
        g = 5.28
        coef = 0.06321
        X = z - 73
        b = g + (coef * X)
 
 
        ElseIf 154 > z < 235 Then
        g = 10.46
        coef = 0.06475
        X = z - 154
        b = g + (coef * X)
 
        ElseIf 234 > z < 312 Then
        g = 15.64
        coef = 0.066494
        X = z - 234
        b = g + (coef * X)
 
 
        ElseIf 311 > z < 396 Then
        g = 20.78
        coef = 0.062024
        X = z - 311
        b = g + (coef * X)
 
        ElseIf 395 > z < 472 Then
        g = 25.99
        coef = 0.067273
        X = z - 395
        b = g + (coef * X)
 
    End If

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Dim b As Double
Dim coef As Double
 Dim g As Double
 Dim X As Double
 Dim z As Double 'variable pour essai
 
 z = valaffiche
 
    If 74 > z Then
 
        b = (0.072329 * z)
 
        ElseIf 73 > z < 155 Then
        g = 5.28
        coef = 0.06321
        X = z - 73
        b = g + (coef * X)
 
 
        ElseIf 154 > z < 235 Then
        g = 10.46
        coef = 0.06475
        X = z - 154
        b = g + (coef * X)
 
        ElseIf 234 > z < 312 Then
        g = 15.64
        coef = 0.066494
        X = z - 234
        b = g + (coef * X)
 
 
        ElseIf 311 > z < 396 Then
        g = 20.78
        coef = 0.062024
        X = z - 311
        b = g + (coef * X)
 
        ElseIf 395 > z < 472 Then
        g = 25.99
        coef = 0.067273
        X = z - 395
        b = g + (coef * X)
 
    End If

28/05/2007, 14h28
Delbeke

Ce que comprends vb quand tu écris

Code:

ElseIf 395 > z < 472 Then

C'est

Code:

ElseIf 395 > (z < 472) Then

comme le deuxeime terme de l'expression est aussi une expression, il commence par la deuxieme z < 472 ce qui donne vrai ou faux. puis fait la premiere 395 > Vrai ou 395 > Faux. ce qui dans les deux cas donne vrai

Je ne pense pas que ce soit ce que tu veux faire.
Il faut que tu remplaces toutes tes lignes dans ce cas par

Code:

if z> valeur1 and Z<Valeur2 then
28/05/2007, 14h42
thunderpat

merci

je vous remercie ca fonctionne