Pb de calcul

Version imprimable

Voir 40 message(s) de cette discussion en une page

Pb de calcul

Salut, j'ai un pb de calcul d'un montant. Je vous explique : j'ai un champ "montant du contrat", un champ "réalisation du 1er trimestre", un champ "total réalisation" et un champ "reste à payer". Je veux que lorsque je met un montant au niveau du champ "réalisation du 1er trimestre" il me met automatiquement le montant du "reste à payer" (reste à payer = montant du contrat - total réalisation) tout en respectant les chiffres après la virgule. voici mon code :
Code:

1 2 3 4 5 6 7 8 9 Private Sub Txtrea1ertrim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtrea1ertrim.TextChanged Txtrea1ertrim.Text = Txtrea1ertrim.Text.Replace(".", ",") Txtrea1ertrim.Select(Txtrea1ertrim.Text.Length, 0) Dim r As Double r = Val(Txtmontantc.Text) - Val(Txttotalrea.Text) Dim res As [Decimal] = (r) Txtresteapayer.Text = res.ToString End Sub
Mais ca ne marche pas :(

06/06/2007, 16h15
Slumpy

Salut,

suis surement pas le mieux placer pour te repondre car je suis suis quiche :aie: . Mais je pense que tu ne peux pas faire d operation sur tes .text ils te faut declarrer des variables, leur affecter les valeurs contenues dans les textbox et faire les operations sur c variables.

Mais je dis ptet une grosse connerie :aie:
06/06/2007, 16h26
loverdev

Même en utilisant des variables au lieu des textbox ça ne marche pas:(
06/06/2007, 16h33
Pol63

j'ai pas compris où tu bloques, c'est quoi qui ne marche pas ?
sinon decimal est mieux que double
cdec est mieux que val

=> dim valeur as decimal = cdec(str1) - cdec(str2)
si tu veux fixer le nombre de chiffres après la virgule utilise format
textboxresultat = format(valeur,monformat)

si tu veux arrondir avant le calcul : cdec(round(cdec(str1)))
round est dans system.math

Voilà ce que j'ai essayé de faire :

Code:

1
2
3
4
5
6
7
 
Private Sub Txtrea1ertrim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtrea1ertrim.TextChanged
        Txtrea1ertrim.Text = Txtrea1ertrim.Text.Replace(".", ",")
        Txtrea1ertrim.Select(Txtrea1ertrim.Text.Length, 0)
        Dim resultat As [Decimal] = CDec(Txtmontantc.Text) - CDec(Txttotalrea.Text)
        Txtresteapayer.Text = resultat.ToString
    End Sub

Mais il me sort un msg d'erreur au niveau de :

Code:

1
2
 
 Dim resultat As [Decimal] = CDec(Txtmontantc.Text) - CDec(Txttotalrea.Text)

Le msg d'erreur est le suivant : "La conversion de la chaîne " " en type 'Decimal' n'est pas valide":(

C'est bon j'ai trouvé mon erreur :mrgreen:
Voici le code après correction :

Code:

1
2
3
4
5
6
7
8
9
 
 Private Sub Txtrea1ertrim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtrea1ertrim.TextChanged
        Txtrea1ertrim.Text = Txtrea1ertrim.Text.Replace(".", ",")
        Txtrea1ertrim.Select(Txtrea1ertrim.Text.Length, 0)
        Dim r As [Decimal] = CDec(Txtmontantc.Text)
        Dim res As [Decimal] = CDec(Txtrea1ertrim.Text)
        Dim resultat As [Decimal] = CDec(r) - CDec(res)
        Txtresteapayer.Text = resultat.ToString
    End Sub

Merci à tous:king:

06/06/2007, 20h12
Aspic

Encore des erreurs des conversions je te conseille de mettre le options strict et explicit sinon tu va te planter tout le temps...

Sinon pourquoi des crochets autour de Decimal 8O :roll:
07/06/2007, 08h08
Pol63

et pourquoi des replaces et autre trims ? ptete que cdec s'occupe de tout ...

et faire une interception d'erreur aussi, si ce qui est tapé n'est pas un nombre ...

Tien je t'es corrigé ton code si tu veux car c'est vraiment bizarre et pas optimisé :

Code:

1
2
3
4
5
6
7
Private Sub Txtrea1ertrim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtrea1ertrim.TextChanged
        Txtrea1ertrim.Text = Txtrea1ertrim.Text.Replace(".", ",")
        Dim r As Decimal = CDec(Txtmontantc.Text)
        Dim res As Decimal = CDec(Txtrea1ertrim.Text)
        Dim resultat As Decimal = r - res 'deja en decimal donc pas besoin de "Cdec"
        Txtresteapayer.Text = resultat.ToString 'affiche le resultat en String
    End Sub

En esperant t'avoir aidé un peu .

07/06/2007, 08h37
SaumonAgile

Pourquoi cette ligne :

Code:

Txtrea1ertrim.Text = Txtrea1ertrim.Text.Replace(".", ",")

Je veux dire, si l'utilisateur veut saisir des points comme séparateur décimal, c'est son droit. C'est à toi de gérer la culture et la langue de ton application.
ça ne te viendrait pas à l'idée de forcer le clavier d'un utilisateur allemand à se comporter comme un clavier AZERTY ? non ? Et bien pourquoi le forcer à saisir des virgules ?
07/06/2007, 11h19
Aspic

C'est a cause du Decimal, je pense qu'il n'accepte que les nombres avec des virgules et non des points...

De toute maniere il devrais faire une vérification de la saisie de l'utilisateur dans un try catch car si je tape "Cool" dans son champs ca va planter completement.
07/06/2007, 11h24
loverdev

A quel niveau je met le try catch et qu'est ce que je doit mettre au niveau du try catch? pouvez vous me donner un exemple?

C'est bon j'ai trouvé! Voila ce que j'ai mis :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub Txtmontantc_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtmontantc.TextChanged
 
        Try
            Txtmontantc.Text = Txtmontantc.Text.Replace(".", ",")
            Txtmontantc.Select(Txtmontantc.Text.Length, 0)
            If Txtmontantc.Text = "" Then
                Txtmontantc.Text = ""
                Txtresteapayer.Text = ""
            Else
                Dim resultat As [Decimal] = CDec(Txtmontantc.Text)
                Txtresteapayer.Text = resultat.ToString
            End If
        Catch ex As Exception
            MsgBox("Vous devez siair une valeur monétaire")
        End Try
    End Sub

Citation:
Envoyé par loverdev
C'est bon j'ai trouvé! Voila ce que j'ai mis :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Txtmontantc_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtmontantc.TextChanged Try Txtmontantc.Text = Txtmontantc.Text.Replace(".", ",") Txtmontantc.Select(Txtmontantc.Text.Length, 0) If Txtmontantc.Text = "" Then Txtmontantc.Text = "" Txtresteapayer.Text = "" Else Dim resultat As [Decimal] = CDec(Txtmontantc.Text) Txtresteapayer.Text = resultat.ToString End If Catch ex As Exception MsgBox("Vous devez siair une valeur monétaire") End Try End Sub
le try catch est surtout fait pour les lignes pouvant générer des erreurs
en l'occurence les cdec() avec une chaine de caractère vide, pas le reste
donc tu replaces ta virgule si tu veux
puis try transformations en decimal
catch
exit sub
end try
machin = r - r2

sur le catch ne fait pas de msgbox car tu es sur un evenement textchanged, l'utilisateur a ptete pas fini de taper son nombre
par contre tu peux bloquer des boutons qui font le traitement vu que c'est pas encore un nombre et débloquer une fois que c'est bon

sinon quand on veut un nombre dans un textbox, on interdit à l'utilsateur de taper autre chose qu'un nombre ... (masquedtextbox y parrait)

07/06/2007, 13h32
loverdev

Pouvez vous me l'expliquer d'avantage par un exemple SVP:oops:
07/06/2007, 13h41
Pol63

dequoi donc ? le filtre sur le textbox pour avoir que des nombres ?
07/06/2007, 13h49
loverdev

Un exemple de ce que vous avez dis precedemment:oops:

Citation:

Envoyé par loverdev

C'est bon j'ai trouvé! Voila ce que j'ai mis :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub Txtmontantc_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtmontantc.TextChanged
 
        Try
            Txtmontantc.Text = Txtmontantc.Text.Replace(".", ",")
            Txtmontantc.Select(Txtmontantc.Text.Length, 0)
            If Txtmontantc.Text = "" Then
                Txtmontantc.Text = ""
                Txtresteapayer.Text = ""
            Else
                Dim resultat As [Decimal] = CDec(Txtmontantc.Text)
                Txtresteapayer.Text = resultat.ToString
            End If
        Catch ex As Exception
            MsgBox("Vous devez siair une valeur monétaire")
        End Try
    End Sub

je ne comprends pas l'utilité de ce code
tu mets le contenu d'un textbox dans un autre
donc pas besoin de le transformer en nombre nom ca tient en une ligne : Txtresteapayer.Text = Txtmontantc.Text

07/06/2007, 13h59
loverdev

C'est pour que ce champ de text prend la valeur saisie en respectant les virgules :)

Pas besoin de MasterTextBox...

Code:

1
2
3
4
5
6
7
8
9
   Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        Dim chaine As String = "0123456789 .," 'autorise les chiffre de 0 a 9 et le point et la virgule
 
        If Not chaine.IndexOf(e.KeyChar) <> -1 Then 'c'est pas un chiffre
            If Not Asc(e.KeyChar) = 8 Then 'c'est pas non plus la touche DEL
                e.KeyChar = ChrW(0) 'annule la saisie
            End If
        End If
    End Sub

Et voila l'utilisateur ne pourras entrer que des chiffres et points plus virgules...

Voir 40 message(s) de cette discussion en une page