je travaille avec le cours "lasserre" de vb.net
X.Text = ValX.ToString("0.00")
X.Text = format(ValX,"0.00")
X.Text = ValX.ToString("0.00")
X.Text = "0.00"
X.Text = ""
quelle est la syntaxe pour ValX ??? Cdbl("") ??
VariableDouble = CDbl(Textbox1.text) ' A condition que ce soit une chaîne qui converti puisse être accepté par la variable, par exemple si tu veux convertir "a" en double ça ne mrchra pas comme ça...
Re HeyJoe
SE n'est rien, c'est une erreur de frappe, en fait SE = A
quant au .valC, c'est parce que ce bout de code etait dans une structure with
c'est valB qui aurait du avoir un . devant
Public Class form1 Private ValA As Double 'je dim mes variables Private ValB As Double Private ValC As Double Private ValD As Double Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load A.Text = Form2.ValZ.ToString("0.00") ' A est la recopie d'une textbox Z de form2 B.Text = Form2.ValY.ToString("0.00") ' B est la recopie d'une textbox Y de form2 C.Text = ""'Au lancement les textbox sont vides D.Text = "" End Sub Private Sub Calcul() 'Calcul en fonction de A If valA <= 0 Then valC = 0' La textbox devrait rester vide mais quoi mettre ? C.Text = valC.ToString("0.00") 'Affichage de C valD = 0 La textbox devrait rester vide mais quoi mettre ? D.Text = valD.ToString("0.00") 'Affichage de D End If If valA > 0 Then valC = valB - valA C.Text = valC.ToString("0.00") 'Affichage de C valD -(valC / 2) 'calcul de D -C / 2 D.Text = valD.ToString("0.00") 'Affichage de D End If End Sub Private sub buttoncalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttoncalculate.Click Calcul() ' j'appelle calcul End Sub End Class
Private Sub Calcul() 'Calcul en fonction de A If valA > 0 Then valC = valB - valA C.Text = valC.ToString("0.00") 'Affichage de C valD -(valC / 2) 'calcul de D -C / 2 D.Text = valD.ToString("0.00") 'Affichage de D Else valC = 0' La textbox devrait rester vide mais quoi mettre ? C.Text = valC.ToString("0.00") 'Affichage de C valD = 0 La textbox devrait rester vide mais quoi mettre ? D.Text = valD.ToString("0.00") 'Affichage de D End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionpar contre au calcul ca ne marche pas, mon valC et mon ValD sont TOUJOURS egaux a zero meme quand valA >>> 0
Moi je te calcule un adressage IP en qq secondes
T'as toujours pas compris le sens de ma question répétitive depuis 15 jours ?
Envoie moi ton code en dossier zipé, avec ton adresse, je vais voir directement (via mon site si besoin, y a des contacts en bas).
mes erreurs d'un vieux debutant feneant de 50 ans
? d'utiliser la gentillesse débordante de EhJoe pour te faire le programme ?
(plus d'un an), les conversions de type : ça ne rentre pas !
Décidément, depuis le temps (plus d'un an), les conversions de type : ça ne rentre pas !
le besoin passager d'un code dont on n'aura plus l'utilité