[autoit]finde meinen fehler nit :(

04/02/2009 23:02 DerEinsatz#1

hi^^ mir war langweilig da wollt eich mir schnell nen eigenen alarm bot machen der zu bestimmter zeit halt i-was macht (als test ne msgbox macht)

abe er klappt i-wie nit :( hier mal der code:

Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
GUI()

func GUI()
$Form2 = GUICreate("alarmbot", 413, 145, 303, 219)
$Input1 = GUICtrlCreateInput("", 16, 16, 145, 21)
GUICtrlSetData(-1, IniRead(@ScriptDir & "\Einstellungen.ini", "Einstellungen", "1.alarm: ", "10:00:00"))
$Input2 = GUICtrlCreateInput("", 16, 48, 145, 21)
GUICtrlSetData(-1, IniRead(@ScriptDir & "\Einstellungen.ini", "Einstellungen", "2.alarm: ", "10:00:00"))
$Button1 = GUICtrlCreateButton("start", 16, 80, 377, 25, 0)
$Button4 = GUICtrlCreateButton("einstellungen speichern", 16, 112, 377, 25, 0)
$alarm1 = GUICtrlCreatelabel("1.alarmzeit", 184, 16, 209, 25, 0)
$alarm2 = GUICtrlCreatelabel("2.alarmzeit", 184, 48, 209, 25, 0)
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $Button1
			GUISetState (@sw_minimize)
	GUIDelete ()
case $Button4
	IniWrite("Einstellungen.ini", "Einstellungen", "1.alarm: ", GUICtrlRead($Input1))
				IniWrite("Einstellungen.ini", "Einstellungen", "2.alarm: ", GUICtrlRead($Input2))
	EndSwitch
WEnd
endfunc



$zeit = Return @Hour & ":" & @Min & ":" & @SEC
select
	Case $zeit = GUICtrlRead($alarm1)
		_Anweisung1()
	Case $zeit = GUICtrlRead($alarm2)
		_Anweisung2()
EndSelect
	


Func _Anweisung1()
msgbox (0,"lol")
EndFunc

Func _Anweisung2()
msgbox (0,"lol")
EndFunc

ist ja eig nichts schweres aber i-wie steh ich gerade aufm schlauch.... (morgen endlich ferien!!!!!!!!!!!!!!!!!!!!:D)

04/03/2009 12:35 kknb#2

du solltest erstmal die fehler abarbeiten die dir scite beim starten wirft. dann musst du in ner schleife pr�fen welche uhrzeit gerade ist und dementsprechen drauf reagieren.

hab mal nen kleines beispiel f�r eine uhrzeit gemacht, kannst dann selber einfach um die 2. zeit erweitern.

Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("TrayIconDebug",1)
$1=IniRead(@ScriptDir & "\Einstellungen.ini", "Einstellungen", "1.alarm: ", "10:00:00")
$2=IniRead(@ScriptDir & "\Einstellungen.ini", "Einstellungen", "2.alarm: ", "10:00:00")

global $alarm1, $alarm2
$Form2 = GUICreate("alarmbot", 413, 120, 303, 219)
$Input1 = GUICtrlCreateInput($1, 16, 16, 145, 21)
$Input2 = GUICtrlCreateInput($2, 16, 48, 145, 21)
$Button1 = GUICtrlCreateButton("start", 16, 80, 377, 25, 0)

$alarm1 = GUICtrlCreatelabel("1.alarmzeit", 184, 16, 209, 25, 0)
$alarm2 = GUICtrlCreatelabel("2.alarmzeit", 184, 48, 209, 25, 0)
GUISetState(@SW_SHOW)

go()
func go()
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $Button1
			IniWrite("Einstellungen.ini", "Einstellungen", "1.alarm: ", GUICtrlRead($Input1))
			IniWrite("Einstellungen.ini", "Einstellungen", "2.alarm: ", GUICtrlRead($Input2))
			start()
	EndSwitch
WEnd
endfunc

func start()
		$1=IniRead(@ScriptDir & "\Einstellungen.ini", "Einstellungen", "1.alarm: ", "10:00:00")
		$2=IniRead(@ScriptDir & "\Einstellungen.ini", "Einstellungen", "2.alarm: ", "10:00:00")
		$zeit = @Hour & ":" & @Min & ":" & @SEC
	while $1 <> $zeit
		sleep(500)
		$zeit = @Hour & ":" & @Min & ":" & @SEC
		ToolTip($zeit)
	wend
	MsgBox(0,"","bla bla")
EndFunc

04/04/2009 19:21 felixli93#3

du hattest einige viele fehler drin!
vergleiche am besten mal das hier:

Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
GUI()

func GUI()
$Form2 = GUICreate("alarmbot", 413, 145, 303, 219)
Global $Input1 = GUICtrlCreateInput("", 16, 16, 145, 21)
GUICtrlSetData(-1, IniRead(@ScriptDir & "\Einstellungen.ini", "Einstellungen", "1.alarm: ", "10:00:00"))
Global $Input2 = GUICtrlCreateInput("", 16, 48, 145, 21)
GUICtrlSetData(-1, IniRead(@ScriptDir & "\Einstellungen.ini", "Einstellungen", "2.alarm: ", "10:00:00"))
$Button1 = GUICtrlCreateButton("start", 16, 80, 377, 25, 0)
$Button4 = GUICtrlCreateButton("einstellungen speichern", 16, 112, 377, 25, 0)
$alarm1 = GUICtrlCreatelabel("1.alarmzeit", 184, 16, 209, 25, 0)
$alarm2 = GUICtrlCreatelabel("2.alarmzeit", 184, 48, 209, 25, 0)
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		case $Button1
			Global $alarmzeit1 = GUICtrlRead($input1)
			Global $alarmzeit2 = GUICtrlRead($input2)
			GUIDelete ()
			ExitLoop
case $Button4
	IniWrite("Einstellungen.ini", "Einstellungen", "1.alarm: ", GUICtrlRead($Input1))
				IniWrite("Einstellungen.ini", "Einstellungen", "2.alarm: ", GUICtrlRead($Input2))
	EndSwitch
WEnd
endfunc


while 1
	$zeit = @Hour & ":" & @Min & ":" & @SEC
	If $zeit = $alarmzeit1 Then
		_anweisung1 ()
	ElseIf $zeit = $alarmzeit2 Then
		_anweisung2 ()
	EndIf
WEnd

Func _Anweisung1()
msgbox (0,"lol","lol")
EndFunc

Func _Anweisung2()
msgbox (0,"lol","lol")
EndFunc

nochmal mit deinem

so geht das ding jetzt