Discussion :

[Kamikazoide]

Bonjour Bonjour,

Je me suis mis au VB.NET il y a quelques jours, j'ai donc regulièrement des erreurs, dont une que je ne sais pas du tout résoudre (erreur: La conversion de la chaîne "ComboBox" en type 'Double' n'est pas valide.) , voici le code:

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 
 
        If CheckBox1.Checked = True And (ComboBox50.Text = "" Or ComboBox51.Text = "" Or ComboBox52.Text = "" Or ComboBox53.Text = "" Or ComboBox54.Text = "" Or ComboBox55.Text = "" Or ComboBox56.Text = "" Or ComboBox57.Text = "" Or ComboBox58.Text = "") Then
 
            CheckBox1.Checked = False
 
        End If
 
        RichTextBox1.Visible = False
 
 
        Dim C1 As Integer = "49"
 
        For C1 = 49 To 57
 
            Dim de1 = ""
            Dim unite1 = ""
            Dim A1 = ""
            C1 = C1 + "1"
            Dim CB1 = "ComboBox" + C1 + ".Text"
            Dim TB1 = "TextBox" + C1 + ".Text"
            Dim LB1 = "ListBox" + C1 + ".Text"
            Dim LBL1V = "Label" + C1 + ".Visible"
            Dim LBL1T = "Label" + C1 + ".Text"
            Dim LBL2V = "Label" + C1 + ".Visible"
            Dim LBL2T = "Label" + C1 + ".Text"
 
            If CB1 = "" And TB1 = "" And LB1 = "" Then
                A1 = ""
            Else
                A1 = "- "
            End If
 
            If Not LB1 = "" And (Not CB1 = "" Or Not TB1 = "") Then
                de1 = "de "
            End If
 
            If Not CB1 = "" And Not TB1 = "" And LB1 = "Unité(s) " Then
                unite1 = ""
                de1 = ""
            Else
                unite1 = LB1
            End If
 
            If Label17.Text = "1" Then
                LBL1V = True
                LBL1T = A1 + TB1 + " " + unite1 + de1 + CB1
            Else
                LBL2V = True
                LBL2T = A1 + TB1 + " " + unite1 + de1 + CB1
            End If
 
        Next
 
        If Not TextBox2.Text = "" Then
 
            Label38.Visible = True
            Label38.Text = "Temps de cuisson: " + TextBox2.Text + " minutes"
 
            If RadioButton4.Checked Then
 
                Label38.Visible = False
 
            End If
 
        Else
 
            Label38.Visible = False
 
        End If
 
        If Not TextBox4.Text = "" Then
 
            Label34.Visible = True
            Label34.Text = "Temps de préparation: " + TextBox4.Text + " minutes"
 
        End If
 
        If Not TextBox6.Text = "" Then
 
            Label36.Visible = True
            Label36.Text = "Temps de repos: " + TextBox6.Text + " minutes"
 
        End If
 
 
        If CheckBox1.Checked Then
 
            ComboBox50.Text = ""
            ComboBox51.Text = ""
            ComboBox52.Text = ""
            ComboBox53.Text = ""
            ComboBox54.Text = ""
            ComboBox55.Text = ""
            ComboBox56.Text = ""
            ComboBox57.Text = ""
            ComboBox58.Text = ""
            TextBox50.Text = ""
            TextBox51.Text = ""
            TextBox52.Text = ""
            TextBox53.Text = ""
            TextBox54.Text = ""
            TextBox55.Text = ""
            TextBox56.Text = ""
            TextBox57.Text = ""
            TextBox58.Text = ""
            ListBox50.Text = ""
            ListBox51.Text = ""
            ListBox52.Text = ""
            ListBox53.Text = ""
            ListBox54.Text = ""
            ListBox55.Text = ""
            ListBox56.Text = ""
            ListBox57.Text = ""
            ListBox58.Text = ""
 
            If Label17.Text = 1 Then
 
                ingre = ("10")
                Label17.Text = "10"
                Label26.Text = "11"
                Label25.Text = "12"
                Label24.Text = "13"
                Label23.Text = "14"
                Label22.Text = "15"
                Label21.Text = "16"
                Label20.Text = "17"
                Label19.Text = "18"
                CheckBox1.Text = "Aller aux Ingrédients 1 a 9 après la Validation"
 
            Else
 
                ingre = ("1")
                Label17.Text = "1"
                Label26.Text = "2"
                Label25.Text = "3"
                Label24.Text = "4"
                Label23.Text = "5"
                Label22.Text = "6"
                Label21.Text = "7"
                Label20.Text = "8"
                Label19.Text = "9"
                CheckBox1.Text = "Aller aux Ingrédients 10 a 18 après la Validation"
 
            End If
 
        End If
 
        CheckBox1.Checked = False
 
    End Sub

