Musik Spieler/Code

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ChOoSeMyNaMe.

    Musik Spieler/Code

    Schönen Abend Community!!
    Ich bin seit einigen Stunden an einem kleinen Programm am schreiben und bin schon weit gekommen. Es wird mal ein Musik Player, der mit Hilfe des Windows Media Player AddOn alle möglichen Formate abspielen kann (ich weiß, dass diese Formate vorinstalliert sein müssen, aber ich werde das Programm nur Privat verwenden, höchstens meinen Freunden zeigen).
    Ich werde euch mal den Code zeigen, dass ihr mal drüber gucken könnt. Ich weiß das der Code nicht perfekt geschrieben ist und nicht wirklich professionell wirkt... Aber mein "Schnupperkurs", den ich mal über VB 2010 gemacht habe, ist auch ein paar Tage her :D
    Also hier ist der Code:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Option Explicit On
    2. Imports System.IO
    4. Public Class Form1
    6. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) Handles Me.FormClosing
    7. AxWindowsMediaPlayer1.Ctlcontrols.stop()
    8. End Sub
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. Me.Text = "All In One Player"
    12. End Sub
    14. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenBTN.Click
    16. OpenFileDialog1.FileName = Nothing
    17. OpenFileDialog1.Multiselect = True
    19. If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
    20. For Each Liste As String In OpenFileDialog1.FileNames
    21. ListBox1.Items.Add(Liste)
    22. Next
    23. ListBox1.SelectedIndex = 0
    24. Timer1.Enabled = True
    25. AxWindowsMediaPlayer1.Ctlenabled = True
    26. End If
    28. Label3.Text = "Anzahl: " _
    29. & ListBox1.Items.Count
    31. End Sub
    33. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayBTN.Click
    35. If AxWindowsMediaPlayer1.URL = CStr(ListBox1.SelectedItem) Then
    37. AxWindowsMediaPlayer1.URL = ListBox1.Text
    39. DurationTimer.Enabled = True
    41. Me.Text = "All In One Player - " & IO.Path.GetFileNameWithoutExtension(AxWindowsMediaPlayer1.URL)
    43. End If
    45. 'Alle Lieder aus der Playlist wiederholen
    47. If CheckBox2.Checked Then
    49. Me.AxWindowsMediaPlayer1.URL = ListBox1.Items(ListBox1.SelectedIndex).ToString
    51. Do Until Me.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped
    52. Application.DoEvents()
    53. If Me.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
    54. If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
    55. ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
    56. Me.AxWindowsMediaPlayer1.URL = ListBox1.Items(ListBox1.SelectedIndex).ToString
    57. Else
    59. End If
    60. End If
    61. Loop
    62. End If
    64. End Sub
    66. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopBTN.Click
    68. AxWindowsMediaPlayer1.Ctlcontrols.stop()
    69. Me.Text = "All In One Player"
    70. Label1.Text = "00:00"
    71. DurationTimer.Enabled = False
    72. TrackBar1.Value = 0
    73. Timer1.Enabled = False
    75. End Sub
    77. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PauseBTN.Click
    78. AxWindowsMediaPlayer1.Ctlcontrols.pause()
    79. End Sub
    81. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayListDEL.Click
    83. If ListBox1.Items.Count = 0 Then
    84. Exit Sub
    85. End If
    87. If MessageBox.Show(Me, "Willst du die angezeigten Lieder wirklich entfernen?", "Löschen", MessageBoxButtons.OKCancel, MessageBoxIcon.Information) = DialogResult.OK Then
    88. ListBox1.Items.Clear()
    90. End If
    92. Label3.Text = "Anzahl: " _
    93. & ListBox1.Items.Count
    95. If WMPLib.WMPPlayState.wmppsPlaying Then
    96. AxWindowsMediaPlayer1.Ctlcontrols.stop()
    97. Me.Text = "All In One Player"
    98. End If
    100. Timer1.Enabled = False
    101. AxWindowsMediaPlayer1.Ctlenabled = False
    102. AxWindowsMediaPlayer1.Ctlcontrols.stop()
    103. End Sub
    105. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayListLOAD.Click
    107. If Not My.Settings.PlayList Is Nothing Then
    108. MessageBox.Show(Me, "Du hast noch keine PlayList erstellt!", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error)
    109. Exit Sub
    111. End If
    113. ListBox1.Items.Clear()
    115. For Each item As String In My.Settings.PlayList
    116. ListBox1.Items.Add(item)
    117. Next
    119. End Sub
    121. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayListSAVE.Click
    123. If ListBox1.Items.Count = 0 Then
    124. MessageBox.Show(Me, "Füge erst Lieder in die Playlist ein, dann kannst du speichern!", "Negativ", MessageBoxButtons.OK, MessageBoxIcon.Information)
    126. Exit Sub
    127. Else
    129. Dim PlayList As New System.Collections.Specialized.StringCollection
    130. For Each item As String In ListBox1.Items
    131. PlayList.Add(item)
    132. Next
    133. My.Settings.PlayList = PlayList
    134. My.Settings.Save()
    136. MessageBox.Show(Me, "Deine PlayList wurde gespeichert. Beim nächsten Start der Anwendung auf 'Laden' Klicken.", "Gespeichert!", MessageBoxButtons.OK, MessageBoxIcon.Information)
    138. End If
    140. End Sub
    142. Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
    144. AxWindowsMediaPlayer1.settings.volume = TrackBar2.Value
    146. Dim trackBarPercentageInteger As Integer = TrackBar2.Value * 100 \ TrackBar2.Maximum
    147. Label4.Text = String.Format(" {0}%", trackBarPercentageInteger)
    149. End Sub
    151. Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
    153. Dim filePaths = CType(e.Data.GetData(DataFormats.FileDrop), String())
    154. For Each s As String In filePaths
    155. ListBox1.Items.Add(s)
    156. Next s
    158. Label3.Text = "Anzahl: " _
    159. & ListBox1.Items.Count
    161. End Sub
    163. Private Sub ListBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
    165. If e.Data.GetDataPresent(DataFormats.FileDrop) Then
    166. e.Effect = DragDropEffects.Copy
    167. End If
    169. Label3.Text = "Anzahl: " _
    170. & ListBox1.Items.Count
    172. End Sub
    174. Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    176. End Sub
    178. Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
    180. AxWindowsMediaPlayer1.URL = ""
    182. AxWindowsMediaPlayer1.URL = CStr(ListBox1.SelectedItem)
    184. AxWindowsMediaPlayer1.URL = ListBox1.Text
    186. If CheckBox2.Checked Then
    188. Me.AxWindowsMediaPlayer1.URL = ListBox1.Items(ListBox1.SelectedIndex).ToString
    190. Do Until Me.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped
    191. Application.DoEvents()
    192. If Me.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
    193. If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
    194. ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
    195. Me.AxWindowsMediaPlayer1.URL = ListBox1.Items(ListBox1.SelectedIndex).ToString
    196. Else
    198. End If
    199. End If
    200. Loop
    201. End If
    203. Timer1.Enabled = True
    205. DurationTimer.Enabled = True
    207. Me.Text = "All In One Player - " & IO.Path.GetFileNameWithoutExtension(AxWindowsMediaPlayer1.URL)
    209. End Sub
    211. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    212. AxWindowsMediaPlayer1.settings.setMode("loop", True)
    213. End Sub
    215. Private Sub Lautlos_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lautlos.CheckedChanged
    217. If AxWindowsMediaPlayer1.settings.mute = True Then
    218. AxWindowsMediaPlayer1.settings.mute = False
    219. Else
    220. AxWindowsMediaPlayer1.settings.mute = True
    221. End If
    223. End Sub
    225. Private Sub DurationTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DurationTimer.Tick
    227. If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
    228. Label1.Text = "00:00"
    229. DurationTimer.Enabled = False
    230. TrackBar1.Value = 0
    231. End If
    233. End Sub
    235. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
    237. Timer1.Enabled = True
    238. AxWindowsMediaPlayer1.Ctlenabled = True
    239. TrackBar1.Value = 0
    241. End Sub
    243. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    245. If CheckBox2.Checked And AxWindowsMediaPlayer1.Ctlcontrols.currentPosition >= AxWindowsMediaPlayer1.currentMedia.duration - 1 Then
    246. If (ListBox1.SelectedIndex + 1) = ListBox1.Items.Count Then
    247. ListBox1.SelectedIndex = 0
    248. Else
    249. ListBox1.SelectedIndex += 1
    250. End If
    251. End If
    253. If AxWindowsMediaPlayer1.Ctlcontrols.currentPosition >= AxWindowsMediaPlayer1.currentMedia.duration - 1 Then
    254. If (ListBox1.SelectedIndex + 1) = ListBox1.Items.Count Then
    255. AxWindowsMediaPlayer1.Ctlcontrols.stop()
    256. TrackBar1.Value = 0
    258. Else
    259. ListBox1.SelectedIndex += 1
    260. End If
    261. End If
    263. Label7.Text = " " & AxWindowsMediaPlayer1.currentMedia.durationString
    264. Label1.Text = " " & AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
    266. TrackBar1.Maximum = Format(CDbl(AxWindowsMediaPlayer1.currentMedia.duration), ".00")
    267. TrackBar1.Value = Format(CDbl(AxWindowsMediaPlayer1.Ctlcontrols.currentPosition), ".00")
    269. End Sub
    271. Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
    272. AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar1.Value
    273. End Sub
    274. End Class



    Es ist relativ viel zum lesen, da ich einige interessante Dinge mit eingebaut habe.
    Ich hoffe, dass ihr mir ein paar Ratschlöge geben könnt, was ich an dem Code verbessern kann :)

    Schönen Abend noch!

    Verschoben und Spoiler eingefügt. ~Trade
    Bilder

    • All In One Player.PNG

      16,28 kB, 1.131×610, 371 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Trade“ ()

    Also sry aber dieser Code is wirklich grausig, ich erkläre mal warum:
    -Du nutzt VB6-Gedöhns
    -Du gibst keinem deiner Controls richtige Namen, von daher ist dein Code allein schon ohne GUI nicht zu verstehen
    -Du hast scheinbar keine Ahnung von Events, wie man sie einsetzt, abonniert und wahrscheinlich auch kaum in die Doku des WMP geguckt und weisst von daher nichtmal was der alles bietet
    -Diese Timer sind ganz einfach durch Events ersetzbar
    -Du benutzt Settings, für Playlists ist XML oder gar ne DB einfach viel geeigneter
    -Du nutzt kein Parse/TryParse

    Und mMn finde ich, dass wenn man schon einen Musikplayer schreibt, dass man sich auch selbst um die Soundwiedergabe kümmert bspw mit CSCORE, wenn man den WMP nutzt und noch dazu einfach nur die selben Funktionen einbaut, wie der WMP selbst schon hat, warum sollte man dann den von dir programmierten nutzen?

    LG

    @ChOoSeMyNaMe Ich habe teilweise sogar Codes hier aus dem Forum verwendet, wenn ich an einer Stelle nicht weiter kam.. Also verstehe ich nicht ganz wieso du meinst, das ich "VB6-Gedöhns" nutze..
    Ansonsten weiß ich jetzt durch dich, dass mein Code Sch***e ist und das ich als "Anfänger" jetzt den kompletten Code neu schreiben darf, weil es zu unprofessionell ist.
    Trotzdem danke für deine Bemühung.

    Er ist nicht zu unprofessionell, er ist einfach nur schlecht. Hier mal ein paar Tipps:Übrigens: Viele hier im Forum nutzen VB6-Zeug, einfach, weil sie es nicht besser wissen. Daher der obige Thread.

    Ich muss aber @ChOoSeMyNaMe recht geben: Wenn du einen Button bspw. btnStopPlayback anstatt Button6 nennst, wird der Code deutlich übersichtlicher und verständlicher.

    ChOoSeMyNaMe schrieb:

    Und mMn finde ich, dass wenn man schon einen Musikplayer schreibt, dass man sich auch selbst um die Soundwiedergabe kümmert bspw mit CSCORE, wenn man den WMP nutzt und noch dazu einfach nur die selben Funktionen einbaut, wie der WMP selbst schon hat, warum sollte man dann den von dir programmierten nutzen?
    Auch hier hat er recht, denn warum sollte man deinen Player nutzen, wenn er genau das gleiche wie der Windows Media Player kann? Da kann man auch gleich den nutzen, und muss ihn sich nicht einmal installieren. Wenn du bspw. NAudio oder CSCore von @thefiloe nutzen würdest, hast du zwar etwas mehr Arbeit, könntest aber viel coolere Sachen mit deinem Player machen, so wie es bspw. @VincentTB mit Hurricane gemacht hat. Das ist übrigens nicht böse gemeint.

    LG :)

    ~ides

    Edit:

    VB.NET-Quellcode

    1. CStr(ListBox1.SelectedItem)
    könntest du durch

    VB.NET-Quellcode

    1. ListBox1.SelectedItem.ToString
    ersetzen. Dies ist nicht so fehleranfällig, denn die von Option Strict vorgeschlagenen Fehlerverbesserungen sind vollkommener Bullshit. Wenn du später mal bspw. auf C++ oder C# umsteigen möchtest, fliegst du durch Basic und Option Strict bei den Datentypen mächtig auf die Schnauze. Du solltest einfach immer schauen, wie du einen Fehler beheben könntest, ohne direkt die -schlechte- vorgeschlagene Verbesserung (für Faule) zu benutzen, welche die Option Strict eigentlich komplett nutzlos macht.

    Man sieht übrigens, dass du den Code 1zu1 kopiert hast, denn ein paar Zeilen später hast "du" es deutlich besser gelöst:

    VB.NET-Quellcode

    1. ListBox1.Items(ListBox1.SelectedIndex).ToString


    Weitergehend: Wie @ChOoSeMyNaMe ebenfalls erwähnt hat, hättest du die Timer durch Events ersetzen können: Alles über Events Deutlich sauberer, übersichtlicher und besser.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ichduersie“ ()

    Also sry aber das kaufe ich dir nicht ab. In dem Link von @ichduersie steht ALLES drin. Eine Featuresliste, eine Liste mit Projekten und eine Umfangreiche Doku mit Tutorials. Das ist zwar in C# aber das kann man problemlos konvertieren. Bei CSCore hast du ebenfalls eine recht umfangreiche Doku, viele Beispiele (auch in VB) und wird in mehreren Projekten verwendet. Du hast halt bei den Libraries keinen Soundplayer, den musst du selber schreiben, aber das ist weitaus sinnvoller als den WMP zu nutzen. Du kannst das nach deinen Vorstellungen programmieren und verstehst vorallem die Logik dahinter.

    LG