[VB.net] Radiostreams

So,wir erstellen uns ein eigenes kleines Programm mit einer Control für unsere Lieblingsradiostreams.

Als erstes kommt eine neue Form.
auf dieser füge ich Buttons und ein Windowsmediaplayer Steuerelement hinzu.
Dazu kommen die Buttons,ich verwende 2 für die Radios (beliebig erweiterbar).
Und 4 mit den Funktionen "Play" , "Pause" , "Stop" , und "Close"
Und eine Checkbox mit dem Text "Immer im Vordergrund".
Und ein Label mit dem Text "Playing:"

http://img3.imagebanana.com/img/11ur45dt/1.JPG

Das Mediaplayerelement kann ruhig komisch angeordner sein,sieht man später sowieso nicht.

Nun ziehen wir die Form kleiner , und schon ist der Mediaplayer verschwunden.

http://img3.imagebanana.com/img/krrc8v0r/2.JPG

Dann kommt wieder mal der einfachste Befehl an den Button "Close"

http://img3.imagebanana.com/img/v5lbu7b/CLOSE.JPG

Bei "Play kommt wiedereinmal folgender Befehl.

http://img3.imagebanana.com/img/jisx9r71/play.JPG

fast das Selbe bei "Pause":

http://img3.imagebanana.com/img/mxmrg75u/pause.JPG

und Stop:

http://img3.imagebanana.com/img/vc9vl53r/stop.JPG

Der Button für den Radiostream 1,bei mir Technobase bekommt diesen Befehl:

http://img3.imagebanana.com/img/fi9kz61v/tb.JPG

Dieser bewirkt,das Technobase abgespielt wird,und bei dem Label "Playing:" ab sofort "Playing: TechnobaseFM" angezeigt wird.

So ähnlich ist es bei dem zweiten Radiostream,bei mir BlackBeats FM:

http://img3.imagebanana.com/img/l0xou36n/bb.JPG

Nun zu der CheckBox,ihr gebt ihr diesen Befehl:

http://img3.imagebanana.com/img/vq887183/cb.JPG

Das war es schon,fertig ist euer Streamingtool.
Die links mit .asx am Ende bekommt ihr,wenn ihr euch das Radio einmal im Internet anhört,dort öffnet sich im Normalfall ein neues Fenster,
und die URL endet auf .asx,Beispiel dazu Technobase.fm:
http://www.surfmusik.de/radio/techno...-dsl,6542.html
Wenn ihr dort auf "Externer Player" klickt,bekommt ihr den .asx Link.

Originally from VisualBaisc.6x.to
Aber trotzdem von mir,kopieren erlaubt,nur muss der Autor
genannt werden.

Kannst du hier, oder in einem anderen Thread, auch zeigen wie man dann einen Lautstärkeregler einbauen kann?

das würd mich auch mal interessieren

Für alle die noch eine Lautstärkeregelung einbauen wollen:

Zuerst solltet ihr euch ein Trackbar-Steuerelement in die Form holen.

http://img72.imageshack.us/img72/4775/trackbartt1.png


Danach könnt ihr diese mit

Code:

---

wm1.settings.volume

---

konfigurieren.
Die Werte reichen von 0 (stumm) - 100 (sehr laut).

vielen dank :)

jo echt cooles ding
kann mir noch jemand sagen wie man die Form so machen kann das man sie nicht auseinander ziehen kann? ( sodass man auch nicht merkt das da ein wm player drin ist xD )

Zitat:

---

Zitat von g4$one

jo echt cooles ding
kann mir noch jemand sagen wie man die Form so machen kann das man sie nicht auseinander ziehen kann? ( sodass man auch nicht merkt das da ein wm player drin ist xD )

---

FormBorderStyle verändern ;)

MfG

danke hast du mir ja schon mal gesagt xD aber ich vergess es immer :P
mach mal des Tut fertig :P
mfg
g4$0N3

Zitat:

---

Zitat von g4$one

mach mal des Tut fertig :P

---

