xm Datei Apspielen

  • VB.NET

Es gibt 16 Antworten in diesem Thema. Der letzte Beitrag () ist von SystemUnknow.

    Danke euch aber jetzt ein andere Problem

    Könnt ihr mir sagen warum das nicht geht?
    Er Spielt die xm Datei ab aber wenn der Process "Test" gestartet ist Stopt er nicht die Musik!
    Der Timer ist auf Enabeld

    VB.NET-Quellcode

    1. Imports Un4seen.BassMOD
    3. Public Class Form1
    4. Dim processes() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessesByName("Test")
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    9. BassMOD.BASSMOD_Init(0, 44100, BASSInit.BASS_DEVICE_DEFAULT)
    10. BassMOD.BASSMOD_MusicLoad("1.xm", 0, 0, BASSMusic.BASS_MUSIC_RAMP)
    11. End Sub
    13. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    14. If processes.Length > 0 Then
    15. BassMOD.BASSMOD_MusicStop()
    16. Else
    17. BassMOD.BASSMOD_MusicPlay()
    19. End If
    20. End Sub
    21. End Class

    ich komm nicht drauf -.-

    hab es jetzt so

    VB.NET-Quellcode

    1. Imports Un4seen.BassMOD
    3. Public Class Form1
    4. Dim processes() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessesByName("iw4mp")
    8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. BassMOD.BASSMOD_Init(0, 44100, BASSInit.BASS_DEVICE_DEFAULT)
    12. BassMOD.BASSMOD_MusicLoad("1.xm", 0, 0, BASSMusic.BASS_MUSIC_RAMP)
    14. End Sub
    16. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    17. BassMOD.BASSMOD_MusicStop()
    18. End Sub
    20. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    21. BassMOD.BASSMOD_MusicPlay()
    23. End Sub
    25. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    26. Timer1.Stop()
    27. BassMOD.BASSMOD_MusicStop()
    28. End Sub
    30. Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
    31. If processes.Length > 0 Then
    32. Timer1.Stop()
    33. Else
    34. Timer1.Start()
    35. End If
    38. End Sub
    39. End Class


    Ist bestimmt Totaler Schwachsinn
    könntest du mir das mal bitte zeigen?

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. BassMOD.BASSMOD_Init(0, 44100, BASSInit.BASS_DEVICE_DEFAULT)
    3. BassMOD.BASSMOD_MusicLoad("1.xm", 0, 0, BASSMusic.BASS_MUSIC_RAMP)
    4. End Sub
    7. Private Sub ProcessSearch ( strSuch_Process As String)
    9. //Processe aufliesten
    11. For Each oProcess As Process In Process.GetProcesses
    13. If oProcess.ProcessName = strSuch_Process Then
    15. BassMOD.BASSMOD_MusicPlay()
    18. Else
    20. BassMOD.BASSMOD_MusicStop()
    23. End If
    25. Next
    27. End Sub
    29. // Diese Code kannst du in Timer, Button oder in bilibieges Event schreiben
    31. //Prozedur aufruf
    33. Dim strDein_Proccess As String // in variable gibst du deine gesuchten process
    35. ProcessSearch (strDein_Process)


    Form load Event habe ich von dir übernommen !

    alternative mit like vergleichsoperator:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. BassMOD.BASSMOD_Init(0, 44100, BASSInit.BASS_DEVICE_DEFAULT)
    3. BassMOD.BASSMOD_MusicLoad("1.xm", 0, 0, BASSMusic.BASS_MUSIC_RAMP)
    4. End Sub
    7. Private Sub ProcessSearch ( strSuch_Process As String)
    9. Dim bolPrcess As Boolean
    11. //Processe aufliesten
    13. For Each oProcess As Process In Process.GetProcesses
    15. bolPorcess = oProcess.ProcessName like strSuch_Process
    17. If bolProcess = True Then
    19. BassMOD.BASSMOD_MusicPlay()
    22. Else
    24. BassMOD.BASSMOD_MusicStop()
    27. End If
    29. Next
    31. End Sub
    34. // Diese Code kannst du in Timer, Button oder in bilibieges Event schreiben
    36. //Prozedur aufruf
    38. Dim strDein_Proccess As String // in variable gibst du deine gesuchten process
    40. ProcessSearch (strDein_Process)

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „SystemUnknow“ ()

    Hmm also Abspielen macht er aber er stoppt nicht :(
    hab es jetzt so gemacht!

    VB.NET-Quellcode

    1. Imports Un4seen.BassMOD
    3. Public Class Form1
    4. Dim strth2 As String
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. BassMOD.BASSMOD_Init(0, 44100, BASSInit.BASS_DEVICE_DEFAULT)
    7. BassMOD.BASSMOD_MusicLoad("1.xm", 0, 0, BASSMusic.BASS_MUSIC_RAMP)
    9. End Sub
    11. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    13. For Each oProcess As Process In Process.GetProcesses
    15. If oProcess.ProcessName = strth2 Then
    16. BassMOD.BASSMOD_MusicStop()
    17. Else
    18. BassMOD.BASSMOD_MusicPlay()
    19. End If
    20. Next
    21. End Sub
    22. End Class

    Ok jetzt geht es warum auch immer :

    VB.NET-Quellcode

    1. Imports Un4seen.BassMOD
    3. Public Class Form1
    4. Dim processes() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessesByName("iw4mp")
    6. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. BassMOD.BASSMOD_Init(0, 44100, BASSInit.BASS_DEVICE_DEFAULT)
    8. BassMOD.BASSMOD_MusicLoad("1.xm", 0, 0, BASSMusic.BASS_MUSIC_RAMP)
    10. End Sub
    12. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    14. For Each oProcess As Process In Process.GetProcesses
    16. If oProcess.ProcessName = striw4mp Then
    17. BassMOD.BASSMOD_MusicStop()
    18. Else
    19. BassMOD.BASSMOD_MusicPlay()
    20. End If
    21. Next
    22. End Sub
    24. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    25. Dim processes() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessesByName("iw4mp")
    26. If processes.Length > 0 Then
    27. Label1.Text = "Enabled"
    28. Label1.ForeColor = Color.Green
    29. BassMOD.BASSMOD_MusicStop()
    30. Else
    31. Label1.Text = "Disabled"
    32. Label1.ForeColor = Color.Red
    33. BassMOD.BASSMOD_MusicPlay()
    34. End If
    36. End Sub
    37. End Class


    kann man eigentlich die 2 dll`s auch verstecken die im Ordner ja eigentlich immer dabei sein müssen?

Facebook
Telefonspende