Guten Abend,
ich wollte mein Programm ein bisschen verbessern und nun habe ich mir gedacht, ich lese eine XML datei aus und lasse den Text in ein Label erscheinen.
Nun hab ich ein Problem, ich möchte dies für mehrere Radios machen & dies aufteilen, folgenden Code habe ich:
Wie mache ich dies am besten?
ich wollte mein Programm ein bisschen verbessern und nun habe ich mir gedacht, ich lese eine XML datei aus und lasse den Text in ein Label erscheinen.
Nun hab ich ein Problem, ich möchte dies für mehrere Radios machen & dies aufteilen, folgenden Code habe ich:
VB.NET-Quellcode
- 'Die Deklaration der Informationen
- Dim radioname, radiomoderator, radioshow, radiostyle, showstarttime, _
- showendtime, moderatorlink, titleartist, title, radiorelease, _
- radiolistener, radiourl, modpic As String
- 'Die XML downloaden
- Dim a As New WebClient
- a.DownloadFile(New Uri("http://tray.technobase.fm/radio.xml"), "radio.xml")
- a.Dispose()
- 'Das XML Document Laden
- Dim xml As XDocument = XDocument.Load("radio.xml")
- 'Den Namen des Radiosenders auslesen
- radioname = xml.<weareone>.<radio>(0).<name>.Value
- 'Den Moderator auslesen
- radiomoderator = xml.<weareone>.<radio>(0).<moderator>.Value
- 'Den Shownamen auslesen
- radioshow = xml.<weareone>.<radio>(0).<show>.Value
- 'Den Style auslesen
- radiostyle = xml.<weareone>.<radio>(0).<style>.Value
- 'Die Startzeit auslesen
- showstarttime = xml.<weareone>.<radio>(0).<starttime>.Value
- 'Die Endzet auslesen
- showendtime = xml.<weareone>.<radio>(0).<endtime>.Value
- 'Den Link zum Moderator auslesen
- moderatorlink = xml.<weareone>.<radio>(0).<link>.Value
- 'Den Artist auslesen
- titleartist = xml.<weareone>.<radio>(0).<artist>.Value
- 'Den Song auslesen
- title = xml.<weareone>.<radio>(0).<song>.Value
- 'Das Release auslesen
- radiorelease = xml.<weareone>.<radio>(0).<release>.Value
- 'Die Listener auslesen
- radiolistener = xml.<weareone>.<radio>(0).<listener>.Value
- 'Die Url auslesen
- radiourl = xml.<weareone>.<radio>(0).<url>.Value
- 'Das Moderator Bild Downloaden und anzeigen
- Dim b As New WebClient()
- b.DownloadFile(New Uri(xml.<weareone>.<radio>(0).<picture>.Value), My.Computer.FileSystem.SpecialDirectories.Temp & "\tmod.jpg")
- b.Dispose()
- modpic = My.Computer.FileSystem.SpecialDirectories.Temp & "\tmod.jpg"
- 'Informationen in ein Array packen, muss man eigentlich nicht aber ich finde es so besser
- Dim technobase(12) As String
- technobase(0) = radioname
- technobase(1) = radiomoderator
- technobase(2) = radioshow
- technobase(3) = radiostyle
- technobase(4) = showstarttime
- technobase(5) = showendtime
- technobase(6) = moderatorlink
- technobase(7) = titleartist
- technobase(8) = title
- technobase(9) = radiorelease
- technobase(10) = radiolistener
- technobase(11) = radiourl
- technobase(12) = modpic
- 'Informationen auslesen
- 'z.b. Label1.Text = "Jetzt auf TechnoBase.FM: " & technobase(7) & " - " & technobase(8)
- 'Dabei ist technobase(7) der Titleartist und technobase(8) der Title
- Label9.Text = "Jetzt auf TechnoBase.FM: " & titleartist & " - " & title
- 'Wenn man den Array weglassen würde so müsste man das so schreiben
- 'Label1.Text = "Jetzt auf TechnoBase.FM: " & titleartist & " - " & title
Wie mache ich dies am besten?
Radio-Player Modul >>1.0<<:
Download gibt es per PN
Fertigstellung: 100%
Download gibt es per PN