Discussion :

[adri13]

Bonjour,

J'ai créé une radio en vb.net, tous marche mais quand je l'envoi a mon pote pour qu'il le test le programme ne s'ouvre pas.

Comment faire pour que sa marche ?

Cordialement

[mdevaux62]

Sans doute un problème de Framework non installé.
A vérifier:
- Le Framework utilisé lors de la génération de l'appli : 2, 3, 3.5, 4, 4.5.
- Le(s) Framework(s) installés sur le poste client.

[adri13]

il faut que je les installe tous les framworks ?

[mdevaux62]

Si l'appli tourne par exemple sous Framework 4, tu dois installer le Framework 4 mais aussi tous les précédents.

Tu peux aussi tenter de faire tourner ton appli avec un Framework plus ancien (je fais tourner, et donc développe, la majorité de mes programmes sous Framework 2).

[youtpout978]

il a quel version de windows ton ami?
ton appli tu l'a développé sur quel version de visual studio?

C'est dommage de développer tes applis uniquement sur le Framework 2.0, tu es obligé de faire l'impasse sur plein d'outil utile mais ça peut suffire suivant l'appli que tu développes.

[adri13]

j'utilise Visual Studio 2012

[mdevaux62]

Pour une application de radio (je suppose émanant d'un flux lu par un contrôle MediaPlayer), le Framework 2 suffit.

Sous VS 2012, il suffit d'appeler les propriétés du projet et, dans la rubrique Application, de sélectionner le Framework cible.

[CLeBeR]

Salut les gars, salut adri
L'ami c'est moi et je ne pense pas que ça soit un problème de Framework parce que j'ai aussi VS 2012 ... De plus, je n'ai aucun message d'erreur quand j'ouvre son programme, le programme s'ouvre ( je le vois dans le gestionnaire des tâches ) mais il se referme tout seul ( et je ne vois pas le formulaire ).
J'ai regardé son code et le code dans le form load me semble correct, par contre quand j'ai fais le mode pas à pas, VS me mettait dans la console des choses étranges.
Adri pour faire un pas à pas , tu cliques sur "F8" et tu montre ce qu'il y a dans la case "Liste d'erreur" ( en bas ) Si il y a des erreurs bien sur...

[youtpout978]

Mais tu as son code source ou seulement l'exe ? Peut être qu'il utilise d'autre librairie que tu n'as pas.

C'est une application console ?

[adri13]

il n'y a aucune erreur

[adri13]

j'ai tous les framework installé et sa ne marche pas

[CLeBeR]

Ben en fait on se connait donc je l'ai aidé via teamviewer donc j'ai le code source et l'exe, il l'a passé au framework 2.0 mais je ne peux toujours pas utiliser le programme, adri donne leurs le code source peut être qu'il y a une erreur qui nous échappe.

[adri13]

code source de ma Radio

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
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Label2.Text = 
("Son = Volume:" & AxWindowsMediaPlayer1.settings.volume & "%")
 
    End Sub
 
    Private Sub QuitterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitterToolStripMenuItem.Click
 
        Me.Close()
 
    End Sub
 
    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
 
        MessageBox.Show("Bonjour, ceci est mon premier programme donc n'hésité à m'envoyer des messages via contact afin de me dire des critiques si il y en a comme sa je pourrais m'améliorer en codage. Merci à bientôt", "Information")
 
    End Sub
 
    Private Sub ContactToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ContactToolStripMenuItem.Click
 
        Form2.Show()
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
            AxWindowsMediaPlayer1.URL = "http://streaming.radio.funradio.fr:80/fun-1-44-96"
        Label3.Text = "Vous écouté : FunRadio"
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
 
        If Button2.Text = "Stop" Then
            Button2.Text = "Go !"
            AxWindowsMediaPlayer1.Ctlcontrols.stop()
            Label6.Text = "Stop : Activé !"
            Label3.Text = "Vous écouté : Aucune Radio"
        ElseIf Button2.Text = "Go !" Then
            AxWindowsMediaPlayer1.URL = "http://streaming.radio.funradio.fr:80/fun-1-44-96"
            Button2.Text = "Stop"
            Label6.Text = "Stop : Désactivé !"
            Label3.Text = "Vous écouté : FunRadio"
        End If
 
    End Sub
 
 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
 
        AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.volume + 5 'augmente le son de +5
        Label2.Text = "Son = Volume:" & AxWindowsMediaPlayer1.settings.volume & "%"
 
    End Sub
 
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
 
        If Button5.Text = "Muet" Then
            Button5.Text = "Go !"
            'Désactive le son
            AxWindowsMediaPlayer1.settings.mute = True
            Label7.Text = "Muet : Activé !"
        ElseIf Button5.Text = "Go !" Then
            'ractive le son
            AxWindowsMediaPlayer1.settings.mute = False
            Button5.Text = "Muet"
            Label7.Text = "Muet : Désactivé !"
        End If
 
    End Sub
 
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
 
        AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.volume - 5 'augmente le son de -5
        Label2.Text = "Son = Volume:" & AxWindowsMediaPlayer1.settings.volume & "%"
 
    End Sub
 
    Private Sub Button32_Click(sender As Object, e As EventArgs) Handles Button32.Click
 
        Try
            Dim dlg As ColorDialog = New ColorDialog
            dlg.Color = Me.BackColor
            If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                Me.BackColor = dlg.Color
            End If
        Catch ex As Exception : End Try
 
    End Sub
 
    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
 
        Process.Start("http://www.facebook.com/****.*****")
 
    End Sub
 
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
 
        AxWindowsMediaPlayer1.URL = "http://mp3.live.tv-radio.com/nrj/all/nrj_113225.mp3" 'play nrj
        Label3.Text = "Vous écouté : NRJ"
 
    End Sub
 
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
 
        If Button11.Text = "Stop" Then
            Button11.Text = "Go !"
            AxWindowsMediaPlayer1.Ctlcontrols.stop()
            Label6.Text = "Stop : Activé !"
            Label3.Text = "Vous écouté : Aucune Radio"
        ElseIf Button11.Text = "Go !" Then
            AxWindowsMediaPlayer1.URL = "http://streaming.radio.funradio.fr:80/fun-1-44-96"
            Button11.Text = "Stop"
            Label6.Text = "Stop : Désactivé !"
            Label3.Text = "Vous écouté : NRJ"
        End If
 
    End Sub
 
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
 
        AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.volume + 5 'augmente le son de +5
        Label2.Text = "Son = Volume:" & AxWindowsMediaPlayer1.settings.volume & "%"
 
    End Sub
 
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
 
        If Button8.Text = "Muet" Then
            Button8.Text = "Go !"
            'Désactive le son
            AxWindowsMediaPlayer1.settings.mute = True
            Label7.Text = "Muet : Activé !"
        ElseIf Button8.Text = "Go !" Then
            'ractive le son
            AxWindowsMediaPlayer1.settings.mute = False
            Button8.Text = "Muet"
            Label7.Text = "Muet : Désactivé !"
        End If
 
    End Sub
 
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
 
        AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.volume - 5 'augmente le son de +5
        Label2.Text = "Son = Volume:" & AxWindowsMediaPlayer1.settings.volume & "%"
 
    End Sub
 
    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
 
        AxWindowsMediaPlayer1.URL = "http://viplagardere.yacast.net/encodereurope2" 'démarre virgin
        Label3.Text = "Vous écouté : Virgin"
 
    End Sub
 
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
 
        If Button14.Text = "Muet" Then
            Button14.Text = "Go !"
            'Désactive le son
            AxWindowsMediaPlayer1.settings.mute = True
            Label7.Text = "Muet : Activé !"
        ElseIf Button14.Text = "Go !" Then
            'ractive le son
            AxWindowsMediaPlayer1.settings.mute = False
            Button14.Text = "Muet"
            Label7.Text = "Muet : Désactivé !"
        End If
 
    End Sub
    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
 
        If Button17.Text = "Stop" Then
            Button17.Text = "Go !"
            AxWindowsMediaPlayer1.Ctlcontrols.stop()
            Label6.Text = "Stop : Activé !"
            Label3.Text = "Vous écouté : Aucune Radio"
        ElseIf Button17.Text = "Go !" Then
            AxWindowsMediaPlayer1.URL = "http://streaming.radio.funradio.fr:80/fun-1-44-96"
            Button17.Text = "Stop"
            Label6.Text = "Stop : Désactivé !"
            Label3.Text = "Vous écouté : NRJ"
        End If
 
    End Sub
 
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
 
        AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.volume + 5 'augmente le son de +5
        Label2.Text = "Son = Volume:" & AxWindowsMediaPlayer1.settings.volume & "%"
 
    End Sub
 
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
 
        AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.volume - 5 'augmente le son de +5
        Label2.Text = "Son = Volume:" & AxWindowsMediaPlayer1.settings.volume & "%"
 
    End Sub
 
    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
 
        AxWindowsMediaPlayer1.URL = "http://fg.impek.tv/listen.pls" 'démarre fg dj radio
        Label3.Text = "Vous écouté : FG Dj Radio"
 
    End Sub
 
    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
 
        If Button20.Text = "Muet" Then
            Button20.Text = "Go !"
            'Désactive le son
            AxWindowsMediaPlayer1.settings.mute = True
            Label7.Text = "Muet : Activé !"
        ElseIf Button20.Text = "Go !" Then
            'ractive le son
            AxWindowsMediaPlayer1.settings.mute = False
            Button20.Text = "Muet"
            Label7.Text = "Muet : Désactivé !"
        End If
 
    End Sub
 
    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
 
        If Button23.Text = "Stop" Then
            Button23.Text = "Go !"
            AxWindowsMediaPlayer1.Ctlcontrols.stop()
            Label6.Text = "Stop : Activé !"
            Label3.Text = "Vous écouté : Aucune Radio"
        ElseIf Button23.Text = "Go !" Then
            AxWindowsMediaPlayer1.URL = "http://streaming.radio.funradio.fr:80/fun-1-44-96"
            Button23.Text = "Stop"
            Label6.Text = "Stop : Désactivé !"
            Label3.Text = "Vous écouté : FG Dj Radio"
        End If
 
    End Sub
 
    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
 
        AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.volume + 5 'augmente le son de +5
        Label2.Text = "Son = Volume:" & AxWindowsMediaPlayer1.settings.volume & "%"
 
    End Sub
 
    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
 
        AxWindowsMediaPlayer1.settings.volume = AxWindowsMediaPlayer1.settings.volume - 5 'augmente le son de +5
        Label2.Text = "Son = Volume:" & AxWindowsMediaPlayer1.settings.volume & "%"
 
    End Sub
 
    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
 
        System.Diagnostics.Process.Start("http://www.skyrock.fm/ourownplayer/player.php")
        Label3.Text = "Vous écouté : Skyrock"
 
    End Sub
 
    Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
 
        System.Diagnostics.Process.Start("http://www.radiostarcom.com/playerstar.php")
        Label3.Text = "Vous écouté : RadioStar"
 
    End Sub
 
    Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
 
        System.Diagnostics.Process.Start("http://www.francebleu.fr/player")
        Label3.Text = "Vous écouté : France Bleu Provence"
 
    End Sub
End Class

[mdevaux62]

Bon en fait tu dois repasser en Framework 4 (désolé).

Pour tester :
1) Ouvre sous VS 2012 un nouveau projet Windows Form
2) Dans le design de la Form1, fais un clic droit dans la boîte à outils et clique "Choisir les éléments".
3) Dans les composants COM coche "Windows Media Player". Clique OK.
4) Dans la Form1, ajoute un bouton et un contrôle "Windows Media Player" (qu'on vient d'ajouter à la boîte à outils).
5) Au clic du bouton associe le code suivant :

Code :

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

1
2
3
4
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        AxWindowsMediaPlayer1.URL = "http://streaming.radio.funradio.fr:80/fun-1-44-96?.wma "
    End Sub

Si ça marche, introduis les bouts de code de ton pote au fur et à mesure.
Si ça marche pas alors à mon avis il faudra chercher du côté de l'install. de VS

[adri13]

mais j'ai créé une appli avec qu'un bouton et je les envoyé a mon pote et il ma dit qu'il marchait, pourquoi ma radio ne veux pas fonctionner ?