Discussion :

[vérokit]

Bonjour à tous,
Je rencontre une petite difficulté dans une des forms de mon application (vb.net). Cette form est constitué de trois textbox (1,2,3) et d'un label. Mon souhait serait de faire apparaître un message dans le label qui diffère selon la valeur de la textbox3. La valeur de la textbox3 est le calcul de l'écart relatif entre la textbox1 et la textbox2. Voici le code concerné :

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
Private Sub Textbox1_TextChanged () Handles Textbox1.TextChanged
TextBox3.text = (Val(TextBox2.Text) - Val(Textbox1.Text)) / Val(Textbox2.Text) *100    'calcul en temps réel de l'écart
If -0.3 < val(Textbox3.text) < 0.3 then
Label.text = "LE CONVERTISSEUR DE TEMPERATURE EST DECLARE CONFORME"
Else
Label.text = "LE CONVERTISSEUR DE TEMPERATURE EST DECLARE NON CONFORME"
End if
End sub
 
Private Sub Textbox2_TextChanged () Handles Textbox2.TextChanged
TextBox3.text = (Val(TextBox2.Text) - Val(Textbox1.Text)) / Val(Textbox2.Text) *100    'calcul en temps réel de l'écart
If -0.3 < val(Textbox3.text) < 0.3 then
Label.text = "LE CONVERTISSEUR DE TEMPERATURE EST DECLARE CONFORME"
Else
Label.text = "LE CONVERTISSEUR DE TEMPERATURE EST DECLARE NON CONFORME"
End if
End sub

Le calcul se fait bien, le label affiche le bon texte. Par contre, si l'on modifie les valeurs de textbox1 ou 2, la valeur de l'écart se modifie instantanément mais le label ne se modifie pas.
Quelqu'un a-t-il une idée ??

Merci

[BCmDev]

Je pense qu'il doit s'agir d'un problème de format. Par exemple, val("0,4")=0 mais val("0.4")=0.4.

[vérokit]

Merci de m'avoir répondu !
Mais je ne pense pas que le problème se situe au niveau du format des nombres, car, c'est le point qui est utilisé dans les textbox. De plus, il réussi bien à faire le calcul...

[vérokit]

J'ai essayé un autre intervalle :

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
 Private Sub Textbox1_TextChanged () Handles Textbox1.TextChanged
TextBox3.text = (Val(TextBox2.Text) - Val(Textbox1.Text)) / Val(Textbox2.Text) *100    'calcul en temps réel de l'écart
If 50 < val(Textbox3.text) then
Label.text = "LE CONVERTISSEUR DE TEMPERATURE EST DECLARE CONFORME"
End if
If 50 > val(Textbox3.text) then
Label.text = "LE CONVERTISSEUR DE TEMPERATURE EST DECLARE NON CONFORME"
End if
End sub
 
Private Sub Textbox2_TextChanged () Handles Textbox2.TextChanged
TextBox3.text = (Val(TextBox2.Text) - Val(Textbox1.Text)) / Val(Textbox2.Text) *100    'calcul en temps réel de l'écart
If 50 < val(Textbox3.text) then
Label.text = "LE CONVERTISSEUR DE TEMPERATURE EST DECLARE CONFORME"
End if
If 50 > val(Textbox3.text) then
Label.text = "LE CONVERTISSEUR DE TEMPERATURE EST DECLARE NON CONFORME"
End if
End sub

Et là, tout fonctionne à merveille, étrange...Je ne sais pas quoi en penser

[BCmDev]

Ok, au temps pour moi.
La ligne

Code :

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

-0.3 < val(Textbox3.text) < 0.3

n'est pas valide car tu compares un Boolean et un Double.
Met

Code :

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

Option Strict On

et tu vas voir apparaître l'erreur.

[vérokit]

Ca y est, j'ai trouvé la soluce !

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
 Private Sub Textbox1_TextChanged () Handles Textbox1.TextChanged
TextBox3.text = (Val(TextBox2.Text) - Val(Textbox1.Text)) / Val(Textbox2.Text) *100    'calcul en temps réel de l'écart
If -0.3 < val(Textbox3.text)  and val(Textbox3.text) < 0.3 then
Label.text = "LE CONVERTISSEUR DE TEMPERATURE EST DECLARE CONFORME"
End if
If -0.3 > val(Textbox3.text)  or val(Textbox3.text) > 0.3 then
Label.text = "LE CONVERTISSEUR DE TEMPERATURE EST DECLARE NON CONFORME"
End if
End sub
 
Private Sub Textbox2_TextChanged () Handles Textbox2.TextChanged
TextBox3.text = (Val(TextBox2.Text) - Val(Textbox1.Text)) / Val(Textbox2.Text) *100    'calcul en temps réel de l'écart
If -0.3 < val(Textbox3.text)  and val(Textbox3.text) < 0.3 then
Label.text = "LE CONVERTISSEUR DE TEMPERATURE EST DECLARE CONFORME"
End if
If -0.3 > val(Textbox3.text)  or val(Textbox3.text) > 0.3 then
Label.text = "LE CONVERTISSEUR DE TEMPERATURE EST DECLARE NON CONFORME"
End if
End sub