Radio in Visual Basic

Qui sotto possiamo trovare il codice in Vb per creare una radio. Anche questo basta copiarlo e compilarlo.

Private Sub Combo1_Change()
Private Sub Combo1_Click()
If Combo1 = “RDS” Then
Text1 = “http://www.rds.it/streaming/rds.asx"<br />End If<br />If Combo1 = "Radio Margherita ” Then
Text1 = “http://www.radiomargherita.com/live/radiomargherita.asx"<br />End If<br />If Combo1 = "DiscoRadio ” Then
Text1 = “http://discoradio.fabbricadigitale.it/asx/discoradio.asx"<br />End If<br />If Combo1 = "Radio Deejay” Then
Text1 = “http://live.mediaserver.kataweb.it/radiodeejay"<br />End If<br />If Combo1 = "Rtl” Then
Text1 = “http://www.rtl.it/player/streaming/rtl1025.asx"<br />End If<br />If Combo1 = "Radio Capital” Then
Text1 = “http://live.mediaserver.kataweb.it/capital"<br />End If<br />If Combo1 = "Radio 105” Then
Text1 = “http://www.105.net/sezioni/inradio/radio/asx/ch_0.asx"<br />End If<br />If Combo1 = "Radio Montecarlo” Then
Text1 = “http://www.radiomontecarlo.net/Radio/asx/rmcfm.asx"<br />End If<br />If Combo1 = "Radio Kiss Kiss” Then
Text1 = “http://players.creacast.com/creacast/kisskiss/playlist_s.asx"<br />End If<br />If Combo1 = "Virgin Radio Italia” Then
Text1 = “http://151.1.245.1/20"<br />End If<br />If Combo1 = "M2O” Then
Text1 = “http://live.mediaserver.kataweb.it/m2o"<br />End If<br />If Combo1 = "Radio 101” Then
Text1 = “http://str30.creacast.com/r101b"<br />End If<br />If Combo1 = "Latte Miele” Then
Text1 = “http://www.streamsolution.it/onair/LatteMiele.asx"<br />End If<br />If Combo1 = "Radio Capital” Then
Text1 = “http://live.mediaserver.kataweb.it/capital"<br />End If<br />If Combo1 = "Radio Margherita” Then
Text1 = “http://www.radiomargherita.com/live/radiomargherita.asx"<br />End If<br />If Combo1 = "Radio Maria” Then
Text1 = “http://www.radiomaria.org/media/italy.asx"<br />End If<br />If Combo1 = "Radio Italia” Then
Text1 = “mms://radioitalia.wm.p1.str3.com/rditalia"<br />End If<br />If Combo1 = "Città Futura” Then
Text1 = “mms://wms.it.net/radiofutura"<br />End If<br />End Sub<br /><br />Private Sub Command1_Click()<br />WindowsMediaPlayer1.URL = Text1.Text<br />End Sub<br /><br />Private Sub Form_Load()<br />Combo1.AddItem ("RDS")<br />Combo1.AddItem ("Radio Margherita ")<br />Combo1.AddItem ("DiscoRadio")<br />Combo1.AddItem ("Radio Deejay")<br />Combo1.AddItem ("Radio Capital")<br />Combo1.AddItem ("Rtl")<br />Combo1.AddItem ("Radio 105")<br />Combo1.AddItem ("Radio Montecarlo")<br />Combo1.AddItem ("Radio Kiss Kiss")<br />Combo1.AddItem ("Virgin Radio Italia")<br />Combo1.AddItem ("M2O")<br />Combo1.AddItem ("Radio 101")<br />Combo1.AddItem ("Latte Miele")<br />Combo1.AddItem ("Radio Maria")<br />Combo1.AddItem ("Radio Italia")<br />Combo1.AddItem ("Città Futura")<br />End Sub”