Hallo Nischlas,
erstmal willkommen im Forum.
Ich habe mal die Funktion "Speichern" aktiviert.
Für die Funktion Drucken solltest Du mal die Suchfunktion bemühen.
Bei Fragen und Problemen frag einfach hier im Forum
Spoiler anzeigen
#include <GUIConstants.au3>
#Include <Date.au3>
#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Lerntagebuch", 694, 739, -1, -1)
GUISetBkColor(0xA6CAF0)
$Date = GUICtrlCreateDate(_NowDate(), 0, 688, 225, 42)
$Beenden = GUICtrlCreateButton("Beenden", 536, 688, 145, 41)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Speichern = GUICtrlCreateButton("Speichern", 384, 688, 145, 41)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Datum = GUICtrlCreateLabel("Datum", 8, 16, 183, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$TDR = GUICtrlCreateLabel("Thema der Reihe", 8, 56, 179, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$Box1D = GUICtrlCreateInput("Unten Links??", 200, 16, 265, 21)
$BoxTDR = GUICtrlCreateInput("", 200, 56, 265, 21)
$Drucken = GUICtrlCreateButton("Drucken", 232, 688, 145, 41, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$TDS = GUICtrlCreateLabel("Thema der Stunde", 8, 96, 180, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$BoxTDS = GUICtrlCreateInput("", 200, 96, 265, 21)
$Material = GUICtrlCreateLabel("Material", 8, 136, 178, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$BoxMaterial = GUICtrlCreateInput("BoxMaterial", 200, 136, 265, 21)
$Bearbeitung = GUICtrlCreateLabel("Bearbeitung", 8, 176, 177, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$EditBearbeitung = GUICtrlCreateEdit("", 200, 176, 265, 169)
GUICtrlSetData(-1, "EditBearbeitung")
$ErgebnisDerStunde = GUICtrlCreateLabel("Ergebnis der Stunde", 8, 368, 179, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$Edit1 = GUICtrlCreateEdit("", 200, 368, 265, 121)
GUICtrlSetData(-1, "Edit1")
$Hausaufgaben = GUICtrlCreateLabel("Hausaufgaben", 8, 512, 181, 31)
GUICtrlSetFont(-1, 14, 800, 4, "Comic Sans MS")
$Edit2 = GUICtrlCreateEdit("", 200, 520, 265, 137)
GUICtrlSetData(-1, "Edit2")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $Beenden
Exit
Case $Speichern
tb_speichern()
EndSwitch
WEnd
Func tb_speichern()
$tb = FileOpen("tagebuch.txt",1)
FileWriteLine($tb,GUICtrlRead($Date)&@CRLF&"Thema der Reihe :"&GUICtrlRead($TDR)&@CRLF&"Thema der Stunde :"&GUICtrlRead($TDS))
FileWriteLine($tb,GUICtrlRead($BoxMaterial)&@CRLF&GUICtrlRead($EditBearbeitung)&@CRLF&GUICtrlRead($Edit1)&@CRLF&GUICtrlRead($Edit2)&@CRLF&@CRLF)
FileClose($tb)
EndFunc