VB.NET mit Direct X, DVD wiedergeben?

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von Acr0most.

    VB.NET mit Direct X, DVD wiedergeben?

    Hallo ihr lieben,

    ich möchte unter Windows 10 einen DVD Player programmieren und ich habe gehört dass das Direct X auch wie z.B. das VLC Player Control könnte aber ich weis nicht wie bzw. was ich da beachten muss. Ich habe ein Code mir diesbezüglich aus dem Internet besorgt aber ich weis (noch) nicht einmal ob das überhaupt Direct X kann.

    VB.NET-Quellcode

    1. ​Imports System.IO
    2. Public Class tmDVD
    3. Dim Volume As Boolean = True
    4. Private WithEvents AudioDatei As Audio
    5. Private WithEvents VideoDatei As Video
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. ToolStripStatusLabel3.Enabled = False
    8. With Me.TrackBar2
    9. .Maximum = 7500
    10. .Minimum = 0
    11. .LargeChange = 1000
    12. .SmallChange = 100
    13. .TickFrequency = 1000
    14. .Value = .Maximum
    15. End With
    16. End Sub
    18. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    19. Try
    20. Me.Timer1.Enabled = True
    21. AudioDatei.Play()
    22. ZeitTimer.Start()
    23. Catch ex As Exception
    24. End Try
    25. Try
    26. Me.Timer2.Enabled = True
    27. VideoDatei = New Video(TextBox1.Text)
    28. VideoDatei.Owner = Panel1
    29. VideoDatei.Play()
    30. ZeitTimer.Start()
    31. Catch ex As Exception
    32. End Try
    33. End Sub
    34. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    35. Try
    36. AudioDatei.Pause()
    37. Catch ex As Exception
    38. End Try
    39. Try
    40. VideoDatei.Pause()
    41. Catch ex As Exception
    42. End Try
    43. End Sub
    44. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    45. Try
    46. AudioDatei.Stop()
    47. Catch ex As Exception
    48. End Try
    49. Try
    50. VideoDatei.Stop()
    51. Catch ex As Exception
    52. End Try
    53. End Sub
    54. Private Sub DateiÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateiÖffnenToolStripMenuItem.Click
    55. Try
    56. If Me.OpenFileDialog1.ShowDialog() <> DialogResult.OK Then
    57. Return
    58. End If
    59. Dim FileName As String = Me.OpenFileDialog1.FileName
    60. If Not AudioDatei Is Nothing Then
    61. AudioDatei.Dispose()
    62. End If
    63. ' Laden der ausgewählten Audiodatei.
    64. AudioDatei = New Audio(FileName)
    65. With Me.TrackBar1
    66. .Minimum = 0
    67. .Maximum = CInt(AudioDatei.Duration)
    68. .LargeChange = .Maximum \ 10
    69. .SmallChange = .Maximum \ 100
    70. End With
    71. Dim Song As String, artist As String
    72. Dim datei As String, fs As FileStream, br As BinaryReader
    73. datei = OpenFileDialog1.FileName
    74. fs = New FileStream(datei, FileMode.Open, FileAccess.Read)
    75. br = New BinaryReader(fs)
    76. Dim file As New FileInfo(datei)
    77. Dim tagposition As Integer = (file.Length - 128)
    78. fs.Position = tagposition + 3
    79. Song = br.ReadChars(30)
    80. ToolStripStatusLabel1.Text = Song
    81. fs.Position = tagposition + 33
    82. artist = br.ReadChars(30)
    83. ToolStripStatusLabel1.Text = artist
    84. ToolStripStatusLabel3.Enabled = True
    85. Catch ex As Exception
    86. OpenFileDialog1.ShowDialog()
    87. TextBox1.Text = OpenFileDialog1.FileName
    88. End Try
    89. End Sub
    90. Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
    91. Try
    92. Dim SourceControl As TrackBar = DirectCast(sender, TrackBar)
    93. Me.ToolTip1.SetToolTip(SourceControl, CStr(SourceControl.Value) & " s")
    94. AudioDatei.CurrentPosition = SourceControl.Value
    95. Catch ex As Exception
    96. End Try
    97. Try
    98. Dim SourceControl As TrackBar = DirectCast(sender, TrackBar)
    99. Me.ToolTip1.SetToolTip(SourceControl, CStr(SourceControl.Value) & " s")
    100. VideoDatei.CurrentPosition = SourceControl.Value
    101. Catch ex As Exception
    102. End Try
    103. End Sub
    104. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    105. Try
    106. Me.TrackBar1.Value = CInt(AudioDatei.CurrentPosition)
    107. Catch ex As Exception
    108. End Try
    109. End Sub
    110. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    111. Try
    112. If Volume = True Then
    113. AudioDatei.Volume = -7500
    114. Volume = False
    115. Button6.BackgroundImage = ImageList1.Images(0)
    116. Button6.BackgroundImageLayout = ImageLayout.Center
    117. TrackBar2.Enabled = False
    118. Else
    119. AudioDatei.Volume = 0
    120. Volume = True
    121. Button6.BackgroundImage = ImageList1.Images(1)
    122. Button6.BackgroundImageLayout = ImageLayout.Center
    123. TrackBar2.Enabled = True
    124. End If
    125. Catch ex As Exception
    127. End Try
    128. Try
    129. If Volume = True Then
    130. VideoDatei.Audio.Volume = -7500
    131. Volume = False
    132. Button6.BackgroundImage = ImageList1.Images(0)
    133. Button6.BackgroundImageLayout = ImageLayout.Center
    134. TrackBar2.Enabled = False
    135. Else
    136. VideoDatei.Audio.Volume = 0
    137. Volume = True
    138. Button6.BackgroundImage = ImageList1.Images(1)
    139. Button6.BackgroundImageLayout = ImageLayout.Center
    140. TrackBar2.Enabled = True
    141. End If
    142. Catch ex As Exception
    143. End Try
    144. End Sub
    145. Private Sub TrackBar2_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
    146. Try
    147. Dim SourceControl As TrackBar = DirectCast(sender, TrackBar)
    148. AudioDatei.Volume = -SourceControl.Maximum + SourceControl.Value
    149. Catch ex As Exception
    151. End Try
    152. Try
    153. Dim SourceControl As TrackBar = DirectCast(sender, TrackBar)
    154. VideoDatei.Audio.Volume = -SourceControl.Maximum + SourceControl.Value
    155. Catch ex As Exception
    156. End Try
    157. End Sub
    158. Private Sub ZeitTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ZeitTimer.Tick
    159. Try
    160. Dim Länge As String = TimeSpan.FromSeconds(AudioDatei.Duration).Minutes.ToString("00") & ":" & CStr(TimeSpan.FromSeconds(AudioDatei.Duration).Seconds.ToString("00"))
    161. Dim CurrentPos As String = TimeSpan.FromSeconds(AudioDatei.CurrentPosition).Minutes.ToString("00") & ":" & (TimeSpan.FromSeconds(AudioDatei.CurrentPosition).Seconds.ToString("00"))
    162. Label1.Text = CurrentPos & " / " & Länge & " "
    163. Catch ex As Exception
    165. End Try
    166. Try
    167. Dim Länge As String = TimeSpan.FromSeconds(VideoDatei.Duration).Minutes.ToString("00") & ":" & CStr(TimeSpan.FromSeconds(AudioDatei.Duration).Seconds.ToString("00"))
    168. Dim CurrentPos As String = TimeSpan.FromSeconds(VideoDatei.CurrentPosition).Minutes.ToString("00") & ":" & (TimeSpan.FromSeconds(AudioDatei.CurrentPosition).Seconds.ToString("00"))
    169. Label1.Text = CurrentPos & " / " & Länge & " "
    170. Catch ex As Exception
    171. End Try
    172. End Sub
    173. Private Sub DateiInfosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateiInfosToolStripMenuItem.Click
    174. Form2.Show()
    175. End Sub
    176. Private Sub EinstellungenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EinstellungenToolStripMenuItem.Click
    177. Form3.Show()
    178. End Sub
    179. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    180. Try
    181. Me.TrackBar1.Value = CInt(VideoDatei.CurrentPosition)
    182. Catch ex As Exception
    183. End Try
    184. End Sub
    185. End Class


    Könntet ihr mir das mal bitte diese Frage ENDLICH die ich mir stelle, eventuell beantworten?

    MFG
    Wie man mich kontaktieren kann:
    thiemo-melhorn.de

    Thiemo1991 schrieb:

    ich weis (noch) nicht einmal ob das überhaupt Direct X kann.
    Was soll das Programm tun, was tut es statt dessen?
    Hast Du alle erforderlichen DLLs eingebunden?
    Und:
    Machma nen
    Spoiler
    Spoiler
    um Deinen Code.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ja! Brauche ich außer die

    VB.NET-Quellcode

    1. Imports Microsoft.DirectX
    und den Verweis auf

    VB.NET-Quellcode

    1. Imports Microsoft.DirectX.AudioVideoPlayback
    sonst noch welche Verweise?
    Wie man mich kontaktieren kann:
    thiemo-melhorn.de

    @Thiemo1991 OK.
    Was macht Dein Programm, was macht es nicht?
    Und
    Machma nen
    Spoiler
    Spoiler
    um Deinen Code.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Thiemo1991 Du hast nicht einmal eine präzise Frage formuliert. Angenommen das hier:

    Thiemo1991 schrieb:

    ich weis (noch) nicht einmal ob das überhaupt Direct X kann

    ist deine Frage, woher sollen wir wissen was "das" ist. Wir können dir nicht sagen ob etwas Direct X unterstützt, wenn du uns nicht sagst was du benutzt. In deinem Code ist nämlich nicht ersichtlich, welchen Typ AudioDatei und VideoDatei haben. Ansonsten importierst du ja sogar die DirectX Namespaces, weshalb sollte es (was auch immer) also nicht Direct X unterstützen?

    Gib uns eine präzise Fragestellung, dann probieren wir die Frage so präzise wie möglich zu beantworten.

    Thiemo1991 schrieb:

    Könntet ihr mir das mal bitte diese Frage ENDLICH die ich mir stelle, eventuell beantworten?

    Denn es ist zwar schön, wenn du dir ENDLICH diese Frage stellst, aber wie sollen wir sie dir beantworten, wenn du sie uns nicht stellst?

    Grüße
    Vainamo

    Äh, was wird denn hier versucht?
    Du "besorgst" Dir aus dem Internet Code, und fragst hier ob das der richtige für Dein vorhaben ist? ?(

    Weisst Du denn was der Code macht?

    Ganz nebenbei hat @RodFromGermany das schon 2 mal gefragt. Überliest Du das mit Absicht?
    Rechtschreibfehler betonen den künstlerischen Charakter des Autors.

    Thiemo1991 schrieb:

    Ein Video bzw. eine Audiodatei abspielen.


    Wenn der Code das tut, dann ist doch alles gut. Du hast den richtigen Code und fertig... Oder nicht?
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Thiemo1991 schrieb:

    dass das der richtige Code für mein Vorhaben, ist
    Ich glaube kaum, dass hier jemand Deinen Code getestet hat. Und wenn er tut was er tun soll, warum machst Du dann diesen Thread auf?
    Und nun bereits zum dritten Mal:
    Editiere Deinen Startpost und mach um den Code einen Spoiler: So ein Ding:
    Spoiler
    Spoiler
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Sorry für die vllt. etwas harte Fragestellung, aber:

    Hast du jemals versucht dich mit den vor dir (irgendwie im Netz) besorgten Snippets auseinander zu setzen?

    Wenn man schon den Code aus dem Netz zieht, dann sollte das ein intensives Auseinandersetzen mit dem Code sowie eine Experimentierphase mit sich ziehen.

    Einfach nur zu copy-pasten und Andere zu fragen, ob der Code das tut, was Du dir vorstellst, hat weder was mit "Programmieren" noch mit "Hilfe im Forum suchen" zu tun.

    Außerdem ist das ständige Ignorieren von Anfragen für uns wichtige Informationen sehr lästig.
    Bitte lies die Antworten komplett durch und antworte auf ALLE Fragen die dir da gestellt werden und erledige evtl. gestellte Aufgaben.

    Ansonsten wird der Thread wieder ewig lang und keiner versteht das, was der Andere sagt und es wird ohne Lösung geschlossen bzw. verläuft im Sand.

    LG Acr0most
    Wenn das Leben wirklich nur aus Nullen und Einsen besteht, dann laufen sicherlich genügen Nullen frei herum. :D
    Signature-Move 8o
    kein Problem mit privaten Konversationen zu Thema XY :thumbup:

Facebook
Telefonspende