[Riddick]

In questa guida spiegherò come creare una Semplice Radio in Visual Basic.Net Express 2010.

Consiglio:
Non fate mai copia e incolla del codice, anche se il codice è banale.

Strumenti:
Visual Basic.Net Express 2010

Guida:

1. Creiamo un nuovo progetto in Visual Basic.Net Express 2010.
   
2. Apriamo la Casella degli strumenti
   
3. Testo destro del mouse su: Tutti i Windows Form > Scegli Elementi > Componenti COM > Selezionate: Windows Media Player e cliccate su: Ok
   
4. Nella Casella degli strumenti trascinate sulla Form: 1. Windows Media Player e 1. ComboBox
   
   Ora nella ComboBox inseriamo i seguenti elementi:
   
   
   Codice PHP:

   FM Italia
RDS
RTL 102.5
Radio Popolare
Radio Kiss Kiss
Number One
Giornale Orario
Radio Kiss Kiss Napoli
Radio Napoli DOC
Italian Graffiti
Gamma Radio
Radio Margherita
Radio Anni 60 

   
   Ora dobbiamo cliccare due volte sul: ComboBox e inseriamo i seguenti codici:
   
   
   Codice PHP:

   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.SelectedItem = "FM Italia" Then
            AxWindowsMediaPlayer1.URL = "http://www.xdevel.com/radio/fmitalia.asx"
        End If

        If ComboBox1.SelectedItem = "RDS" Then
            AxWindowsMediaPlayer1.URL = "http://fastreal.fastweb.it/RDS"
        End If

        If ComboBox1.SelectedItem = "RTL 102.5" Then
            AxWindowsMediaPlayer1.URL = "http://www.rtl.it/player/streaming/rtltv.asx"
        End If

        If ComboBox1.SelectedItem = "Radio Popolare" Then
            AxWindowsMediaPlayer1.URL = "http://www.radiopopolare.it/fileadmin/poplive/liveN.asx"
        End If

        If ComboBox1.SelectedItem = "Radio Kiss Kiss" Then
            AxWindowsMediaPlayer1.URL = "http://players.creacast.com/creacast/kisskiss/playlist.asx"
        End If

        If ComboBox1.SelectedItem = "Number One" Then
            AxWindowsMediaPlayer1.URL = "http://live11.streamingmedia.it/tunein.php/radionumberone/playlist.asx"
        End If

        If ComboBox1.SelectedItem = "Giornale Orario" Then
            AxWindowsMediaPlayer1.URL = "http://mediaplayer.rtl.it/ondemand/go.wma"
        End If

        If ComboBox1.SelectedItem = "Radio Kiss Kiss Napoli" Then
            AxWindowsMediaPlayer1.URL = "http://players.creacast.com/creacast/kisskiss_napoli/playlist.asx"
        End If

        If ComboBox1.SelectedItem = "Radio Napoli DOC" Then
            AxWindowsMediaPlayer1.URL = "http://players.creacast.com/creacast/radio_napolidoc/playlist.asx"
        End If

        If ComboBox1.SelectedItem = "Italian Graffiti" Then
            AxWindowsMediaPlayer1.URL = "http://www.italiangraffiati.com/128.asx"
        End If

        If ComboBox1.SelectedItem = "Gamma Radio" Then
            AxWindowsMediaPlayer1.URL = "http://live3.streamingmedia.it/gammaradio"
        End If

        If ComboBox1.SelectedItem = "Radio Margherita" Then
            AxWindowsMediaPlayer1.URL = "http://www.radiomargherita.com/live/radiomargherita.asx"
        End If

        If ComboBox1.SelectedItem = "Radio Anni 60" Then
            AxWindowsMediaPlayer1.URL = "http://players.fluidstream.net/anni60_64k.asx"
        End If

    End Sub 


Screen Radio Finale:

Download Progetto:

http://www.filefront.com/17537551/Radio.7z/