Stundenplaner

    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
    [autoit]

    #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 ###

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

    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")

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

    ; --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

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

    ; --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

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

    ; --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

    [/autoit]

    Gruß Bing.

    Boa, sry aber bitte stell das script mal richtig rein.

    Wenn man es kopiert, ist alles durcheinander und man muss erstmal 1000 fehler ausbessern.

    oder lad deine .au3 einfach mal hoch!

    Hab es mir mal angeschaut und muss sagen, es klappt.
    Aber bedenke manche haben auch 10 Stunden :D
    Auch könntest du es verbessern wenn du anstatt eine Inputbox eine Combobox machst,
    wo vorgegebene, sowie selbsterstelle Stunden(Mathe,Deutsch,Englisch,...) drin sind. ;)

    Ansonsten gar nicht schlecht umgesetzt, obwohl ich bezweifel, das man mehrere Stundenpläne hat

    MfG
    Conan (Nur Mitlesend)
    Schon lange dabei

    Ahh, super so gehts ^^

    Ich muss sagen, sher schön geordnet und daher auch leicht zu verstehen dein code ^^
    Weiter so, Ordnung ist alles bei AutoIt ^^

    EDIT: @Conan: Klar, könnte man machen. Aber ich finds eigl. ganz gut so.
    Kanns sogar ab 24.08 gebrauchen, ab dann hab ich Berufsschule wegen Ausbildung ^^

    PS: Was aber noch richtig cool wäre, wäre eine Funktion um den Plan zu drucken.
    Dann wärs perfekt ^^
    Leider weis ich net genau wie das geht... ^^

    Idee: Super

    Es gibt auch Schulen die 10 Stunden auf dem Stundenplan haben. ;)

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr

    und eine Druck Funktion wäre dann auch nicht schlecht ...

    ---
    In "Independence Day" konnten die Windows-Erdcomputer problemlos mit denen der Außerirdischen kommunizieren. Was sagt uns das über unseren lieben Bill Gates? :D
    ---

    Drucken = Tolle Idee!
    Wenn der Stundenplan automatisch laden würde, wärs perfekt!

    MfG. tobi_girst

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »tobi_girst« (Morgen, 25:63)

    Danke für das Feedback. :)
    Ich werde mich die Tage (Wochenende) mal nochmal daran setzten und 9. und 10. Stunde einbauen. Wegen dem Drucken müsste ich mich nochmal informieren, wie das genau funktioniert. :o

    Bau bitte für mich bis 11 Stunden ein.
    wegen drucken: eventuell eine HTML-Seite erstellen und dann mit den IE Funktionen drucken?

    Ich habe mir mal das Script angeschaut 8| Okej...

    Das ginge auch alles mit Arrays und der Code wäre dann vielleicht 150~200 Zeichen lang. Wenn du nicht weißt wie das geht bzw. es nicht ändern möchtest sag es, ansonsten würde ich dir mal ein Beispiel für "kürzeren" Code machen.
    Also nicht falsch verstehen, wenn ich dich vom Können bis jetzt so einschätzen kann, super gemacht :thumbup: (Bist ja noch ganz neu ;))

    11 Stunden ist doch okay.

    In Deutschland gibt es ja nicht die Tagesschule so wie in Dänemark. Da ist man von 7:30 Uhr bis 16:00 Uhr im Unterricht (30 Minuten Mittagspause), danach werden Hausaufgaben und "Gruppenlernen" bis 18:00 Uhr weiterhin in der Schule durchgeführt. Vorteil, die Eltern können tagsüber arbeiten und für die weiterführenden Klassen (ab 9. Kl.), kann man die Zeit (16:00 Uhr - 18:00 Uhr) auch z. B. nutzen um an Projekten zu arbeiten oder AG's zu besuchen. Ich habe die Zeit genossen und im Sommer war man eh in der "Schwimm-AG". ;) Schön ist es doch auch, das die Kleinen, die ja meist nur bis 13:30 Uhr unterricht haben (wenn überhaupt), das sie danach versorgt sind. Ich glaube in Deutschland geht das nicht, da es doch einiges an Kosten sind, die Kinder- und Schuleinrichtungen so zu leiten.

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    k3mrwmIBHejryPvylQSFieDF5f3VOnk6iLAVBGVhKQegrFuWr3iraNIblLweSW4WgqI0SrRbS7U5jI3sn50R4a15Cthu1bEr

    Zitat von JackSlater

    Der Link ist nicht mehr verfügbar, wäre nett wenn jemand diesen aktualisieren könnte =)

    Ich hab den Quellcode aus dem 1. Beitrag mal gefixt was die Formatierung angeht, aber nicht den Codingstil.
    Da sind ziemlich unschöne Fehler drinne, wie das setzen der Events in der Schleife und keine Verwendungen von Arrays und For-Schleifen.

    Man kann das Programm mit wenig Mühe auf unter 100 Zeilen runterbrechen.