Discussion :

[ahmedpa]

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 :

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

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 !

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

[ahmedpa]

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 ?

[calagan99]

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.

[AcidLines]

Code :

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

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

[ahmedpa]

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

Code :

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

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

[ahmedpa]

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

[hunteshiva]

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 :

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

[Bluedeep]

Code :

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

CDec(Val(TextBox31.Text))

Voir ça !!!

On dirait du VB6.

Utiliser

Code :

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

decimal.TryParse

ou

Code :

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

decimal.Parse