oline radio

[mastermindzh]

oke ik zal er vrijdag eens naar kijken
bedankt voor de tips :thumb:
oja sommige dingen zijn nog niet helemaal klaar ik zal morgen de volgende dingen doen
meer zenders toevoegen
updater anders starten
uitstraling ( kleur, tekst ....)

Ik heb hier de volgende zenders voor je
je moet even over dat combobox1.items.add heen kijken

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)")

     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

Al deze zenders werken en het zal je een hoop tijd schelen met het opzoeken van de streams .

nog een tip, maak een favoriete zender functie, als er 1 ding is wat ik haat is het zoeken in een combobox naar een zender die ik elke dag aan heb staan

Ik heb ook mijn radio nu op het internet gezet, misschien dat je er naar wilt kijken en/of iets mee kunt doen.
het is wel al van een tijdje geleden maar je mag er mee doen wat je wilt :thumb:

je kunt hem hier vinden:http://www.mediafire.com/?v05aqjv9azgzc7e

 

[Chopra]

Is de naam overigens correct? Oline lijkt op Online en Radio Online bestaat reeds

 

[ido435]

oke bedankt voor de codes en de spellens foutje die chopra heeft gevonden ik zal ze zeker vandaag gaan toevoegen ik denk als ik vanavond of morgen hem ga uploaden
oja met de naam dat weet ik maar die spelling foutje zal ik er wel ff uitvissen

oja nog ff iets
je had eerder deze code in je bericht geplaatst maar hij werkt niet goed
[SQL] If Button1.Text = "Hervatten" Then
AxWindowsMediaPlayer1.Ctlcontrols.play()
button1.text = "Stoppen"
Else
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End If[/SQL]

maar dan als je op stoppen drukt stopt die met de stream en de stream kun je niet meer herstarten door op start te drukken wat gaat er dan fout?
update van bericht
ik heb hier de eerste foto van 1.2.1 beta zodra er dingen veranderen update ik de foto
http://dl.dropbox.com/u/50062681/radio oline/voorbeeld op helpmij.nl/voorbeeld 1.PNG
letop er kunnen nog dingen veranderen

 

[ido435]

ik heb de verzie 1.2.1 geupload maar daar heb ik nog niet aan alle punten gedaan
er moeten nog meer muziek zenders bijkomen en spelling controle en dat alles in de ingebouwde media speler afspeeld
de download link is bijgewerkt

 

[mastermindzh]

zet deze code onder de play/pause knop

IF Button1.Text = "Hervatten" Then
            AxWindowsMediaPlayer1.Ctlcontrols.play()
button1.text = "Stoppen"
        Else
            AxWindowsMediaPlayer1.Ctlcontrols.stop()
button1.text = "Hervatten"
        End IF

[edit] je kan bij je volgende upload de helft van die map gewoon weglaten
de enige bestanden die je nodig hebt zijn:
de .exe
de axinterop.wmplib.dll
en de interop.wmplib.dll

punt2: je programma sluit nog steeds niet goed af, hij blijft in de processenlijst staan
punt3: hij blijft ook aangeven dat er een update is (wss je buildnummer veranderen)[/edit]

 

[ido435]

humm dat kan kloppen dat ik vergeten wad de buildnummer vergeten was zal ik morgen ff bijstellen
maar hoe kun je dat processenlijst weghalen maar als je normaal op sluiten druk dan moet het gewoon afgesloten zijn

IF Button1.Text = "Hervatten" Then
            AxWindowsMediaPlayer1.Ctlcontrols.play()
button1.text = "Stoppen"
        Else
            AxWindowsMediaPlayer1.Ctlcontrols.stop()
button1.text = "Hervatten"
        End IF

dan start die niet goed meer dan kan ik niks meer afspelen dus ik laat die code verder gewoon zo als hoe die is maar ik ga ze nog een keer op een andere plek zetten zodat het minder opgaat vallen
verder bedankt voor de tips

 

[mastermindzh]

Jouw Pp sluit idd gewoon af. Alleen de mediaspeler staat nog in het geheugen (en dus de processen lijst). Probeer die eerst eens uit te zetten voordat je form sluit(bij een formclose event)

 

[ido435]

weet je ook hoe je dat kunt maken of instellen?
want ik heb nog niet zo veel ervaring er mee

 

[ido435]

ik heb weer een paar dingen er bij gezet namelijk plaatjes voor pauze play en stop buttons
ik heb degene die ik heb kunnen toevoegen aan de ingebouwde media player
ik heb in de bovenste balk ook dingen toegevoegd zodra ze werken met welke een streep doorstaat werkt nog niet
een aantal onderdelen hou ik in update verzie nog dat kan ik zo doen om een .txt bestand te veranderen
verder heb ik ook de kleur veranderd verder nog niet gekeken op spelling en grammatica
link is aangepast

 

[mastermindzh]

axwindowsmediaplayer1.close

 

[ido435]

hoe bedoel je
en nog ff iets wie is er aan het spammen via de mail form wil die er mee ophouden

 

[mastermindzh]

Om de mediaspeler te sluiten (voor je app sluit) doe je.

windowsmediaplayernaam.close()

 

[ido435]

wil je het even iets beter uitleggen

 

[mastermindzh]

weet je ook hoe je dat kunt maken of instellen?
want ik heb nog niet zo veel ervaring er mee

gister vroeg je dit, omdat jouw app door blijft gaan na het sluiten.

nu zeg ik , sluit voordat je je applicatie (forms) sluit, sluit eerst de mediaspeler.
dit doe je door in je formclosing event hetvolgende te zetten:

axwindowsmediaplayer1.close()[\CODE]

dan sluit net voordat je applicatie sluit, eerst je windows media speler. en zal je programma niet bij de processen blijven staan.

 

[ido435]

maar waar moet ik heb plaatsen dan?
onder een tekst van een label van de form of mediaplyer mediaplayer?

 

[mastermindzh]

Dubbelklik op je form (gewoon op een leeg stuk).
dan zit je in de form load event.

je kan dan rechtsboven in de hoek (naast het woord load en naast het donderschigtje)
je event veranderen. zoek daar naar formclosing en klik erop.
er zal nu een nieuw event worden aangemaakt (formclosing).

wat formclosing doet is:
als het form sluit, doe dan dit stuk code.

daar plaats je het dus.

foto:

 

[ido435]

oke ik zal het er ff in zetten
ik zal zo dit bericht aanpassen als de download link veranderd is

 

[ido435]

de link is bijgewerkt
en ik heb ook nog een bug verholpen ik hoop als de updater nu beter werkt
je moet hem handmatig er op zetten via de aangepaste link kan niet via het programma

 

[mastermindzh]

Je hebt de code op de goede plek geplaatst , hij blijft niet meer bij de processen staan.

wel heb ik nog een paar dingetjes.

* je updater werkt de eerste keer perfect, maar de 2de keer blijft hij gewoon vast hangen.
* Als het programma afsluit krijg je een msgbox, die zou ik proberen te vermijden dat is superirritant na een aantal keer. (de msgbox is ook leeg btw)

 

[ido435]

had hem verwijderd zeker vergeten op te slaan met de msg te verwijderen voor het afsluiten
oja met de updater gebeurd ook bij mij