Et voici la ligne avec l'erreur en question:

Code :

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

             Dim CB1 = "ComboBox" + C1 + ".Text"

Si quelqu'un à une solution, je suis bien sur preneur et si vous avez quelques trucs et astuces pour améliorer le code plus haut, je suis aussi preneur

[Invité]

Code :

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

C1.tostring

[Invité]

Code :

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

Dim CB1 as string= "ComboBox" + C1.tostring + ".Text"

[Kamikazoide]

Yes parfait merci, l'erreur à bien disparu.
Mais pourquoi il ne voulais pas prendre la valeur la numérique, mais une valeur sous forme de chaîne?

[Invité]

une vague histoire de torchons et serviettes qu'il ne faut pas mélanger!

Code :

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

Dim C1 AsInteger = 49 'et pas "49"

[ebastien]

Bonjour,

et si vous avez quelques trucs et astuces pour améliorer le code plus haut, je suis aussi preneur

Je me permets une petite remarque.

Tu mets "7" dans label21 et "9" dans label19 alors que tu as vidé Listbox50 à 58 juste avant de tester Label17 sachant que Label38 est visible que si TextBox2 est vide. Ne devrais-tu pas prendre en compte la valeur de RadioButton4 ? Comme tu mets le temps de préparation dans Label34 et le temps de cuisson dans Label38, je pense qu'on peut aboutir à un bon plat de spaghettis

Blague à part, donne à tes controls un nom plus explicite, le programme est incompréhensible en l'état.

[Kamikazoide]

Oui, mais j'était partie du principe que seul moi devait travailler dessus, et donc que je connaissais l'effet de chaque lignes sur quoi. Mais si je partage des bouts de codes à des inconnus ou même si je souhaite reprendre le développement du logiciel dans quelques mois une clarification pourrai être utile .

[Kamikazoide]

Par contre je me suis heurté à un autre problème, avec le code que j'ai plus haut:

Code :

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

            Dim CB1 = "ComboBox" + C1.ToString + ".Text"

La variable CB1 donne

Code :

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

CB1 = "ComboBox50.Text"

et non le contenu de la ComboBox 50


Je pense donc que mon type de variable est mauvais, quel type pourrai correspondre ? ou sinon comment corriger cela ?

[Invité]

Code :

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

Dim CB1 = Me.Controls("ComboBox" + C1.ToString).Text

[Pol63]

si tu comptes pas devenir développeur certes, mais sinon je t'invite à lire un cours sur vb.net pour transformer tes 150 lignes de code affreuses en 15 lignes de code propres pour le même résultat

[Kamikazoide]

si tu comptes pas devenir développeur certes, mais sinon je t'invite à lire un cours sur vb.net pour transformer tes 150 lignes de code affreuses en 15 lignes de code propres pour le même résultat

Cela doit faire 4 ou 5 jours que je suis sur du VB.NET donc oui mon code est "dégeulasse" , c'est aussi pour cela que que je regarde des tuto et que je demande de l'aide sur ce forum, tout le monde n'a pas 10 ans de VB.NET derrière soi ....

