Progressbar mit Countdown

donpascal

Hallo,

ich das Problem, dass der Progressbalken nicht mit dem Random Sleep syncron läuft. Ab einer gewissen Zeit laufen mehrere Balken zeitgleich.
Wo hab ich mich vertan ?

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
local $iRest
local $iSec
$schriftgroesse=10
GUICreate("My GUI")
GUISetState()
$idLblRest = GUICtrlCreateLabel("Zeit : ", 5, 5, 60, 20)
$idProgress = GUICtrlCreateProgress(70, 5, 200, 20)
$sleep=3000
$sleep1=3000
sleeping()
sleeping()
sleeping()

Func sleeping()

$sleep1=Random(60, 200, 1)

;MsgBox(0,"$sleep1",$sleep1)
$time=$sleep1 * 1000
;MsgBox(0,"$time",$time)
$idProgress = GUICtrlCreateProgress(70, 5, 200, 20)
GUICtrlSetColor(-1, 0x000066)
GUICtrlSetBkColor($idProgress, $GUI_BKCOLOR_TRANSPARENT)

$tstart = TimerInit()
$stime = $time
Do
GUICtrlCreateLabel("wait for : " & $stime / 1000 & " sec", 70, 55, 200, 20)
GUICtrlSetBkColor($idProgress, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, $schriftgroesse, 100, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x009900)
Sleep(1000)
$stime -= 1000
GUICtrlSetData($idProgress, Floor(100 * (($time - $stime) / $time)))
GUICtrlSetBkColor($idProgress, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, $schriftgroesse, 100, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x009900)
Until TimerDiff($tstart) >= $time
EndFunc

**alpines**

Du hast generell einige Sachen falsch gemacht. Zuerst postest du deinen Code bitte in Code-Tags damit das hier übersichtlicher aussieht und man es einklappen kann (füllt nicht den ganzen Bildschirm).

Außerdem erzeugst du ziemlich viele Progressbalken was meiner Meinung nach einfach nicht richtig ist, zudem setzt du für jede Sekunde die du runterzählst die Hintergrundfarbe, die Schriftart, die Farbe immer neu und das ist nicht Sinn der Sache. Das verlangsamt nur dein Script und deshalb flackert das auch.

Ich hab das ganze mal umstrukturiert, die Controls werden nur einmal erstellt und dann immer verändert.

AutoIt

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>


local $iRest
local $iSec
$schriftgroesse=10


GUICreate("My GUI")
$idLblRest = GUICtrlCreateLabel("Zeit : ", 5, 5, 60, 20)
$idProgress = GUICtrlCreateProgress(70, 5, 200, 20)
$idWaitFor = GUICtrlCreateLabel("wait for : 0 sec", 70, 55, 200, 20)
GUICtrlSetFont($idWaitFor, $schriftgroesse, 100, 0, "MS Sans Serif")
GUICtrlSetColor($idWaitFor, 0x009900)


GUISetState()


$sleep=3000
$sleep1=3000


sleeping()
sleeping()
sleeping()


Func sleeping()
	$time = Random(60, 200, 1) * 1000


	GUICtrlSetData($idProgress, 0)
	GUICtrlSetData($idWaitFor, "wait for : " & $time & " sec")


	$tstart = TimerInit()
	$stime = $time


	Do


		Sleep(1000)
		$stime -= 1000


		GUICtrlSetData($idProgress, Floor(100 * (($time - $stime) / $time)))
		GUICtrlSetData($idWaitFor, "wait for : " & ($stime / 1000) & " sec")
	Until TimerDiff($tstart) >= $time
EndFunc

Alles anzeigen

donpascal

super vielen Dank

**alpines**

Freut mich, dann änder doch bitte den Threadpräfix auf [gelöst] (1. Beitrag bearbeiten)