Wie mache ich des damit ich bei meinem musik Player vor und zurückspulen kann? und dazu noch mir anzeigt bei welcher zeit der abgespielte song ist?

hallo leute.ich bin ja jetzt nun schon vielmehr vertraut mit AutoIT und habe bisher auch schn an MusikPlayern gearbeitet.Aber jetzt will ich meine player in eine neue Dimension "sozusagen" heben.Wie mache ich dass ich Vorspulen kann und Zurückspulen kann im Script? und dazu noch dass unter dem Progress bar die zeit läuft (von 0:00 - 3:00 z.b.) und die genaue zeit angezeigt wird? (hab script aktualisiert es funktioniert jetzt aber vor - und zurück- Spulen funzt noch immer nicht.Ich bite darum dass mir jemand es machen könnte damit ich es bloss noch kopieren brauche danach glubsch ich mir des an und versuch mir dann diese technik zu merken)

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.8.1
Author: Silver_Shadow97™

Script Function: Infinity TrackZ Player™ [Alpha 0.5]
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
#include <Date.au3>
Global $h_Sound
Global $max_sec
Global $a_Sound
$ver = "Infinity trackZ Player™ by Silver_Shadow97™ [Alpha 0.5]"
#Region ### START Koda GUI section ### Form=
$GUI = GUICreate("Infinity TrackZ Player by Silver_Shadow97™", 541, 314, 408, 166)
$Exit_btn = GUICtrlCreateButton("Beenden", 224, 288, 91, 25)
$Open_btn = GUICtrlCreateButton("Öffnen", 224, 168, 91, 81, $WS_GROUP)
$Stop_btn = GUICtrlCreateButton("Stop", 136, 224, 75, 33, $WS_GROUP)
$Replay_btn = GUICtrlCreateButton("Replay", 328, 224, 75, 33, $WS_GROUP)
$Play_pause_btn = GUICtrlCreateButton("Play/Pause", 232, 136, 75, 25, $WS_GROUP)
$Forward_btn = GUICtrlCreateButton("Vorspulen", 336, 176, 83, 33)
$Reward_btn = GUICtrlCreateButton("Zurückspulen", 120, 176, 83, 33)
$options_btn = GUICtrlCreateButton("optionen", 216, 256, 107, 25)
$Progress1 = GUICtrlCreateProgress(120, 120, 294, 9)
$Slider1 = GUICtrlCreateSlider(0, 0, 150, 29)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit_btn
Exit
Case $Open_btn
$f_open = FileOpenDialog ("Suche nach Musiktiteln",@DesktopDir,"(*.*)")
If not @error Then
_SoundClose ($h_Sound)
$h_Sound = _SoundOpen($f_open)
$max_sec = _SoundLength($h_Sound,2) *1000
_SoundPlay($h_Sound)
WinsetTitle ($GUI,"",$f_open)
AdlibRegister("ShowSeek",250)
AdlibRegister("GetVol",150)
EndIf
Case $Stop_btn
_SoundStop ($h_Sound)
GUICtrlSetData ($Progress1,0)
WinSetTitle($GUI,"",$ver)
AdlibUnRegister("ShowSeek")
AdlibUnRegister("GetVol")
Case $Replay_btn
If _SoundStatus ($h_Sound) = "Playing" or _SoundStatus ($h_Sound) = "paused" Then
_SoundStop ($h_Sound)
_SoundPlay ($h_Sound)
EndIf
Case $Play_pause_btn
If _SoundStatus($h_Sound) = "playing" Then
_SoundPause ($h_Sound)
ElseIf _SoundStatus ($h_Sound) = "paused" Then
_SoundResume($h_Sound)
EndIf
Case $Forward_btn

Case $Reward_btn

Case $options_btn
##include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Options_GUI = GUICreate("Optionen", 412, 154, 445, 294)
GUISetBkColor(0x00FF00)
$option_text = GUICtrlCreateLabel("2012® Silver_Shadow97™ Alle Rechte vorbehalten.", 0, 136, 248, 17)
$Copy_rights_btn = GUICtrlCreateButton("Kopier-Rechte", 320, 0, 91, 25)
$contact_btn = GUICtrlCreateButton("Kontakt", 320, 32, 91, 25)
$Close_btn = GUICtrlCreateButton("Schliessen", 336, 128, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Copy_rights_btn
Msgbox (49,"Kopier - Rechte","Dieser player wurde erstellt von Silver_Shadow97™.Ich verbiete jegliche verbreitungs unter 'anderen namen' und jegliche vermarktung.Dieser Player ist eine Art Free Ware noch im Entwicklungs Status. ver: [Alpha 0.5]",10)
Case $contact_btn
MsgBox (0,"Kontakt","Ihr könnt mich über meiner E-mail : [email='www.Silver_Shadow97@web.de'][/email] erreichen oder über meinem Youtubechannel: http://www.youtube.com/user/Kiyubi97?feature=mhee . Ich stehe gern für fragen oder Bug berichte zur verfügung.2012® Silver_Shadow97™",15)
EndSwitch
WEnd

EndSwitch
WEnd

Func ShowSeek()
$pos_sec = _SoundPos($h_Sound,2) *1000
$set = $pos_sec / $max_sec *100
GUICtrlSetData ($Progress1,$set)
EndFunc

Func GetVol()
SoundSetWaveVolume(GUICtrlRead($Slider1))
EndFunc

ich Hoffe ihr könnt mir helfen
Mfg kiyubi97 [alias Silver_Shadow97™]

Zitat von chesstiger

Vorspulen und zurückspulen/ auslesen (mit Progressbar) würde ich jz spontan mit _SoundSeek() & _SoundPos() probieren

lg chess

um ehrlich zu sein erstehe ich nur bahnhof....könntest du es mal bitte für vollidioten erklären wie mich? also Sound seek und progress bar bei meinen buttons einfügen? ich verstehe das nich

Zitat von chesstiger

Ich würde das jetzt so regeln, und das hier mit in die While-Schleife packen:

[autoit]

$ProgressBarHandle = $Progress1
$SoundHandle = $h_Sound
GUICtrlSetData($ProgressBarHandle,(_SoundPos($SoundHandle,2) / _SoundLength($SoundHandle,2)) * 100)

[/autoit]

Aber wie ich AutoIt kenne... gibt das Probleme mit der Geschwindigkeit, bzw. der Genauigkeit.

lg chess

Geht nicht es passiert nur wenn ich es bei meinem vorspulknopf einbaue dass die progress bar mit einmal von vorn anfängt sich zu füllen bis dorthin wo das eigentlich musikstück läuft....

Zitat von autoBert

Hallo Kiyubi97,

schau mal in meinen [Beispiel] NeMP3-P (MP3-Player) Version 0.8.4.7 rein. Vielleicht kannst du dir ja dort etwas abschauen,

mfg autoBert

Dein player bringt mir überhaupt nichts weil der Nämlich nicht so aufgebaut ist wie meiner dein player hat massig andere sache drinnen als mein player.Du hättest erstmal oben dir den Quelltext meines scriptes ansehen sollen ich kann mit deinem Player leider noch nichts anfangen. Mfg Kiyubi97

Danke bist echt ein Lebensretter xD naja auf jeden fall werde ich erstmal versuchen zu verstehen wie das gemacht wird USW. Danke Ganz dolle