RsFM Code &Variable

21 Septembre 2013 , Rédigé par COUTANT Francois Publié dans #Codes & Variables

Vous trouverez ci dessous tous les codes Visual Basic nécessaires a l'application

Public Class Form1

'Pas de declaration pour la windowform1 nommé "RsFM"

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

'Place l'URL de la station au mediaplayeur, Inscrit le nom de la station dans le label

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

AxWindowsMediaPlayer1.URL = "http://listen.radionomy.com/fusion-fm-pop-rock.m3u"

Label1.Text = "FUSION FM"

End Sub

'Place l'URL de la station au mediaplayeur, Inscrit le nom de la station dans le label

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

AxWindowsMediaPlayer1.URL = "http://streaming.radio.rtl2.fr:80/rtl2-1-44-96?.wma/"

Label1.Text = "RTL2"

End Sub

'Place l'URL de la station au mediaplayeur, Inscrit le nom de la station dans le label

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

AxWindowsMediaPlayer1.URL = "http://streaming.radio.funradio.fr:80/fun-1-44-96?.wma/"

Label1.Text = "FUN RADIO"

End Sub

'Place l'URL de la station au mediaplayeur, Inscrit le nom de la station dans le label

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

AxWindowsMediaPlayer1.URL = "http://viphttp.yacast.net/V4/player_rfm/rfm.asx"

Label1.Text = "RFM"

End Sub

'Place l'URL de la station au mediaplayeur, Inscrit le nom de la station dans le label

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

AxWindowsMediaPlayer1.URL = "http://mp3.live.tv-radio.com/cherie_fm/all/che_124310.mp3"

Label1.Text = "CHERIE FM"

End Sub

'Place l'URL de la station au mediaplayeur, Inscrit le nom de la station dans le label

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

AxWindowsMediaPlayer1.URL = "http://mp3.live.tv-radio.com/nostalgie/all/nos_113812.mp3"

Label1.Text = "NOSTALGIE"

End Sub

'Place l'URL de la station au mediaplayeur, Inscrit le nom de la station dans le label

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

AxWindowsMediaPlayer1.URL = "http://www.tv-radio.com/station/france_inter_mp3/france_inter_mp3-128k.m3u"

Label1.Text = "FRANCE INTER"

End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

AxWindowsMediaPlayer1.URL = " http://vipicecast.yacast.net/europe1"

Label1.Text = "EUROPE 1"

End Sub

'Place l'URL de la station au mediaplayeur, Inscrit le nom de la station dans le label

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

AxWindowsMediaPlayer1.URL = "http://radio.rtl.fr/rtl.asx"

Label1.Text = "RTL"

End Sub

'Place l'URL de la station au mediaplayeur, Inscrit le nom de la station dans le label

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/rire_100_sketches/all/rir_152805.mp3"

Label1.Text = "RIRE & CHANSON"

End Sub

'Place l'URL de la station au mediaplayeur, Inscrit le nom de la station dans le label

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"

Label1.Text = "VIRGIN RADIO"

End Sub

'Place l'URL de la station au mediaplayeur, Inscrit le nom de la station dans le label

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

AxWindowsMediaPlayer1.URL = "http://mp3.live.tv-radio.com/nrj/all/nrj_113225.mp3"

Label1.Text = "NRJ"

End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

End

End Sub

Private Sub Button11_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

'concerne la fonction 'mes musiques, affiche une boite de dialogue pour selection de la musique

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName

Label1.Text = "Mes Musiques"

End If

End Sub

End Class

Partager cet article

Repost0

RsFM

Mot de passe (Formulaire sous Visual Basic )

Retour à l'accueil

Commenter cet article