How to use progress to _soundseek() a file song

[FroVN]

Hi, i'm code software listen music on GUI, it's show time playing, hotkey pause/play music, and the last i missing that's the progress to seek the video to hour::ss:( i can't describe exactly, it's like a progress with red color we can backward or fast forward on youtube, i want do the same like that on my gui) i used to use guicreate slider, but it's not good, any idea give me, Tks(sorry for my bad english)

 

[careca]

What im using in my player:

$CustomSeek = GUICtrlCreateButton('', 20, 272, 7, 20)

GUICtrlSetPos($CustomSeek, 15 + (450 * ($PosSlider)) / 100, 272)

;=============================================================================
        ;Seek Slider
        If $CursorInfo[2] = 1 And $CursorInfo[4] = $SeekGroup Then
            While _IsPressed("01", $hDLL)
                $WinCoords = WinGetPos($GUI)
                $CursorInfo = GUIGetCursorInfo($GUI)
                _MouseTrap($WinCoords[0] + 20, $WinCoords[1] + 325, $WinCoords[0] + 472, $WinCoords[1] + 328)
                $SeekB2Secs = (100 * (($CursorInfo[0] + 20) - 37) / (488 - 37))
                GUICtrlSetPos($CustomSeek, $CursorInfo[0] - 3, 272)
                $SeekB2Secs = $SeekB2Secs * $Lenght / 100
                $ConvP = _BASS_ChannelBytes2Seconds($MusicHandle, $SeekB2Secs)
                $pHour = Int($ConvP / 3600)
                $pMin = Int(($ConvP - $pHour * 3600) / 60)
                $pSec = $ConvP - $pHour * 3600 - $pMin * 60
                ToolTip(StringFormat('%02d:%02d:%02d', $pHour, $pMin, $pSec))
            WEnd
            ToolTip('')
            _MouseTrap()
            _BASS_ChannelSetPosition($MusicHandle, $SeekB2Secs, $BASS_POS_BYTE)
        EndIf
        ;=============================================================================

Hope you can make some sense out of this. The general ideia is that while left mouse is pressed the cursor is confined to a portion of the gui, and there's calculation going on for that, and what it does is move a button inside a group.

[FroVN]

can u give me an example, i don't understand must ,here is my test and result not good

#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <ColorConstants.au3>

$hGUI = GUICreate("Test", 500, 200)
$CustomSeek = GUICtrlCreateButton('', 20, 272, 7, 20)
$PosSlider = GUICtrlCreateSlider( 20, 272, 7, 2)
GUISetState()

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        case $CustomSeek
            GUICtrlSetPos($CustomSeek, 15 + (450 * ($PosSlider)) / 100, 272)

;=============================================================================
        ;Seek Slider
        If $CursorInfo[2] = 1 And $CursorInfo[4] = $SeekGroup Then
            While _IsPressed("01", $hDLL)
                $WinCoords = WinGetPos($GUI)
                $CursorInfo = GUIGetCursorInfo($GUI)
                _MouseTrap($WinCoords[0] + 20, $WinCoords[1] + 325, $WinCoords[0] + 472, $WinCoords[1] + 328)
                $SeekB2Secs = (100 * (($CursorInfo[0] + 20) - 37) / (488 - 37))
                GUICtrlSetPos($CustomSeek, $CursorInfo[0] - 3, 272)
                $SeekB2Secs = $SeekB2Secs * $Lenght / 100
                MsgBox(0,'',$SeekB2Secs)
            WEnd
        EndIf
        ;=============================================================================
        EndSwitch

WEnd

 

[careca]

You can't just grab what i posted and use it as is.

It was to give a general idea of how to do the calculations.

You'll need the values for the current song position and total lenght, aka _SoundPos and _SoundLenght

Then you get the percentage on that, and move the slider the same percentage within its own coordinates.

Must do a check, If the slider moves, calculate the percentage (within slider's own coordinates) and with that the time, to then seek the song.

I feel im overwelming you, hope you understand.

 

Edited September 2, 2017 by careca

[FroVN]

Tks, finally i can do it, but another way however same like you
case $Slider1
             $w=GUICtrlRead($Slider1)
    SoundSetWaveVolume($w)
    GUICtrlSetTip($Slider1,GUICtrlRead($Slider1)&'%')
             Case $cLabel
            $aMpos = GUIGetCursorInfo($Form1)
            $iPercent = 100 * ($aMpos[0] - 290) / 140
            _Metro_SetProgress($cProgress, $iPercent)
            $timethanhmax=_SoundLength($s,2)
            $seek=$iPercent/100
            $truelinh=$seek*$timethanhmax
                $truelinh=Int($truelinh)
            $toseek=mili($truelinh)
            $time = StringSplit($toseek,':')
            _SoundSeek($s,$time[1],$time[2],$time[3])
            _SoundPlay($s)
that      ($iPercent = 100 * ($aMpos[0] - 290) / 140)     290,174 is left and width of progess, and i have an 2 hours to know this lol

[careca]

Im glad it's solved. :D