calcul mathematique dans textbox

Version imprimable

22/10/2012, 20h24
zitoune31

calcul mathematique dans textbox
bonjour ou bonsoir,

j'essaye de réaliser un relever de compte bancaire sommaire
je sélectionne a laide d'un combobox l'intituler de mon opération puis dans un textbox le montant de celle-ci et j'aimerai savoir la méthode à utiliser afin que dans mon textboxRESULTAT s'affiche l'addition de mes textbox.text.

mon exemple :
Code:

1 2 TextBoxTOTAL.Text = (TextBoxMOISPRECEDENT.Text + TextBoxPAIEMENT1.Text + TextBoxPAIEMENT2.Text + TextBoxPAIEMENT3.Text)
cette méthode fonction mais le résultat n'est pas l'addition de mes textbox :cry:
explication dans cette méthode :
si dans mon textboxMOISPRECEDENT.text j'entre la somme : 100
puis dans mon TextBoxPAIEMENT1.Text la somme : 800
le résultat de mon textboxRESULTAT.text est : 100800
j'aimerai qu'il affiche l'addition de mes deux sommes donc à savoir : 900
j'espère avoir réussis a bien expliquer mon problème ainsi que ma demande ?!
merci de votre aide
cdlt
olivier
22/10/2012, 20h32
Vince

Là tu concatène le contenu de tes textboxes.

Si tu veux faire la somme tu dois faire :

Code:

TextBoxTOTAL.Text = CStr(CInt(TextBoxMOISPRECEDENT.Text) + CInt(TextBoxPAIEMENT1.Text) + CInt(TextBoxPAIEMENT2.Text) + Cint(TextBoxPAIEMENT3.Text))

En fait tu converti le texte de chaque TextBox en Entier pour les additionner puis tu converti le tout en chaine (CStr) pour l'assigner dans TextBoxTOTAL qui attend du texte.

Attention cela ne fonctionne que si les valeurs saisies dans les textboxes sont des entiers (CInt), sinon CDbl pour des décimaux. Pense aussi à verrouiller la saisie afin que l'utilisateur ne saisissent par exemple pas des lettres dans les textboxes...
22/10/2012, 20h37
zitoune31

je te remercie de ta réponse si rapide je vais étudier ta réponse et oui merci de l'information pour éviter que l'on puisse entrer des lettres ainsi que pour les décimaux
22/10/2012, 20h46
zitoune31

j'ai tenter d'effectuer ton code mais j'ai une erreur :

l'exceptionInvalidCastException n'a pas été gérer:
la conversion de la chaîne "" en type integer n'est pas valide

faut-il importer autre chose que :
Imports System.Math
?
22/10/2012, 20h49
Vince

C'est parce qu'une de tes Textboxes est vide... Mets 0 comme valeur par défaut dans tes Textboxes.
A toi de bien gérer les saisies utilisateur !

Pour ce calcul tu n'a pas besoin d'import spécifique.

Bonjour,

je te remercie de ton éclaircissement et j'espère que l'on pardonnera mon incompétence ....

je n'ai pas encore trouver le moyen d'empêcher la saisi de lettre dans mes textbox mais je vais mis pencher par la suite.

à l'heure actuel mon code es le suivant
Code:

1 2 3 4 5 6 7 8 9 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBoxTOTAL.Text = CStr(CInt(TextBoxCCPMOISPRECEDENT.Text) + (TextBoxEspeceMOISPRECEDENT.Text) + (TextBoxPAIEMENT1.Text) + (TextBoxPAIEMENT2.Text) + (TextBoxPAIEMENT3.Text)) LabelResteEspece.Text = CStr(CInt(TextBoxEspeceMOISPRECEDENT.Text)) LabelResteCCP.Text = CStr(CInt(TextBoxCCPMOISPRECEDENT.Text) + (TextBoxPAIEMENT1.Text) + (TextBoxPAIEMENT2.Text) + (TextBoxPAIEMENT3.Text)) TextBoxTOTAL.Text = CStr(CDbl(TextBoxCCPMOISPRECEDENT.Text) + (TextBoxEspeceMOISPRECEDENT.Text) + (TextBoxPAIEMENT1.Text) + (TextBoxPAIEMENT2.Text) + (TextBoxPAIEMENT3.Text)) LabelResteEspece.Text = CStr(CDbl(TextBoxEspeceMOISPRECEDENT.Text)) LabelResteCCP.Text = CStr(CDbl(TextBoxCCPMOISPRECEDENT.Text) + (TextBoxPAIEMENT1.Text) + (TextBoxPAIEMENT2.Text) + (TextBoxPAIEMENT3.Text)) End Sub
je ne comprenais pas pourquoi il ne fonctionnais pas depuis hier soir mais je viens de comprendre que le point "." n'est pas accepter il faut une virgule ","
deux questions me vienne a vous demander
vous remerciant par avance de votre lumière :P