ja das macht ich jetzt , uppe es dann später ;)

MfG

ok danke :)
schreib mich zuerst in ICQ an ich will der erste sein xD

Zitat:

---

Zitat von g4$one

jo echt cooles ding
kann mir noch jemand sagen wie man die Form so machen kann das man sie nicht auseinander ziehen kann? ( sodass man auch nicht merkt das da ein wm player drin ist xD )

---

mach doch nen resize ^^ dann kannste das mitziehen =)

Code:

---

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        AxWindowsMediaPlayer1.Width = Me.Width - 12
        AxWindowsMediaPlayer1.Height = Me.Height - AxWindowsMediaPlayer1.Top - 7
    End Sub

---

(die zahlen 12 bzw. 7 mussste dann nurnoch anpassen ^^)

Zitat:

---

Zitat von g4$one

jo echt cooles ding
kann mir noch jemand sagen wie man die Form so machen kann das man sie nicht auseinander ziehen kann? ( sodass man auch nicht merkt das da ein wm player drin ist xD )

---

Zitat:

---

Zitat von The Papst

FormBorderStyle verändern ;)

MfG

---

doppelklick oben auf den rand isses auch gross :x
Fensterstil > maximize box false

sorry :x

Warum eigentlich nicht:

Code:

---

AxWindowsMediaPlayer1.Visible = False

---

Müsste das problem mit dem groß machen/ziehen docha uch lösen ^^

Finde irgendwie den WindowsMediaPlayer Steuerelement nicht (hab VB 2008 Express Edition)

Zitat:

---

Zitat von Italystyle

Finde irgendwie den WindowsMediaPlayer Steuerelement nicht (hab VB 2008 Express Edition)

---

geh mal auf die Toolbox -> Rechte maustaste -> Elemente auswählen... -> COM-Steuerelemente -> haken setzen bei Windows Media Player -> OK

MfG

Ach da, Danke (Gibts vllt ein Danke-Button?, ich hasse Danke-Posts xD)

hey erst mal super tut habe alles geschafft nur die lautstärke regelung macht mir zuschaffen das bekomme ich net hin habe also ne trackbar genommen und als code
1. AxWindowsMediaPlayer1.settings.volume da sagt er fehler
2. AxWindowsMediaPlayer1.settings.volume = () da sagt er ich soll nen wert angeben
3. AxWindowsMediaPlayer1.settings.volume = (50) ist es fehler frei kann nur nix ändern mit der trackbar

LG

//
schon gut bin drauf gekommen
AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value

Kann mir jemand erklären wie das funktioniert mit listen.pls?
Danke im Voraus:)
Gruß

Zitat:

---

Zitat von Krimi

Kann mir jemand erklären wie das funktioniert mit listen.pls?
Danke im Voraus:)
Gruß

---

einfach die "listen.pls" weglassen.
z.B.:
Stream : http://s1.radio.lclhst.net:1337/
Listen : http://s1.radio.lclhst.net:1337/listen.pls

AxWindowsMediaPlayer1.URL = "http://s1.radio.lclhst.net:1337/"


Quelle : http://radio.lclhst.net/

ich habe versuch mit so http://s1.radio.lclhst.net:1337/listen.pls mit meine shoutcast ip adresse aber es funzt net und auch habe auch versucht die listen.pls zo löschen trotz funzt net :SS:(=(((

volume einstellen is easy:

Zitat:

---

Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll

AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value


Label4.Text = TrackBar1.Value

End Sub

---

Danke für das Tut! Hat alles wunderbar geklappt.
Eine Frage hätte ich noch, kann man einstellen das die trackbar gleich die volume anzeigt die der media player hat ?

sehr einfach geschrieben für anfänger wie mich, thx!

Also das funzt, aber so alle 5 minuten hört es einfach auf zu streamen.
Sehr komisch.

ich finde das "Windowsmediaplayer Steuerelement" irgendwie nicht.. :/

