Visual Basic 2008 Directx Problem

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von MediaXtremely.

    Guten Abend ihr Lieben.

    Ich habe ein riesen Problem. Ich bin ein Programm am schreiben wo man mit der Tastatur Sounds abspielt.
    Ich habe es geschafft mit Directx mehrere Sounds abzuspielen. So weit so gut.
    Jetzt das Problem.

    Wenn ich mehrere Sounds abspiele, steigt die Prozessorleistung wenn ich aufhöre bleibt die Prozessorleistung so wie sie ist obwohl ich nix mache. Am Anfang bei Null beim Spielen steigt die Prozessorleistung, höre ich auf und mache nicht bleibt die Prozessorleistung so.

    Woran kann das liegen, dass die Leistung nicht mehr auf Null zurück geht?
    Hat einer eine Idee???

    Bitte??

    MfG Thorsten


    Edit by LaMa5:
    -->*moved* (Tipps&Tricks => Multimedia)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „LaMa5“ ()

    dürfte eigentlich nicht paassieren .... kannst du mal einen kleinen teil deine codes senden vielleicht liegt darin das problem ansonsten kann ich mir nichts vorstellen, weil der computer ja nur den prozessor beansprucht wenn er arbeit hat

    VB.NET-Quellcode

    1. Imports Microsoft.DirectX.AudioVideoPlayback
    2. Imports Microsoft.DirectX
    3. Public Class Form1
    4. Private WithEvents AudioDatei1 As Audio
    5. Private WithEvents AudioDatei2 As Audio
    6. Private WithEvents AudioDatei3 As Audio
    7. Private WithEvents AudioDatei4 As Audio
    8. Private WithEvents AudioDatei5 As Audio
    9. Private WithEvents AudioDatei6 As Audio
    12. Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    13. If e.KeyCode = Keys.Space Then
    14. Try
    15. PictureBox1.Image = My.Resources.boden2
    17. AudioDatei1.Play()
    20. Catch ex As Exception
    21. MsgBox("Überlastung. Alles hat seine Grenzen. Klicke auf ok um neu zu starten.")
    22. Me.Close()
    23. Application.Restart()
    24. End Try
    25. End If
    27. If e.KeyCode = Keys.G Then
    30. Try
    31. PictureBox2.Image = My.Resources.drum2
    33. AudioDatei2.Play()
    34. Catch ex As Exception
    35. MsgBox("Überlastung. Alles hat seine Grenzen. Klicke auf ok um neu zu starten.")
    36. Application.Restart()
    37. End Try
    38. End If
    40. If e.KeyCode = Keys.K Then
    43. Try
    44. PictureBox3.Image = My.Resources.drum2
    48. AudioDatei3.Play()
    49. Catch ex As Exception
    50. MsgBox("Überlastung. Alles hat seine Grenzen. Klicke auf ok um neu zu starten.")
    51. Application.Restart()
    52. End Try
    53. End If
    55. If e.KeyCode = Keys.F Then
    58. Try
    59. PictureBox5.Image = My.Resources.becken2
    62. AudioDatei4.Play()
    63. Catch ex As Exception
    64. MsgBox("Überlastung. Alles hat seine Grenzen. Klicke auf ok um neu zu starten.")
    65. Application.Restart()
    66. End Try
    67. End If
    69. If e.KeyCode = Keys.L Then
    72. Try
    73. PictureBox4.Image = My.Resources.beckengr2
    76. AudioDatei5.Play()
    77. System.Windows.Forms.Application.DoEvents()
    78. Catch ex As Exception
    79. MsgBox("Überlastung. Alles hat seine Grenzen. Klicke auf ok um neu zu starten.")
    80. Application.Restart()
    81. End Try
    82. End If
    84. If e.KeyCode = Keys.N Then
    86. Try
    87. PictureBox6.Image = My.Resources.hihat
    88. PictureBox5.Image = My.Resources.becken2
    90. AudioDatei6.Play()
    91. System.Windows.Forms.Application.DoEvents()
    92. Catch ex As Exception
    93. MsgBox("Überlastung. Alles hat seine Grenzen. Klicke auf ok um neu zu starten.")
    94. Application.Restart()
    95. End Try
    96. End If
    98. End Sub
    100. Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
    101. If e.KeyCode = Keys.Space Then
    102. PictureBox1.Image = My.Resources.boden
    104. AudioDatei1 = New Audio("bussdrum.wav")
    105. End If
    107. If e.KeyCode = Keys.G Then
    108. PictureBox2.Image = My.Resources.drum1
    109. AudioDatei2 = New Audio("snare.wav")
    110. End If
    112. If e.KeyCode = Keys.K Then
    113. PictureBox3.Image = My.Resources.drum1
    114. AudioDatei3 = New Audio("tom.wav")
    115. End If
    117. If e.KeyCode = Keys.F Then
    118. PictureBox5.Image = My.Resources.becken
    119. AudioDatei4 = New Audio("links.wav")
    121. End If
    123. If e.KeyCode = Keys.L Then
    124. PictureBox4.Image = My.Resources.beckengr
    125. AudioDatei5 = New Audio("rechts.wav")
    126. End If
    128. If e.KeyCode = Keys.N Then
    129. PictureBox6.Image = My.Resources.hihat2
    130. PictureBox5.Image = My.Resources.becken
    131. AudioDatei6 = New Audio("hihat fuss.wav")
    133. End If
    135. End Sub


    Danke für die Antwort.
    Das dachte ich auch, aber irgendwas schein er noch zu machen.

    Edit by ~blaze~:
    *vb-Tag eingefügt*

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

    Wie stelle ich das an??
    Im Formload lädt er die wav Dateien hoch und ich kann sie nur einmal abspielen. Also ich drücke einen Button der ton wird abgespielt, beim zweiten mal kein ton.

    Deswegen werden die wav Dateien jedes mal geladen.

    Ich weiß nicht weiter... ;(

    Danke für die Antwort... 8-)

    da wo du wieder von vorne Spielen lassen willst...
    Und die frage wie ist mir nicht ganz Klar, wenn du die oben verwendeten Begriffe nicht kennst, dann solltest du zumindest Google oder ein Buch bemühen...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Ich habe es geschafft, Jipi...
    Es funktioniert super...

    Danke, danke, danke für die Antworten....Ihr seit die besten.

    Also beim Abspielen die CurrentPosition = 0 setzen!

    Form load

    VB.NET-Quellcode

    1. Audiodatei = New Audio (Pfad zur einer wav datei)
    3. Button1.click
    4. Audiodatei.Play ()
    6. Audiodatei1.Currentposition = 0


    Geil, nochmals danke...

    Edit by ~blaze~:
    *vb-Tag eingefügt*

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „~blaze~“ ()

Facebook
Telefonspende