Putin ajutor in autoIT

[iuly2freeman]

Am urmatoarea sursa:

Cod:

#include
#include
#include
#include
#include

$Form1 = GUICreate("ICE Player", 500, 400, 199, 121)
$timp = GUICtrlCreateInput("Total Time", 340, 200, 150, 20, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$file = GUICtrlCreateInput("File name and path", 20, 30, 300, 20, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$play = GUICtrlCreateButton("Play", 340, 20, 150, 40, 0)
$stop = GUICtrlCreateButton("Stop", 340, 80, 150, 40, 0)
$pause= GUICtrlCreateButton("Pause", 340, 140, 150, 40, 0)
$elapsed=GUICtrlCreateInput("Time Elapsed", 340, 240, 150, 20, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
 
$filemenu = GUICtrlCreateMenu("&File")
$open = GUICtrlCreateMenuItem("&Open", $filemenu)
$recent= GUICtrlCreateMenu("&Recent Files", $filemenu, 1)
$exit = GUICtrlCreateMenuItem("E&xit", $filemenu)
$about = GUICtrlCreateMenu("A&bout")

$status="Ready"
$statuslabel = GUICtrlCreateLabel($status, 0, 364, 500, 16, BitOR($SS_SIMPLE, $SS_SUNKEN))

$iFile = @ScriptDir & "\icon.ico"
GUISetIcon($iFile)

GUISetState(@SW_SHOW)

GUISetBkColor(0x094EB5, $Form1)
GUICtrlSetBkColor($timp, 0x333333)
GUICtrlSetColor($timp, 0xFF6600)
GUICtrlSetBkColor($elapsed, 0x333333)
GUICtrlSetColor($elapsed, 0xFF6600)
GUICtrlSetBkColor($file, 0x333333)
GUICtrlSetColor($file, 0xFF6600)
GUICtrlSetBkColor($statuslabel, 0x333333)
GUICtrlSetColor($statuslabel, 0xFF6600)

_GDIPlus_StartUp()
$hImage   = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\logo.png")
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Form1)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 60, 70)

$test = 0

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $open
            _SoundClose(1)
            $hfile=FileOpenDialog("Open File",@ScriptDir,"MP3(*.mp3)")
            $playing=_SoundOpen($hfile,1)
            GUICtrlSetData($timp,_SoundLength(1,1))
GUICtrlSetData($file, $hfile)
If @error <> 1 Then GUICtrlCreateMenuItem($hfile, $recent)
GUICtrlSetData($statuslabel, "Ready to play")
;$splashtext = SplashTextOn("Current Position", _SoundPos($playing, 1), 300, 90, Default, Default, 18, Default, 55)
        Case $play
            _SoundPlay(1)
GUICtrlSetData($statuslabel, "Playing")
        Case $stop
            _SoundStop(1)
GUICtrlSetData($statuslabel, "Ready to play")
Case $pause
_SoundPause(1)
GUICtrlSetData($statuslabel, "Paused")
Case $exit
Exit
    EndSwitch
WEnd

Cum pot face ca la $elapsed sa-mi afiseze timpul care a trecut din melodie ???
OK ... partea cu "_SoundPos($playing, 1)" o stiu, insa as vrea ca timpul afisat sa se reactualizeze la fiecare secunda, insa programul asteapta apasarea unui buton ("$nMsg = GUIGetMsg()")
Sper ca m-ati inteles

[Smash]

Cod:

#include
#include
#include
#include
#include

$Form1 = GUICreate("ICE Player", 500, 400, 199, 121)
$timp = GUICtrlCreateInput("Total Time", 340, 200, 150, 20, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
$file = GUICtrlCreateInput("File name and path", 20, 30, 300, 20, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
$play = GUICtrlCreateButton("Play", 340, 20, 150, 40, 0)
$stop = GUICtrlCreateButton("Stop", 340, 80, 150, 40, 0)
$pause = GUICtrlCreateButton("Pause", 340, 140, 150, 40, 0)
$elapsed = GUICtrlCreateInput("Time Elapsed", 340, 240, 150, 20, BitOR($ES_AUTOHSCROLL, $ES_READONLY))
Global $playing

$filemenu = GUICtrlCreateMenu("&File")
$open = GUICtrlCreateMenuItem("&Open", $filemenu)
$recent = GUICtrlCreateMenu("&Recent Files", $filemenu, 1)
$exit = GUICtrlCreateMenuItem("E&xit", $filemenu)
$about = GUICtrlCreateMenu("A&bout")

$status = "Ready"
$statuslabel = GUICtrlCreateLabel($status, 0, 364, 500, 16, BitOR($SS_SIMPLE, $SS_SUNKEN))

$iFile = @ScriptDir & "\icon.ico"
GUISetIcon($iFile)

GUISetState(@SW_SHOW)

GUISetBkColor(0x094EB5, $Form1)
GUICtrlSetBkColor($timp, 0x333333)
GUICtrlSetColor($timp, 0xFF6600)
GUICtrlSetBkColor($elapsed, 0x333333)
GUICtrlSetColor($elapsed, 0xFF6600)
GUICtrlSetBkColor($file, 0x333333)
GUICtrlSetColor($file, 0xFF6600)
GUICtrlSetBkColor($statuslabel, 0x333333)
GUICtrlSetColor($statuslabel, 0xFF6600)

_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\logo.png")
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($Form1)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 60, 70)

$test = 0

While 1
Sleep(100)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $open
_SoundClose(1)
$hfile = FileOpenDialog("Open File", @ScriptDir, "MP3(*.mp3)")
$playing = _SoundOpen($hfile, 1)
GUICtrlSetData($timp, _SoundLength(1, 1))
GUICtrlSetData($file, $hfile)
If @error <> 1 Then GUICtrlCreateMenuItem($hfile, $recent)
GUICtrlSetData($statuslabel, "Ready to play")
;$splashtext = SplashTextOn("Current Position", _SoundPos($playing, 1), 300, 90, Default, Default, 18, Default, 55)
Case $play
_SoundPlay(1)
GUICtrlSetData($statuslabel, "Playing")
Case $stop
_SoundStop(1)
GUICtrlSetData($statuslabel, "Ready to play")
Case $pause
_SoundPause(1)
GUICtrlSetData($statuslabel, "Paused")
Case $exit
Exit
EndSwitch
$pozitia = _SoundPos($playing, 1)
If Not @error Then
GUICtrlSetData($elapsed,$pozitia)
EndIf
WEnd

[iuly2freeman]

OK. Ms mult.  Acum am inteles (tinand cont ca m-am apucat de autoIT de ... ieri)

[SkullAds]