Doppelter Terminkalender

**Alina**

Hilfe wird bereits gegeben !!!

Diese Hilfe soll nicht umsonst sein !!!
Entweder sprechen wir etwas ab oder ich überweise Geld für den "autoit.de Server" !!!

Moin Moin.

Ich würde gerne einen doppelten Terminkalender haben und dafür habe ich mir jetzt zwei GUI's (Wochenansicht und Tagesansicht) erstellt.
Die "Tagesansicht" soll nur zeigen, wie es aus sieht, wenn man den Button "Tagesansicht"gedrückt hat. In beiden Sichformen (Tag/Woche)
sollen Termine eingegeben, angezeigt, entsperrt und bearbeitet werden können.

Die rechte GUI-Hälfte soll gleichzeitig zum Termin / zur Wochenaufgabe eintragen dienen, als auch zum Termin / zur Wochenaufgabe anzeigen
dienen. Das heißt, wenn ich auf einen gesetzten Termin / Wochenaufgabe gehe, sollen die Daten wieder in die Eingabe- / Auswahlfelder
geschrieben werden.

Wenn ich einen Termin / eine Wochenaufgabe eingetragen ist, soll dieser Termin / diese Wochenaufgabe gesperrt werden, so das man bei der
Termin- / Wochenaufgabenansicht nicht ausversehen was überschreibt. Freigabe durch den Button "Termin entsperren).

Wenn ROT und / oder BLAU ausgewählt wird, soll "Wochenaufgabe" deaktiviert werden und ungekehrt. Entweder es ist ein roter, ein blauer,
ein rot & blauer Termin; oder es ist eine Wochenaufgabe.

Bei der Wochenaufgabe wird nur das gespeichert als Wochenaufgabe, was in der "Terminbezeichnung" steht.

Beim Tageseintrag im Kalender wird erst der Zeitraum ("von - bis" oder nur die Startzeit) eingegeben, gefolgt von der "Terminbezeichnung".

Widerholungstermine können z. B. ja täglich statt finden, dann macht man VORNE den Harken rein, will man aber nur Mo. und Mi. die Widerholung
eintragen, müssen zusätzlich noch Mo. und Mi. angeharkt werden. Gleiches Prinzip bei wöchentlichen und monatlichen Terminen.

Ist "Ende von widerholender Termin" nicht angeharkt, dann hört die Terminwiderholung am 31.12. des folgenden Jahres auf.

Ist "Termin auf den nächsten Werktag verschieben" angeharkt, so soll der Termin auf einen freien Platz am nächsten Werktag gesetzt werden
und wenn da kein Platz ist noch ein Tag weiter, bis Platz ist. Diese Termine müssen irgendwie gelistet werden. Zum Beispiel in eine
Textdatei (z. B. verschobene_Termine.txt: Den Termin am .... mit der Startzeit ... bitte prüfen.), die abgearbeitet werden kann.

Wäre eine Konfigurationsdatei ???
- Feiertage
- Backupordner

Die Kalenderwoche (KW:) muss sich automatisch bei "Wochenaufgaben" anpassen.

Das Datum muss sich automatisch bei den Wochentage anpassen.

Wenn möglich, sollen die roten und blauen Termine in zwei Dateien gespeichert werden, so das man ggf. den roten oder blauen Terminplan austauschen kann.

Wenn Fragen sind, einfach fragen !!!

Ich suche jemanden, der mir das Script soweit schreibt, das es einsetzbar ist. Die Mailfunktion soll nicht geschrieben werden,
da habe ich etwas besonderes vor.

Ich wäre jedem DANKBAR von HERZEN, wenn ich hier Hilfe bekomme. Und wie gesagt, es soll nicht umsonst sein !!!

LG, Lina.

teamnoobPDB

Soll das ganze in einer GUI landen oder sind 2 getrennte so richtig?

**Alina**

Hallo.

Nein, soll beides in einer GUI landen. Die GUI "Tagesansicht" habe ich beigefügt, damit man sieht wie die "Tagesansicht" aussehen soll, wenn man sie auswählt.
Eigentlich die anderen Tage aus der Wochenansicht deaktivieren und "DEN TAG" dann auf der linken Seite in voller Länge darstellen.

teamnoobPDB

Ok ich schau mal was ich so in meiner Freizeit machen kann.

