Faire un calcul meme si textbox videRésolu

Question

bonjour
j'ai se code dans un textbox pour calculer un prix.
mais comment faire le calcul meme si un des textbox et vide,car la ça me fait des erreurs 
de calcul

PrivateSub txbPrixR‚el_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txbPrixR‚el.TextlblPrixtot.Text = CDbl(txbPrixR‚el.Text) - CDbl(txbCommune.Text) - CDbl(txbAutreCE.Text) - CDbl(txbCafBV.Text) - CDbl(txbMSA.Text) & " ?"

EndSub

merci
petchy

cs_stevbzh · Accepted Answer

Il me semble que le principal problème soit que ta condition s'active lorsque le texte de ton textbox change, or ici tu le laisse vide. Malgré tout si cela marche, je vois deux solution:

 - tu met 0 en valeur par défaut de ton textbox
 - contrôle : if tonTextBox .text is nothing   (ou tonTextBox.text = "") then
                        tonTextBox.text = 0
                  end if

dernière chose: vérifie que tu puisse calculer à partir de valeur "string", si ce n'est pas le cas Float est ton ami !

Stevbzh

cs_stevbzh · Answer

je m'excuse je n'avais pas vu le Cdbl, reste sur la première idée !

PCPT · Answer

salut,
CDBL ne fonctionne pas sur un vide, seul VAL sait le faire mais ne prend pas les décimaux

tu peux donc te faire ta fonction perso

    Function mCDbl(ByRef oTBox As TextBox) As Double
        If (oTBox Is Nothing) OrElse (oTBox.Text.Length = 0) Then
            Return 0.0#
        Else
            Return Convert.ToDouble(oTBox.Text)
        End If
    End Function

plus qu'à remplacer :
lblPrixtot.Text = String.Format("{0} €", mCDbl(txbPrixR, el.Text) - mCDbl(txbCommune.Text) - mCDbl(txbAutreCE.Text) - mCDbl(txbCafBV.Text) - mCDbl(txbMSA.Text))

ps : tu es sûr que tu as un control nommé 

txbPrixR,el

  ?...

 
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_petchy · Answer

Re


PCPT j'essaye d'appliquer ton code,car cela m'éviterais de mettre du code en plus,en mettant "if textbox ="" then........."
mais j'ai une erreur








Une valeur de type 


'String' ne peut pas etre convertie en 'System.Windows.Forms.TextBox'.

petchy

PCPT · Answer

oups ma faute oui, j'ai voulu aler trop vite. çà saute aux yeux pourtant 

dans ta ligne d'appel (

lblPrixtot.Text =...

), enlève tous les ".text"

PCPT · Answer

ou l'inverse hein....





    Function mCDbl(ByRef sString As String) As Double
        If 


sString


.Length = 0 Then
            Return 0.0#
        Else
            Return Convert.ToDouble(


sString)




        End If
    End Function

cs_petchy · Answer

super,merci
@ plus
petchy

Faire un calcul meme si textbox vide

7 réponses

Votre réponse