Discussion :

[3zeki3l]

j'ai quelques soucis avec mon programme je cherche à comparer une valeur qui selon ce qu'elle en donne une autre correspondante

Code :

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

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
46
47
48
49
 If Form6.TextBox10.Text <= 0.036 Then
 
            Form6.TextBox14.Text = "3,75"
 
        ElseIf Form6.TextBox10.Text >= 0.036 And Form6.TextBox10.Text < 0.035 Then
 
            Form6.TextBox14.Text = "4"
 
        ElseIf Form6.TextBox10.Text >= 0.035 And Form6.TextBox10.Text < 0.0335 Then
 
            Form6.TextBox14.Text = "4.25"
 
        ElseIf Form6.TextBox10.Text >= 0.0335 And Form6.TextBox10.Text < 0.032 Then
 
            Form6.TextBox14.Text = "4.5"
 
        ElseIf Form6.TextBox10.Text >= 0.032 And Form6.TextBox10.Text < 0.0315 Then
 
            Form6.TextBox14.Text = "4.75"
 
        ElseIf Form6.TextBox10.Text >= 0.0315 And Form6.TextBox10.Text < 0.029 Then
 
            Form6.TextBox14.Text = "5"
 
        ElseIf Form6.TextBox10.Text >= 0.029 And Form6.TextBox10.Text < 0.028 Then
 
            Form6.TextBox14.Text = "5.25"
 
        ElseIf Form6.TextBox10.Text >= 0.028 And Form6.TextBox10.Text < 0.027 Then
 
            Form6.TextBox14.Text = "5.5"
 
        ElseIf Form6.TextBox10.Text >= 0.027 And Form6.TextBox10.Text < 0.026 Then
 
            Form6.TextBox14.Text = "5.75"
 
 
        ElseIf Form6.TextBox10.Text >= 0.026 And Form6.TextBox10.Text < 0.025 Then
 
            Form6.TextBox14.Text = "6"
 
        ElseIf Form6.TextBox10.Text >= 0.025 And Form6.TextBox10.Text < 0.023 Then
 
            Form6.TextBox14.Text = "6.25"
 
        ElseIf Form6.TextBox10.Text >= 0.023 Then
 
            Form6.TextBox14.Text = "6.5"
        End If

Le problème que quand la valeur est donnée il me donne soit 3.75 ou 6.5 en correspondance. Je tiens à précisé que je suis un gros débutant

[LaChips]

Bonjour,
Essayez avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
        Dim input As Integer = Integer.Parse(Form6.TextBox10.Text)
        Dim output As Integer
 
        If input <= 0.036 Then
            output = 3.75
        ElseIf input < 0.035 Then
            output = 4
        ElseIf input < 0.0335 Then
            output = 4.25
        ElseIf input < 0.032 Then
            output = 4.5
        ElseIf input < 0.0315 Then
            output = 4.75
......
        End If

[OhMonBato]

Il me semble qu'il y a une inversion sur les signes < et > , si j'ai bien compris (pas sûr...) ton code serait plutôt :

Code :

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

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
  If Form6.TextBox10.Text >= 0.036 Then
            Form6.TextBox14.Text = "3.75"
        ElseIf Form6.TextBox10.Text <= 0.036 And Form6.TextBox10.Text > 0.035 Then
            Form6.TextBox14.Text = "4"
        ElseIf Form6.TextBox10.Text <= 0.035 And Form6.TextBox10.Text > 0.0335 Then
            Form6.TextBox14.Text = "4.25"
        ElseIf Form6.TextBox10.Text <= 0.0335 And Form6.TextBox10.Text > 0.032 Then
            Form6.TextBox14.Text = "4.5"
        ElseIf Form6.TextBox10.Text <= 0.032 And Form6.TextBox10.Text > 0.0315 Then
            Form6.TextBox14.Text = "4.75"
        ElseIf Form6.TextBox10.Text <= 0.0315 And Form6.TextBox10.Text > 0.029 Then
            Form6.TextBox14.Text = "5"
        ElseIf Form6.TextBox10.Text <= 0.029 And Form6.TextBox10.Text > 0.028 Then
            Form6.TextBox14.Text = "5.25"
        ElseIf Form6.TextBox10.Text <= 0.028 And Form6.TextBox10.Text > 0.027 Then
            Form6.TextBox14.Text = "5.5"
        ElseIf Form6.TextBox10.Text <= 0.027 And Form6.TextBox10.Text > 0.026 Then
            Form6.TextBox14.Text = "5.75"
        ElseIf Form6.TextBox10.Text <= 0.026 And Form6.TextBox10.Text > 0.025 Then
            Form6.TextBox14.Text = "6"
        ElseIf Form6.TextBox10.Text <= 0.025 And Form6.TextBox10.Text > 0.023 Then
            Form6.TextBox14.Text = "6.25"
        ElseIf Form6.TextBox10.Text <= 0.023 Then
            Form6.TextBox14.Text = "6.5"
        End If

Mais tu pourrais le simplifier et le rendre plus lisible de cette manière :

Code :

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

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
  If Form6.TextBox10.Text <= 0.023 Then
            Form6.TextBox14.Text = "6.5"
        ElseIf Form6.TextBox10.Text <= 0.025 Then
            Form6.TextBox14.Text = "6.25"
        ElseIf Form6.TextBox10.Text <= 0.026 Then
            Form6.TextBox14.Text = "6"
        ElseIf Form6.TextBox10.Text <= 0.027 Then
            Form6.TextBox14.Text = "5.75"
        ElseIf Form6.TextBox10.Text <= 0.028 Then
            Form6.TextBox14.Text = "5.5"
        ElseIf Form6.TextBox10.Text <= 0.029 Then
            Form6.TextBox14.Text = "5.25"
        ElseIf Form6.TextBox10.Text <= 0.0315 Then
            Form6.TextBox14.Text = "5"
        ElseIf Form6.TextBox10.Text <= 0.032 Then
            Form6.TextBox14.Text = "4.75"
        ElseIf Form6.TextBox10.Text <= 0.0335 Then
            Form6.TextBox14.Text = "4.5"
        ElseIf Form6.TextBox10.Text <= 0.035 Then
            Form6.TextBox14.Text = "4.25"
        ElseIf Form6.TextBox10.Text <= 0.036 Then
            Form6.TextBox14.Text = "4"
        Else
            Form6.TextBox14.Text = "3.75"
        End If

Sauf erreur de ma part, il me semble qu'avec le code de LaChips, si ta valeur vaut 0.032 par exemple, le premier test sera vrai et tu obtiendras 3.75.
Si j'ai mal compris ton text en tout cas tes tests pour le moment ne sonrt JAMAIS bons, une valeur ne peut pas être à la fois >= 0.036 ET < 0.035

[3zeki3l]

ca y est j'ai trouvé oui c'était bien une inversion je vous remercie beaucoup de votre aide

[LaChips]

Ah oui effectivement, j'ai pas fait attention à çà, il faut inverser les lignes.