Planer

    Hallo zusammen =)

    ich habe wieder mal ein Problem ^^

    Hier mein Script

    Spoiler anzeigen
    [autoit]

    #include <EditConstants.au3>
    #include <GUIConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>
    #Include <Date.au3>

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

    $GUI = GUICreate("Planer", 200,330 )
    GUICtrlCreateLabel("Bitte Wählen Sie ein Datum aus:",25,20)
    $date = GUICtrlCreateDate("",10,40,180)
    GUICtrlCreateLabel("Uhrzeit wann Erinnern",10,73)
    $stunden = GUICtrlCreateInput(@HOUR,116,70,24,20,$ES_NUMBER)
    $minuten = GUICtrlCreateInput(@MIN,140,70,24,20,$ES_NUMBER)
    $sekunden = GUICtrlCreateInput(@SEC,164,70,24,20,$ES_NUMBER)
    GUICtrlCreateLabel("Tätigkeit = ",20,120)
    $ttk = GUICtrlCreateCombo("auswählen...",75,117,100)
    GUICtrlSetData(-1,"Nachricht|anderes")
    $nName = GUICtrlCreateInput("",30,150,140,20)
    $nEreignis = GUICtrlCreateInput("", 30,180,140,20)
    $nExtra = GUICtrlCreateInput("",30,210,140,70)
    ;groups
    GUICtrlCreateGroup("", 5, 5, 190, 95)
    GUICtrlCreateGroup("", 5, 95, 190, 200)
    $save=GUICtrlCreateButton("Speichern",0,300,200,30)
    GUICtrlSetOnEvent($save, "Save2")
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $save
    Save2()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $ttk
    If GUICtrlRead($ttk) = "auswählen..." Then
    GUICtrlSetData($nName,"")
    GUICtrlSetData($nEreignis,"")
    GUICtrlSetData($nExtra,"")
    EndIf
    If GUICtrlRead($ttk) = "Nachricht" Then
    GUICtrlSetData($nName,"")
    GUICtrlSetData($nEreignis,"")
    GUICtrlSetData($nExtra,"")
    GUICtrlSetData($nName,"Name der Person")
    GUICtrlSetData($nEreignis,"Ereignis")
    GUICtrlSetData($nExtra,"Extra angaben")
    EndIf
    If GUICtrlRead($ttk) = "anderes" Then
    GUICtrlSetData($nName,"")
    GUICtrlSetData($nEreignis,"")
    GUICtrlSetData($nExtra,"")
    GUICtrlSetData($nName,"Geben Sie etwas an")
    GUICtrlSetData($nEreignis,"Geben Sie etwas an")
    GUICtrlSetData($nExtra,"Geben Sie etwas an")
    EndIf
    EndSwitch
    WEnd

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

    While 1
    Dim $fail = "Laden aus Termine.ini datei fehlgeschlagen!"
    Dim $date = IniRead($date, "Termine.ini", "Datum", $fail)
    Dim $stunden = IniRead($stunden, "Termine.ini", "Stunden", $fail)
    Dim $minuten = IniRead($minuten, "Termine.ini", "Minuten", $fail)
    Dim $sekunden = IniRead($sekunden, "Termine.ini", "Sekunden", $fail)
    Dim $nName = IniRead($nName, "Termine.ini", "Name", $fail)
    Dim $nEreignis = IniRead($nEreignis,"Termine.ini","Ereignis", $fail)
    Dim $nExtra = IniRead($nExtra,"Termine.ini", "Extra Angaben" ,$fail)
    $timedate = IniRead($date,$stunden,$minuten,$sekunden)
    If $timedate = _Now() Then
    MsgBox(4096,$nEreignis,$nName &(@CRLF)& $nExtra)
    EndIf
    WEnd

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

    Func Save2()
    IniWrite("Termine.ini", "Datum", "", GUICtrlRead($date))
    IniWrite("Termine.ini", "Stunden", "", GUICtrlRead($stunden))
    IniWrite("Termine.ini", "Minuten", "", GUICtrlRead($minuten))
    IniWrite("Termine.ini", "Sekunden", "", GUICtrlRead($sekunden))
    IniWrite("Termine.ini", "Was?", "", GUICtrlRead($ttk))
    IniWrite("Termine.ini", "Name", "", GUICtrlRead($nName))
    IniWrite("Termine.ini", "Ereignis", "", GUICtrlRead($nEreignis))
    IniWrite("Termine.ini", "Extra Angaben", "", GUICtrlRead($nExtra))
    If @error = 1 Then
    MsgBox(4096,"","Speichern abgebrochen.")
    EndIf
    If not @error Then
    MsgBox(4096,"Planer","Einstellungen Gespeichert")
    EndIf
    EndFunc

    [/autoit]

    Der soll imma wenn die Zeit eintretet eine Naricht senden nur funst das i-wie nich ^^

    Einmal editiert, zuletzt von ScripterDrîzzt (5. August 2009 um 11:19)

    Das Problem liegt bei der Überprüfung, die in einer Schleife ist, jedoch nicht aufgerufen wird...
    ich würde dir auch die _Dateadd() Funktion empfehlen, womit du dann die gewünschte Uhrzeit
    und das Datum speichern kannst und einfacher überprüfst.
    (sollte dann aber in der Hauptschleife mit integriert sein)
    Zusätzlich ist es nicht erforderlich (gradezu überflüssig und ressourcenverschwendend),
    wenn du in einer Schleife eine Konstante deklarierst und initialisierst.

    Wer immer nur das tut, was er bereits kann - wird auch immer nur das bleiben, was er bereits ist!

    wo muss hier mein _datum() rein=?^^ damit er es auch abruft?^^

    Spoiler anzeigen
    [autoit]

    #include <EditConstants.au3>
    #include <GUIConstants.au3>
    #include <GUIConstantsEx.au3>
    #Include <Date.au3>
    #include <DateTimeConstants.au3>

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

    $GUI = GUICreate("Planer", 200,330 )
    GUISetBkColor(0x00FF80)
    GUICtrlCreateLabel("Bitte Wählen Sie ein Datum aus:",25,20)
    $date = GUICtrlCreateDate("",10,40,180,20,$DTS_SHORTDATEFORMAT)
    GUICtrlCreateLabel("Uhrzeit wann Erinnern",10,73)
    $zeit = GUICtrlCreateDate("",116,70,70,20,$DTS_TIMEFORMAT )
    GUICtrlCreateLabel("Tätigkeit = ",20,120)
    $ttk = GUICtrlCreateCombo("auswählen...",75,117,100)
    GUICtrlSetData(-1,"Nachricht|anderes")
    $nName = GUICtrlCreateInput("",30,150,140,20)
    $nEreignis = GUICtrlCreateInput("", 30,180,140,20)
    $nExtra = GUICtrlCreateEdit("",30,210,140,70)
    ;groups
    GUICtrlCreateGroup("", 5, 5, 190, 95)
    GUICtrlCreateGroup("", 5, 95, 190, 200)
    $save=GUICtrlCreateButton("Speichern",0,300,200,30)
    GUICtrlSetOnEvent($save, "Save2")
    GUICtrlSetBkColor(-1, 0x000FF80)
    GUICtrlSetColor(-1, 0x000000)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $save
    Save2()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $ttk
    If GUICtrlRead($ttk) = "auswählen..." Then
    GUICtrlSetData($nName,"")
    GUICtrlSetData($nEreignis,"")
    GUICtrlSetData($nExtra,"")
    EndIf
    If GUICtrlRead($ttk) = "Nachricht" Then
    GUICtrlSetData($nName,"")
    GUICtrlSetData($nEreignis,"")
    GUICtrlSetData($nExtra,"")
    GUICtrlSetData($nName,"Name der Person")
    GUICtrlSetData($nEreignis,"Ereignis")
    GUICtrlSetData($nExtra,"Extra angaben")
    EndIf
    If GUICtrlRead($ttk) = "anderes" Then
    GUICtrlSetData($nName,"")
    GUICtrlSetData($nEreignis,"")
    GUICtrlSetData($nExtra,"")
    GUICtrlSetData($nName,"Geben Sie etwas an")
    GUICtrlSetData($nEreignis,"Geben Sie etwas an")
    GUICtrlSetData($nExtra,"Geben Sie etwas an")
    EndIf
    EndSwitch
    WEnd

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

    Func _datum()
    While 1
    $date = IniRead("Termine.ini","Datum","",GUICtrlRead($date))
    If _NowDate() = $date Then
    MsgBox(64,"test","test")
    EndIf
    $zeit = IniRead("Termine.ini","Uhrzeit","",GUICtrlRead($zeit))
    If _NowTime() = $zeit Then
    MsgBox(64,"test","test")
    EndIf
    WEnd
    EndFunc

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

    Func Save2()
    IniWrite("Termine.ini", "Datum", "", GUICtrlRead($date))
    IniWrite("Termine.ini", "Uhrzeit", "", GUICtrlRead($zeit))
    IniWrite("Termine.ini", "Was?", "", GUICtrlRead($ttk))
    IniWrite("Termine.ini", "Name", "", GUICtrlRead($nName))
    IniWrite("Termine.ini", "Ereignis", "", GUICtrlRead($nEreignis))
    IniWrite("Termine.ini", "Extra Angaben", "", GUICtrlRead($nExtra))
    If @error = 1 Then
    MsgBox(4096,"","Speichern abgebrochen.")
    EndIf
    If not @error Then
    MsgBox(4096,"Planer","Einstellungen Gespeichert")
    EndIf
    EndFunc

    [/autoit]

    danke schonma für eure Hilfe =)

    Einmal editiert, zuletzt von ScripterDrîzzt (5. August 2009 um 20:22)