Addition plusieur fois avec TextBox KeyPress

Version imprimable

1 pièce(s) jointe(s)

Bonjour Forum
Bonjour tout le monde
SVP .. j'ai besoin d'aide pour resoudre ce probleme
j'ai 3 TextBox ( TextBox1,TextBox2,TextBox3 )
Je veux lorsque je tape un chiffre dans TextBox2 .. avec la touche ENTER s'ajoutera automatiquement la somme ( TextBox1 + TextBox2 ) .. meme si je repete plusieurs chiffres .. toujours s'affichera la somme automatiquement ..
Dans cet exemple :
Pièce jointe 555150
La somme affichee dans TextBox3 est 8.99
La somme affichee dans TextBox2 est 12.97
Alors si j'ecris ce chiffre (12.97) et je tape la touche ENTER s'affichera automatiquement dans TextBox3 la somme ( 21.96 )
Ensuite je tape dans TextBox2 comme exemple le chiffre ( 45.87 ) .. avec ENTER s'affichera dans TextBox3 la somme ( 67.83 ) et ainsi de suite
J'ai essaye avec ce code mais malheureusement ne fonctionne pas correctement :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public Class Form1 Dim Ccounter As Double = 0 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged TextBox3.Text = Val(TextBox1.Text) End Sub Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress If Asc(e.KeyChar) = Keys.Enter Then Me.TextBox3.Clear() Ccounter += Convert.ToDouble(Me.TextBox2.Text) Me.TextBox3.Text = Ccounter Me.TextBox2.Clear() End If End Sub End Class
Merci beaucoup d'avance pour l'aide
Amicalement
MADA

Salut
:koi:

Code:

1
2
3
4
5
6
7
    Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
        If Asc(e.KeyChar) = Keys.Enter Then
            Ccounter = Convert.ToDouble(Me.TextBox2.Text) + Convert.ToDouble(Me.TextBox1.Text)
            Me.TextBox3.Text = Ccounter
            Me.TextBox2.Clear()
        End If
    End Sub

:calim2: ou j'ai pas compris :aie:

11/04/2020, 12h58
MADA BLACK

Salut cher ProgElect
Merci beaucoup pour l'aide
Oui ca fonctionne tres bien .. mais simplement pour l'addition a la premiere fois .. mais la deuxieme KeyPress ne s'additionne pas correctement
Merci beaucoup
Cordialement
MADA

Salut Mada,

Le code suivant devrait te convenir.
Comme ProgElect, c'est si j'ai bien compris ... :D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    Dim Ccounter As Double = 0
 
    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
        TextBox3.Text = Ccounter + CType(TextBox1.Text, Double)
    End Sub
 
    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles TextBox2.KeyPress
        If Asc(e.KeyChar) = Keys.Enter Then
            TextBox3.Text = Ccounter + CType(TextBox2.Text, Double)
        End If
     TextBox2.Clear  ' facultatif
    End Sub
 
    Private Sub TextBox3_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox3.TextChanged
        Ccounter = CType(TextBox3.Text, Double)
    End Sub

Bonjour Phil Rob
Bonjour Maitre
Tres tres gentil de votre part
C'est exactement ce que je veux voir et avoir comme idee .. sauf une petite remarque .. j'ai voulu apres chaque operation ( ENTER ) .. TextBox2 sera vide (Empty)
Car avec votre code il faut supprimer cette ligne pour qu'il fonctionne tres bien .. et si je laisse cette ligne ( TextBox2.Clear ' facultatif ) je ne peux pas ecrire dans TextBox2
NB : Parfaitement resolu .. grace a votre impeccable solution j'ai simplement deplace cette ligne ici :
Code:

1 2 3 4 Private Sub TextBox3_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox3.TextChanged Ccounter = CType(TextBox3.Text, Double) TextBox2.Clear() ' facultatif End Sub
Merci beaucoup d'avance pour l'aide
Cordialement
MADA

11/04/2020, 21h33
Phil Rob

J'avais effectivement mis la ligne TextBox2.Clear à la mauvaise place.
Je devais la mettre à l'intérieur du bloc If pour qu'elle ne soit exécutée qu'après un <Enter>.
Mais ta correction est aussi bien.

Désolé pour l'erreur.
Merci pour le feedback.

Très bon week-end :D