Probleme visual basic
amine_maximus
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
Yoda -
Yoda -
Bonjour,
j'ai un probleme lorsque j'execute mon programme vb au niveau de form15.showdialog() , il apparait un message d'erreur :Une erreur s'est produite lors de la création du formulaire. Pour plus d'informations, consultez Exception.InnerException. L'erreur est : La conversion de la chaîne "" en type 'Double' n'est pas valide.
De l'aide svp
j'ai un probleme lorsque j'execute mon programme vb au niveau de form15.showdialog() , il apparait un message d'erreur :Une erreur s'est produite lors de la création du formulaire. Pour plus d'informations, consultez Exception.InnerException. L'erreur est : La conversion de la chaîne "" en type 'Double' n'est pas valide.
De l'aide svp
A voir également:
- Probleme visual basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
5 réponses
fait le calcul des resultat a partir des valeurs initiales , mais j'utilise ces valeurs et resultats dans des des des differents formulaires a l'aide de Form8.textbox1.text par exemple
le code du menu principale:
Public Class Form22
Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Form5.ShowDialog()
End Sub
Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Form18.ShowDialog()
End Sub
Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form3.ShowDialog()
End Sub
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form6.ShowDialog()
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form7.ShowDialog()
End Sub
Le code du menu du form 15 ou se passe l'erreur :
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged, TextBox4.VisibleChanged
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim f As Double
Dim g As Double
a = CType(Form11.TextBox2.Text, Double)
b = CType(Form7.TextBox4.Text, Double)
c = CType(Form7.TextBox3.Text, Double)
f = CType(Form10.TextBox1.Text, Double)
d = (c + f / 100) / (4.44 * 50 * b * a)
g = Int(d) + 1
TextBox4.Text = g
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged, TextBox5.VisibleChanged
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim f As Double
Dim g As Double
Dim h As Double
Dim lsp1 As Double
Dim les1 As Double
Dim nc As Double
Dim ldc As Double
Dim i As Double
Dim j As Double
Dim k As Double
Dim l As Double
Dim dn As Double
a = TextBox4.Text
b = CType(Form16.TextBox6.Text, Double)
c = CType(Form14.TextBox3.Text, Double)
d = Int(b / (1.03 * c))
nc = a / d
f = Int(c)
g = CType(Form16.TextBox1.Text, Double)
h = CType(Form16.TextBox2.Text, Double)
ldc = lsp1 + f * 8 * 1.03 * c
lsp1 = 2 * (g + h + 6 + 1.03 * c)
If nc = f Then
les1 = d * (f * lsp1 + 8 * 1.03 * c * (f / 2) * (f - 1))
TextBox5.Text = les1
ElseIf nc > f Then
les1 = d * (f * lsp1 + 8 * 1.03 * c * (f / 2) * (f - 1)) + a - f * d
TextBox5.Text = les1
End If
i = CType(Form6.textbox1.Text, Double)
j = CType(Form7.TextBox4.Text, Double)
k = CType(Form9.TextBox1.Text, Double)
l = i / (j * k)
dn = ((l * 4) / 3.14)
TextBox6.Text = 1.8 * 10 ^ 8 * les1 * 4 / (dn ^ 2 * 3.14)
TextBox1.Text = ldc
TextBox2.Text = 1.03 * c
TextBox3.Text = b - (a - f * d) * 1.03 * c
End Sub
Public Class Form22
Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Form5.ShowDialog()
End Sub
Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Form18.ShowDialog()
End Sub
Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form3.ShowDialog()
End Sub
Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form6.ShowDialog()
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form7.ShowDialog()
End Sub
Le code du menu du form 15 ou se passe l'erreur :
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged, TextBox4.VisibleChanged
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim f As Double
Dim g As Double
a = CType(Form11.TextBox2.Text, Double)
b = CType(Form7.TextBox4.Text, Double)
c = CType(Form7.TextBox3.Text, Double)
f = CType(Form10.TextBox1.Text, Double)
d = (c + f / 100) / (4.44 * 50 * b * a)
g = Int(d) + 1
TextBox4.Text = g
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged, TextBox5.VisibleChanged
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim f As Double
Dim g As Double
Dim h As Double
Dim lsp1 As Double
Dim les1 As Double
Dim nc As Double
Dim ldc As Double
Dim i As Double
Dim j As Double
Dim k As Double
Dim l As Double
Dim dn As Double
a = TextBox4.Text
b = CType(Form16.TextBox6.Text, Double)
c = CType(Form14.TextBox3.Text, Double)
d = Int(b / (1.03 * c))
nc = a / d
f = Int(c)
g = CType(Form16.TextBox1.Text, Double)
h = CType(Form16.TextBox2.Text, Double)
ldc = lsp1 + f * 8 * 1.03 * c
lsp1 = 2 * (g + h + 6 + 1.03 * c)
If nc = f Then
les1 = d * (f * lsp1 + 8 * 1.03 * c * (f / 2) * (f - 1))
TextBox5.Text = les1
ElseIf nc > f Then
les1 = d * (f * lsp1 + 8 * 1.03 * c * (f / 2) * (f - 1)) + a - f * d
TextBox5.Text = les1
End If
i = CType(Form6.textbox1.Text, Double)
j = CType(Form7.TextBox4.Text, Double)
k = CType(Form9.TextBox1.Text, Double)
l = i / (j * k)
dn = ((l * 4) / 3.14)
TextBox6.Text = 1.8 * 10 ^ 8 * les1 * 4 / (dn ^ 2 * 3.14)
TextBox1.Text = ldc
TextBox2.Text = 1.03 * c
TextBox3.Text = b - (a - f * d) * 1.03 * c
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question