Modification auto d'un label selon valeur textbox

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:

---

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

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.

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...

J'ai essayé un autre intervalle :

Code:

---

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

Ok, au temps pour moi.
La ligne

Code:

---

-0.3 < val(Textbox3.text) < 0.3

---

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

Code:

---

Option Strict On

---

et tu vas voir apparaître l'erreur.

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

Code:

---

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

---