Bass.dll Länge auslesen in Label

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von hamog.

    Bass.dll Länge auslesen in Label

    Hallo Leute


    Ich hab seit stunden rumgeguckt aber nix gefunden wie man die Länge und Position des abgespielten liedes in 2 label anzeigt
    Benutze die Bass.dll

    kann mir vilt jemand nen ansatz geben oder vilt nen kleinen code wenigstens für die länge aber ansatz wer besser zum verstehen für mich persönlich

    MFG
    Boscko

    VB.NET-Quellcode

    1. Dim pos As Long
    2. Dim len As Long
    3. Dim tElapsed As Single
    4. Dim tRemain As Single
    5. Dim tLength As Single
    6. len = Bass.BASS_ChannelGetLength(Kanal)
    7. pos = Bass.BASS_ChannelGetPosition(Kanal)
    8. tLength = Bass.BASS_ChannelBytes2Seconds(Kanal, len)
    9. tElapsed = Bass.BASS_ChannelBytes2Seconds(Kanal, pos)
    10. tRemain = tLength - tElapsed
    11. If Kanal IsNot Nothing Then
    12. lblInfo.Text = "gespielt: " + Un4seen.Bass.Utils.FixTimespan(tElapsed, "HHMMSS") + " " + _
    13. "Rest: " + Un4seen.Bass.Utils.FixTimespan(tRemain, "HHMMSS") + " " + _
    14. "Gesamt: " + Un4seen.Bass.Utils.FixTimespan(tLength, "HHMMSS")
    15. Else
    16. lblInfo.Text = ""
    17. End If