Des remarques CONSTRUCTIVES m'aiderai , j'en suis preneur

[Invité]

Tout le monde n'a pas 10 ans de VB.NET derrière soi ...

il n'y avait pas de malices dans ses propos, juste un conseil amical! un petit Ok merci du conseil suffisait!

[Kamikazoide]

il n'y avait pas de malices dans ses propos, juste un conseil amical! un petit Ok merci du conseil suffisait!

C'est pour cela que j'ai modifier mon commentaire plus haut pendant que tu écrivait le tien ;-)

[Pol63]

Il reste pas terrible ton commentaire, le miens signifie quand meme qu'on peut faire la même chose avec 10x moins de code, c'est une info, donc je pense que ca rentre dans le cadre du "constructif"

[Kamikazoide]

Il reste pas terrible ton commentaire, le miens signifie quand meme qu'on peut faire la même chose avec 10x moins de code, c'est une info, donc je pense que ca rentre dans le cadre du "constructif"

Re Bonjour, me dire plutôt par quoi j'aurais pu remplacer quoi ou alors me renvoyer vers un tuto qui traite cette séquence, la cela pourrai réellement m'aider a progresser. Il est assez dur de rechercher par sois même un Tuto sur un sujet dont j'ignore encore l’existence....

[Invité]

Bonjour,

Re Bonjour, me dire plutôt par quoi j'aurais pu remplacer quoi ou alors me renvoyer vers un tuto qui traite cette séquence, la cela pourrai réellement m'aider a progresser. Il est assez dur de rechercher par sois même un Tuto sur un sujet dont j'ignore encore l’existence....

calmes toi, vas boire un café, si tu fume vas en griller une! restons

[ZenZiTone]

Bonjour Bonjour,

erreur: La conversion de la chaîne "ComboBox" en type 'Double' n'est pas valide.

[...]

Et voici la ligne avec l'erreur en question:

Code :

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

             Dim CB1 = "ComboBox" + C1 + ".Text"

Si quelqu'un à une solution, je suis bien sur preneur et si vous avez quelques trucs et astuces pour améliorer le code plus haut, je suis aussi preneur

Premier point : "ComboBox" + C1 + ".Text" est une chaine de caractère. Ton erreur vient du fait que le type de CB1 est implicite (tu ne définit pas le type) et que le compilateur estime que c'est un double (sûrement dû à l'utilisation de '+' et d'un C1 qui doit être de type Double.

Deuxième point, je ne te conseille pas de faire :

Code :

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

Dim CB1 = Me.Controls("ComboBox" + C1.ToString).Text

Si demain tu changes le nom de ta combo tu auras une belle exception. Et de toutes façon c'est vraiment moche. Pour savoir comment gérer ce cas, il faudrait savoir quel est ton besoin sur ce point précis..

[Pol63]

Re Bonjour, me dire plutôt par quoi j'aurais pu remplacer quoi ou alors me renvoyer vers un tuto qui traite cette séquence, la cela pourrai réellement m'aider a progresser. Il est assez dur de rechercher par sois même un Tuto sur un sujet dont j'ignore encore l’existence....

Ca ne marche pas comme ca, ce n'est pas en regardant une partie de ton code qu'on peut comprendre ce que tu veux faire en réalité (car parfois on dérive)
Et donc on ne peut pas en déduire le code idéal.

Comme je l'ai dit pour ca il faut lire des tutos pour comprendre les possibilités du langage, là deja il te manque les bases, donc ca ne sert pas non plus a grand chose de t'expliquer des concepts plus compliqués directement.

Tu peux ausi lire mes autres post en cliquant sur mon nom, des fois je dis quoi remplacer par quoi , c'est très instructif (beaucoup plus que là)
(désolé ca doit être mon côté troll ^^)