Hallo,
ich habe mich mal ran gesetzt und meinen Stundenplaner geschrieben. Vielleicht kann ja irgendwer damit etwas anfangen. Danke, an die Menschen dieses Forums, die mir bei meinen Problemen immer geholfen haben!
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0 Author: Brandt, Tobias
Script Function:-
#ce ----------------------------------------------------------------------------
#include #include #include
Opt("GUIOnEventMode", 1)
Global $ini = ""Global $save = ""Global $version = "V1.0"Global $edit = "26.04.2009"Global $mailto = "tobi.brandt@gmx.net"
#Region ### START Koda GUI section ### Form=C:\Users\Admin\Desktop\Selbstbaubot\GUI\Forms\Stundenplaner.kxf$Stundenplaner = GUICreate("Stundenplaner "&$version, 789, 475, 148, 131)GUISetBkColor(0xBFCDDB)$Label1 = GUICtrlCreateLabel("", 53, 268, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label2 = GUICtrlCreateLabel("", 53, 153, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label3 = GUICtrlCreateLabel("", 53, 306, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label4 = GUICtrlCreateLabel("", 53, 230, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label5 = GUICtrlCreateLabel("", 53, 345, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label6 = GUICtrlCreateLabel("", 53, 115, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label7 = GUICtrlCreateLabel("", 53, 192, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label8 = GUICtrlCreateLabel("", 53, 383, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Freitag = GUICtrlCreateLabel("Freitag", 633, 75, 120, 30,$SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")GUICtrlSetBkColor(-1, 0xE3E3E3)$Dienstag = GUICtrlCreateLabel("Dienstag", 198, 75, 120, 30,$SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")GUICtrlSetBkColor(-1, 0xE3E3E3)$Erste = GUICtrlCreateLabel("1.", 7, 115, 30, 30,$SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")GUICtrlSetBkColor(-1, 0xE3E3E3)$Donnerstag = GUICtrlCreateLabel("Donnerstag", 488, 75, 120, 30,$SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")GUICtrlSetBkColor(-1, 0xE3E3E3)$Zweite = GUICtrlCreateLabel("2.", 7, 153, 30, 30,$SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")GUICtrlSetBkColor(-1, 0xE3E3E3)$Montag = GUICtrlCreateLabel("Montag", 54, 75, 120, 30,$SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")GUICtrlSetBkColor(-1, 0xE3E3E3)$Mittwoch = GUICtrlCreateLabel("Mittwoch", 343, 75, 120, 30,$SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")GUICtrlSetBkColor(-1, 0xE3E3E3)$Dritte = GUICtrlCreateLabel("3.", 7, 192, 30, 30,$SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")GUICtrlSetBkColor(-1, 0xE3E3E3)$Achte = GUICtrlCreateLabel("8.", 6, 383, 30, 30,$SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")GUICtrlSetBkColor(-1, 0xE3E3E3)$Fuenfte = GUICtrlCreateLabel("5.", 6, 268, 30, 30,$SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")GUICtrlSetBkColor(-1, 0xE3E3E3)$Siebter = GUICtrlCreateLabel("7.", 6, 345, 30, 30,$SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")GUICtrlSetBkColor(-1, 0xE3E3E3)$Vierte = GUICtrlCreateLabel("4.", 6, 230, 30, 30,$SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")GUICtrlSetBkColor(-1, 0xE3E3E3)$Sechste = GUICtrlCreateLabel("6.", 6, 306, 30, 30,$SS_CENTER)GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")GUICtrlSetBkColor(-1, 0xE3E3E3)$Label9 = GUICtrlCreateLabel("", 198, 268, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label10 = GUICtrlCreateLabel("", 198, 153, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label11 = GUICtrlCreateLabel("", 198, 306, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label12 = GUICtrlCreateLabel("", 198, 230, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label13 = GUICtrlCreateLabel("", 198, 345, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label14 = GUICtrlCreateLabel("", 198, 115, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label15 = GUICtrlCreateLabel("", 198, 192, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label16 = GUICtrlCreateLabel("", 198, 383, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label17 = GUICtrlCreateLabel("", 343, 268, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label18 = GUICtrlCreateLabel("", 343, 153, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label19 = GUICtrlCreateLabel("", 343, 306, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label20 = GUICtrlCreateLabel("", 343, 230, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label21 = GUICtrlCreateLabel("", 343, 345, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label22 = GUICtrlCreateLabel("", 343, 115, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label23 = GUICtrlCreateLabel("", 343, 192, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label24 = GUICtrlCreateLabel("", 343, 383, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label25 = GUICtrlCreateLabel("", 488, 268, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label26 = GUICtrlCreateLabel("", 488, 153, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label27 = GUICtrlCreateLabel("", 488, 306, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label28 = GUICtrlCreateLabel("", 488, 230, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label29 = GUICtrlCreateLabel("", 488, 345, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label30 = GUICtrlCreateLabel("", 488, 115, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label31 = GUICtrlCreateLabel("", 488, 192, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label32 = GUICtrlCreateLabel("", 488, 383, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label33 = GUICtrlCreateLabel("", 633, 268, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label34 = GUICtrlCreateLabel("", 633, 153, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label35 = GUICtrlCreateLabel("", 633, 306, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label36 = GUICtrlCreateLabel("", 633, 230, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label37 = GUICtrlCreateLabel("", 633, 345, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label38 = GUICtrlCreateLabel("", 633, 115, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label39 = GUICtrlCreateLabel("", 633, 192, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Label40 = GUICtrlCreateLabel("", 633, 383, 120, 30,$SS_CENTER)GUICtrlSetBkColor(-1, 0xE3E3E3)$Stundenplan = GUICtrlCreateLabel("Platzhalter", 6, 5, 500, 37)GUICtrlSetFont(-1, 18, 800, 0, "Arial Black")$MenuItem1 = GUICtrlCreateMenu("&Datei")$MenuItem3 = GUICtrlCreateMenuItem("Neuen Stundenplan ", $MenuItem1)$MenuItem4 = GUICtrlCreateMenuItem("Stundenplan laden", $MenuItem1)$MenuItem5 = GUICtrlCreateMenuItem("Beenden ", $MenuItem1)$MenuItem2 = GUICtrlCreateMenu("&?")$MenuItem6 = GUICtrlCreateMenuItem("Über", $MenuItem2)$MenuItem7 = GUICtrlCreateMenuItem("Hilfe", $MenuItem2)GUISetState(@SW_SHOW)#EndRegion ### END Koda GUI section ###
While 1; --Gui--GuiSetOnEvent($GUI_EVENT_CLOSE,"cancel")GuiCtrlSetOnEvent($MenuItem3,"save")GuiCtrlSetOnEvent($MenuItem4,"load") GuiCtrlSetOnEvent($MenuItem5,"cancel") GuiCtrlSetOnEvent($MenuItem6,"about")GuiCtrlSetOnEvent($MenuItem7,"help")Sleep(500)
;-- Header --GuiCtrlSetData($Stundenplan,IniRead($ini,"Header","Header","Platzhalter"))
;-- Header OnClick --GuiCtrlSetonEvent($Stundenplan,"header")
; --Montag--GUICtrlSetData($Label6,IniRead($ini,"Montag","Erste","Platzhalter"))GUICtrlSetData($Label2,IniRead($ini,"Montag","Zweite","Platzhalter"))GUICtrlSetData($Label7,IniRead($ini,"Montag","Dritte","Platzhalter"))GUICtrlSetData($Label4,IniRead($ini,"Montag","Vierte","Platzhalter"))GUICtrlSetData($Label1,IniRead($ini,"Montag","Fuenfte","Platzhalter"))GUICtrlSetData($Label3,IniRead($ini,"Montag","Sechste","Platzhalter"))GUICtrlSetData($Label5,IniRead($ini,"Montag","Siebte","Platzhalter"))GUICtrlSetData($Label8,IniRead($ini,"Montag","Achte","Platzhalter"))
; -- Montag OnClick --GuiCtrlSetonEvent($Label6,"mon1")GuiCtrlSetonEvent($Label2,"mon2")GuiCtrlSetonEvent($Label7,"mon3")GuiCtrlSetonEvent($Label4,"mon4")GuiCtrlSetonEvent($Label1,"mon5")GuiCtrlSetonEvent($Label3,"mon6")GuiCtrlSetonEvent($Label5,"mon7")GuiCtrlSetonEvent($Label8,"mon8")
; --Dienstag--GUICtrlSetData($Label14,IniRead($ini,"Dienstag","Erste","Platzhalter"))GUICtrlSetData($Label10,IniRead($ini,"Dienstag","Zweite","Platzhalter"))GUICtrlSetData($Label15,IniRead($ini,"Dienstag","Dritte","Platzhalter"))GUICtrlSetData($Label12,IniRead($ini,"Dienstag","Vierte","Platzhalter"))GUICtrlSetData($Label9,IniRead($ini,"Dienstag","Fuenfte","Platzhalter"))GUICtrlSetData($Label11,IniRead($ini,"Dienstag","Sechste","Platzhalter"))GUICtrlSetData($Label13,IniRead($ini,"Dienstag","Siebte","Platzhalter"))GUICtrlSetData($Label16,IniRead($ini,"Dienstag","Achte","Platzhalter"))
; -- Dienstag OnClick --GuiCtrlSetonEvent($Label14,"die1")GuiCtrlSetonEvent($Label10,"die2")GuiCtrlSetonEvent($Label15,"die3")GuiCtrlSetonEvent($Label12,"die4")GuiCtrlSetonEvent($Label9,"die5")GuiCtrlSetonEvent($Label11,"die6")GuiCtrlSetonEvent($Label13,"die7")GuiCtrlSetonEvent($Label16,"die8")
; --Mittwoch--GUICtrlSetData($Label22,IniRead($ini,"Mittwoch","Erste","Platzhalter"))GUICtrlSetData($Label18,IniRead($ini,"Mittwoch","Zweite","Platzhalter"))GUICtrlSetData($Label23,IniRead($ini,"Mittwoch","Dritte","Platzhalter"))GUICtrlSetData($Label20,IniRead($ini,"Mittwoch","Vierte","Platzhalter"))GUICtrlSetData($Label17,IniRead($ini,"Mittwoch","Fuenfte","Platzhalter"))GUICtrlSetData($Label19,IniRead($ini,"Mittwoch","Sechste","Platzhalter"))GUICtrlSetData($Label21,IniRead($ini,"Mittwoch","Siebte","Platzhalter"))GUICtrlSetData($Label24,IniRead($ini,"Mittwoch","Achte","Platzhalter"))
; -- Mittwoch OnClick --GuiCtrlSetonEvent($Label22,"mit1")GuiCtrlSetonEvent($Label18,"mit2")GuiCtrlSetonEvent($Label23,"mit3")GuiCtrlSetonEvent($Label20,"mit4")GuiCtrlSetonEvent($Label17,"mit5")GuiCtrlSetonEvent($Label19,"mit6")GuiCtrlSetonEvent($Label21,"mit7")GuiCtrlSetonEvent($Label24,"mit8")
; --Donnerstag--GUICtrlSetData($Label30,IniRead($ini,"Donnerstag","Erste","Platzhalter"))GUICtrlSetData($Label26,IniRead($ini,"Donnerstag","Zweite","Platzhalter"))GUICtrlSetData($Label31,IniRead($ini,"Donnerstag","Dritte","Platzhalter"))GUICtrlSetData($Label28,IniRead($ini,"Donnerstag","Vierte","Platzhalter"))GUICtrlSetData($Label25,IniRead($ini,"Donnerstag","Fuenfte","Platzhalter"))GUICtrlSetData($Label27,IniRead($ini,"Donnerstag","Sechste","Platzhalter"))GUICtrlSetData($Label29,IniRead($ini,"Donnerstag","Siebte","Platzhalter"))GUICtrlSetData($Label32,IniRead($ini,"Donnerstag","Achte","Platzhalter"))
; -- Donnerstag OnClick --GuiCtrlSetonEvent($Label30,"don1")GuiCtrlSetonEvent($Label26,"don2")GuiCtrlSetonEvent($Label31,"don3")GuiCtrlSetonEvent($Label28,"don4")GuiCtrlSetonEvent($Label25,"don5")GuiCtrlSetonEvent($Label27,"don6")GuiCtrlSetonEvent($Label29,"don7")GuiCtrlSetonEvent($Label32,"don8")
; --Freitag--GUICtrlSetData($Label38,IniRead($ini,"Freitag","Erste","Platzhalter"))GUICtrlSetData($Label34,IniRead($ini,"Freitag","Zweite","Platzhalter"))GUICtrlSetData($Label39,IniRead($ini,"Freitag","Dritte","Platzhalter"))GUICtrlSetData($Label36,IniRead($ini,"Freitag","Vierte","Platzhalter"))GUICtrlSetData($Label33,IniRead($ini,"Freitag","Fuenfte","Platzhalter"))GUICtrlSetData($Label35,IniRead($ini,"Freitag","Sechste","Platzhalter"))GUICtrlSetData($Label37,IniRead($ini,"Freitag","Siebte","Platzhalter"))GUICtrlSetData($Label40,IniRead($ini,"Freitag","Achte","Platzhalter"))
; -- Freitag OnClick --GuiCtrlSetonEvent($Label38,"fre1")GuiCtrlSetonEvent($Label34,"fre2")GuiCtrlSetonEvent($Label39,"fre3")GuiCtrlSetonEvent($Label36,"fre4")GuiCtrlSetonEvent($Label33,"fre5")GuiCtrlSetonEvent($Label35,"fre6")GuiCtrlSetonEvent($Label37,"fre7")GuiCtrlSetonEvent($Label40,"fre8")
WEnd
; --Exit--Func cancel()ExitEndFunc
; --Load--
Func load() $ini = FileOpenDialog("Öffnen","Stundenplaner","Ini Dateien (*ini)",1 + 2) EndFunc
; --Save--Func save()Global $save = FileSaveDialog("Speichern unter...",@ScriptDir,"Ini Dateien (*ini)",1+2+16)$trim = StringInStr($save,".ini")If $trim > 0 Then $save = StringTrimRight($save,4)EndIf FileWrite($save&".ini","[Header]" & @CRLF)FileWrite($save&".ini","Header = " & @CRLF)FileWrite($save&".ini","" & @CRLF)FileWrite($save&".ini","[Montag]" & @CRLF)FileWrite($save&".ini","Erste = " & @CRLF)FileWrite($save&".ini","Zweite = " & @CRLF)FileWrite($save&".ini","Dritte = " & @CRLF)FileWrite($save&".ini","Vierte = " & @CRLF)FileWrite($save&".ini","Fuenfte = " & @CRLF)FileWrite($save&".ini","Sechste = " & @CRLF)FileWrite($save&".ini","Siebte = " & @CRLF)FileWrite($save&".ini","Achte = " & @CRLF)FileWrite($save&".ini","" & @CRLF)FileWrite($save&".ini","[Dienstag]" & @CRLF)FileWrite($save&".ini","Erste = " & @CRLF)FileWrite($save&".ini","Zweite = " & @CRLF)FileWrite($save&".ini","Dritte = " & @CRLF)FileWrite($save&".ini","Vierte = " & @CRLF)FileWrite($save&".ini","Fuenfte = " & @CRLF)FileWrite($save&".ini","Sechste = " & @CRLF)FileWrite($save&".ini","Siebte = " & @CRLF)FileWrite($save&".ini","Achte = " & @CRLF)FileWrite($save&".ini","" & @CRLF)FileWrite($save&".ini","[Mittwoch]" & @CRLF)FileWrite($save&".ini","Erste = " & @CRLF)FileWrite($save&".ini","Zweite = " & @CRLF)FileWrite($save&".ini","Dritte = " & @CRLF)FileWrite($save&".ini","Vierte = " & @CRLF)FileWrite($save&".ini","Fuenfte = " & @CRLF)FileWrite($save&".ini","Sechste = " & @CRLF)FileWrite($save&".ini","Siebte = " & @CRLF)FileWrite($save&".ini","Achte = " & @CRLF)FileWrite($save&".ini","" & @CRLF)FileWrite($save&".ini","[Donnerstag]" & @CRLF)FileWrite($save&".ini","Erste = " & @CRLF)FileWrite($save&".ini","Zweite = " & @CRLF)FileWrite($save&".ini","Dritte = " & @CRLF)FileWrite($save&".ini","Vierte = " & @CRLF)FileWrite($save&".ini","Fuenfte = " & @CRLF)FileWrite($save&".ini","Sechste = " & @CRLF)FileWrite($save&".ini","Siebte = " & @CRLF)FileWrite($save&".ini","Achte = " & @CRLF)FileWrite($save&".ini","" & @CRLF)FileWrite($save&".ini","[Freitag]" & @CRLF)FileWrite($save&".ini","Erste = " & @CRLF)FileWrite($save&".ini","Zweite = " & @CRLF)FileWrite($save&".ini","Dritte = " & @CRLF)FileWrite($save&".ini","Vierte = " & @CRLF)FileWrite($save&".ini","Fuenfte = " & @CRLF)FileWrite($save&".ini","Sechste = " & @CRLF)FileWrite($save&".ini","Siebte = " & @CRLF)FileWrite($save&".ini","Achte = " & @CRLF)FileWrite($save&".ini","" & @CRLF)
$ini = $save&".ini"
EndFunc
;--Header Funktionen--
Func header()$inputheader =InputBox("Titel","Wie lautet ihr Name für diesen Stundenplan?")IniWrite($ini,"Header","Header",$inputheader) EndFunc
; --Montag Funktionen--
Func mon1()$inputmo1 = InputBox("Erste Stunde","Was haben Sie Montag in der ersten Stunde?")IniWrite($ini,"Montag","Erste",$inputmo1) EndFunc
Func mon2()$inputmo2 = InputBox("Zweite Stunde","Was haben Sie Montag in der zweiten Stunde?")IniWrite($ini,"Montag","Zweite",$inputmo2) EndFunc
Func mon3()$inputmo3 = InputBox("Dritte Stunde","Was haben Sie Montag in der dritten Stunde?")IniWrite($ini,"Montag","Dritte",$inputmo3) EndFunc
Func mon4()$inputmo4 = InputBox("Vierte Stunde","Was haben Sie Montag in der vierten Stunde?")IniWrite($ini,"Montag","Vierte",$inputmo4) EndFunc
Func mon5()$inputmo5 = InputBox("Fünfte Stunde","Was haben Sie Montag in der fünften Stunde?")IniWrite($ini,"Montag","Fuenfte",$inputmo5) EndFunc
Func mon6()$inputmo6 = InputBox("Sechste Stunde","Was haben Sie Montag in der sechsten Stunde?")IniWrite($ini,"Montag","Sechste",$inputmo6) EndFunc
Func mon7()$inputmo7 = InputBox("Siebte Stunde","Was haben Sie Montag in der siebten Stunde?")IniWrite($ini,"Montag","Siebte",$inputmo7) EndFunc
Func mon8()$inputmo8 = InputBox("Achte Stunde","Was haben Sie Montag in der achten Stunde?")IniWrite($ini,"Montag","Achte",$inputmo8) EndFunc
; --Dienstag Funktionen--
Func die1()$inputdie1 = InputBox("Erste Stunde","Was haben Sie Dienstag in der ersten Stunde?")IniWrite($ini,"Dienstag","Erste",$inputdie1) EndFunc
Func die2()$inputdie2 = InputBox("Zweite Stunde","Was haben Sie Dienstag in der zweiten Stunde?")IniWrite($ini,"Dienstag","Zweite",$inputdie2) EndFunc
Func die3()$inputdie3 = InputBox("Dritte Stunde","Was haben Sie Dienstag in der dritten Stunde?")IniWrite($ini,"Dienstag","Dritte",$inputdie3) EndFunc
Func die4()$inputdie4 = InputBox("Vierte Stunde","Was haben Sie Dienstag in der vierten Stunde?")IniWrite($ini,"Dienstag","Vierte",$inputdie4) EndFunc
Func die5()$inputdie5 = InputBox("Fünfte Stunde","Was haben Sie Dienstag in der fünften Stunde?")IniWrite($ini,"Dienstag","Fuenfte",$inputdie5) EndFunc
Func die6()$inputdie6 = InputBox("Sechste Stunde","Was haben Sie Dienstag in der sechsten Stunde?")IniWrite($ini,"Dienstag","Sechste",$inputdie6) EndFunc
Func die7()$inputdie7 = InputBox("Siebte Stunde","Was haben Sie Dienstag in der siebten Stunde?")IniWrite($ini,"Dienstag","Siebte",$inputdie7) EndFunc
Func die8()$inputdie8 = InputBox("Achte Stunde","Was haben Sie Dienstag in der achten Stunde?")IniWrite($ini,"Dienstag","Achte",$inputdie8) EndFunc
; --Mittwoch Funktionen--
Func mit1()$inputmit1 = InputBox("Erste Stunde","Was haben Sie Mittwoch in der ersten Stunde?")IniWrite($ini,"Mittwoch","Erste",$inputmit1) EndFunc
Func mit2()$inputmit2 = InputBox("Zweite Stunde","Was haben Sie Mittwoch in der zweiten Stunde?")IniWrite($ini,"Mittwoch","Zweite",$inputmit2) EndFunc
Func mit3()$inputmit3 = InputBox("Dritte Stunde","Was haben Sie Mittwoch in der dritten Stunde?")IniWrite($ini,"Mittwoch","Dritte",$inputmit3) EndFunc
Func mit4()$inputmit4 = InputBox("Vierte Stunde","Was haben Sie Mittwoch in der vierten Stunde?")IniWrite($ini,"Mittwoch","Vierte",$inputmit4) EndFunc
Func mit5()$inputmit5 = InputBox("Fünfte Stunde","Was haben Sie Mittwoch in der fünften Stunde?")IniWrite($ini,"Mittwoch","Fuenfte",$inputmit5) EndFunc
Func mit6()$inputmit6 = InputBox("Sechste Stunde","Was haben Sie Mittwoch in der sechsten Stunde?")IniWrite($ini,"Mittwoch","Sechste",$inputmit6) EndFunc
Func mit7()$inputmit7 = InputBox("Siebte Stunde","Was haben Sie Mittwoch in der siebten Stunde?")IniWrite($ini,"Mittwoch","Siebte",$inputmit7) EndFunc
Func mit8()$inputmit8 = InputBox("Achte Stunde","Was haben Sie Mittwoch in der achten Stunde?")IniWrite($ini,"Mittwoch","Achte",$inputmit8) EndFunc
; --Donnerstag Funktionen--
Func don1()$inputdon1 = InputBox("Erste Stunde","Was haben Sie Donnerstag in der ersten Stunde?")IniWrite($ini,"Donnerstag","Erste",$inputdon1) EndFunc
Func don2()$inputdon2 = InputBox("Zweite Stunde","Was haben Sie Donnerstag in der zweiten Stunde?")IniWrite($ini,"Donnerstag","Zweite",$inputdon2) EndFunc
Func don3()$inputdon3 = InputBox("Dritte Stunde","Was haben Sie Donnerstag in der dritten Stunde?")IniWrite($ini,"Donnerstag","Dritte",$inputdon3) EndFunc
Func don4()$inputdon4 = InputBox("Vierte Stunde","Was haben Sie Donnerstag in der vierten Stunde?")IniWrite($ini,"Donnerstag","Vierte",$inputdon4) EndFunc
Func don5()$inputdon5 = InputBox("Fünfte Stunde","Was haben Sie Donnerstag in der fünften Stunde?")IniWrite($ini,"Donnerstag","Fuenfte",$inputdon5) EndFunc
Func don6()$inputdon6 = InputBox("Sechste Stunde","Was haben Sie Donnerstag in der sechsten Stunde?")IniWrite($ini,"Donnerstag","Sechste",$inputdon6) EndFunc
Func don7()$inputdon7 = InputBox("Siebte Stunde","Was haben Sie Donnerstag in der siebten Stunde?")IniWrite($ini,"Donnerstag","Siebte",$inputdon7) EndFunc
Func don8()$inputdon8 = InputBox("Achte Stunde","Was haben Sie Donnerstag in der achten Stunde?")IniWrite($ini,"Donnerstag","Achte",$inputdon8) EndFunc
; --Freitag Funktionen--
Func fre1()$inputfre1 = InputBox("Erste Stunde","Was haben Sie Freitag in der ersten Stunde?")IniWrite($ini,"Freitag","Erste",$inputfre1) EndFunc
Func fre2()$inputfre2 = InputBox("Zweite Stunde","Was haben Sie Freitag in der zweiten Stunde?")IniWrite($ini,"Freitag","Zweite",$inputfre2) EndFunc
Func fre3()$inputfre3 = InputBox("Dritte Stunde","Was haben Sie Freitag in der dritten Stunde?")IniWrite($ini,"Freitag","Dritte",$inputfre3) EndFunc
Func fre4()$inputfre4 = InputBox("Vierte Stunde","Was haben Sie Freitag in der vierten Stunde?")IniWrite($ini,"Freitag","Vierte",$inputfre4) EndFunc
Func fre5()$inputfre5 = InputBox("Fünfte Stunde","Was haben Sie Freitag in der fünften Stunde?")IniWrite($ini,"Freitag","Fuenfte",$inputfre5) EndFunc
Func fre6()$inputfre6 = InputBox("Sechste Stunde","Was haben Sie Freitag in der sechsten Stunde?")IniWrite($ini,"Freitag","Sechste",$inputfre6) EndFunc
Func fre7()$inputfre7 = InputBox("Siebte Stunde","Was haben Sie Freitag in der siebten Stunde?")IniWrite($ini,"Freitag","Siebte",$inputfre7) EndFunc
Func fre8()$inputfre8 = InputBox("Achte Stunde","Was haben Sie Freitag in der achten Stunde?")IniWrite($ini,"Freitag","Achte",$inputfre8) EndFunc
; --About--
Func about()MsgBox(0,"Über","Stunplaner "&$version&@CRLF&"Geschrieben von Tobias Brandt"&@CRLF &"Letze Veränderung am: "&$edit)EndFunc
; --Help--
Func help()MsgBox(0,"Hilfe","Wer Fragen oder Kritik hat, schickt bitte eine Email an: "&$mailto)EndFunc
Gruß Bing.