PROBLEM bei benachrichtigung

  • hallo
    also ich möchte ein programm machen eine sendungserinnerung soweit sogut

    momentan gilt das erst für die ersten beiden spalten das andere kommt dazu wenns klappt also wen cih eine uhrzeit angebe sollte ich benachrichtigt werden wenn diese uhrzeit später eintritt doch das klappt nich und ich will KEINE NEUE INPUTBOX dazu machen das wäre zu einfach und es soll ja nachwas aussehen^^
    ich hoffe ihr könnt mir helfen
    mfg sithlord95

  • du schreibst "if $zeit = irgendwas"
    aber du musst die zeit aus dem inputfeld erst mit guictrlread($zeit) auslesen also müsste es heißen:

    [autoit]

    #include <GUIConstants.au3>
    Opt('GUIOnEventMode', 1)
    #Region ### START Koda GUI section ### Form=C:\Users\yannick\Desktop\autoit ordner\AutoIt-Form-Designer\Forms\Form1.kxf
    $Form1_1 = GUICreate("Sendungs Erinnerer", 362, 584, 402, 139)
    GUISetBkColor(0xC0C0C0)
    $Zeit = GUICtrlCreateInput(@HOUR & ":" & @MIN & ":" & @SEC, 0, 104, 361, 21)
    $sender = GUICtrlCreateInput("Input2", 1, 128, 359, 21)
    $MonthCal1 = GUICtrlCreateMonthCal("2009/04/01", 56, 416, 241, 164)
    $Date1 = GUICtrlCreateDate("2009/04/01 10:44:21", 80, 0, 201, 25)
    GUICtrlCreateEdit("", 24, 320, 313, 89)
    GUICtrlSetData(-1, "Bitte geben sie die uhrzeit ein wo der film laufen wird in jeweils die erste spalte ein und den sender in jeweils die zweite spalte ein")
    $Input3 = GUICtrlCreateInput("Input3", 0, 184, 361, 21)
    $Input4 = GUICtrlCreateInput("Input4", 0, 208, 361, 21)
    GUICtrlCreateLabel("", 0, 240, 4, 4)
    $Input5 = GUICtrlCreateInput("Input5", 0, 264, 361, 21)
    $Input6 = GUICtrlCreateInput("Input6", 0, 288, 361, 21)
    $Label1 = GUICtrlCreateLabel("Sendung 1", 0, 80, 340, 25)
    $Label2 = GUICtrlCreateLabel("Sendung 2", 0, 152, 340, 25)
    $Label3 = GUICtrlCreateLabel("Sendung 3", 0, 232, 340, 33)
    $Button1 = GUICtrlCreateButton("Starten", 56, 32, 113, 33, 0)
    $Button2 = GUICtrlCreateButton("Beenden", 200, 32, 113, 33, 0)
    GUICtrlSetOnEvent( $Button1 , '_starten')
    GUICtrlSetOnEvent( $Button2 , '_beenden')
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()

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

    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    EndSwitch
    WEnd
    func _starten()
    while 1
    If Guictrlread($Zeit) = @HOUR & ":" & @MIN & ":" & @SEC Then
    MsgBox (64,"Film läuft","Der Film läuft! und zwar auf ----------> " & Guictrlread($sender))
    endif
    wend
    endfunc
    func _beenden()
    exit
    endfunc

    [/autoit]
  • Wenn Du "Starten" drückst, verzweigt Dein Programm in die Funktion "_starten()". In dieser Funktion ist eine "While...Wend" Schleife, die durch "While 1" nie verlassen wird aber mit maximaler Geschwindigkeit und Rechenleistung, immer wieder durchlaufen wird.

    Daher funktioniert auch weiter Event's noch nicht (und der Rechner hat gut zu tun, ein Hoch an die Mehrprozessor-Technik).

    Zur Nutzung dieses Forum's, ist ein Übersetzer für folgende Begriffe unerlässlich:

    "On-Bort, weier, verscheiden, schädliges, Butten steyling, näckstet, Parr, Porblem, scripe, Kompletenz, harken, manuel zu extramieren, geckukt, würglich, excell, acces oder Compilevorgeng"

  • Unter Umständen (nicht getestet) funktioniert es so besser:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    Opt('GUIOnEventMode', 1)
    #Region ### START Koda GUI section ### Form=C:\Users\yannick\Desktop\autoit ordner\AutoIt-Form-Designer\Forms\Form1.kxf
    $Form1_1 = GUICreate("Sendungs Erinnerer", 362, 584, 402, 139)
    GUISetBkColor(0xC0C0C0)
    $Zeit = GUICtrlCreateInput(@HOUR & ":" & @MIN & ":" & @SEC, 0, 104, 361, 21)
    $sender = GUICtrlCreateInput("Input2", 1, 128, 359, 21)
    $MonthCal1 = GUICtrlCreateMonthCal("2009/04/01", 56, 416, 241, 164)
    $Date1 = GUICtrlCreateDate("2009/04/01 10:44:21", 80, 0, 201, 25)
    GUICtrlCreateEdit("", 24, 320, 313, 89)
    GUICtrlSetData(-1, "Bitte geben sie die uhrzeit ein wo der film laufen wird in jeweils die erste spalte ein und den sender in jeweils die zweite spalte ein")
    $Input3 = GUICtrlCreateInput("Input3", 0, 184, 361, 21)
    $Input4 = GUICtrlCreateInput("Input4", 0, 208, 361, 21)
    GUICtrlCreateLabel("", 0, 240, 4, 4)
    $Input5 = GUICtrlCreateInput("Input5", 0, 264, 361, 21)
    $Input6 = GUICtrlCreateInput("Input6", 0, 288, 361, 21)
    $Label1 = GUICtrlCreateLabel("Sendung 1", 0, 80, 340, 25)
    $Label2 = GUICtrlCreateLabel("Sendung 2", 0, 152, 340, 25)
    $Label3 = GUICtrlCreateLabel("Sendung 3", 0, 232, 340, 33)
    $Button1 = GUICtrlCreateButton("Starten", 56, 32, 113, 33, 0)
    $Button2 = GUICtrlCreateButton("Beenden", 200, 32, 113, 33, 0)
    GUICtrlSetOnEvent( $Button1 , '_starten')
    GUICtrlSetOnEvent( $Button2 , '_beenden')
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    Global $gestartet = 0

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

    While 1
    If $gestartet = 1 AND Guictrlread($Zeit) = @HOUR & ":" & @MIN & ":" & @SEC Then MsgBox (64,"Film läuft","Der Film läuft! und zwar auf ----------> " & Guictrlread($sender))
    Sleep(1000)
    WEnd

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

    func _starten()
    $gestartet = 1
    endfunc

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

    func _beenden()
    exit
    endfunc

    [/autoit]

    Edit: überflüssiges ENDIF entfernt...

    Zur Nutzung dieses Forum's, ist ein Übersetzer für folgende Begriffe unerlässlich:

    "On-Bort, weier, verscheiden, schädliges, Butten steyling, näckstet, Parr, Porblem, scripe, Kompletenz, harken, manuel zu extramieren, geckukt, würglich, excell, acces oder Compilevorgeng"

  • nicht ganz aber fast danke

  • nix so wenn das endif da steht dann läuft er ja nur mit pausen wenn ersacht es läuft gleich mach das endif weg

  • nix so wenn das endif da steht dann läuft er ja nur mit pausen wenn ersacht es läuft gleich mach das endif weg

    Bist Du betrunken, das kann ja niemand lesen... :D

    Zur Nutzung dieses Forum's, ist ein Übersetzer für folgende Begriffe unerlässlich:

    "On-Bort, weier, verscheiden, schädliges, Butten steyling, näckstet, Parr, Porblem, scripe, Kompletenz, harken, manuel zu extramieren, geckukt, würglich, excell, acces oder Compilevorgeng"