Hab ein kleines Problem

[Claiver]

Also...
Ich hab ein kleines Script als Probe geschrieben, nur um nach diesem Fehler zu fragen...
Also

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 135, 54, 4, 4)
$Label1 = GUICtrlCreateLabel("a", 8, 8, 288, 78)
GUICtrlSetFont(-1, 72, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	GUICtrlSetData($Label1,@HOUR&":"&@MIN&":"&@SEC)
	Sleep(1000)
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Ich will dass das Programm schließt wenn ich auf "X" drücke, aber wegen der While Schleife funktioniert es nicht... Ich will aber die While Schleife drinnen lassen und mit "X" das Programm schließen können...

HILFE!!!

[alpines]

Es schließt nicht weil du nicht auf X drückst wenn die Msg abgerufen wird.
Wenn du die Sleep(1000) da entfernen würdest dann würde es funktionieren.
Wenn du aber alle 1s den setten möchtest kannst du das hier versuchen (im Browser getippt)
Du musst einen Timer initiieren und erst setten wenn es kleiner als Mod(TimerDiff($timer), 1000) kleiner als 50 z.B. ist.

[Shadow992]

Originally Posted by alpines

Es schließt nicht weil du nicht auf X drückst wenn die Msg abgerufen wird.
Wenn du die Sleep(1000) da entfernen würdest dann würde es funktionieren.
Wenn du aber alle 1s den setten möchtest kannst du das hier versuchen (im Browser getippt)
Du musst einen Timer initiieren und erst setten wenn es kleiner als Mod(TimerDiff($timer), 1000) kleiner als 50 z.B. ist.

Prinzipiell eine mögliche Idee, aber die Mod-Variante hat ihre Tücken, wenn beispielsweise die Schleife aus irgendeinem Grund länger als 1msec braucht, kann es passieren, dass du Mod(...,1000) nie erfüllt hast.

Wenn du das Ganze abfangen willst mit "<50", dann kann es bei sehr kleinen Schleifen (wie hier) immernoch zu einem Flackern kommen, da es ca 50x die Schleife durchläuft, bis 50msec rum sind.

Daher empfiehlt sich mit Zeit-Differenzen zu arbeiten:

PHP Code:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 135, 54, 4, 4)
$Label1 = GUICtrlCreateLabel("a", 8, 8, 288, 78)
GUICtrlSetFont(-1, 72, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$timer=TimerInit()

While 1
   if (TimerInit()-$timer)>=1000 then
    GUICtrlSetData($Label1,@HOUR&":"&@MIN&":"&@SEC)
     $timer=TimerInit()
   endif
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd 


[alpines]

Das hab ich schnell im Browser getippt, natürlich hätte ich das auch anders gelöst aber fürs erste hätte es ja gereicht.

[FacePalmMan]

oder einfacher:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 135, 54, 4, 4)
$Label1 = GUICtrlCreateLabel("a", 8, 8, 288, 78)
GUICtrlSetFont(-1, 72, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Adlibregister("SetData",1000)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd
Func SetData()
GUICtrlSetData($Label1,@HOUR&":"&@MIN&":"&@SEC)
EndFunc

[alpines]

Aber das Unregister am Ende nicht vergessen, wir wollen sauber scripten!

[SoulCr4ck]

 AdlibRegister("NFunc",1000)
Func NFunc()


;here what you want to do

endfunc

oder GuiSetOnEventMode

[lolkop]

der einzige grund für das intervall des setzens liegt darinn, nicht zu oft das ganze zu aktualisieren... das ganze kann man auch viel einfacher und vorallem sauberer etwa so lösen:

GUICreate("", 135, 40, Default, Default, 0x10C80000)
$label = GUICtrlCreateLabel('', 10, 10, 115, 20)

While GUIGetMsg()<>-3
	SetControlText($label, @HOUR&":"&@MIN&":"&@SEC)
WEnd

Func SetControlText($control, $text)
	If GUICtrlRead($control)<>$text Then GUICtrlSetData($control, $text)
EndFunc