Problème de calcul

Bonjour,
je dispose de trois textbox ou je vais saisir deux valeur dans deux et je voudrais afficher la valeur dans la troisieme mais le probléme c'est que lorsque mon calcul s'approche de zero genre 0,.... il m'affiche la valeur zero et je sais po pourquoi voiçi mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub TextBox34_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox34.KeyPress Dim a As Double If e.KeyChar = Chr(13) Then   a = Val(TextBox32.Text) TextBox63.Text = a * (100 / Val(TextBox33.Text) + 100 / Val(TextBox34.Text) - 2)     TextBox35.Focus() End If End Sub

---

lorsque j'insere les valeurs 1 et 8 j'obtiens directement un zero alors que normalement c'est 0.125
Merci pour votre aide !

Bonjour,

mauvaise idée que de faire des calculs avec des types String. Commence par caster tes valeurs textuelles en valeurs numériques avant de procéder à tes calculs.

Citation:

---

Envoyé par calagan99

Bonjour,

mauvaise idée que de faire des calculs avec des types String. Commence par caster tes valeurs textuelles en valeurs numériques avant de procéder à tes calculs.

---

J'ai pas trés bien compris est-ce-que vous pouvez m'aider avec un exemple svp ?

1 - Pas le peine de créer 2 fois le même sujet
2 - Help dans le titre n'aide pas à avoir une réponse plus rapide
3 - vous essayez de faire des calculs avec des chaines de caractères. Ce n'est pas une bonne méthode. Castez vos valeurs vers un type numérique (Decimal, Float, Long, etc.) avant de procéder aux calculs.

Code:

---

Cdec(monTxtBox.text)

---

Cela te cast (te converti) une valur chaine en décimale. Fais bien atention au fait qu'il faut absolument une valeur décimale dans la chaine du textbox, sinon tu risque de planté.

Merci pour vos réponse au fait j'ai mis ceçi

Code:

---

1 2 3 4 5 6 7

Private Sub TextBox34_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox34.KeyPress Dim a As Decimal If e.KeyChar = Chr(13) Then TextBox32.Text = CDec(Val(TextBox31.Text)) * CDec((Val(TextBox33.Text) / 100)) * CDec((Val(TextBox34.Text) / 100)) a = Val(TextBox32.Text) TextBox63.Text = a * CDec(((1 / (Val(TextBox33.Text) / 100)) + CDec(1 / (Val(TextBox34.Text) / 100) - 2)))

---

Mais aucune résultat la valeur dans le textbox63 est toujours zero alors que dans le textbox32 ça s'affiche sans ou avec le cdec

au fait lorsque la valeur s'approche de zero il affiche zero mais lorsque si c'est superieur à 1 il affiche avec la virgule normalement

Bonjour,

Avant tout, je sais pas si tu compte maintenir ton code dans le temps,
mais je pense que tu devrais faire un effort au niveau du code.

TextBox32,TextBox33,TextBox34, ...
C'est impossible a maintenir dans le temps ça.

Met 2-3 commentaires pour expliquer ce que tu fais,
et renomme les objets.
ex: txta, txtCoeff, txtResultat, lblTitre...

Ensuite pour ton problème essaye de faire un débogage manuelle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

If e.KeyChar = Chr(13) Then ' Décalarion des varibles Dim a As Decimal ' ?? Dim Value1 as Decimal 'Variables de Test Dim Value2 as Decimal 'Variables de Test Dim Value3 as Decimal 'Variables de Test Dim Resultat1 as Decimal 'Variables de Test   ' Chargement des valeurs Value1 = CDec(Val(TextBox31.Text)) Value2 = CDec((Val(TextBox33.Text))/100 Value3 = CDec((Val(TextBox34.Text))/100   ' Calculs a = Value1 * Value2 * Value3 Resultat1 = a * ( 1/Value1 + 1/Value2 - 2)   ' Affichage des résultats TextBox32.Text = a TextBox63.Text = Resultat1

---

voila, le code les pas claire, je sais pas pourquoi tu fais ce calcul,
mais commente un peu, c'est horrible de voir ça aujourd'hui 8O

Code:

---

CDec(Val(TextBox31.Text))

---

Voir ça !!!

On dirait du VB6.

Utiliser

Code:

---

decimal.TryParse

---

ou

Code:

---

decimal.Parse

---