Hi 
Erstmal zum Stil:
Konsistenz bei Variablen/Funktionen Benennung: $hWH_Timer / $__chBTN_TimerStart / $g_iSecs / _Timer_WIN() / __TimerStart() / _Timer()
Du solltest einen Stil wählen und dann dabei bleiben.
In AutoIt wird bei Variablen und Funktionen normalerweise mit camelcase gearbeitet. Also am Anfang klein und dann jedes neue Wort mit nem Großbuchstaben.
z.B. $gTimerMainGui, $iTimerTimeLabel oder timerStart(), timerStop()
Bei Funktionen werden interne AutoIt-Funktionen am Anfang groß geschrieben z.B. GuiGetMsg(), GuiCtrlSetData(), ...
UDFs die von mit AutoIt ausgeliefert werden (in der Hilfe zu finden sind) fangen auch mit einem _ an und haben dann den UDF Namen, gefolgt von der Funktion.
z.B.: _GDIPlus_PenSetColor, _GDIPlus_RectFCreate, ...
UDFs, die nicht mit AutoIt selbst kommen fangen mit __ an und sonst wie eine normale UDF.
z.B. für meine Wallpaper UDF: __Wallpaper_InitDefaultTray(), __Wallpaper_Start, ...
Deshalb schreibt man eigene Funktionen am Anfang klein oder (wie ich meistens) mit einem _ am Anfang, um nicht ausversehen Funktionen gleich zu nennen und Konflikte zu vermeiden.
Also in deinem Fall: _timerStart(), _timerStop(),...
Für Variablen gelten die gleichn Regeln, nur dass man noch am Anfang das kürzel für den Dateityp hat. Also z.B. $hTimer, $iTimerLabel,...
Bei UDFs dann dementsprechend $__Wallpaper_bRunning, $__Wallpaper_bClear, ...
Ansonsten schaut das schon ganz gut aus (ich vermute mal die Formatierung wurde beim posten durcheinander geworfen).
In deiner Haupt-Scheife solltest du ein Sleep einbauen, um Resourcen zu sparen. Der Nutzer merkt es nicht, ob 10ms vergehen, bis auf den Buttonklick reagiert wird. Dafür ist die CPU nicht permanent damit ausgelastet die Schleife zu durchlaufen.
While Sleep(10) And Not $bEnd
Switch GUIGetMsg()
Case $iTimerExitButton
_timerExit()
Case $iTimerStartButton
_timerStart()
Case $iTimerPauseButton
_timerPause()
EndSwitch
WEnd
Wenn ich mehrere Controls (hier die buttons) habe, die die gleiche größe haben und sehr Strukturiert angeordnet sind nehm ich gerne nen Array (s. Beispiel), da ich jetzt ohne Probleme die größe des Fensters erhöhen könnte und einen Button ins Array hinzufügen kann, ohne dann alle anderen Werte anpassen zu müssen. Ich hab allgemein die Controls so erstellt, dass du einfach $iTimerGuiWidth ändern kannst und alle Controls werden passend mit skaliert.
Z.B. Local Static $iTimerCount = 0 ist nützlich, wenn man eine Variable nur in einer Funktion benutzt, die Funktion aber öfter verwendet wird. Sorgt für weniger globale Variablen.
Ansonsten evtl. drauf achten, dass Deutsch/Englisch einheitlich bleibt. (z.B. $Ende, wo auch der Typ (boolean) fehlte).
So etwa hätte ich das umgesetzt:
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
Global $hTimerGui, $iTimerLabel, $iState = 0 ; 0=start, 1=running, 2=paused
Global $bEnd = False, $iTimer
Global $arTimerButtons = [["Start", -1], ["Pause", -1], ["Exit", -1]]
$hGuiSomeParent = GUICreate("",10,10)
_timerGuiCreate($hGuiSomeParent)
While Sleep(10) And Not $bEnd
Switch GUIGetMsg()
Case $arTimerButtons[2][1]
_timerExit()
Case $arTimerButtons[0][1]
_timerToggleStarted()
Case $arTimerButtons[1][1]
_timerTogglePaused()
EndSwitch
If $iState = 1 Then _timerUpdate()
WEnd
Func _timerGuiCreate($hParent, $sTitle = "Timer", $iBackgroundColor = 0x40E0D0)
Local Const $iTimerGuiWidth = 147, $iTimerGuiHeight = 80, $iTimerGuiSpace = 5
$hTimerGui = GUICreate($sTitle, $iTimerGuiWidth, $iTimerGuiHeight, Default, Default, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW), Default, $hParent)
GUISetBkColor($iBackgroundColor, $hTimerGui)
Local $iBtnWidth = ($iTimerGuiWidth - (UBound($arTimerButtons)+1) * $iTimerGuiSpace) / UBound($arTimerButtons) ; (gui width - free space) / button amount
For $i=0 To UBound($arTimerButtons)-1 Step 1
$arTimerButtons[$i][1] = GUICtrlCreateButton($arTimerButtons[$i][0], ($i+1)*$iTimerGuiSpace + $i*$iBtnWidth - 2, $iTimerGuiHeight-$iTimerGuiSpace-46, $iBtnWidth, 20)
Next
GUICtrlSetState($arTimerButtons[1][1], $GUI_DISABLE)
$iTimerLabel = GUICtrlCreateLabel("00:00:00", $iTimerGuiSpace, 0, $iTimerGuiWidth-2*$iTimerGuiSpace, 25, BitOR($SS_NOTIFY, $SS_CENTER))
GUICtrlSetFont($iTimerLabel, 20, 500)
GUISetState(@SW_SHOW, $hTimerGui)
WinSetOnTop($hTimerGui, "", $WINDOWS_ONTOP)
EndFunc
Func _timerToggleStarted()
Local Static $iTimerCount = 0
If $iState = 0 Then
$iState = 1
GUICtrlSetData($arTimerButtons[0][1], "Stop")
GUICtrlSetState($arTimerButtons[1][1], $GUI_ENABLE)
$iTimerCount+=1
$iTimer = TimerInit()
; AdlibRegister("_timerUpdate")
Else
$iState = 0
GUICtrlSetData($arTimerButtons[0][1], $arTimerButtons[0][0])
GUICtrlSetData($arTimerButtons[1][1], $arTimerButtons[1][0])
GUICtrlSetState($arTimerButtons[1][1], $GUI_DISABLE)
If $iTimerCount>0 Then ConsoleWrite("Timer[" & $iTimerCount&"]: " & GUICtrlRead($iTimerLabel) & @CRLF& @CRLF)
GUICtrlSetData($iTimerLabel, "00:00:00")
; AdlibUnRegister("_timerUpdate")
EndIf
EndFunc
Func _timerTogglePaused()
If $iState = 1 Then
$iState = 2
GUICtrlSetData($arTimerButtons[1][1], "Resume")
; AdlibUnRegister("_timerUpdate")
ElseIf $iState = 2 Then
$iState = 1
GUICtrlSetData($arTimerButtons[1][1], $arTimerButtons[1][0])
; AdlibRegister("_timerUpdate")
EndIf
EndFunc
Func _timerUpdate()
Local Static $iHour, $iMins, $iSecs
_TicksToTime(TimerDiff($iTimer), $iHour, $iMins, $iSecs)
Local $sTime = StringFormat("%02i:%02i:%02i", $iHour, $iMins, $iSecs)
If GUICtrlRead($iTimerLabel) <> $sTime Then GUICtrlSetData($iTimerLabel, $sTime)
EndFunc ;==>Timer
Func _timerExit()
; AdlibUnRegister("_timerUpdate")
GUIDelete($hTimerGui)
$bEnd = True
EndFunc
Alles anzeigen
Ich hab statt dem Adlibregister einfach einen Call in der Hauptschleife genutzt.
Kann ggf. nicht so gut funktionieren, wenn in deinem größeren Programm dann mehrere Schleifen sind.
Hoffe, das hilft dir etwas weiter :).
MfG Kanashius.
