Archiv verlassen und diese Seite im Standarddesign anzeigen : [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/technobase-fm-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 (http://imageshack.us)
Danach könnt ihr diese mit
wm1.settings.volume
konfigurieren.
Die Werte reichen von 0 (stumm) - 100 (sehr laut).
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 )
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
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
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 =)
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 ^^)
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
doppelklick oben auf den rand isses auch gross :x
Fensterstil > maximize box false
sorry :x
Warum eigentlich nicht:
AxWindowsMediaPlayer1.Visible = False
Müsste das problem mit dem groß machen/ziehen docha uch lösen ^^
Italystyle
23.04.2009, 21:47
Finde irgendwie den WindowsMediaPlayer Steuerelement nicht (hab VB 2008 Express Edition)
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
Italystyle
23.04.2009, 22:48
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ß
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:(=(((
sp33dwalker
19.07.2009, 11:59
volume einstellen is easy:
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!
Kaspersky
31.07.2009, 22:48
Also das funzt, aber so alle 5 minuten hört es einfach auf zu streamen.
Sehr komisch.
Terrorist
31.07.2009, 23:29
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.
"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/1873/kw4yg99g_gif.htm
AxWindowsMediaPlayer1.URL = "http://62.27.26.45:80/sunshinelive/livestream.mp3" daswürde auch gehn für sunshine live
€: für mute
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?
hackerking
28.07.2010, 20:13
Probier mal Backcolor.Transparent.
Ansonsten gehts nicht.
Ne, ging nicht. Hab aber eine Trackbar.dll Datei gedownloadet und diese dann Importiert. Dann ging es.
Mufflon12
05.08.2010, 15:55
tolles tut ;) wen wer interesse hat , mann kan auch noch den aktuellen dj und das aktuelle lied ermitteln
tolles tut ;) wen wer interesse hat , mann kan auch noch den aktuellen dj und das aktuelle lied ermitteln
Wie geht das?^^.
Mufflon12
06.08.2010, 15:16
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
Zero.Sign
10.08.2010, 14:03
Der Windowsmediaplayer ist aber leider nicht plattformunabhängig, wie es der Name schon sagt. Wie kriegt man dieses Programm auch unter Linux zum Laufen?
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 ;)
Zero.Sign
10.08.2010, 14:20
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.
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.
Lern bitte zuerst mal programmieren XD.
C/C++ sind ganz andere Sprachen als vb(.net).
Also brauchst du auch andren Code.
Es ist nur auch in C/C++ möglich.
Musst halt den Stream direkt per Sockets runterladen und mit die bytes dann abspielen (vl mit einer fertigen Bibliothek oder so).
Und weshalb würdest du "Mono" nicht, als plattformunabhängig bezeichnen?
Das is jetzt so wie ich Java nicht als plattformunabhängig bezeichnen würde.
Ist es natürlich ,nur hängt ja auch iwie von einer Plattform (der Java Runtime) ab ;).
Powered by vBulletin® Copyright ©2024 Adduco Digital e.K. und vBulletin Solutions, Inc. Alle Rechte vorbehalten.