da ich das mit dem Immer im vordergrund nicht verstehe möchte ich gern das wenn man ein Häcken in der BOX macht , dass es dann ge mutet ist also wie der durchgestriechene Lautsprecher bei Media Player

muss ich da noch irgent was einbinden?
weil
"AxWindowsMediaPlayer1.Controls.play"
sowie pause und stop wird bei mir als fehler angezeigt.

Code:

---

"play" ist kein Member von "System.Windows.Forms.Control.ControlCollection".

---

€:ok hat sich erledigt hab das ctr übersehen

wie kann ich mehr streams einfügen z.b ich will Sunshine live aber woher bekomm ich die endung mit asx?

Teste mal:
http://s12.directupload.net/file/d/1...4yg99g_gif.htm

AxWindowsMediaPlayer1.URL = "http://62.27.26.45:80/sunshinelive/livestream.mp3" daswürde auch gehn für sunshine live

€: für mute

Code:

---

Private Sub CheckBox_mute_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox_mute.CheckedChanged
        AxWindowsMediaPlayer1.settings.mute = CheckBox_mute.Checked
    End Sub

---

Hey, ich habe vor mir einen Player zu basteln, habe es auch soweit schon geschafft, alles mögliche einzubauen...
Nun habe ich aber ein Problem, wie kann ich die Stream Info ausgeben... (Artist - Track) in einem "Display" bzw einer "Box" die immer den Aktuellen Track usw. zeigt :)

Tut mir Leid, bin neu in VB :)

Gibt es eine möglichkeit, die TrackBar transparent zu machen?

Probier mal Backcolor.Transparent.
Ansonsten gehts nicht.

Ne, ging nicht. Hab aber eine Trackbar.dll Datei gedownloadet und diese dann Importiert. Dann ging es.

tolles tut ;) wen wer interesse hat , mann kan auch noch den aktuellen dj und das aktuelle lied ermitteln

Zitat:

---

Zitat von Mufflon12

tolles tut ;) wen wer interesse hat , mann kan auch noch den aktuellen dj und das aktuelle lied ermitteln

---

Wie geht das?^^.

Public Function GetOnAir() As String
Dim cWeb As New System.Net.WebClient()
Dim sQuell As String = cWeb.DownloadString("http://Technobase.fm")
Dim reFilter As New System.Text.RegularExpressions.Regex(" target=""_top""><span style=""color:#ffdd82"">(?<string>(.*))\</span></a>")
Dim sOnAir As String = reFilter.Match(sQuell).Groups("string").ToString()

Return sOnAir


als modul

abrufen kannst du den dj dann mit
Label1.Text = GetOnAir()
End Function

Der Windowsmediaplayer ist aber leider nicht plattformunabhängig, wie es der Name schon sagt. Wie kriegt man dieses Programm auch unter Linux zum Laufen?

Zitat:

---

Zitat von Zero.Sign

Der Windowsmediaplayer ist aber leider nicht plattformunabhängig, wie es der Name schon sagt. Wie kriegt man dieses Programm auch unter Linux zum Laufen?

---

VB.net und Linux?
Wie stellst du dir das vor.
Mono wäre eine Möglichkeit ,allerdings würde ich das nicht als plattformunabhängig bezeichnen.
Zu deiner Frage:
So weit ich weiß gar nicht.
Wenn du das in C schreiben würdest ,würdest du es sicherlich auch für Linux kompilieren können ;).
Aber vergiss .net/vb und Linux lieber schnell ;)

Dann nehme ich mal an, die Möglichkeit besteht dies in C++ zu kompilieren? Neue Welten eröffnen sich für mich. Danke für die Antwort.
Und weshalb würdest du "Mono" nicht, als plattformunabhängig bezeichnen?


[Post Scriptum-Weiterführende Frage Off-Topic]
Inwieweit unterscheiden sich VB.net und C++?
Beides ist grundsätzlich OOP, aber welches von den beiden
am Besten dafür geeignet? Nur zur Anmerkung, ich lerne
gerade C++, meine Fähigkeit steckt zwar noch in den
Kinderschuhen, aber man lernt.