Calcul erroné !

Version imprimable

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

Calcul erroné !

J'ai un pb. A chaque fois que je saisi un montant au niveau du champ "montant avancé" le calcul automatique des autres champs est juste (txttotalrea, txtmontantpaye et txtresteapayer). Mais quand j'efface le contenu du champ txtmontantavance, le calcul des autres champs est incorrect:?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim mc As [Decimal] = CDec(Txtmontantc.Text)
            Dim total As [Decimal] = CDec(Txttotalrea.Text)
            Dim ma As [Decimal] = CDec(Txtmontantavance.Text)
            Dim var As [Decimal]
            If Txtmontantavance.Text = "" Then
                Exit Sub
                Txtmontantpaye.Text = CDec(Txttotalrea.Text)
                Txtresteapayer.Text = CDec(Txtmontantc.Text) - CDec(Txttotalrea.Text)
            Else
                var = total + ma
                Txtmontantpaye.Text = total + ma
                Txtresteapayer.Text = mc - var
            End If

tu sais ce que fais Exit Sub ?
il sort de la sub

Code:

1
2
3
4
5
6
7
8
9
10
 
If Txtmontantavance.Text = "" Then
                Exit Sub
                Txtmontantpaye.Text = CDec(Txttotalrea.Text)
                Txtresteapayer.Text = CDec(Txtmontantc.Text) - CDec(Txttotalrea.Text)
            Else
                var = total + ma
                Txtmontantpaye.Text = total + ma
                Txtresteapayer.Text = mc - var
            End If

donc tout ce qui est après n'est pas exécuté !!!

tu devrais quand meme lire un tuto dans la partie algorythme des tutoriels (pas dans .net)

18/06/2007, 15h41
loverdev

C'était une faute de frappe:oops: . J'ai enlevé le exit sub et le calcul est tjrs erroné
18/06/2007, 16h16
Pol63

erroné dans le sens 5+3 = 9 au lieu de 8
ou alors tu voudrais que 5 = 8 ?
18/06/2007, 17h14
loverdev

erroné dans le sens 5+3=9
18/06/2007, 17h19
Pol63

c'est impossible, vs sait compter ...
c'est ton code qui doit etre faux

Citation:
Envoyé par loverdev
J'ai un pb. A chaque fois que je saisi un montant au niveau du champ "montant avancé" le calcul automatique des autres champs est juste (txttotalrea, txtmontantpaye et txtresteapayer). Mais quand j'efface le contenu du champ txtmontantavance, le calcul des autres champs est incorrect:?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim mc As [Decimal] = CDec(Txtmontantc.Text) Dim total As [Decimal] = CDec(Txttotalrea.Text) Dim ma As [Decimal] = CDec(Txtmontantavance.Text) Dim var As [Decimal] If Txtmontantavance.Text = "" Then Exit Sub Txtmontantpaye.Text = CDec(Txttotalrea.Text) Txtresteapayer.Text = CDec(Txtmontantc.Text) - CDec(Txttotalrea.Text) Else var = total + ma Txtmontantpaye.Text = total + ma Txtresteapayer.Text = mc - var End If
Ca sens le probleme avec le "Exit Sub"
Mets des espions pour voir quelle ligne exactement plante !

25/06/2007, 09h05
loverdev

J'ai enlevé le exit sub mais ca ne marche toujours pas :?
25/06/2007, 09h59
Aspic

Dans quelle procédure est inseré le code qui tu nous as donné ?

