Unfertiger Termin Kalender(Planer) - Termini

[autoit]

#cs ----------------------------------------------------------------------------

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

Script Version: 0.1
Author: ProblemUser

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

Script Function:
Dieses Programm, errinert euch an einen Eingegebenen Termin

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

#ce ----------------------------------------------------------------------------

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

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Termin planer by ProblemUser", 334, 342, 192, 124)
$Stunde = GUICtrlCreateCombo("Stunde", 16, 56, 145, 25)
GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24")
$Group1 = GUICtrlCreateGroup("Termin planen:", 8, 8, 313, 89)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Minute = GUICtrlCreateCombo("Minute", 170, 56, 145, 25)
GUICtrlSetData(-1, "10|15|20|25|30|35|40|45|50|55|0")
$Label1 = GUICtrlCreateLabel("Uhrzeit auswählen", 16, 32, 91, 17)
$Group2 = GUICtrlCreateGroup("Grund:", 8, 112, 313, 121)
$Grund = GUICtrlCreateEdit("", 16, 128, 297, 97)
GUICtrlSetData(-1, "Grund")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Erinnerung:", 8, 240, 313, 57)
$Erinnerung = GUICtrlCreateCombo("Erinnerung", 16, 264, 289, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Speichern!", 8, 304, 313, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Stunden = GUICtrlRead($Stunde)
$Minuten = GUICtrlRead($Minute)
$MSG = GUICtrlRead($Grund)
$DubbleDot = ":"
$Binde = "-"
$SaveDay = @MDAY & $DubbleDot & @MON & $DubbleDot & @YEAR & $Binde & @HOUR & $DubbleDot & @MIN
$FileEnd = ".tm"
$File = "Termini" & @MDAY & @MON & $FileEnd
IniWrite(@Scriptdir & $File, $SaveDay, "Nachricht", $MSG)
IniWrite(@Scriptdir & $File, $SaveDay, "Stunde", $Stunden)
IniWrite(@Scriptdir & $File, $SaveDay, "Minute", $Minuten)
Case $Form1
$var = IniReadSectionNames(@ScriptDir & $File)
$i = $var[0]
$ii = $var[$i]
$HOUR = IniRead (@ScriptDir & $File, $ii, "Stunde", "default" )
$MINUTES = IniRead (@ScriptDir & $File, $ii, "Minute", "default" )
$MSGB = IniRead (@ScriptDir & $File, $ii, "Nachricht", "default" )
$iiMSGB = @CRLF & "Wollen sie in 10 Minuten wieder benachrechtigt werden?"
While True
Do
If @hour=$HOUR And @Min=$MINUTES Then
$iMSGB = MsgBox (4, "Termini Benachrichtigung!", $MSGB & $iiMSGB)
EndIf
If $iMSGB = 6 Then
$iMinute = @Min + 10
EndIf
If @Min = $iMinute Then
$iMSGB = MsgBox (4, "Termini Benachrichtigung!", $MSGB & $iiMSGB)
EndIf
Until $iMSGB = 7
WEnd
Case $Minute
EndSwitch
WEnd

[/autoit]