Discussion :

[amine_maximus]

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.

Merci de m'aider

[tomlev]

Tu essaies de convertir en double une chaine vide, ce qui n'est pas valide. Montre le code de Form15, sinon on ne pourra pas deviner où est le problème.

(et donne des vrais noms à tes fenêtres et contrôles, sinon tu vas jamais t'y retrouver... en général on essaie de faire ça avant d'arriver à 15 )

[amine_maximus]

voici le code de form15:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
 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 = Val(Form11.TextBox2.Text)
 
        b = Val(Form7.TextBox4.Text)
        c = Val(Form7.TextBox3.Text)
        f = Val(Form10.TextBox1.Text)
        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 = Val(Form16.TextBox6.Text)
        c = Val(Form14.TextBox3.Text)
        d = Int(b / (1.03 * c))
        nc = a / d
        f = Int(c)
        g = Val(Form16.TextBox1.Text)
        h = Val(Form16.TextBox2.Text)
        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 = Val(Form6.textbox1.Text)
        j = Val(Form7.TextBox4.Text)
        k = Val(Form9.TextBox1.Text)
        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

[-N4w4k-]

en général on essaie de faire ça avant d'arriver à 15

Haha c'est pas faux

voici le code de form15

Il y a tellement d'endroit où tu essaie de convertir du texte en type double que l'on ne peut pas trouver LA ligne où se déclenche l'exception..
Teste le contenu de tes TextBox avant d'essayer de les convertir:

Au lieu de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

a = Val(Form11.TextBox2.Text)

Ecrit plutôt:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If Double.TryParse(Form11.TextBox2.Text, a) Then
'reussite de la conversion (contenu de la TextBox2 valide)
'la variable 'a' a maintenant la bonne valeur
Else
'échec de la conversion (contenu de la TextBox2 invalide)
End If

Et ça pour toutes les conversions des contenus de tes TextBox..

[tomlev]

Sinon, pour localiser rapidement la ligne où l'erreur se produit : menu Debug > Exceptions, et cocher la case en face de "Common Language Runtime Exceptions"

Le débogueur s'arrêtera automatiquement sur la ligne où une exception est lancée.

[shayw]

Salut

petit conseil si tu veux coder correctement
met option explicit on et option strict on
projet -> propriété -> onglet compiler
et si tu codes en net retires la réference visualbasic
projet -> propriété -> onglet réference dans la listbox décoche visualbasic

[tomlev]

petit conseil si tu veux coder correctement
met option explicit on et option strict on
projet -> propriété -> onglet compiler
et si tu codes en net retires la réference visualbasic
projet -> propriété -> onglet réference dans la listbox décoche visualbasic

Petit conseil si tu veux coder correctement : code en C#
Reviens à VB.NET plus tard si tu veux, mais pas avant d'avoir bien maitrisé tous les concepts qui sont plus ou moins "cachés" en VB.NET et qui posent toujours des problèmes aux débutants (alors qu'ils sont cachés justement pour rendre le langage soit disant plus facile pour les débutants...)