Bass.dll Trackbar Zeit

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von OnkelR.

    Bass.dll Trackbar Zeit

    Hey.


    Ich baue Grad ein Player mit der API "Bass.net" Un4seen.

    Ich hoffe ihr könnt mir helfen :?:

    Ich möchte wenn das lied Gestartet wird das die Trackbar sich von 0 > 100 bewegt solang bis das lied zu ende ist also die länge der Musik datei..

    ich hoffe ihr versteht mich ;)

    Hallo kevios11

    VB.NET-Quellcode

    1. Option Strict On
    3. ‘Deklaration
    4. Private _HDupdateTimer As BASSTimer = Nothing
    5. Private _HDupdateInterval As Integer = 50
    6. Private tElapsed As Single
    7. Private tRemain As Single
    8. Private tLength As Single
    10. Private Channel_Pos As Long ' Position in bytes
    11. Private Channel_Len As Long ' Länge in bytes
    13. ----------------------------------------------------------------------
    14. in Form_Load oder so
    15. _HDupdateTimer = New Un4seen.Bass.BASSTimer(_HDupdateInterval)
    16. AddHandler _HDupdateTimer.Tick, AddressOf HDtimerUpdate_Tick
    17. ----------------------------------------------------------------------
    19. Private Sub Btn_Play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Play.Click
    20. Trackbar.Value = 0
    21. Lbl_Spielzeit.Text = "00:00:00"
    22. Lbl_Restzeit.Text = "00:00:00"
    23. Lbl_Gesamtzeit.Text = "00:00:00"
    24. _strm = Bass.BASS_StreamCreateFile(_Dateiname, 0, 0, BASSFlag.BASS_DEFAULT Or BASSFlag.BASS_STREAM_AUTOFREE Or BASSFlag.BASS_SAMPLE_FLOAT)
    26. _Trackbar_init()
    27. If _strm <> 0 AndAlso Bass.BASS_ChannelPlay(_strm, False) Then
    28. _HDupdateTimer.[Start]() ‘Timer startet, Song wird abgespielt
    29. End If
    30. End Sub
    31. Private Sub Btn_Stop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Stop.Click
    32. If _strm <> 0 Then
    33. Bass.BASS_ChannelStop(_strm)
    34. Bass.BASS_StreamFree(_strm)
    35. _strm = Nothing
    36. _HDupdateTimer.[Stop]()
    37. _HDupdateTimer.[Dispose]()
    38. Trackbar.Value = 0
    39. Lbl_Spielzeit.Text = "00:00:00"
    40. Lbl_Restzeit.Text = "00:00:00"
    41. Lbl_Gesamtzeit.Text = "00:00:00"
    42. End If
    43. End Sub
    44. Private Sub Btn_Pause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Pause.Click
    45. If _strm <> 0 Then
    46. If Bass.BASS_ChannelIsActive(_strm) <> BASSActive.BASS_ACTIVE_PLAYING Then
    47. Bass.BASS_ChannelPlay(_strm, False)
    48. _HDtimerUpdate.Start()
    49. Btn_Pause.Text = "Pause"
    50. Else
    51. Bass.BASS_ChannelPause(_strm)
    52. Btn_Pause.Text = "weiter"
    53. End If
    54. End If
    55. End Sub
    57. Private Sub _Trackbar_init()
    58. Channel_Len = Bass.BASS_ChannelGetLength(_strm, BASSMode.BASS_POS_BYTES)
    59. Trackbar.Maximum = CInt(Bass.BASS_ChannelBytes2Seconds(_strm, Channel_Len))
    60. Trackbar.Value = 0
    61. End Sub
    63. Private Sub Trackbar_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Trackbar.Scroll
    64. If _strm <> 0 Then
    65. Dim pos As Long = Trackbar.Value
    66. If pos > -1 Then
    67. Bass.BASS_ChannelSetPosition(_strm, Bass.BASS_ChannelSeconds2Bytes(_strm, pos))
    68. tLength = CSng(Bass.BASS_ChannelBytes2Seconds(_strm, Channel_Len))
    69. tElapsed = CSng(Bass.BASS_ChannelBytes2Seconds(_strm, Channel_Pos))
    70. tRemain = tLength - tElapsed
    72. Lbl_Spielzeit.Text = Un4seen.Bass.Utils.FixTimespan(tElapsed, "HHMMSS")
    73. Lbl_Restzeit.Text = Un4seen.Bass.Utils.FixTimespan(tRemain, "HHMMSS")
    74. Lbl_Gesamtzeit.Text = Un4seen.Bass.Utils.FixTimespan(tLength, "HHMMSS")
    75. End If
    76. End If
    77. End Sub
    79. Private Sub HDtimerUpdate_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
    80. Channel_Pos = Bass.BASS_ChannelGetPosition(_strm, BASSMode.BASS_POS_BYTES)
    81. If CType(Bass.BASS_ChannelIsActive(_strm), BASSActive) = BASSActive.BASS_ACTIVE_PLAYING Then
    82. tLength = CSng(Bass.BASS_ChannelBytes2Seconds(_strm, Channel_Len))
    83. tElapsed = CSng(Bass.BASS_ChannelBytes2Seconds(_strm, Channel_Pos))
    84. tRemain = tLength - tElapsed
    86. Lbl_Spielzeit.Text = Un4seen.Bass.Utils.FixTimespan(tElapsed, "HHMMSS")
    87. Lbl_Restzeit.Text = Un4seen.Bass.Utils.FixTimespan(tRemain, "HHMMSS")
    88. Lbl_Gesamtzeit.Text = Un4seen.Bass.Utils.FixTimespan(tLength, "HHMMSS")
    89. Trackbar.Value = CInt(tElapsed)
    91. ElseIf CType(Bass.BASS_ChannelIsActive(_strm), BASSActive) = BASSActive.BASS_ACTIVE_PAUSED Then
    92. ElseIf CType(Bass.BASS_ChannelIsActive(_strm), BASSActive) = BASSActive.BASS_ACTIVE_STOPPED Then
    93. Else
    94. Exit Sub
    95. End If
    96. End Sub


    mfg OnkelR

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

Facebook
Telefonspende