[Tuto/Vb.net] Radio Player

[[M]assiwissa]

Matériel nécessaire :

-9 button

-Windows Media Player ( à cherche dans outils -> Choisir des éléments de la boite à outils -> COM -> Windows Média Player ou BackgroundWorker - Choisir les éléments - Com - Cocher Media )

Code source :

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxWindowsMediaPlayer1.URL = "http://streaming.radio.funradio.fr:80/fun-1-44-96" 'Ok
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
AxWindowsMediaPlayer1.URL = "http://player.skyrock.com/V4/skyrock/skyrock.asx" 'Ok
End Sub

Private Sub utton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
AxWindowsMediaPlayer1.URL = " http://mp3.live.tv-radio.com/nrj/all/nrj_113225.mp3" 'ok

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
AxWindowsMediaPlayer1.URL = "http://mp3.live.tv-radio.com/cherie_fm/all/che_124310.mp3" 'ok

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
AxWindowsMediaPlayer1.URL = "http://www.tv-radio.com/station/le_mouv_mp3/le_mouv_mp3-128k.m3u" 'ok

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
AxWindowsMediaPlayer1.URL = "http://viphttp.yacast.fr/V4/virgin/virgin.asx" 'ok


End Sub


Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
AxWindowsMediaPlayer1.URL = "http://streaming.radio.rtl.fr/rtl-1-44-96" 'ok

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
AxWindowsMediaPlayer1.URL = "http://ouifm.ice.infomaniak.ch/ouifm-high.mp3" 'ok

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
AxWindowsMediaPlayer1.URL = "http://vipicecast.yacast.net/europe1.m3u" 'Ok

End Sub

Après vous pouvez renommez les boutons et le design

Le mien :

Bonne Chance !

 

[zehaha]

A noter que pour l'améliorer, on peut ajouter un bouton stop.

(Mais personnellement, j'ai fais mon player d'une manière totalement différente)

 

[joyax]

comment ta eu l'interface :p

 

[ZeDOver]

C'est un thème que tu intègre

 

[Bwisingw]

ouia mais bon tu peu aussi le faire avec la fonction du TRACKBAR

If trackbar.Value = 1
Windows... .Url = "radio"
elseif trackbar.value = 2
Windows... .url = "radio2"
End if


Enfin voila ^^

Bien jouer sinon ;)

 

[Snicky]

Yop, j'aurais une question, je suis webdesigner et je me met petit à petit à la dev en VB.net. Mon seul soucis est que, je fais mes design sous photoshop, et je me demandais comment intégrer ceux-ci à mon programme...

Ty

 

[Bwisingw]

Prend l'outil d'image ^^ je ne c'ai plus comment il se nomme :(

 

[Techanass]

-Windows Media Player ( à cherche dans outils -> Choisir des éléments de la boite à outils -> COM -> Windows Média Player ou BackgroundWorker - Choisir les éléments - Com - Cocher Media )

Merci d'avoir Rajoute Ma Façon

 

[[M]assiwissa]

Merci d'avoir Rajoute Ma Façon

De rien