Wiederhohlen ( Func )

baerchen

Hallo,

ich habe mal eine frage, gibt es eine möglichkeit,
eine Funktionen zu wiederhohlen / ohne While + sleep ?

Spoiler anzeigen

AutoIt

$state = DriveStatus("C:")
$a = DriveSpaceFree("C:")
$b = DriveSpaceTotal("C:")
$size = $a & "/" & $b & " mb "


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


#Region ### START Koda GUI section ### Form=
$Check = GUICreate("Testing", 321, 108, -1, -1)
GUICtrlCreateLabel("C:", 8, 8, 294, 17)
GUICtrlCreateLabel("Status: " & $state, 8, 40, 293, 17)
GUICtrlCreateLabel("Size: " & $size, 8, 72, 310, 17)
GUISetState(@SW_SHOW)


#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


	EndSwitch
WEnd

Alles anzeigen

möchte nähmlich das er diese abfragen wiederhohlt .. habe zwar noch ein script mit while und sleeps aber das ist zu beschissen.

MfG

Mit While :

Spoiler anzeigen

AutoIt

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


$1 = 1
$2 = 2


#Region ### START Koda GUI section ### Form=
$Check = GUICreate("Testing", 321, 108, -1, -1)
GUICtrlCreateLabel("C:", 8, 8, 294, 17)
$1 = GUICtrlCreateLabel("Status: ", 8, 40, 293, 17)
$2 = GUICtrlCreateLabel("Size: ", 8, 72, 310, 17)
GUISetState(@SW_SHOW)


check()
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


	EndSwitch
WEnd


Func check()
	Local $i = 0
	While $i <= 1
		$state = DriveStatus("C:")
		$a = DriveSpaceFree("C:")
		$b = DriveSpaceTotal("C:")
		$size = $a & "/" & $b & " mb "
		GUICtrlSetData($2, "Size: " & $size)
		GUICtrlSetData($1, "Status: " & $state)
		Sleep(1000)
	WEnd
EndFunc   ;==>check

Alles anzeigen

bernd670 : Bitte Doppelposts vermeiden!

**Tweaky**

Schau dir in der Hilfe mal AdlibRegister an.

**bernd670**

Hallo,

AdlibRegister ist da unnötig. Ich würde das so machen!

AutoIt

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


$1 = 1
$2 = 2


$iTimer = 0
$iTimeOut = 60000 ; 60 alle Sekunden Status checken


#Region ### START Koda GUI section ### Form=
$Check = GUICreate("Testing", 321, 108, -1, -1)
GUICtrlCreateLabel("C:", 8, 8, 294, 17)
$1 = GUICtrlCreateLabel("Status: ", 8, 40, 293, 17)
$2 = GUICtrlCreateLabel("Size: ", 8, 72, 310, 17)
GUISetState(@SW_SHOW)


#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


	EndSwitch


	If TimerDiff($iTimer) > $iTimeOut Then
		Check()
		$iTimer = TimerInit()
	EndIf


WEnd


Func check()
	$state = DriveStatus("C:")
	$a = DriveSpaceFree("C:")
	$b = DriveSpaceTotal("C:")
	$size = StringFormat("%.3f / %.3f MB",$a, $b)
	GUICtrlSetData($2, "Size: " & $size)
	GUICtrlSetData($1, "Status: " & $state)
EndFunc   ;==>check

Alles anzeigen

Mit $iTimeOut (ms) kannst einstellen in welchen Interval der Check durchgeführt wird.

baerchen

Oke hat funktioniert. weiteres Problem wie bei while

der Button ( Exit ) lässt sich nicht mehr betätigen Func blocked

ich habe es mir einer F8 (hotkeyset) gelöst, gibt es dennoch eine andere lösung?

Spoiler anzeigen

AutoIt

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


Opt("TrayIconHide", 1)


$1 = 1
$2 = 2


HotKeySet("{F8}", "close")


#Region ### START Koda GUI section ### Form=
$Check = GUICreate("Testing", 321, 132, -1, -1, $WS_EX_TOOLWINDOW)
GUICtrlCreateLabel("C:", 8, 8, 294, 17)
$1 = GUICtrlCreateLabel("Status: ", 8, 40, 293, 17)
$2 = GUICtrlCreateLabel("Size: ", 8, 72, 310, 17)
GUISetState(@SW_SHOW)


AdlibRegister("check")
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			close()


	EndSwitch
WEnd


Func check()
	Local $i = 0
	While $i <= 1
		$state = DriveStatus("E:")
		$a = DriveSpaceFree("E:")
		$b = DriveSpaceTotal("E:")
		$size = $a & "/" & $b & " mb "
		GUICtrlSetData($2, "Size: " & $size)
		GUICtrlSetData($1, "Status: " & $state)
		Sleep(1000)
	WEnd
EndFunc   ;==>check


Func close()
	Exit
EndFunc   ;==>close

Alles anzeigen

Edit:
Hab schon, Danke

bernd670 : schon wieder ein Doppelpost!

**Tweaky**

Du brauchst keine While-Schleife

Spoiler anzeigen

[autoit]

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