**Oscar**

Ich habe auch mal mit einem Kalenderprogramm angefangen (noch nicht fertig). Das ist ein ziemlicher Aufwand.
Momentan habe ich leider auch keine Zeit zu helfen.
Sehr gut ist aber, dass Du schonmal die GUI soweit fertig gemacht hast. Das hilft ungemein bei der Planung.
Noch eine kleine Anmerkung: Sollten die drei Checkboxen zum Termine löschen nicht eher Radio-Controls sein?
Also eher so:

AutoIt

$Checkbox29 = GUICtrlCreateRadio("- Tage", 998, 720, 57, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Checkbox30 = GUICtrlCreateRadio("- Wochen", 1059, 720, 81, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Checkbox31 = GUICtrlCreateRadio("- Monate", 1142, 720, 73, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")

Edit (nicht böse gemeint): Es heißt Haken (ohne "r"). Demzufolge dann auch "angehakt". Die Harke (mit "r") ist das Gartengerät, mit der man die Beete harkt.

**Alina**

Moin Oscar.

Ja, die Idee war gut. Habe es nun wie folgt geändret:

AutoIt

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


; Titel
$Form1_1 = GUICreate("Doppelter Terminkalender", 1405, 750, 193, 122)


; Kalendre re. oben
$MonthCal1 = GUICtrlCreateMonthCal("2016/01/04", 1192, 16, 204, 195)


; Montag
$Group1 = GUICtrlCreateGroup("  Mo. 04.01.2016  ", 10, 6, 730, 100)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")


; Beispiele - Start // kann na klar gelöscht werden
$Label1 = GUICtrlCreateLabel("07:00 - 07:30 Frühstück bei Tiffany", 20, 31, 205, 24)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("07:00 - 07:30 Frühstück bei Tiffany", 370, 31, 205, 24)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
$Label3 = GUICtrlCreateLabel("12:00 - 16:15 Paketbote angekündigt", 370, 56, 222, 24)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x0000FF)
$Label4 = GUICtrlCreateLabel("08:15 - 14:30 Unterricht", 20, 55, 139, 24)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetColor(-1, 0xFF0000)
; Beispiel - Ende


GUICtrlCreateGroup("", -99, -99, 1, 1)


; Dienstag
$Group2 = GUICtrlCreateGroup("  Di. 05.01.2016  ", 10, 111, 730, 100)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)


; Mittwoch
$Group3 = GUICtrlCreateGroup("  Mi. 06.01.2016  ", 11, 216, 730, 100)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)


; Donnerstag
$Group4 = GUICtrlCreateGroup("  Do. 07.01.2016  ", 10, 321, 730, 100)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)


; Freitag
$Group5 = GUICtrlCreateGroup("  Fr. 08.01.2016  ", 11, 430, 730, 100)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)


; Samstag
$Group6 = GUICtrlCreateGroup("  Sa. 09.01.2016  ", 10, 535, 730, 100)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)


; Sonntag
$Group7 = GUICtrlCreateGroup("  So. 10.01.2016  ", 10, 640, 730, 100)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)


; Wochenaufgabe
$Group8 = GUICtrlCreateGroup("  Wochenaufgabe KW: 01  ", 750, 6, 434, 205)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox3 = GUICtrlCreateCheckbox("Wochenaufgabe", 1210, 245, 161, 20)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)


; ROT (li. Spalte) oder BLAU (re. Spalte)
$Checkbox1 = GUICtrlCreateCheckbox("ROT", 1210, 224, 65, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Checkbox2 = GUICtrlCreateCheckbox("BLAU", 1285, 224, 73, 17)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)


