Frage zu Eigenen Radio Player

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Trade.

    Frage zu Eigenen Radio Player

    Hey leute

    ich hab mal eine frage

    Ich habe einen Radio player gemach wollte den jetzt so programieren das er den stream ausließt das er in Textbox anzeigt wer ON - AIR ist ...

    Heute übernacht ist mir eingefallen da der wmp eingebaut ist un der das schon ausliest das ich das dann iwie in die textbox reinbekommen wisst ihr wie man das am besten hinbekommt ???

    Du kannst XML auslesen von dem Radio & dies in einer Textbox/Label anzeigen lassen.
    z.B:

    VB.NET-Quellcode

    1. Imports System.Net
    3. Public Class Form1
    5. Private Sub TechnoBase()
    6. 'Die Deklaration der Informationen
    7. Dim radioname As String = ""
    8. Dim radiomoderator As String = ""
    9. Dim radioshow As String = ""
    10. Dim radiostyle As String = ""
    11. Dim showstarttime As String = ""
    12. Dim showendtime As String = ""
    13. Dim moderatorlink As String = ""
    14. Dim titleartist As String = ""
    15. Dim title As String = ""
    16. Dim radiorelease As String = ""
    17. Dim radiolistener As String = ""
    18. Dim radiourl As String = ""
    19. Dim modpic As String = ""
    21. 'Die XML downloaden
    22. Dim a As New WebClient
    23. a.DownloadFile(New Uri("http://tray.technobase.fm/radio.xml"), "radio.xml")
    24. a.Dispose()
    25. 'Das XML Document Laden
    26. Dim xml As XDocument = XDocument.Load("radio.xml")
    28. 'Den Namen des Radiosenders auslesen
    29. For Each Name As XElement In xml.<weareone>.<radio>(0).<name>
    30. radioname = Name
    31. Next
    32. 'Den Moderator auslesen
    33. For Each Moderator As XElement In xml.<weareone>.<radio>(0).<moderator>
    34. radiomoderator = Moderator
    35. Next
    36. 'Den Shownamen auslesen
    37. For Each Show As XElement In xml.<weareone>.<radio>(0).<show>
    38. radioshow = Show
    39. Next
    40. 'Den Style auslesen
    41. For Each Style As XElement In xml.<weareone>.<radio>(0).<style>
    42. radiostyle = Style
    43. Next
    45. 'Die Startzeit auslesen
    46. For Each Starttime As XElement In xml.<weareone>.<radio>(0).<starttime>
    47. showstarttime = Starttime
    48. Next
    49. 'Die Endzet auslesen
    50. For Each Endtime As XElement In xml.<weareone>.<radio>(0).<endtime>
    51. showendtime = Endtime
    52. Next
    53. 'Den Link zum Moderator auslesen
    54. For Each Link As XElement In xml.<weareone>.<radio>(0).<link>
    55. moderatorlink = Link
    56. Next
    57. 'Den Artist auslesen
    58. For Each Artist As XElement In xml.<weareone>.<radio>(0).<artist>
    59. titleartist = Artist
    60. Next
    61. 'Den Song auslesen
    62. For Each Song As XElement In xml.<weareone>.<radio>(0).<song>
    63. title = Song
    64. Next
    65. 'Das Release auslesen
    66. For Each Release As XElement In xml.<weareone>.<radio>(0).<release>
    67. radiorelease = Release
    68. Next
    69. 'Die Listener auslesen
    70. For Each Listener As XElement In xml.<weareone>.<radio>(0).<listener>
    71. radiolistener = Listener
    72. Next
    73. 'Die Url auslesen
    74. For Each Url As XElement In xml.<weareone>.<radio>(0).<url>
    75. radiourl = Url
    76. Next
    77. 'Das Moderator Bild Downloaden und anzeigen
    78. For Each Picture As XElement In xml.<weareone>.<radio>(0).<picture>
    79. Dim b As New WebClient()
    80. b.DownloadFile(New Uri(Picture), My.Computer.FileSystem.SpecialDirectories.Temp & "\tmod.jpg")
    81. b.Dispose()
    82. modpic = My.Computer.FileSystem.SpecialDirectories.Temp & "\tmod.jpg"
    83. Next
    86. 'Informationen in ein Array packen, muss man eigentlich nicht aber ich finde es so besser
    87. Dim technobase(12) As String
    88. technobase(0) = radioname
    89. technobase(1) = radiomoderator
    90. technobase(2) = radioshow
    91. technobase(3) = radiostyle
    92. technobase(4) = showstarttime
    93. technobase(5) = showendtime
    94. technobase(6) = moderatorlink
    95. technobase(7) = titleartist
    96. technobase(8) = title
    97. technobase(9) = radiorelease
    98. technobase(10) = radiolistener
    99. technobase(11) = radiourl
    100. technobase(12) = modpic
    102. 'Informationen auslesen
    103. 'z.b. Label1.Text = "Jetzt auf TechnoBase.FM: " & technobase(7) & " - " & technobase(8)
    104. 'Dabei ist technobase(7) der Titleartist und technobase(8) der Title
    106. Label1.Text = "Jetzt auf TechnoBase.FM: " & technobase(7) & " - " & technobase(8)
    108. 'Wenn man den Array weglassen würde so müsste man das so schreiben
    109. 'Label1.Text = "Jetzt auf TechnoBase.FM: " & titleartist & " - " & title
    110. ​


    Einfach Label1.Text zu Textbox1.Text ändern.
    Radio-Player Modul >>1.0<<:
    Fertigstellung: 100%

    Download gibt es per PN :)

    Die letzte Antwort ist von 2010. Den TE wird das also vermutlich nicht mehr interessieren.

    => Geschlossen.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

Facebook
Telefonspende