XanthoDeBruijn
Gebruiker
- Lid geworden
- 16 okt 2011
- Berichten
- 69
Laatst bewerkt door een moderator:
Radio
- Onderwerp starter XanthoDeBruijn
- Startdatum
- Status
mastermindzh
Verenigingslid
- Lid geworden
- 10 dec 2008
- Berichten
- 4.993
Hij werkt.
wat je nog kunt doen:
wat je nog kunt doen:
- maak je eigen play/pause/stop knoppen
- maak een eigen volumeslider
- Maak favorieten radiozenders.
- I.p.v knoppen voor zenders maak een combobox met meer zenders.
- Denk ook eens aan anderstalige zenders (engels/duits/bels)
XanthoDeBruijn
Gebruiker
- Lid geworden
- 16 okt 2011
- Berichten
- 69
Oke bedankt!
Het was ook mijn eerste project, dus ik wist dat er iets miste
Het was ook mijn eerste project, dus ik wist dat er iets miste
XanthoDeBruijn
Gebruiker
- Lid geworden
- 16 okt 2011
- Berichten
- 69
Zou je me een beetje kunnen helpen met al die programmeer codes enzo
mastermindzh
Verenigingslid
- Lid geworden
- 10 dec 2008
- Berichten
- 4.993
Tuurlijk:
rechtermuisknop op de axwindowsmediaplayer1 en kies voor properties, zet daar mode op none. (dan verdwijnen de controls)
Sleep vervolgens 2 knoppen + 1 trackbar op je form en plaats ze even mooi.
knop 1 noem je play en daar zet je de volgende code onder:
[CPP]Axwindowsmediaplayer.ctlcontrols.play[/CPP]
knop 2 noem je stop en daar plant je deze code onder:
[CPP]axwindowsmediaplayer.ctlcontrols.stop[/CPP]
onder je form load event (dubbelklik op de bovenbalk van je form) typ je deze code:
[CPP]axwindowsmediaplayer1.settings.volume = 100
trackbar1.value = axwindowsmediaplayer1.settings.volume[/CPP]
Sleep vervolgens een combobox naar je form en plaats ook die even netjes en voeg de volgende code toe:
[CPP] If taal.Text = "Nederlands" Then
If ComboBox1.SelectedItem = "Q music" Then
AxWindowsMediaPlayer1.URL = "http://www.q-music.nl/asx/q-music.asx"
TextBox1.Text = "Q music:" & vbNewLine & "" & vbNewLine & "Q-music is een commercieel Nederlands radiostation dat sinds 31 augustus 2005 uitzendt, en in handen is van het Vlaamse mediabedrijf De Persgroep."
End If
If ComboBox1.SelectedItem = "Radio 538" Then
AxWindowsMediaPlayer1.URL = "http://82.201.100.9:8000/radio538.m3u"
TextBox1.Text = "Radio 538:" & vbNewLine & "" & vbNewLine & "Radio 538 (uit te spreken als 'Radio vijf-drie-acht') is een commercieel Nederlands radiostation dat sinds 1 oktober 2007 in handen is van RTL Nederland Holding. Radio 538 is afgewisseld met 3FM en Radio 2 het best beluisterde radiostation van Nederland met een gemiddeld marktaandeel van ongeveer 11%"
End If
If ComboBox1.SelectedItem = "Slam! fm" Then
AxWindowsMediaPlayer1.URL = "http://www.true.nl/streams/slamfmlivestream.asx"
TextBox1.Text = "Slam! fm:" & vbNewLine & "" & vbNewLine & "SLAM!FM (Sound Lifestyle And More) is een Nederlands commercieel, landelijk radiostation dat voornamelijk muziek gericht op jongeren uitzendt. De zender is te ontvangen via de ether op FM, internet (via een livestream te beluisteren), en op kabel. Hij is gevestigd in Hilversum."
End If
If ComboBox1.SelectedItem = "Radio 1" Then
AxWindowsMediaPlayer1.URL = "http://www.omroep.nl/radio1/live64.asx"
TextBox1.Text = "Radio 1:" & vbNewLine & "" & vbNewLine & "Radio 1 is een nationale radiozender van de Nederlandse Publieke Omroep met voornamelijk nieuws, sport en achtergronden. Van 1947 tot 1 december 1985 heette de zender Hilversum 2."
End If
If ComboBox1.SelectedItem = "100% NL" Then
AxWindowsMediaPlayer1.URL = "mms://wm1.streaming.castor.nl/100pctnl=wm2"
TextBox1.Text = "100% NL" & vbNewLine & "" & vbNewLine & "100% NL (uit te spreken als 100 procent NL) is een Nederlandse commerci�le radiozender die sinds 8 juli 2006 landelijk op FM uitzendt. Op de frequenties van 100% NL was eerder RTL FM te horen, een radiozender van RTL Nederland. RTL FM moest de uitzendingen via de ether staken na een uitspraak van de rechter, waardoor het radiostation zijn zendvergunning kwijtraakte. De eigenaar van 100% NL is Mediasales Oy, een mediabedrijf uit Finland. De zender werkt nauw samen met Slam!FM."
End If
If ComboBox1.SelectedItem = "Arrow classic rock" Then
AxWindowsMediaPlayer1.URL = "http://www.garnierstreamingmedia.com/asx/streamerswitch.asp?stream=205"
TextBox1.Text = "Arrow classic rock:" & vbNewLine & "" & vbNewLine & "Arrow Classic Rock is een Nederlandse landelijke commerci�le radiozender, die rockmuziek van 'alle tijden' afspeelt. Van sommige programma's is na afloop de playlist op de site beschikbaar. De zender is te ontvangen via de kabel, de Astra satelliet op 19,2� oost[1] en internet. Van 1 juli 2007 tot en met 10 maart 2009 zond Arrow Classic Rock in de ether uit via de voormalige FM-frequenties van Caz!. E�n keer per jaar organiseert de zender het Arrow Rock Festival. In oktober staat Arrow in het teken van Rocktober, wat inhoudt dat er Top X-lijsten gedraaid worden."
End If
If ComboBox1.SelectedItem = "Arrow jazz fm" Then
AxWindowsMediaPlayer1.URL = "http://www.garnierstreamingmedia.com/asx/streamerswitch.asp?stream=204"
TextBox1.Text = "Arrow jazz fm:" & vbNewLine & "" & vbNewLine & "Arrow Jazz FM is een Nederlandse commerci�le radiozender, die jazzmuziek afspeelt via de ether kabel en internet. Het is de zusterzender van Arrow Classic Rock."
End If
If ComboBox1.SelectedItem = "Bnn fm" Then
AxWindowsMediaPlayer1.URL = "http://wmplayer.bnn.fm"
TextBox1.Text = "Bnn fm:" & vbNewLine & "" & vbNewLine & "BNN.FM is de leukste internet-radiozender van Nederland. Je hoort 24 uur per dag, 7 dagen per week het beste van BNN. Dat betekent de leukste momenten uit BNN radioprogramma�s van nu en zo nu en dan een legendarisch stukje radio �uit de oude doos�. Ook hoor je ieder uur het nieuws en natuurlijk veel oppeppende muziek."
End If
If ComboBox1.SelectedItem = "Candlelight radio" Then
AxWindowsMediaPlayer1.URL = "http://ice1.streamzilla.jet-stream.nl:8000/ilsemedia=ice7"
TextBox1.Text = "Candlelight radio:" & vbNewLine & "" & vbNewLine & "Dag en nacht, 7 dagen per week, de allermooiste muziek op www.candlelight.nl. Met elke avond tussen 22.00 en 23.00 uur gedichten van luisteraars."
End If
If ComboBox1.SelectedItem = "Caz!" Then
AxWindowsMediaPlayer1.URL = "http://www.garnierstreamingmedia.com/asx/caz_audio_01.asp"
TextBox1.Text = "Caz!:" & vbNewLine & "" & vbNewLine & "Arrow Caz is een landelijk Nederlands commercieel radiostation. Het station is eigendom van Arrow en zendt uit via het internet."
End If
If ComboBox1.SelectedItem = "FunX radio" Then
AxWindowsMediaPlayer1.URL = "http://www.funx.nl/live/funx.asx"
TextBox1.Text = "FunX radio:" & vbNewLine & "" & vbNewLine & "FunX is een Nederlands publiek radiostation dat uitzendt sinds 3 augustus 2002. Het station draait vooral urban muziek. De zender richt zich op alle jongeren tussen 15 en 35 jaar en is in het bijzonder opgezet om allochtone jongeren te bereiken. Muziekstijlen die op FunX te horen zijn zijn urban, latin, reggae en dancehall, oriental, Turkpop, farsipop, banghra, rai, Frans-Afrikaanse hiphop, Mandopop en andere crossoverstijlen."
End If
If ComboBox1.SelectedItem = "Hardcore radio" Then
AxWindowsMediaPlayer1.URL = "http://www.hardcoreradio.nl/rhr.asx"
TextBox1.Text = "Hardcore radio:" & vbNewLine & "" & vbNewLine & "Get tuned in for 24/7 hardcore beats and daily live shows."
End If
If ComboBox1.SelectedItem = "Kinder radio" Then
AxWindowsMediaPlayer1.URL = "http://stream.kinderradio.fm/kinderradio"
TextBox1.Text = "Kinder radio" & vbNewLine & "" & vbNewLine & "Luister hier naar de leukste kinderliedjes - kindermuziek."
End If
If ComboBox1.SelectedItem = "Kink fm" Then
AxWindowsMediaPlayer1.URL = "http://ms.stream.garnierprojects.com/kinkfm"
TextBox1.Text = "Kink fm:" & vbNewLine & "" & vbNewLine & "Het alternatieve radiostation van Nederland met muziek dat verschilt van pop tot rock en op bepaalde tijden metal."
End If
If ComboBox1.SelectedItem = "Omroep brabant" Then
AxWindowsMediaPlayer1.URL = "http://streams.kpnwebcast.nl/cgi-bin/reflector.cgi?stream=omroepbrabant_64k"
TextBox1.Text = "Omroep brabant:" & vbNewLine & "" & vbNewLine & "Omroep Brabant is de regionale publieke omroep van de Nederlandse provincie Noord-Brabant."
End If
If ComboBox1.SelectedItem = "Radio rijnmond" Then
AxWindowsMediaPlayer1.URL = "mms://vogelzang.nijmegen.internl.net/radiorijnmond"
TextBox1.Text = "Radio rijnmond:" & vbNewLine & "" & vbNewLine & "Regionale radio-, tv- en rampenzender voor Zuid-Holland-Zuid."
End If
If ComboBox1.SelectedItem = "Smash fm" Then
AxWindowsMediaPlayer1.URL = "http://www.smashfm.nl/stream/smashfm.asx"
TextBox1.Text = "Smash fm:" & vbNewLine & "" & vbNewLine & "Op SmashFM hoor je de lekkerste muziek en de meeste HITS! Luisteren naar SmashFM doe je 24 uur per dag, 7 dagen per week"
End If
If ComboBox1.SelectedItem = "Traffic radio" Then
AxWindowsMediaPlayer1.URL = "http://www.garnierstreamingmedia.com/asx/streamerswitch.asp?stream=296"
TextBox1.Text = "Traffic radio:" & vbNewLine & "" & vbNewLine & "Traffic Radio is d� verkeerszender van Nederland! Hier hoor je, 24 uur per dag en 7 dagen per week, de meest complete verkeers- en OV reisinformatie"
End If
If ComboBox1.SelectedItem = "Vrouwonline radio" Then
AxWindowsMediaPlayer1.URL = "http://ice1.streamzilla.jet-stream.nl:8000/ilsemedia=ice7"
TextBox1.Text = "Vrouwonline radio:" & vbNewLine & "" & vbNewLine & "De leukste muziek, de laatste nieuwtjes. Het beste uit je radio en elke avond Candlelight vanaf 22:00."
End If
If ComboBox1.SelectedItem = "WOS (westlandse omroep)" Then
AxWindowsMediaPlayer1.URL = "http://stream.kabelfoon.nl:8000/wos876"
TextBox1.Text = "WOS (westlandse omroep):" & vbNewLine & "" & vbNewLine & ""
End If
End If
If taal.Text = "Engels" Then
If ComboBox1.SelectedItem = "BBC Radio 1" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "BBC Radio 1:" & vbNewLine & "" & vbNewLine & "BBC Radio 1 is een radiozender in het Verenigd Koninkrijk en onderdeel van de British Broadcasting Corporation."
End If
If ComboBox1.SelectedItem = "BBC Radio 2" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "BBC Radio 2:" & vbNewLine & "" & vbNewLine & "BBC Radio 2 is een nationaal radiostation in het Verenigd Koninkrijk en onderdeel van de British Broadcasting Corporation. Het station is vooral gericht op luisteraars van 30 jaar en ouder, maar trekt de laatste jaren steeds meer jongeren. Overdag wordt er muziek van de jaren '60-'90 gedraaid, 's avonds zijn er programma's die gericht zijn op specifieke genres of periodes."
End If
If ComboBox1.SelectedItem = "Hard Radio" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "Hard Radio:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "BCC Radio 4 - FM" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "BCC Radio 4 - FM:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "BCC Radio 4 - LW" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "BCC Radio 4 - LW:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "BCC Asian Network" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "BCC Asian Network:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "Absolute Xtreme" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "Absolute Xtreme:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "Absolute Classic Rock" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "Absolute Classic Rock:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "Capital Radio" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "Capital Radio:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "Heart Radio" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "Heart Radio:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "Splash Radio" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "Splash Radio:" & vbNewLine & "" & vbNewLine & ""
End If
'If ComboBox1.SelectedItem = "" Then
' AxWindowsMediaPlayer1.URL = ""
' TextBox1.Text = "" & vbNewLine & "" & vbNewLine & ""
'End If
End If[/CPP]
Sleep ook even een timer naar je form (om de zenders te laden, op taal)
klik op de timer en zet aan de rechterkant de interval op 1 en enabled op true
zet in de timer de volgende code:
[CPP]If taal.Text = "Nederlands" Then
ComboBox1.Items.Clear()
ComboBox1.Text = "Selecteer een zender"
ComboBox1.Items.Add("100% NL")
'ComboBox1.Items.Add("3FM")
'ComboBox1.Items.Add("Action radio")
ComboBox1.Items.Add("Arrow classic rock")
ComboBox1.Items.Add("Arrow jazz fm")
ComboBox1.Items.Add("Bnn fm")
'ComboBox1.Items.Add("Bnr nieuws radio")
ComboBox1.Items.Add("Candlelight radio")
ComboBox1.Items.Add("Caz!")
'ComboBox1.Items.Add("Classic fm")
'ComboBox1.Items.Add("Fresh fm")
ComboBox1.Items.Add("FunX radio")
ComboBox1.Items.Add("Hardcore radio")
'ComboBox1.Items.Add("Keizerstad fm")
ComboBox1.Items.Add("Kinder radio")
ComboBox1.Items.Add("Kink fm")
ComboBox1.Items.Add("Omroep brabant")
'ComboBox1.Items.Add("OZ radio")
ComboBox1.Items.Add("Q music")
'ComboBox1.Items.Add("Radio 1")
'ComboBox1.Items.Add("Radio 2")
'ComboBox1.Items.Add("Radio 4")
'ComboBox1.Items.Add("Radio 5")
ComboBox1.Items.Add("Radio 538")
'ComboBox1.Items.Add("Radio 538 dance department")
'ComboBox1.Items.Add("Radio 538 hitzone")
'ComboBox1.Items.Add("Radio 538 juize")
'ComboBox1.Items.Add("Radio 538 nonstop")
'ComboBox1.Items.Add("Radio 538 party")
'ComboBox1.Items.Add("Radio 53L8")
'ComboBox1.Items.Add("Radio NL")
ComboBox1.Items.Add("Radio rijnmond")
'ComboBox1.Items.Add("Radio veronica")
'ComboBox1.Items.Add("Sky radio")
ComboBox1.Items.Add("Slam! fm")
ComboBox1.Items.Add("Smash fm")
'ComboBox1.Items.Add("Tmf radio")
ComboBox1.Items.Add("Traffic radio")
ComboBox1.Items.Add("Vrouwonline radio")
'ComboBox1.Items.Add("Waterstad fm")
'ComboBox1.Items.Add("Wereld omroep")
ComboBox1.Items.Add("WOS (westlandse omroep)")
End If
If taal.Text = "Engels" Then
ComboBox1.Items.Clear()
ComboBox1.Text = "Selecteer een zender"
ComboBox1.Items.Add("BBC Radio 1")
ComboBox1.Items.Add("BBC Radio 2")
ComboBox1.Items.Add("Hard Radio")
ComboBox1.Items.Add("BCC Radio 4 - FM")
ComboBox1.Items.Add("BCC Radio 4 - LW")
ComboBox1.Items.Add("BCC Asian Network")
ComboBox1.Items.Add("Absolute Xtreme")
ComboBox1.Items.Add("Absolute Classic Rock")
ComboBox1.Items.Add("Capital Radio")
ComboBox1.Items.Add("Heart Radio")
ComboBox1.Items.Add("Splash Radio")
[/CPP]
Maak meteen even een menu balk en noem het eerste item bestand en het 2de about...
onder bestand zet je de volgende items:
Toevoegen aan favorieten
Verwijderen van favorieten
______ (rechtermuisknop op 1 item > insert > separator)
Radio stoppen
Radio hervatten
_____ (rechtermuisknop op 1 item > insert > separator)
Afsluiten
ga vervolgens naar Project (boven in de balk) en kies voor "Add windows form" en kies daar voor about box
herhaal dit maar kies nu voor "Splash screen".
vervolgens dubbelklik je in de solution explorer op "my project", en daar zet je splash screen: op splashscreen1
Schakel terug naar je form1 en dubbelklik op het menuitem "about..."
geef daar deze code in:
[CPP]aboutbox1.showdialog()[/CPP]
Nu gaan we de code van alle dingen onder het menuitem bestand maken.
klik op Toevoegen aan favorieten en zoek in properties naar shortcutkeys en kies daar voor ctrl + D
Dubbelklik nu op toevoegen aan favorieten en geef de volgende code in:
[CPP] ListBox1.Items.Add(ComboBox1.Text)[/CPP]
Gebruik nu wat je geleerd hebt om de volgende shortcutkeys te zetten bij de menu items
verwijderen van favorieten = Del
Radio stoppen = ctrl+pause
Radio hervatten = ctrl + space
Afsluiten = alt + f4
dubbelklik vervolgens op verwijderen van favorieten en voeg de volgende code in:
[CPP] ListBox1.Items.Remove(ListBox1.SelectedItem)[/CPP]
dubbelklik nu op radio stoppen en voeg daar dit in:
[CPP] AxWindowsMediaPlayer1.Ctlcontrols.stop()[/CPP]
Dubbelklik op radio hervatten en voeg daar dit in:
[CPP] AxWindowsMediaPlayer1.Ctlcontrols.play()[/CPP]
dubbelklik op afsluiten en voeg daar hetvolgende in:
[CPP]me.close[/CPP]
het menu is nu klaar
Voeg ook een listbox toe
Voeg ook meteen een textbox toe en maak deze multiline door op het kleine pijltje in de rechterhoek te drukken en multiline aan te vinken.
voeg een label toe op je form en noem deze "taal", maak deze ook onzichtbaar (in de properties visible = false)
Deze dingen laten we voor nu nog even alleen.
Voeg nu een toolstrip toe aan je form:
Klik daar op het pijltje en voeg een statuslabel toe. (tekst maakt niet uit)
voeg nog een statuslabel aan je balk toe, laat deze nog maar even met de standaard tekst.
Vervolgens maak je nog 1 statuslabel aan en die geef je de volgende tekst: "Radio zenders uit:"
Vervolgens drukt u nogmaals op het kleine pijltje en voegt U een dropdownbutton toe met de volgende items:
Engeland
Nederland
Dubelklik op engeland en vul deze code in:
[CPP] taal.Text = "Engels"
Timer2.Start()
ToolStripStatusLabel4.Text = "Engeland"[/CPP]
dubbelklik op "Nederland" en geef de volgende code in:
[CPP] taal.Text = "Nederlands"
Timer2.Start()
ToolStripStatusLabel4.Text = "Nederland"[/CPP]
Voeg nu de laatste statuslabel toe en deze geef je de tekst "Nederland"
Vervolgens klik je op toolstrupstatuslabel2 en haal je de tekst weg.
Ook zoek je in de properties naar de optie "Spring" zet deze op True
voeg vervolgens aan je load event de volgende code toe:
[CPP]Toolstripstatuslabel1.text = systeminformation.username[/CPP]
Nu werkt in principe alles, alleen vergeet je programma steeds welke zenders favoriet waren
dat gaan we ook even aanpassen
dubbelklik nogmaals op een lege plek op je form om in de form1_load SUB te komen en voeg daar deze code nog eens bij (achter het andere)
[CPP] Try
If File.Exists(Application.StartupPath & "\favorieten.txt") Then
Dim SR As StreamReader, Temp, Item As String, i As Integer
If (File.Exists(Application.StartupPath + "\favorieten.txt")) Then
SR = File.OpenText(Application.StartupPath & "\favorieten.txt")
Temp = SR.ReadToEnd()
SR.Close()
For i = 0 To Temp.Length - 1
If (Temp.Substring(i, 1) <> "-") Then
Item += Temp.Substring(i, 1)
Else
ListBox1.Items.Add(Item)
Item = String.Empty
End If
Next
ListBox1.Items.Add(Item)
End If
End If
Catch ex As Exception
MsgBox("Uw favorieten bestand is corrupt. Mi-Radio zal deze nu verwijderen")
My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\favorieten.txt")
End Try[/CPP]
nu ga je bovenin naar het actions menu en dat verander je van load naar formclosed (er opent een nieuwe sub)
in die nieuwe sub zet je de volgende code:
[CPP] If File.Exists(Application.StartupPath + "\favorieten.txt") Then
My.Computer.FileSystem.DeleteFile(Application.StartupPath + "\favorieten.txt")
End If
If ListBox1.Items.Count > 0 Then
Dim SW As StreamWriter, i As Integer, Temp As String
SW = IO.File.CreateText(Application.StartupPath + "\favorieten.txt")
For i = 0 To ListBox1.Items.Count - 1
If (i <> 0) Then
Temp = Temp + "-" + ListBox1.Items.Item(i)
Else
Temp = ListBox1.Items.Item(0)
End If
Next
SW.Write(Temp)
SW.Flush()
SW.Close()
End If[/CPP]
als je alle stappen mee hebt gedaan dan zal je een werkende radio krijgen met de volgende functies:
Ik heb nu ook een radio mee gemaakt, deze heb ik "Mi-Radio genoemd", ik zal hem hier nu ook bijvoegen.
deze mag je aanpassen en gebruiken als je wilt!
http://www.mediafire.com/?7h9bxrp8syzum92
rechtermuisknop op de axwindowsmediaplayer1 en kies voor properties, zet daar mode op none. (dan verdwijnen de controls)
Sleep vervolgens 2 knoppen + 1 trackbar op je form en plaats ze even mooi.
knop 1 noem je play en daar zet je de volgende code onder:
[CPP]Axwindowsmediaplayer.ctlcontrols.play[/CPP]
knop 2 noem je stop en daar plant je deze code onder:
[CPP]axwindowsmediaplayer.ctlcontrols.stop[/CPP]
onder je form load event (dubbelklik op de bovenbalk van je form) typ je deze code:
[CPP]axwindowsmediaplayer1.settings.volume = 100
trackbar1.value = axwindowsmediaplayer1.settings.volume[/CPP]
Sleep vervolgens een combobox naar je form en plaats ook die even netjes en voeg de volgende code toe:
[CPP] If taal.Text = "Nederlands" Then
If ComboBox1.SelectedItem = "Q music" Then
AxWindowsMediaPlayer1.URL = "http://www.q-music.nl/asx/q-music.asx"
TextBox1.Text = "Q music:" & vbNewLine & "" & vbNewLine & "Q-music is een commercieel Nederlands radiostation dat sinds 31 augustus 2005 uitzendt, en in handen is van het Vlaamse mediabedrijf De Persgroep."
End If
If ComboBox1.SelectedItem = "Radio 538" Then
AxWindowsMediaPlayer1.URL = "http://82.201.100.9:8000/radio538.m3u"
TextBox1.Text = "Radio 538:" & vbNewLine & "" & vbNewLine & "Radio 538 (uit te spreken als 'Radio vijf-drie-acht') is een commercieel Nederlands radiostation dat sinds 1 oktober 2007 in handen is van RTL Nederland Holding. Radio 538 is afgewisseld met 3FM en Radio 2 het best beluisterde radiostation van Nederland met een gemiddeld marktaandeel van ongeveer 11%"
End If
If ComboBox1.SelectedItem = "Slam! fm" Then
AxWindowsMediaPlayer1.URL = "http://www.true.nl/streams/slamfmlivestream.asx"
TextBox1.Text = "Slam! fm:" & vbNewLine & "" & vbNewLine & "SLAM!FM (Sound Lifestyle And More) is een Nederlands commercieel, landelijk radiostation dat voornamelijk muziek gericht op jongeren uitzendt. De zender is te ontvangen via de ether op FM, internet (via een livestream te beluisteren), en op kabel. Hij is gevestigd in Hilversum."
End If
If ComboBox1.SelectedItem = "Radio 1" Then
AxWindowsMediaPlayer1.URL = "http://www.omroep.nl/radio1/live64.asx"
TextBox1.Text = "Radio 1:" & vbNewLine & "" & vbNewLine & "Radio 1 is een nationale radiozender van de Nederlandse Publieke Omroep met voornamelijk nieuws, sport en achtergronden. Van 1947 tot 1 december 1985 heette de zender Hilversum 2."
End If
If ComboBox1.SelectedItem = "100% NL" Then
AxWindowsMediaPlayer1.URL = "mms://wm1.streaming.castor.nl/100pctnl=wm2"
TextBox1.Text = "100% NL" & vbNewLine & "" & vbNewLine & "100% NL (uit te spreken als 100 procent NL) is een Nederlandse commerci�le radiozender die sinds 8 juli 2006 landelijk op FM uitzendt. Op de frequenties van 100% NL was eerder RTL FM te horen, een radiozender van RTL Nederland. RTL FM moest de uitzendingen via de ether staken na een uitspraak van de rechter, waardoor het radiostation zijn zendvergunning kwijtraakte. De eigenaar van 100% NL is Mediasales Oy, een mediabedrijf uit Finland. De zender werkt nauw samen met Slam!FM."
End If
If ComboBox1.SelectedItem = "Arrow classic rock" Then
AxWindowsMediaPlayer1.URL = "http://www.garnierstreamingmedia.com/asx/streamerswitch.asp?stream=205"
TextBox1.Text = "Arrow classic rock:" & vbNewLine & "" & vbNewLine & "Arrow Classic Rock is een Nederlandse landelijke commerci�le radiozender, die rockmuziek van 'alle tijden' afspeelt. Van sommige programma's is na afloop de playlist op de site beschikbaar. De zender is te ontvangen via de kabel, de Astra satelliet op 19,2� oost[1] en internet. Van 1 juli 2007 tot en met 10 maart 2009 zond Arrow Classic Rock in de ether uit via de voormalige FM-frequenties van Caz!. E�n keer per jaar organiseert de zender het Arrow Rock Festival. In oktober staat Arrow in het teken van Rocktober, wat inhoudt dat er Top X-lijsten gedraaid worden."
End If
If ComboBox1.SelectedItem = "Arrow jazz fm" Then
AxWindowsMediaPlayer1.URL = "http://www.garnierstreamingmedia.com/asx/streamerswitch.asp?stream=204"
TextBox1.Text = "Arrow jazz fm:" & vbNewLine & "" & vbNewLine & "Arrow Jazz FM is een Nederlandse commerci�le radiozender, die jazzmuziek afspeelt via de ether kabel en internet. Het is de zusterzender van Arrow Classic Rock."
End If
If ComboBox1.SelectedItem = "Bnn fm" Then
AxWindowsMediaPlayer1.URL = "http://wmplayer.bnn.fm"
TextBox1.Text = "Bnn fm:" & vbNewLine & "" & vbNewLine & "BNN.FM is de leukste internet-radiozender van Nederland. Je hoort 24 uur per dag, 7 dagen per week het beste van BNN. Dat betekent de leukste momenten uit BNN radioprogramma�s van nu en zo nu en dan een legendarisch stukje radio �uit de oude doos�. Ook hoor je ieder uur het nieuws en natuurlijk veel oppeppende muziek."
End If
If ComboBox1.SelectedItem = "Candlelight radio" Then
AxWindowsMediaPlayer1.URL = "http://ice1.streamzilla.jet-stream.nl:8000/ilsemedia=ice7"
TextBox1.Text = "Candlelight radio:" & vbNewLine & "" & vbNewLine & "Dag en nacht, 7 dagen per week, de allermooiste muziek op www.candlelight.nl. Met elke avond tussen 22.00 en 23.00 uur gedichten van luisteraars."
End If
If ComboBox1.SelectedItem = "Caz!" Then
AxWindowsMediaPlayer1.URL = "http://www.garnierstreamingmedia.com/asx/caz_audio_01.asp"
TextBox1.Text = "Caz!:" & vbNewLine & "" & vbNewLine & "Arrow Caz is een landelijk Nederlands commercieel radiostation. Het station is eigendom van Arrow en zendt uit via het internet."
End If
If ComboBox1.SelectedItem = "FunX radio" Then
AxWindowsMediaPlayer1.URL = "http://www.funx.nl/live/funx.asx"
TextBox1.Text = "FunX radio:" & vbNewLine & "" & vbNewLine & "FunX is een Nederlands publiek radiostation dat uitzendt sinds 3 augustus 2002. Het station draait vooral urban muziek. De zender richt zich op alle jongeren tussen 15 en 35 jaar en is in het bijzonder opgezet om allochtone jongeren te bereiken. Muziekstijlen die op FunX te horen zijn zijn urban, latin, reggae en dancehall, oriental, Turkpop, farsipop, banghra, rai, Frans-Afrikaanse hiphop, Mandopop en andere crossoverstijlen."
End If
If ComboBox1.SelectedItem = "Hardcore radio" Then
AxWindowsMediaPlayer1.URL = "http://www.hardcoreradio.nl/rhr.asx"
TextBox1.Text = "Hardcore radio:" & vbNewLine & "" & vbNewLine & "Get tuned in for 24/7 hardcore beats and daily live shows."
End If
If ComboBox1.SelectedItem = "Kinder radio" Then
AxWindowsMediaPlayer1.URL = "http://stream.kinderradio.fm/kinderradio"
TextBox1.Text = "Kinder radio" & vbNewLine & "" & vbNewLine & "Luister hier naar de leukste kinderliedjes - kindermuziek."
End If
If ComboBox1.SelectedItem = "Kink fm" Then
AxWindowsMediaPlayer1.URL = "http://ms.stream.garnierprojects.com/kinkfm"
TextBox1.Text = "Kink fm:" & vbNewLine & "" & vbNewLine & "Het alternatieve radiostation van Nederland met muziek dat verschilt van pop tot rock en op bepaalde tijden metal."
End If
If ComboBox1.SelectedItem = "Omroep brabant" Then
AxWindowsMediaPlayer1.URL = "http://streams.kpnwebcast.nl/cgi-bin/reflector.cgi?stream=omroepbrabant_64k"
TextBox1.Text = "Omroep brabant:" & vbNewLine & "" & vbNewLine & "Omroep Brabant is de regionale publieke omroep van de Nederlandse provincie Noord-Brabant."
End If
If ComboBox1.SelectedItem = "Radio rijnmond" Then
AxWindowsMediaPlayer1.URL = "mms://vogelzang.nijmegen.internl.net/radiorijnmond"
TextBox1.Text = "Radio rijnmond:" & vbNewLine & "" & vbNewLine & "Regionale radio-, tv- en rampenzender voor Zuid-Holland-Zuid."
End If
If ComboBox1.SelectedItem = "Smash fm" Then
AxWindowsMediaPlayer1.URL = "http://www.smashfm.nl/stream/smashfm.asx"
TextBox1.Text = "Smash fm:" & vbNewLine & "" & vbNewLine & "Op SmashFM hoor je de lekkerste muziek en de meeste HITS! Luisteren naar SmashFM doe je 24 uur per dag, 7 dagen per week"
End If
If ComboBox1.SelectedItem = "Traffic radio" Then
AxWindowsMediaPlayer1.URL = "http://www.garnierstreamingmedia.com/asx/streamerswitch.asp?stream=296"
TextBox1.Text = "Traffic radio:" & vbNewLine & "" & vbNewLine & "Traffic Radio is d� verkeerszender van Nederland! Hier hoor je, 24 uur per dag en 7 dagen per week, de meest complete verkeers- en OV reisinformatie"
End If
If ComboBox1.SelectedItem = "Vrouwonline radio" Then
AxWindowsMediaPlayer1.URL = "http://ice1.streamzilla.jet-stream.nl:8000/ilsemedia=ice7"
TextBox1.Text = "Vrouwonline radio:" & vbNewLine & "" & vbNewLine & "De leukste muziek, de laatste nieuwtjes. Het beste uit je radio en elke avond Candlelight vanaf 22:00."
End If
If ComboBox1.SelectedItem = "WOS (westlandse omroep)" Then
AxWindowsMediaPlayer1.URL = "http://stream.kabelfoon.nl:8000/wos876"
TextBox1.Text = "WOS (westlandse omroep):" & vbNewLine & "" & vbNewLine & ""
End If
End If
If taal.Text = "Engels" Then
If ComboBox1.SelectedItem = "BBC Radio 1" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "BBC Radio 1:" & vbNewLine & "" & vbNewLine & "BBC Radio 1 is een radiozender in het Verenigd Koninkrijk en onderdeel van de British Broadcasting Corporation."
End If
If ComboBox1.SelectedItem = "BBC Radio 2" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "BBC Radio 2:" & vbNewLine & "" & vbNewLine & "BBC Radio 2 is een nationaal radiostation in het Verenigd Koninkrijk en onderdeel van de British Broadcasting Corporation. Het station is vooral gericht op luisteraars van 30 jaar en ouder, maar trekt de laatste jaren steeds meer jongeren. Overdag wordt er muziek van de jaren '60-'90 gedraaid, 's avonds zijn er programma's die gericht zijn op specifieke genres of periodes."
End If
If ComboBox1.SelectedItem = "Hard Radio" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "Hard Radio:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "BCC Radio 4 - FM" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "BCC Radio 4 - FM:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "BCC Radio 4 - LW" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "BCC Radio 4 - LW:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "BCC Asian Network" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "BCC Asian Network:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "Absolute Xtreme" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "Absolute Xtreme:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "Absolute Classic Rock" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "Absolute Classic Rock:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "Capital Radio" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "Capital Radio:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "Heart Radio" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "Heart Radio:" & vbNewLine & "" & vbNewLine & ""
End If
If ComboBox1.SelectedItem = "Splash Radio" Then
AxWindowsMediaPlayer1.URL = ""
TextBox1.Text = "Splash Radio:" & vbNewLine & "" & vbNewLine & ""
End If
'If ComboBox1.SelectedItem = "" Then
' AxWindowsMediaPlayer1.URL = ""
' TextBox1.Text = "" & vbNewLine & "" & vbNewLine & ""
'End If
End If[/CPP]
Sleep ook even een timer naar je form (om de zenders te laden, op taal)
klik op de timer en zet aan de rechterkant de interval op 1 en enabled op true
zet in de timer de volgende code:
[CPP]If taal.Text = "Nederlands" Then
ComboBox1.Items.Clear()
ComboBox1.Text = "Selecteer een zender"
ComboBox1.Items.Add("100% NL")
'ComboBox1.Items.Add("3FM")
'ComboBox1.Items.Add("Action radio")
ComboBox1.Items.Add("Arrow classic rock")
ComboBox1.Items.Add("Arrow jazz fm")
ComboBox1.Items.Add("Bnn fm")
'ComboBox1.Items.Add("Bnr nieuws radio")
ComboBox1.Items.Add("Candlelight radio")
ComboBox1.Items.Add("Caz!")
'ComboBox1.Items.Add("Classic fm")
'ComboBox1.Items.Add("Fresh fm")
ComboBox1.Items.Add("FunX radio")
ComboBox1.Items.Add("Hardcore radio")
'ComboBox1.Items.Add("Keizerstad fm")
ComboBox1.Items.Add("Kinder radio")
ComboBox1.Items.Add("Kink fm")
ComboBox1.Items.Add("Omroep brabant")
'ComboBox1.Items.Add("OZ radio")
ComboBox1.Items.Add("Q music")
'ComboBox1.Items.Add("Radio 1")
'ComboBox1.Items.Add("Radio 2")
'ComboBox1.Items.Add("Radio 4")
'ComboBox1.Items.Add("Radio 5")
ComboBox1.Items.Add("Radio 538")
'ComboBox1.Items.Add("Radio 538 dance department")
'ComboBox1.Items.Add("Radio 538 hitzone")
'ComboBox1.Items.Add("Radio 538 juize")
'ComboBox1.Items.Add("Radio 538 nonstop")
'ComboBox1.Items.Add("Radio 538 party")
'ComboBox1.Items.Add("Radio 53L8")
'ComboBox1.Items.Add("Radio NL")
ComboBox1.Items.Add("Radio rijnmond")
'ComboBox1.Items.Add("Radio veronica")
'ComboBox1.Items.Add("Sky radio")
ComboBox1.Items.Add("Slam! fm")
ComboBox1.Items.Add("Smash fm")
'ComboBox1.Items.Add("Tmf radio")
ComboBox1.Items.Add("Traffic radio")
ComboBox1.Items.Add("Vrouwonline radio")
'ComboBox1.Items.Add("Waterstad fm")
'ComboBox1.Items.Add("Wereld omroep")
ComboBox1.Items.Add("WOS (westlandse omroep)")
End If
If taal.Text = "Engels" Then
ComboBox1.Items.Clear()
ComboBox1.Text = "Selecteer een zender"
ComboBox1.Items.Add("BBC Radio 1")
ComboBox1.Items.Add("BBC Radio 2")
ComboBox1.Items.Add("Hard Radio")
ComboBox1.Items.Add("BCC Radio 4 - FM")
ComboBox1.Items.Add("BCC Radio 4 - LW")
ComboBox1.Items.Add("BCC Asian Network")
ComboBox1.Items.Add("Absolute Xtreme")
ComboBox1.Items.Add("Absolute Classic Rock")
ComboBox1.Items.Add("Capital Radio")
ComboBox1.Items.Add("Heart Radio")
ComboBox1.Items.Add("Splash Radio")
[/CPP]
Maak meteen even een menu balk en noem het eerste item bestand en het 2de about...
onder bestand zet je de volgende items:
Toevoegen aan favorieten
Verwijderen van favorieten
______ (rechtermuisknop op 1 item > insert > separator)
Radio stoppen
Radio hervatten
_____ (rechtermuisknop op 1 item > insert > separator)
Afsluiten
ga vervolgens naar Project (boven in de balk) en kies voor "Add windows form" en kies daar voor about box
herhaal dit maar kies nu voor "Splash screen".
vervolgens dubbelklik je in de solution explorer op "my project", en daar zet je splash screen: op splashscreen1
Schakel terug naar je form1 en dubbelklik op het menuitem "about..."
geef daar deze code in:
[CPP]aboutbox1.showdialog()[/CPP]
Nu gaan we de code van alle dingen onder het menuitem bestand maken.
klik op Toevoegen aan favorieten en zoek in properties naar shortcutkeys en kies daar voor ctrl + D
Dubbelklik nu op toevoegen aan favorieten en geef de volgende code in:
[CPP] ListBox1.Items.Add(ComboBox1.Text)[/CPP]
Gebruik nu wat je geleerd hebt om de volgende shortcutkeys te zetten bij de menu items
verwijderen van favorieten = Del
Radio stoppen = ctrl+pause
Radio hervatten = ctrl + space
Afsluiten = alt + f4
dubbelklik vervolgens op verwijderen van favorieten en voeg de volgende code in:
[CPP] ListBox1.Items.Remove(ListBox1.SelectedItem)[/CPP]
dubbelklik nu op radio stoppen en voeg daar dit in:
[CPP] AxWindowsMediaPlayer1.Ctlcontrols.stop()[/CPP]
Dubbelklik op radio hervatten en voeg daar dit in:
[CPP] AxWindowsMediaPlayer1.Ctlcontrols.play()[/CPP]
dubbelklik op afsluiten en voeg daar hetvolgende in:
[CPP]me.close[/CPP]
het menu is nu klaar
Voeg ook een listbox toe
Voeg ook meteen een textbox toe en maak deze multiline door op het kleine pijltje in de rechterhoek te drukken en multiline aan te vinken.
voeg een label toe op je form en noem deze "taal", maak deze ook onzichtbaar (in de properties visible = false)
Deze dingen laten we voor nu nog even alleen.
Voeg nu een toolstrip toe aan je form:
Klik daar op het pijltje en voeg een statuslabel toe. (tekst maakt niet uit)
voeg nog een statuslabel aan je balk toe, laat deze nog maar even met de standaard tekst.
Vervolgens maak je nog 1 statuslabel aan en die geef je de volgende tekst: "Radio zenders uit:"
Vervolgens drukt u nogmaals op het kleine pijltje en voegt U een dropdownbutton toe met de volgende items:
Engeland
Nederland
Dubelklik op engeland en vul deze code in:
[CPP] taal.Text = "Engels"
Timer2.Start()
ToolStripStatusLabel4.Text = "Engeland"[/CPP]
dubbelklik op "Nederland" en geef de volgende code in:
[CPP] taal.Text = "Nederlands"
Timer2.Start()
ToolStripStatusLabel4.Text = "Nederland"[/CPP]
Voeg nu de laatste statuslabel toe en deze geef je de tekst "Nederland"
Vervolgens klik je op toolstrupstatuslabel2 en haal je de tekst weg.
Ook zoek je in de properties naar de optie "Spring" zet deze op True
voeg vervolgens aan je load event de volgende code toe:
[CPP]Toolstripstatuslabel1.text = systeminformation.username[/CPP]
Nu werkt in principe alles, alleen vergeet je programma steeds welke zenders favoriet waren
dat gaan we ook even aanpassen
dubbelklik nogmaals op een lege plek op je form om in de form1_load SUB te komen en voeg daar deze code nog eens bij (achter het andere)
[CPP] Try
If File.Exists(Application.StartupPath & "\favorieten.txt") Then
Dim SR As StreamReader, Temp, Item As String, i As Integer
If (File.Exists(Application.StartupPath + "\favorieten.txt")) Then
SR = File.OpenText(Application.StartupPath & "\favorieten.txt")
Temp = SR.ReadToEnd()
SR.Close()
For i = 0 To Temp.Length - 1
If (Temp.Substring(i, 1) <> "-") Then
Item += Temp.Substring(i, 1)
Else
ListBox1.Items.Add(Item)
Item = String.Empty
End If
Next
ListBox1.Items.Add(Item)
End If
End If
Catch ex As Exception
MsgBox("Uw favorieten bestand is corrupt. Mi-Radio zal deze nu verwijderen")
My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\favorieten.txt")
End Try[/CPP]
nu ga je bovenin naar het actions menu en dat verander je van load naar formclosed (er opent een nieuwe sub)
in die nieuwe sub zet je de volgende code:
[CPP] If File.Exists(Application.StartupPath + "\favorieten.txt") Then
My.Computer.FileSystem.DeleteFile(Application.StartupPath + "\favorieten.txt")
End If
If ListBox1.Items.Count > 0 Then
Dim SW As StreamWriter, i As Integer, Temp As String
SW = IO.File.CreateText(Application.StartupPath + "\favorieten.txt")
For i = 0 To ListBox1.Items.Count - 1
If (i <> 0) Then
Temp = Temp + "-" + ListBox1.Items.Item(i)
Else
Temp = ListBox1.Items.Item(0)
End If
Next
SW.Write(Temp)
SW.Flush()
SW.Close()
End If[/CPP]
als je alle stappen mee hebt gedaan dan zal je een werkende radio krijgen met de volgende functies:
- veel zenders
- engelse en nederlandse zenders (met filter op de toolstripbalk)
- favorieten die laden bij het opstarten en opgeslagen worden als je form closed (die formclosed sub)
- een label met de username van de persoon die het programma gebruikt (linksonder)
- een splash screen
- een about box
- een combobox die vult met nederlandse OF engelse zenders
- een trackbar die het volume regelt
- een start/stop knop voor je axwindowsmediaplayer.
Ik heb nu ook een radio mee gemaakt, deze heb ik "Mi-Radio genoemd", ik zal hem hier nu ook bijvoegen.
deze mag je aanpassen en gebruiken als je wilt
!http://www.mediafire.com/?7h9bxrp8syzum92
Laatst bewerkt:
XanthoDeBruijn
Gebruiker
- Lid geworden
- 16 okt 2011
- Berichten
- 69
Helemaal bedankt!!!!! Ik stuur je de download link als alles is aangepast
XanthoDeBruijn
Gebruiker
- Lid geworden
- 16 okt 2011
- Berichten
- 69
Ik ga het updaten! Ik stuur de link als het klaar is.
XanthoDeBruijn
Gebruiker
- Lid geworden
- 16 okt 2011
- Berichten
- 69
Hopelijk doet ie het! http://www.mediafire.com/?dvx1415zq6r5wk9
XanthoDeBruijn
Gebruiker
- Lid geworden
- 16 okt 2011
- Berichten
- 69
Nee, klop indd, niet alles doet het, maar Q Music en nog een andere doen het wel, en bedankt dat je het luisterd
SmartThinker
Gebruiker
- Lid geworden
- 15 mei 2013
- Berichten
- 241
cool topic!
- Status
