Beiträge von nuts

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 432, 623, 192, 132)
$List1 = GUICtrlCreateList("", 24, 72, 209, 310)
GUICtrlSetData(-1, "Listbox Eintrag")
$Label1 = GUICtrlCreateLabel("Hallo", 24, 8, 205, 52)
$Button1 = GUICtrlCreateButton("Label lesen", 25, 400, 97, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Listbox lesen", 136, 400, 97, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
$labeldata = GUICtrlRead($Label1) ; Label lesen und in eine Variable speichern
msgbox(32+0, "Labeltext", $labeldata)
case $Button2
$listboxdata = GUICtrlRead($List1) ;markiertes Listboxitem lesen und in eine Variable speichern
msgbox(32+0, "Listboxtext", $listboxdata)
EndSwitch
WEnd

[/autoit]

[autoit]

#include <GUIConstantsEx.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $iCounterStart = 10 ; hier den Startwert in Sekunden angeben
$iCounterStart *= 10 ; zum anzeigen der Zehntelsekunden mit 10 multiplizieren
Global $iCounter = $iCounterStart ; der Countervariable den Startwert zuweisen
Global $bStartStop = False ; boolesche Variable für Start/Stop Abfrage

[/autoit] [autoit][/autoit] [autoit]

Global $hGui = GUICreate('Countdown-Timer', 600, 100) ; Fenster erstellen (Größe = 600x100 Pixel)
Global $hProgressbar = GUICtrlCreateProgress(10, 10, 580, 20) ; Progressbar erstellen
GUICtrlSetData(-1, 100) ; den Wert für die Progressbar auf 100% setzen
Global $hDisplay = GUICtrlCreateLabel(StringFormat('%.1f', $iCounter / 10) & ' sek.', 20, 40, 60, 20) ; die Sekundenanzeige erstellen
Global $hReset = GUICtrlCreateButton('Reset', 10, 70, 70, 20) ; "Reset"-Button erstellen
Global $hStart = GUICtrlCreateButton('Start', 90, 70, 70, 20) ; "Start"-Button erstellen
GUISetState() ; das Fenster anzeigen
While True ; Endlosschleife starten
Switch GUIGetMsg() ; abfragen, ob eine Benutzereingabe erfolgte
Case $hReset ; wenn der Reset-Button angeklickt wurde
AdlibDisable() ; die zeitgesteuerte Funktion beenden
$iCounter = $iCounterStart ; den Counter wieder auf den Startwert setzen
$bStartStop = False ; die Start/Stop-Variable zurücksetzen
GUICtrlSetData($hDisplay, StringFormat('%.1f', $iCounter / 10) & ' sek.') ; die Sekundenanzeige stellen
GUICtrlSetData($hProgressbar, 100) ; Progressbar wieder auf 100%
GUICtrlSetData($hStart, 'Start') ; den Start-Button wieder mit dem Text "Start" belegen
GUICtrlSetState($hStart, $GUI_ENABLE) ; den Start-Button wieder freigeben
Case $hStart ; wenn der Start-Button angeklickt wurde
$bStartStop = Not $bStartStop ; Start/Stop-Variable invertieren (aus False wird True und umgekehrt)
Switch $bStartStop ; wenn der Wert der Start/Stop-Variablen...
Case True ; =True, dann...
GUICtrlSetData($hStart, 'Pause') ; den Start-Button mit dem Text "Pause" belegen
AdlibEnable('_Countdown', 100) ; die Funktion "_Countdown" alle 100ms aufrufen
Case False ; =False, dann...
GUICtrlSetData($hStart, 'Weiter') ; den Start-Button mit dem Text "Weiter" belegen
AdlibDisable() ; die zeitgesteuerte Funktion beenden
EndSwitch
Case $GUI_EVENT_CLOSE ; wenn der Schließen-Button angeklickt oder [ESC] gedrückt wurde
Exit ; Programm verlassen
EndSwitch
If $iCounter <= 0 Then ; wenn der Counter Null erreicht hat, dann...
AdlibDisable() ; die zeitgesteuerte Funktion beenden
$iCounter = 1 ; den Counter auf 1 setzen, damit diese If...Then-Anweisung nur einmal ausgeführt wird
GUICtrlSetState($hStart, $GUI_DISABLE) ; den Start-Button sperren (reagiert nicht mehr auf Mausklicks)
MsgBox(0, 'Countdown-Timer', 'Zeit um!') ; Eine Meldung ausgeben
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Countdown()
$iCounter -= 1 ; den Counterwert um 1 verringern
GUICtrlSetData($hProgressbar, Int(100 / $iCounterStart * $iCounter)) ; den neuen Wert in der Progressbar anzeigen
GUICtrlSetData($hDisplay, StringFormat('%.1f', $iCounter / 10) & ' sek.') ; und als Sekundenwert darstellen
EndFunc ;==>_Countdown

[/autoit]

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
Global $eventCount = 0
$Form1 = GUICreate("nuts", 633, 454, 193, 115)
GUICtrlCreateButton("Nuts", 10, 10)
GUISetOnEvent($GUI_EVENT_CLOSE, '_ende')
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
While 1
Sleep(100)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _ende()
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $hWndEdit
$hWndFrom = $ilParam
$iIDFrom = BitAND($iwParam, 0xFFFF) ; Low Word
$iCode = BitShift($iwParam, 16) ; Hi Word
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#cs erklärung msg
WM_COMMAND($hWnd, $iMsg, $iwParam, $ilParam)
$hWnd ; - Handle des Fensters, das die Nachricht bringt
$iMsg ; - die Nachricht
$iwParam ; - DWORD-Wert
; Lo = ID des Ctrl, das die Nachricht bringt
; Hi = Code der Nachricht
$ilParam ; - Handle des Ctrl, das die Nachricht bringt
#ce

[/autoit]