Hi, ich versuche mich nun schon seit gestern Abend daran eine Start Stop Variante in einer Gui zu erstellen.
Aber irgendwie will das nicht
Hat mir da jemand einen Rat?
Ausser endlich Autoit zu lernen meine ich^^
Also ist ja nur ein kleines Bsp. aber dient der Veranschaulichung dessen was es tun soll.
Hier mein erster versuch:
C
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;~ Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
Local $Form2 = GUICreate("Form2", 330, 250, 319, 238)
Local $Btn_Start = GUICtrlCreateButton("Start", 96, 168, 75, 25)
Local $Btn_Stop = GUICtrlCreateButton("Stop", 184, 168, 75, 25)
Local $Lbl_Timer = GUICtrlCreateLabel("0", 104, 56, 162, 50)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
Local $Btn_Exit = GUICtrlCreateButton("Exit", 16, 168, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $iCount = 0
While 1
$msg = GUIGetMsg()
Select
Case $msg = $Btn_Start
Start()
Case $msg = $Btn_Stop
Stop()
Case $msg = $Btn_Exit
Exit
EndSelect
WEnd
Func Start()
AdlibRegister("TimerStart")
EndFunc
Func Stop()
AdlibUnRegister("TimerStart")
MsgBox(0,"Timer", "Steht bei: " & GUICtrlRead($Lbl_Timer),0)
GUICtrlSetData($Lbl_Timer, "0")
EndFunc
Func TimerStart()
Sleep(1000)
$iCount += 1
GUICtrlSetData($Lbl_Timer,$iCount)
EndFunc
Alles anzeigen
Tut alles ausser Stoppen und exit nachdem man Start gedrückt hat.
Hier mein zweiter versuch:
C
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;~ Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
Local $Form2 = GUICreate("Form2", 330, 250, 319, 238)
Local $Btn_Start = GUICtrlCreateButton("Start", 96, 168, 75, 25)
Local $Btn_Stop = GUICtrlCreateButton("Stop", 184, 168, 75, 25)
Local $Lbl_Timer = GUICtrlCreateLabel("0", 104, 56, 162, 50)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
Local $Btn_Exit = GUICtrlCreateButton("Exit", 16, 168, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $iCount = 0
While 1
$msg = GUIGetMsg()
Select
Case $msg = $Btn_Start
AdlibRegister("TimerStart")
Case $msg = $Btn_Stop
Stop()
Case $msg = $Btn_Exit
Exit
EndSelect
WEnd
Func Stop()
AdlibUnRegister("TimerStart")
MsgBox(0,"Timer", "Steht bei: " & GUICtrlRead($Lbl_Timer),0)
GUICtrlSetData($Lbl_Timer, "0")
EndFunc
Func TimerStart()
Sleep(1000)
$iCount += 1
GUICtrlSetData($Lbl_Timer,$iCount)
EndFunc
Alles anzeigen
Ist ja Quasi das gleiche wie bei 1 nur das ich Adlib direkt ab Button starte ohne Funktion dazwischen.
Was mache ich hier Falsch?
Vielen Dank im Voraus für eure Geduld
MfG