Sujet Précédent Sujet Suivant

Problème VB text box

Résolu/Fermé
Zoltan du 41 Messages postés 44 Date d'inscription dimanche 6 mars 2011 Statut Membre Dernière intervention 30 novembre 2015 - 13 avril 2011 à 22:02
Zoltan du 41 Messages postés 44 Date d'inscription dimanche 6 mars 2011 Statut Membre Dernière intervention 30 novembre 2015 - 15 avril 2011 à 00:35
Bonjour,
J'ai un problème sur VB. En effet, j'ai créé un programme avec des textbox, des boutons, etc.
Le problème est que dans les textbox, on doit rentrer des valeurs numériques décimales pour ensuite utiliser ces valeurs dans des calculs. Mon programme marche bien mais il plante lorque je met des décimale. La solution serait peut etre de tranformer ma chaine de caractère en un nombre numérique mais je n'y arrive pas.
Si quelqu'un peut m'aider, ca serait avec plaisir!
Merci


A voir également:

2 réponses

Réponse 1 / 2
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
14 avril 2011 à 00:31
Salut le forum

Et si tu nous faisait voir le code qui pose problème.

Mytå
0
Réponse 2 / 2
Zoltan du 41 Messages postés 44 Date d'inscription dimanche 6 mars 2011 Statut Membre Dernière intervention 30 novembre 2015 4
14 avril 2011 à 11:35
Bah ce n'est pas le code qui pose problème. Le truc c'est que tout marche lorque les nombres ne sont pas décimaux.
Mais je ne suis pas un pro, si ca peut aider quelqu'un je met un bout du code. Sachant que le reste c'est la même chose mais pas avec les mêmes variables

If cbx_couche2.Checked = True Then
txt_resist.Text = (txt_ep1.Text / (txt_ch1.Text * txt_sur.Text) + (txt_ep2.Text / (txt_ch2.Text * txt_sur.Text) + (1 / (txt_convint.Text * txt_sur.Text)) + (1 / (1 / (txt_convext.Text * txt_sur.Text)))))
End If
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
14 avril 2011 à 12:58
Re le forum

Il faut d,abord convertir ton textbox en valeur numérique 
Val(Replace(txt_ep1.Text, ",", "."))

Mytå
0
Zoltan du 41 Messages postés 44 Date d'inscription dimanche 6 mars 2011 Statut Membre Dernière intervention 30 novembre 2015 4
14 avril 2011 à 13:16
Merci, mais je ne vois pas comment l'intégrer. par exemple, a la place de
txt_ch1.text
je dois mettre
val(txt_ch1.text)
c'est ca?
Merci en tout cas!
0
Zoltan du 41 Messages postés 44 Date d'inscription dimanche 6 mars 2011 Statut Membre Dernière intervention 30 novembre 2015 4
14 avril 2011 à 13:19
Bon je viens de tester et ca marche!
Merci beaucoup!
Et au passage, comment faire pour avoir 3 décimales au maximum dans la case du résultat?
Merci!
0
Mytå Messages postés 2973 Date d'inscription mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
14 avril 2011 à 22:48
Re le forum

Utilise la fonction ROUND 
txt_resist.Text =Round(TonCalcul, 3)

Mytå
0
Zoltan du 41 Messages postés 44 Date d'inscription dimanche 6 mars 2011 Statut Membre Dernière intervention 30 novembre 2015 4
15 avril 2011 à 00:35
Merci beaucoup!
0

Discussions similaires

Arnaque du site light in the box
paoupet -
brucine -

40 réponses
Problèmes avec Lightinthebox
sebhmt -
Annie -

122 réponses
Mefiez vous des arnaques de Light in the box!!!!
Shelamon -
Aelyda -

89 réponses
my.canalbox.africa changer le mot de passe
Thierry973 -
baladur13 -

16 réponses