si je sélectionne le checkbox "optoui" le libellé et le textbox de "montant avancé" apparaît sinon il disparaît dans le cas de sélection de "optnon" et il ya réinitialisation des valeurs des montants "txttotalrea", "txtmontantpaye" et "txtresteapayer".

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
 Private Sub Txtmontantavance_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtmontantavance.TextChanged
        If annulation = True Then Exit Sub
        Txtmontantavance.Text = Txtmontantavance.Text.Replace(".", ",")
        Txtmontantavance.Select(Txtmontantavance.Text.Length, 0)
        Try
            If Txtmontantavance.Text = "" Then
                Dim mc As [Decimal] = CDec(Txtmontantc.Text)
                Dim total As [Decimal] = CDec(Txttotalrea.Text)
                Dim ma As [Decimal] = CDec(Txtmontantavance.Text)
                Txtmontantpaye.Text = CDec(Txttotalrea.Text)
                Txtresteapayer.Text = CDec(Txtmontantc.Text) - CDec(Txttotalrea.Text)
            Else
                Dim mc As [Decimal] = CDec(Txtmontantc.Text)
                Dim total As [Decimal] = CDec(Txttotalrea.Text)
                Dim ma As [Decimal] = CDec(Txtmontantavance.Text)
                Dim var As [Decimal]
                var = total + ma
                Txtmontantpaye.Text = total + ma
                Txtresteapayer.Text = mc - (total + ma)
            End If
        Catch ex As Exception
 
        End Try
        If IsNumeric(Txtmontantavance.Text) Then
            Exit Sub
        ElseIf (Txtmontantavance.Text) = "" Then
            Exit Sub
        Else
            MsgBox("Vous devez saisir une valeur monétaire", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
            Txtmontantavance.Text = ""
        End If
    End Sub

et voici le code des checkbox :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Private Sub Optoui_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Optoui.CheckedChanged
        Label14.Visible = True
        Txtmontantavance.Visible = True
        'Txtmontantavance.Text = ""
    End Sub
 
    Private Sub Optnon_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Optnon.CheckedChanged
        Label14.Visible = False
        Txtmontantavance.Visible = False
        If Txtmontantavance.Text <> "" Then
            Dim total As [Decimal] = CDec(Txttotalrea.Text)
            Dim mc As [Decimal] = CDec(Txtmontantc.Text)
            Dim ma As [Decimal] = CDec(Txtmontantavance.Text)
            Txttotalrea.Text = total - ma
            Txtmontantpaye.Text = CDec(Txttotalrea.Text)
            Txtresteapayer.Text = mc - CDec(Txttotalrea.Text)
        End If
        If Txtmontantavance.Text = "" Then
            Dim var As [Decimal]
            Dim total As [Decimal] = CDec(Txttotalrea.Text)
            Dim mc As [Decimal] = CDec(Txtmontantc.Text)
            Txttotalrea.Text = total
            Txtmontantpaye.Text = total
            var = CDec(Txttotalrea.Text)
            Txtresteapayer.Text = mc - var
        End If
    End Sub

25/06/2007, 15h29
loverdev

SVP aidez moi je suis bloqué :cry:
25/06/2007, 16h13
Aspic

Pour dire la vérité je capte pas grand chose à ton code un peu fouilli et c'est pour ca que je n'arrive pas à localiser ton erreur... Peut tu essayer d'expliquer clairement le probleme en précisant les lignes où ca plante !

Je vous explique j'ai un champ et un libellé "montant avancé" qui sont invisibles lors de l'affichage de la form. si je clique sur check box "optoui" le libellé et le champ "montant avancé" deviennent visibles. voici le code du checkbox "optoui" :

Code:

1
2
3
4
5
 
 Private Sub Optoui_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Optoui.CheckedChanged
        Label14.Visible = True
        Txtmontantavance.Visible = True
    End Sub

En cliquant sur le checkbox "optoui", je peux saisir au niveau du champ "montant avance" un montant. En saisissant un montant au niveau de ce champ, le montant de "total réalisé" "montant payé" et "reste à payer" changent puisque :
total réalisé = ancienne valeur de total réalisé + montant avancé
montant payé = total réalisé
reste à payer = montant contrat - montant payé
Maintenant en cliquant sur le checkbox "optnon" le libellé et le champ "montant avancé" deviennent invisibles et la valeur du champ "total réalisé" "montant payé" et "reste à payer" reprennent leur anciennes valeurs.
Voici le code lorsque je clique sur le checkbox "optnon" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub Optnon_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Optnon.CheckedChanged
        Label14.Visible = False
        Txtmontantavance.Visible = False
        If Txtmontantavance.Text <> "" Then
            Dim total As [Decimal] = CDec(Txttotalrea.Text)
            Dim mc As [Decimal] = CDec(Txtmontantc.Text)
            Dim ma As [Decimal] = CDec(Txtmontantavance.Text)
            Txttotalrea.Text = total - ma
            Txtmontantpaye.Text = CDec(Txttotalrea.Text)
            Txtresteapayer.Text = mc - CDec(Txttotalrea.Text)
        End If
        If Txtmontantavance.Text = "" Then
            Dim var As [Decimal]
            Dim total As [Decimal] = CDec(Txttotalrea.Text)
            Dim mc As [Decimal] = CDec(Txtmontantc.Text)
            Txttotalrea.Text = total
            Txtmontantpaye.Text = total
            var = CDec(Txttotalrea.Text)
            Txtresteapayer.Text = mc - var
        End If
    End Sub

Et voici le code du champ "montant avancé" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Private Sub Txtmontantavance_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtmontantavance.TextChanged
        If annulation = True Then Exit Sub
        Txtmontantavance.Text = Txtmontantavance.Text.Replace(".", ",")
        Txtmontantavance.Select(Txtmontantavance.Text.Length, 0)
        Try
            If Txtmontantavance.Text = "" Then
                Dim mc As [Decimal] = CDec(Txtmontantc.Text)
                Dim total As [Decimal] = CDec(Txttotalrea.Text)
                Dim ma As [Decimal] = CDec(Txtmontantavance.Text)
                Txtmontantpaye.Text = CDec(Txttotalrea.Text)
                Txtresteapayer.Text = CDec(Txtmontantc.Text) - CDec(Txttotalrea.Text)
            Else
                Dim mc As [Decimal] = CDec(Txtmontantc.Text)
                Dim total As [Decimal] = CDec(Txttotalrea.Text)
                Dim ma As [Decimal] = CDec(Txtmontantavance.Text)
                Dim var As [Decimal]
                var = total + ma
                Txtmontantpaye.Text = total + ma
                Txtresteapayer.Text = mc - (total + ma)
            End If
        Catch ex As Exception
 
        End Try
        If IsNumeric(Txtmontantavance.Text) Then
            Exit Sub
        ElseIf (Txtmontantavance.Text) = "" Then
            Exit Sub
        Else
            MsgBox("Vous devez saisir une valeur monétaire", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
            Txtmontantavance.Text = ""
        End If
    End Sub

J'ai pas un msg d'erreur qui apparaît mais plutôt les valeurs des champs "total réalisé" "montant payé" et "reste à payer" sont erroné quand je clique sur le checkbox "optnon" pour la 1ere fois. Le voila mon pb :oops: :cry:

25/06/2007, 17h04
Aspic

Vu le code il ne doit pas y avoir d'erreur de codage.

Donc c'est dans tes opérations qu'il y a un probleme. Mets des points d'arret sur les lignes que tu penses etre la cause du probleme et vérfie les valeurs. Sinon tu fais une debogage pas à pas principal et tu trouveras forcement l'erreur. Il faut s'armer de patiente ;)

Bonne chance.
26/06/2007, 09h46
loverdev

Je sais qu'il n'y a pas d'erreur de codage. Mais surement il y a qlq chose de faux dans le contenu que je n'arrive pas a voir:oops: SVP essayez de m'aider a y voir plus clair:(
26/06/2007, 09h49
Pol63

tu sais débugger ?
26/06/2007, 09h53
loverdev

Sperot l'erreur n'est pas dans le code mais dans le contenu du code:( :oops:
26/06/2007, 10h17
Pol63

ca ne veut rien dire le "contenu du code"

quand un code ne fait ce qu'on voulait que ca fasse ca veut dire qu'on a pas écrit le bon code
pour voir ou ca cloche si ca saute pas aux yeux, il faut executer le programme pas à pas touche F11
et regarder les valeurs des variables à chaque ligne
enfin chercher où ca fait le truc qu'on voudrait pas que ca fasse ...
26/06/2007, 10h27
loverdev

Ok je vais suivre votre conseil
26/06/2007, 10h59
Aspic

Citation:

Envoyé par loverdev

Ok je vais suivre votre conseil

Oui il serait peut etre temps de faire un debuggage ! Donc je te conseille avec des points d'arrets mais si tu ne sais pas les utiliser, utilise le pas à pas principale...

Good luck.

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