Modif auto d'1 label selon valeur textbox
Résolu/Fermé
vérokit
Messages postés
68
Date d'inscription
vendredi 18 janvier 2008
Statut
Membre
Dernière intervention
9 septembre 2008
-
14 mars 2008 à 11:54
vérokit Messages postés 68 Date d'inscription vendredi 18 janvier 2008 Statut Membre Dernière intervention 9 septembre 2008 - 14 mars 2008 à 14:07
vérokit Messages postés 68 Date d'inscription vendredi 18 janvier 2008 Statut Membre Dernière intervention 9 septembre 2008 - 14 mars 2008 à 14:07
A voir également:
- Modif auto d'1 label selon valeur textbox
- Telecharger auto refresh - Télécharger - Divers Web & Internet
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Auto mouse click - Télécharger - Divers Utilitaires
- Valeur ascii - Guide
- Excel couleur selon valeur - Guide
1 réponse
vérokit
Messages postés
68
Date d'inscription
vendredi 18 janvier 2008
Statut
Membre
Dernière intervention
9 septembre 2008
9
14 mars 2008 à 14:07
14 mars 2008 à 14:07
Ca y est, j'ai trouvé la soluce !
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
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