1/ comment faire en sorte que le point "." et la virgule "," soit accepter dans mon opération ex:
120.20 + 80 = 200.20 ou 120,20 + 80 = 100
2/ question mon code ci-dessus est-il correct ?

23/10/2012, 13h35
Vince

Citation:

Envoyé par zitoune31

1/ comment faire en sorte que le point "." et la virgule "," soit accepter dans mon opération ex:
120.20 + 80 = 200.20 ou 120,20 + 80 = 100

Tu peux faire un replace du "." par la virgule ou l'inverse :

Code:

CInt(TextBoxCCPMOISPRECEDENT.Text.Replace(".",","))

Ou bloquer la touche ".", ou sur Keypress de la Textbox remplacer le "." par une ","...

Merci encore de ton aide voici mon

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBoxEspeceMOISPRECEDENT.Text = (TextBoxEspeceMOISPRECEDENT.Text.Replace(".", ","))
        TextBoxCCPMOISPRECEDENT.Text = (TextBoxCCPMOISPRECEDENT.Text.Replace(".", ","))
        TextBoxPAIEMENT1.Text = (TextBoxPAIEMENT1.Text.Replace(".", ","))
        TextBoxPAIEMENT2.Text = (TextBoxPAIEMENT2.Text.Replace(".", ","))
        TextBoxPAIEMENT3.Text = (TextBoxPAIEMENT3.Text.Replace(".", ","))
        TextBoxTOTAL.Text = CStr(CInt(TextBoxCCPMOISPRECEDENT.Text) + (TextBoxEspeceMOISPRECEDENT.Text) + (TextBoxPAIEMENT1.Text) + (TextBoxPAIEMENT2.Text) + (TextBoxPAIEMENT3.Text))
        LabelResteEspece.Text = CStr(CInt(TextBoxEspeceMOISPRECEDENT.Text))
        LabelResteCCP.Text = CStr(CInt(TextBoxCCPMOISPRECEDENT.Text) + (TextBoxPAIEMENT1.Text) + (TextBoxPAIEMENT2.Text) + (TextBoxPAIEMENT3.Text))
        TextBoxTOTAL.Text = CStr(CDbl(TextBoxCCPMOISPRECEDENT.Text) + (TextBoxEspeceMOISPRECEDENT.Text) + (TextBoxPAIEMENT1.Text) + (TextBoxPAIEMENT2.Text) + (TextBoxPAIEMENT3.Text))
        LabelResteEspece.Text = CStr(CDbl(TextBoxEspeceMOISPRECEDENT.Text))
        LabelResteCCP.Text = CStr(CDbl(TextBoxCCPMOISPRECEDENT.Text) + (TextBoxPAIEMENT1.Text) + (TextBoxPAIEMENT2.Text) + (TextBoxPAIEMENT3.Text))
    End Sub

de ce fait l'addition s'effectue à merveille que l'utilisateur entre un point "." ou une virgule ",".
D'autre part le verrouillage que tu ma évoquer précédemment concernant l'impossibilité d'entrer des lettres dans mes textbox j'ai réussis à le résoudre de cette manière

Code:

1
2
3
4
5
6
 
Private Sub TextBoxEspeceMOISPRECEDENT_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBoxEspeceMOISPRECEDENT.KeyPress
        If InStr("0123456789.,", e.KeyChar) = 0 And e.KeyChar <> vbBack Then
            e.Handled = True
        End If
    End Sub

le fait es que je suis obliger de l'inscrire dans le keypress de toute mes textbox mais c'est déjà pour moi un avancer.
merci de l'aide je peux pousser le résolu :ccool:

Citation:

Envoyé par Vince

Pense aussi à verrouiller la saisie afin que l'utilisateur ne saisissent par exemple pas des lettres dans les textboxes...
Citation:
Envoyé par zitoune31
le verrouillage que tu ma évoquer précédemment concernant l'impossibilité d'entrer des lettres dans mes textbox j'ai réussis à le résoudre de cette manière
Code:

1 2 3 4 5 6 Private Sub TextBoxEspeceMOISPRECEDENT_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBoxEspeceMOISPRECEDENT.KeyPress If InStr("0123456789.,", e.KeyChar) = 0 And e.KeyChar <> vbBack Then e.Handled = True End If End Sub
le fait es que je suis obliger de l'inscrire dans le keypress de toute mes textbox mais c'est déjà pour moi un avancer.
merci de l'aide je peux pousser le résolu :ccool:
En faite j'ai découvert qu'on pouvais sélectionner dans les propriétés > événements > KeyPress
Résultat je n'est qu'à l'écrire qu'une seul fois et le sélectionner dans mon KeyPress :ccool: Merci encore de ton aide

24/10/2012, 20h50
youtpout978

si ton but n'est de manipuler que des nombres tu as des contrôles spécialisés en windowsform le numeric up down: http://msdn.microsoft.com/fr-fr/libr...vs.100%29.aspx