; Termindaten
$Label5 = GUICtrlCreateLabel("Terminbezeichnung", 750, 224, 139, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Input1 = GUICtrlCreateInput("Frühstück bei Tiffany", 910, 223, 281, 21) ; Pflichtangabe
$Label6 = GUICtrlCreateLabel("Terminbeschreibung", 750, 248, 146, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Input2 = GUICtrlCreateInput("Empfangsessen für 2 Pers. ; Gastgeber: Amt", 910, 249, 281, 21) ; Pflichtangabe
$Label7 = GUICtrlCreateLabel("Datum von / bis", 750, 273, 111, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Date1 = GUICtrlCreateDate("2016/01/04", 910, 273, 177, 20) ; Pflichtangabe
$Date2 = GUICtrlCreateDate("2016/01/04", 1108, 273, 177, 20) ; Pflichtangabe
$Label8 = GUICtrlCreateLabel("/", 1093, 273, 8, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
$Label9 = GUICtrlCreateLabel("Zeit von / bis", 750, 298, 91, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Label10 = GUICtrlCreateLabel("/", 962, 298, 8, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
$Input3 = GUICtrlCreateInput("07:00", 910, 298, 41, 21) ; Pflichtangabe hier nur Startzeit
$Input4 = GUICtrlCreateInput("07:30", 973, 297, 41, 21)
$Label11 = GUICtrlCreateLabel("Adresse", 751, 322, 63, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Input5 = GUICtrlCreateInput("Amt Gröbung, Alljefjord 12-14, 12345 Musterbergheim", 910, 322, 489, 21)
$Label12 = GUICtrlCreateLabel("Telefon", 750, 346, 55, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Input6 = GUICtrlCreateInput("(0049) 461 / 12 34 56 78", 910, 346, 169, 21)


; Termindaten --> Email
$Label13 = GUICtrlCreateLabel("Emailadresse", 1094, 346, 101, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Input7 = GUICtrlCreateInput("maria@musterfrau.dk", 1194, 346, 173, 21)
$Button11 = GUICtrlCreateButton("@", 1370, 345, 22, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")


; Termindaten --> Zusatzinformationen
$Edit1 = GUICtrlCreateEdit("", 750, 560, 401, 137)
GUICtrlSetData(-1, "Zusatzinformationen")


; Terminwiderholungen: einmaliger Termin
$Checkbox4 = GUICtrlCreateCheckbox("- einmaliger Termin", 750, 376, 137, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")


; Terminwiderholungen: täglicher Termin
$Checkbox5 = GUICtrlCreateCheckbox("- täglicher Termin", 750, 398, 137, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Checkbox10 = GUICtrlCreateCheckbox("Mo", 910, 398, 33, 17)
$Checkbox11 = GUICtrlCreateCheckbox("Di", 945, 398, 33, 17)
$Checkbox12 = GUICtrlCreateCheckbox("Mi", 980, 398, 33, 17)
$Checkbox13 = GUICtrlCreateCheckbox("Do", 1015, 398, 33, 17)
$Checkbox14 = GUICtrlCreateCheckbox("Fr", 1050, 398, 33, 17)
$Checkbox15 = GUICtrlCreateCheckbox("Sa", 1085, 398, 33, 17)
$Checkbox16 = GUICtrlCreateCheckbox("So", 1120, 398, 33, 17)


; Terminwiderholungen: wöchentlicher Termin
$Checkbox6 = GUICtrlCreateCheckbox("- wöchentlicher Termin", 750, 421, 153, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Checkbox17 = GUICtrlCreateCheckbox("1.", 910, 421, 33, 17)
$Checkbox18 = GUICtrlCreateCheckbox("2", 945, 421, 33, 17)
$Checkbox19 = GUICtrlCreateCheckbox("3.", 980, 421, 33, 17)
$Checkbox20 = GUICtrlCreateCheckbox("4.", 1015, 421, 33, 17)
$Checkbox21 = GUICtrlCreateCheckbox("5.", 1050, 421, 33, 17)
$Checkbox22 = GUICtrlCreateCheckbox("ungerade", 1140, 421, 65, 17)
$Checkbox23 = GUICtrlCreateCheckbox("gerade", 1085, 421, 50, 17)


; Terminwiderholungen: monatlicher Termin
$Checkbox7 = GUICtrlCreateCheckbox("- monatlicher Termin", 750, 441, 137, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Checkbox24 = GUICtrlCreateCheckbox("ungerade", 980, 441, 65, 17)
$Checkbox25 = GUICtrlCreateCheckbox("gerade", 910, 441, 57, 17)


; Terminwiderholungen: vierteljährlicher Termin
$Checkbox8 = GUICtrlCreateCheckbox("- vierteljährlicher Termin", 750, 467, 177, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")


; Terminwiderholungen: jährlicher Termin
$Checkbox9 = GUICtrlCreateCheckbox("- jährlicher Termin", 750, 487, 145, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")


; Terminwiderholungen:  Sonn- und Feiertag
$Checkbox26 = GUICtrlCreateCheckbox("-Termin auch an Sonn- und Feiertagen eintragen.", 750, 531, 305, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Checkbox27 = GUICtrlCreateCheckbox("- Termin auf den nächsten Werktag verschieben.", 1077, 531, 297, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")


; Ende von wiederholender Termine
$Checkbox28 = GUICtrlCreateCheckbox("- Ende von wiederholender Termine", 750, 511, 225, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Date3 = GUICtrlCreateDate("2016/12/31", 975, 511, 177, 20)


; Buttons
$Button1 = GUICtrlCreateButton("Tagesansicht", 1160, 680, 110, 25)
$Button3 = GUICtrlCreateButton("Termin eintragen / ändern", 1160, 616, 240, 25)
$Button4 = GUICtrlCreateButton("Termin entsperren", 1160, 650, 110, 25)
$Button2 = GUICtrlCreateButton("Wochenansicht", 1290, 680, 110, 25)
$Button5 = GUICtrlCreateButton("Termin löschen", 1290, 650, 110, 25)
$Button6 = GUICtrlCreateButton("Backup", 1160, 558, 110, 25)
$Button7 = GUICtrlCreateButton("Restore", 1290, 557, 110, 25)


; Terminbereinigung  !!! Bevor der Button gedrückt werden kann, muss eine Zahn im Feld stehen und
; ausgewählt werden ob Tage / Wochen / Monate bereinigt werden soll
$Label14 = GUICtrlCreateLabel("Termine löschen die älter sind als", 750, 720, 198, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Input8 = GUICtrlCreateInput("12", 960, 720, 33, 21)
$Checkbox29 = GUICtrlCreateRadio("- Tage", 998, 720, 57, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Checkbox30 = GUICtrlCreateRadio("- Wochen", 1059, 720, 81, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Checkbox31 = GUICtrlCreateRadio("- Monate", 1142, 720, 73, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")


$Button8 = GUICtrlCreateButton("Terminbereinigung ausführen", 1220, 715, 180, 25)


; Drucken (DIN-A4 , zweispaltig , alles in schwarz)
$Button9 = GUICtrlCreateButton("Tag drucken", 1160, 585, 110, 25)
$Button10 = GUICtrlCreateButton("KW drucken", 1290, 585, 110, 25)


GUISetState(@SW_SHOW)


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


	EndSwitch
WEnd

Alles anzeigen

Sorry, das ich den Haken mit "r" geschrieben habe. Kleines Sprachproblem gehabt, da länger nicht so viel Deutsch" gesprochen. Ich geloben Besserung in nächster Zeit. Mach einen Haken hinter und und schon ist es "abgehakt".

**BugFix**

Vor vielen, vielen Jahren hatten wir hier in AutoIt ein Kalenderprojekt. Ich habe aber nicht mehr in Erinnerung, wie der letzte Status war. Hier kannst du es beziehen: Galenda

**Alina**

Hallo BugFix.

Erst einmal DANKE.

Das habe ich mir angeschaut und da ich noch so einiges später einbauen möchte, ist Galenda nicht das was ich suche.

**Alina**

Wie fange ich am besten an?

1.) Wenn ich ein Datum auf den Kalender re. oben anklicke, wie mache ich es, das die Kalenderwoche ausgegeben wird?

2.) Wenn ich ein Datum auf den Kalendr re. oben anklicke, wie mache ich es, dass das Datum ausgegeben wird?

Ich glaube es ist das Beste, wenn erst einmal die grafische Sachen stimmen und dazu gehört auch, das o. g. beide Fragen
gelöst werden.

Vielleicht findet sich ja noch eine/r der sich ran traut. Wäre mir echt wichtig.

**Kanashius**

Ich würds ja machen, hab momentan nur leider wenig Zeit... Morgen schau ichs mir aber mal an
Vielleicht ist es ja nicht zu viel fürs Wochenende.
Momentan hab ich ne 50+ Stunden Woche inner Uni und dazu noch 5 Übungszettel, je 2-4+ Stunden, die bewertet werden...

teamnoobPDB

2) Du kannst das per GUICtrlRead() auslesen

und

1) Dann mit _WeekNumberISO() die Woche ausrechnen