Creare Videogiochi - Game Developer
[Guida] Semplice Radio in Visual Basic.Net Express 2010 - Versione stampabile

+- Creare Videogiochi - Game Developer (https://www.making-videogames.net/giochi)
+-- Forum: Programmazione (https://www.making-videogames.net/giochi/Forum-Programmazione)
+--- Forum: Visual Basic, Visual Basic.Net (https://www.making-videogames.net/giochi/Forum-Visual-Basic-Visual-Basic-Net)
+--- Discussione: [Guida] Semplice Radio in Visual Basic.Net Express 2010 (/thread-Guida-Semplice-Radio-in-Visual-Basic-Net-Express-2010)

[Guida] Semplice Radio in Visual Basic.Net Express 2010 - Riddick - 20-11-2010

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:

[Immagine: 2drhvdk.jpg]

Download Progetto:

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

RE: [Guida] Semplice Radio in Visual Basic.Net Express 2010 - Lorenz - 20-11-2010

grazie della guida... ma io sono ancora fermo a Visual Basic.Net Express 2008 xD quando passero al 2010 proverò a farlo

RE: [Guida] Semplice Radio in Visual Basic.Net Express 2010 - Riddick - 20-11-2010

Di nulla, comunque dovrebbe funzionare anche in Visual Basic.Net Express 2008

RE: [Guida] Semplice Radio in Visual Basic.Net Express 2010 - GEARS_CORPORATION - 20-11-2010

Bel progetto..Wink