Probleme visual basic

Fermé

amine_maximus Messages postés 4 Date d'inscription jeudi 7 juin 2012 Statut Membre Dernière intervention 8 juin 2012 - 7 juin 2012 à 18:12
Yoda - 8 juin 2012 à 09:18

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

A voir également:

Probleme visual basic
Visual basic - Télécharger - Langages
Visual basic editor - Télécharger - Langages
Microsoft 365 basic - Accueil - Microsoft Office
Visual petanque - Télécharger - Sport
Microsoft visual c++ runtime - Guide

5 réponses

Réponse 1 / 5

bouchrot Messages postés 351 Date d'inscription mercredi 12 octobre 2011 Statut Membre Dernière intervention 2 janvier 2023 6
7 juin 2012 à 18:43

ton programme fait quoi au juste?

Réponse 2 / 5

amine_maximus Messages postés 4 Date d'inscription jeudi 7 juin 2012 Statut Membre Dernière intervention 8 juin 2012
7 juin 2012 à 18:51

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

Réponse 3 / 5

bouchrot Messages postés 351 Date d'inscription mercredi 12 octobre 2011 Statut Membre Dernière intervention 2 janvier 2023 6
7 juin 2012 à 22:30

alors écris nous le code pour le voir

Réponse 4 / 5

amine_maximus Messages postés 4 Date d'inscription jeudi 7 juin 2012 Statut Membre Dernière intervention 8 juin 2012
8 juin 2012 à 00:29

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

Yoda
8 juin 2012 à 09:18

Bonjour,

La fonction CType est utilisée pour changer un int en long, ou un long en date... Pour les strings il faut utiliser la fonction Val.

Dim a as Double
a = Val(TextBox4.Text)

;)

Discussions similaires

Site de confiance ou non ?

Bonjour,
J'ai passé commande pour des lunettes de soleil ce dimanche sur un site optique espagnol :https://www.visual-click.com/ Le paiement était sécurisé (https://, cadenas), j'ai même confirmé le paiement grâce à un code envoyé sur mon téléphone portable. Le règlement s'est fait via BBVA, une banque espagnole apparemment. J'ai également fait un Impr écran et imprimé la preuve du paiement. Néanmoins, je n'ai pas reçu de confirmation par mail et je ne peux pas suivre le colis. Le montant de ma commande, qui s'élève à 127.80€ a déjà été débité. Du coup, je voulais avoir quelques avis sur ce site, si d'après-vous, j'ai raison de m'inquiéter ou pas...
Cordialement, <...

Microsoft Visual C++ ? C'est quoi ?

Bonjour,

J'aurai une petite question, à quoi sert "Microsoft Visual C++" ?

Merci d'avance,
Bonne soirée

Quentin AGT

Configuration: Windows / Chrome 65.0.3325.181

Info visual-click.com

Bonjour,
J'aurais voulu savoir, suite à votre commande sur le site visual-click.com si, au final vous avez reçu votre colis, car j'avais envie de passer commande mais j'ai peur des arnaques!
Merci de votre réponse
Cordialement
Monts59