Progressbar z timerem

[Tieru]

Witam,

Chcę stworzyć prosty progressbar, który będzie od końca do początku tracił swą wartość.

 

Mógłby ktoś mi podsunąć pomysł jak najprościej zastosować by ten progressbar po 10 sekundach się "skończył", lecz również by to było płynne?

 

Func nom()
$Form1 = GUICreate("Czas", 161, 30, 192, 146, BitOR($WS_SYSMENU,$WS_POPUP))
$Progress1 = GUICtrlCreateProgress(0, 8, 158, 17, BitOR($PBS_SMOOTH,$WS_BORDER))
$A = 1
GUISetState(@SW_SHOW)
 For $A = 1 To 10000
GUICtrlSetData($Progress1, $A)
Sleep (15)
Next

[metinplayer]

witam, obczaj to  :-)

 

For $A = 1 To 100
GUICtrlSetData($Progress1, (100  -  $A))
Sleep (100)

 

[Tieru]

witam, obczaj to  :-)

 

For $A = 1 To 100

GUICtrlSetData($Progress1, (100  -  $A))

Sleep (100)

Tak, działa, całkiem w porządku, tylko muszę ogarnąć ten czas, by było 6 minut.

 

Jeszcze mam jedno pytanie, mając taki kod jak mogę mój progressbar przenieść w inne miejsce? (Gui Move?)

$Form1 = GUICreate("Czas", 160, 20, 180, 135, BitOR($WS_SYSMENU,$WS_POPUP), BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
$Progress1 = GUICtrlCreateProgress(0, 2, 158, 17, BitOR($PBS_SMOOTH,$WS_BORDER))
GUISetState(@SW_SHOW)
   For $A = 1 To 100
	  GUICtrlSetData($Progress1, (100  -  $A))
	  Sleep (36000)
   Next

Edit - śmieszne pytanie zadałem...

wszystko znajduje się tutaj na końcu

$Form1 = GUICreate("Czas", 160, 20, 180, 135)

[metinplayer]

Elo, określ może jak chcesz  przenosić (programowo podając współrzędne czy tez moze lk mychy ?). Sposobów jest troszkę .