un double, ne peut pas contenir une chaine (string), je dois convertir Mon textboxC (textboxC.Text) en chaine
Option Explicit On Public Class Form1 Public ValA, ValB, ValC, ValSE As double . Private Sub Form1.Load ..... TextBox1.text = "" ' fait ceci... TextBox2.text = "" ' fait cela... TextBox3.text = "" ' fait ça... End Sub
sub buttoncalcul.clic ...... ' attribue des valeurs valA = cdbl(TextBox1.text) valB = cdbl(TextBox2.text) valC = cdbl(TextBox3.text) valSE = ??? calcul() End Sub
sub calcul() ' calcule les valeurs... valA = (valB / 2) + valC TextBox1.text = format(valSE,"0.00") End Sub End Class
Option Explicit On Public Class Form1 Dim ValA As Double = 0 Dim ValB As Double = 0 Dim ValC As Double = 0 Dim ValD As Double = 0 Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load A.Text = Format(Form2.valZ, "0.00") ' textbox Z ValA = Form2.valZ B.Text = Format(Form2.valY, "0.00") ' textBox Y ValB = Form2.valY C.Text = "" D.Text = "" End Sub Sub buttoncalculate_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttoncalculate.Click Call Calcul() End Sub Sub Calcul() If ValA > 0 Then ValC = ValB - ValA C.Text = Format(ValC, "0.00") ValD = ValC / 2 D.Text = Format(ValD, "0.00") Else ValC = 0 C.Text = "0.00" D.Text = "0.00" End If End Sub End Class
Option Explicit On Public Class Form2 Public valY As Double = 16 Public valZ As Double = -10 End Class
msgbox("valA " & valA & vblf & "valB " & valB & vblf & "valC = " & valC & vblf & "valD = " & valD & vblf & "Form2.valY = " & valY & vblf & "Form2.valZ = " & valZ, vbinformation)
Private Sub A_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles A.KeyUp A.Text = Replace(A.Text, ",", ".") For Each Caractere In A.Text If IsNumeric(Caractere) = False And Caractere <> "." Then A.Text = A.Text.Remove(A.TextLength - 1) End If Next A.SelectionStart = A.TextLength C.Text = Val(A.Text) + Val(B.Text) End Sub Private Sub B_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles B.KeyUp B.Text = Replace(B.Text, ",", ".") For Each Caractere In B.Text If IsNumeric(Caractere) = False And Caractere <> "." Then B.Text = B.Text.Remove(B.TextLength - 1) End If Next B.SelectionStart = B.TextLength C.Text = Val(A.Text) + Val(B.Text) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mais après je me mélange complétement les pinceaux avec les Cstr, Tostring et autre Cdbl
System.Convert.ToInt32(dNumber)
system.convert
Public ValA As Double Public ValB As Double Public ValC As Double . . valA = (valB / 2) + .valC A.Text = valSE.ToString("0.00")
J'ai 3 textbox A B C
Les Valeurs contenues dans A B C seront des Doubles
La valeur contenue dans le textbox A sera = Valeur contenue dans le textboxB divisee par 2 + Valeur contenue dans le textboxC
Apres je ne comprends pas le pourquoi du
A.Text = valSE.ToString("0.00")
Public Class Form1 Public ValA, ValB, ValC As double . Private Sub Form1.Load ..... A.Text = "" B.Text = "" C.Text = "" End Sub Private sub calcul() valA = (valB / 2) + .valC A.Text = valSE.ToString("0.00") End Sub Private sub buttoncalcul.clic ...... calcul() End Sub End Class
Je ne vois pas ce que tu demandes ucfoutu surtout si tu me rales dessus
1) où et comment sont mises à jour les variables ValA et ValB ?
J'ai 3 textbox A B C
Les Valeurs contenues dans A B C seront des Doubles
La valeur contenue dans le textbox A sera = Valeur contenue dans le textboxB divisee par 2 + Valeur contenue dans le textboxC
dim aa as double = 0 dim bb, cc as double bb = cdbl(B.text) cc = cdbl(C.text) if bb <> 0 then aa = bb / cc A.text = aa
La valeur contenue dans le textbox A sera = Valeur contenue dans le textboxB divisee par 2 + Valeur contenue dans le textboxC
valA = (valB / 2) + .valC
A.Text = valSE.ToString("0.00")
A.text = format(valSE,"0.00")
If ValA =< 0 Then ValX = ValA + ValB X.Text = ValX.ToString("0.00") End If If ValA > 0 Then ValX = ' la je veux que ValX ne soit rien du tout c'est a dire que la textbox contenant la valeur soit vide X.Text = ValX.ToString("0.00") End If