Stundenplan mit Extras

Nono

Hi ,

Ich wollte euch heute einmal meinen Stundenplaner vorstellen.
Der Stundenplaner ist einer meiner ersten Script's die ich bisher geschrieben habe.
Ich würde mich über Feedback und verbesserungs Vorschläge
sehr freuen
Wenn ihr irgendwelche Bugs findet einfach bescheid sagen.
Danke im voraus

[autoit]

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

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

MsgBox(0,"Wilkommen", "Um den Stundenplan zu ändern einfach auf die Button's klicken !"& @CRLF & "WICHTIG ---> Das Komma musst du als Punkt schreiben ! (Nur bei den Extra Funktionen)" & @CRLF & "Bei den Extras wird immer auf 2 Komma stellen nach dem Komma gerundet !" )

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

$Form1 = GUICreate("Stundenplan ", 785, 390, 588, 231)
$MenuItem1 = GUICtrlCreateMenu("Optionen")
$resetbutton = GUICtrlCreateMenuItem("Alle Button's löschen", $MenuItem1)
GUISetBkColor(0xC0C0C0)
$Label1 = GUICtrlCreateLabel("1 Stunde", 8, 48, 75, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label2 = GUICtrlCreateLabel("2 Stunde", 8, 96, 77, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label3 = GUICtrlCreateLabel("3 Stunde", 8, 144, 77, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label4 = GUICtrlCreateLabel("4 Stunde", 8, 192, 77, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label5 = GUICtrlCreateLabel("5 Stunde", 8, 240, 77, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label6 = GUICtrlCreateLabel("6 Stunde", 8, 288, 77, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label7 = GUICtrlCreateLabel("7 Stunde", 8, 336, 77, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Button1 = GUICtrlCreateButton("Keine Angabe", 104, 48, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button2 = GUICtrlCreateButton("Keine Angabe", 216, 48, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button3 = GUICtrlCreateButton("Keine Angabe", 328, 48, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button4 = GUICtrlCreateButton("Keine Angabe", 440, 48, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button5 = GUICtrlCreateButton("Keine Angabe", 552, 48, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button6 = GUICtrlCreateButton("Keine Angabe", 104, 96, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button7 = GUICtrlCreateButton("Keine Angabe", 216, 96, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button8 = GUICtrlCreateButton("Keine Angabe", 328, 96, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button9 = GUICtrlCreateButton("Keine Angabe", 440, 96, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button10 = GUICtrlCreateButton("Keine Angabe", 552, 96, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button11 = GUICtrlCreateButton("Keine Angabe", 104, 144, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button12 = GUICtrlCreateButton("Keine Angabe", 216, 144, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button13 = GUICtrlCreateButton("Keine Angabe", 328, 144, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button14 = GUICtrlCreateButton("Keine Angabe", 440, 144, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button15 = GUICtrlCreateButton("Keine Angabe", 552, 144, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button16 = GUICtrlCreateButton("Keine Angabe", 104, 192, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button17 = GUICtrlCreateButton("Keine Angabe", 216, 192, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button18 = GUICtrlCreateButton("Keine Angabe", 328, 192, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button19 = GUICtrlCreateButton("Keine Angabe", 440, 192, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button20 = GUICtrlCreateButton("Keine Angabe", 552, 192, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button21 = GUICtrlCreateButton("Keine Angabe", 104, 240, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button22 = GUICtrlCreateButton("Keine Angabe", 216, 240, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button23 = GUICtrlCreateButton("Keine Angabe", 328, 240, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button24 = GUICtrlCreateButton("Keine Angabe", 440, 240, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button25 = GUICtrlCreateButton("Keine Angabe", 552, 240, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button26 = GUICtrlCreateButton("Keine Angabe", 104, 288, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button27 = GUICtrlCreateButton("Keine Angabe", 216, 288, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button28 = GUICtrlCreateButton("Keine Angabe", 328, 288, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button29 = GUICtrlCreateButton("Keine Angabe", 440, 288, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button30 = GUICtrlCreateButton("Keine Angabe", 552, 288, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button31 = GUICtrlCreateButton("Keine Angabe", 104, 336, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button32 = GUICtrlCreateButton("Keine Angabe", 216, 336, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button33 = GUICtrlCreateButton("Keine Angabe", 328, 336, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button34 = GUICtrlCreateButton("Keine Angabe", 440, 336, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button35 = GUICtrlCreateButton("Keine Angabe", 552, 336, 99, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Label8 = GUICtrlCreateLabel("Montag", 104, 8, 64, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label9 = GUICtrlCreateLabel("Dienstag", 216, 8, 73, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label10 = GUICtrlCreateLabel("Mittwoch", 328, 8, 80, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label11 = GUICtrlCreateLabel("Donnerstag", 440, 8, 96, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label12 = GUICtrlCreateLabel("Freitag", 552, 8, 62, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label13 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------------------------------------------------------------------------------", 8, 128, 648, 12)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label14 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------------------------------------------------------------------------------", 7, 80, 648, 12)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label15 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------", 5, 32, 768, 12)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label16 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------------------------------------------------------------------------------", 7, 170, 648, 12)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label17 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------------------------------------------------------------------------------", 3, 223, 648, 12)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label18 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------------------------------------------------------------------------------", 3, 265, 648, 12)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label19 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------------------------------------------------------------------------------", 2, 314, 648, 12)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label20 = GUICtrlCreateLabel("By Nono", 728, 336, 47, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label21 = GUICtrlCreateLabel(" ", 8, 8, 88, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Button36 = GUICtrlCreateButton("Quadrierer", 661, 46, 115, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button37 = GUICtrlCreateButton("Wurzel Rechner", 661, 94, 115, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button38 = GUICtrlCreateButton("Addition", 661, 142, 115, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button39 = GUICtrlCreateButton("Subtraktion", 661, 190, 115, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button40 = GUICtrlCreateButton("Multiplikation", 661, 238, 115, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button41 = GUICtrlCreateButton("Division", 661, 286, 115, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Label22 = GUICtrlCreateLabel("Extras", 664, 8, 58, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)

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

AdlibRegister("thetime", 100)
;EXTRAS====================================================================

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

;EXTRAS ENDE==================================================================================

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

$INI = IniRead("stunden.ini","zeile1","stunden", "")

GUICtrlSetData($Button1, $INI)
;===============================================================
$INI2 = IniRead("stunden.ini","zeile2","stunden", "")

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

GUICtrlSetData($Button2, $INI2)
;==========================================================
$INI3 = IniRead("stunden.ini","zeile3","stunden", "")

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

GUICtrlSetData($Button3, $INI3)
;=============================================================
$INI4 = IniRead("stunden.ini","zeile4","stunden", "")

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

GUICtrlSetData($Button4, $INI4)
;=============================================================
$INI5 = IniRead("stunden.ini","zeile5","stunden", "")

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

GUICtrlSetData($Button5, $INI5)
;=============================================================
$INI6 = IniRead("stunden.ini","zeile6","stunden", "")

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

GUICtrlSetData($Button6, $INI6)
;=====================================================
$INI7 = IniRead("stunden.ini","zeile7","stunden", "")

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

GUICtrlSetData($Button7, $INI7)
;===============================================================
$INI8 = IniRead("stunden.ini","zeile8","stunden", "")

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

GUICtrlSetData($Button8, $INI8)
;==============================================================
$INI9 = IniRead("stunden.ini","zeile9","stunden", "")

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

GUICtrlSetData($Button9, $INI9)
;===============================================================
$INI10 = IniRead("stunden.ini","zeile10","stunden", "")

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

GUICtrlSetData($Button10, $INI10)
;==========================================================
$INI11 = IniRead("stunden.ini","zeile11","stunden", "")

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

GUICtrlSetData($Button11, $INI11)
;==============================================================
$INI12 = IniRead("stunden.ini","zeile12","stunden", "")

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

GUICtrlSetData($Button12, $INI12)
;==========================================================
$INI13 = IniRead("stunden.ini","zeile13","stunden", "")

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

GUICtrlSetData($Button13, $INI13)
;====================================================
$INI14 = IniRead("stunden.ini","zeile14","stunden", "")

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

GUICtrlSetData($Button14, $INI14)
;==========================================================
$INI15 = IniRead("stunden.ini","zeile15","stunden", "")

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

GUICtrlSetData($Button15, $INI15)
;===============================================================
$INI16 = IniRead("stunden.ini","zeile16","stunden", "")

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

GUICtrlSetData($Button16, $INI16)
;===============================================================
$INI17 = IniRead("stunden.ini","zeile17","stunden", "")

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

GUICtrlSetData($Button17, $INI17)
;===============================================================
$INI18 = IniRead("stunden.ini","zeile18","stunden", "")

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

GUICtrlSetData($Button18, $INI18)
;===============================================================
$INI19 = IniRead("stunden.ini","zeile19","stunden", "")

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

GUICtrlSetData($Button19, $INI19)
;===============================================================
$INI20 = IniRead("stunden.ini","zeile20","stunden", "")

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

GUICtrlSetData($Button20, $INI20)
;==================================================================
$INI21 = IniRead("stunden.ini","zeile21","stunden", "")

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

GUICtrlSetData($Button21, $INI21)
;===============================================================
$INI22 = IniRead("stunden.ini","zeile22","stunden", "")

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

GUICtrlSetData($Button22, $INI22)
;===============================================================
$INI23 = IniRead("stunden.ini","zeile23","stunden", "")

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

GUICtrlSetData($Button23, $INI23)
;===============================================================
$INI24 = IniRead("stunden.ini","zeile24","stunden", "")

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

GUICtrlSetData($Button24, $INI24)
;===============================================================
$INI25 = IniRead("stunden.ini","zeile25","stunden", "")

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

GUICtrlSetData($Button25, $INI25)
;===============================================================
$INI26 = IniRead("stunden.ini","zeile26","stunden", "")

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

GUICtrlSetData($Button26, $INI26)
;===============================================================
$INI27 = IniRead("stunden.ini","zeile27","stunden", "")

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

GUICtrlSetData($Button27, $INI27)
;===============================================================
$INI28 = IniRead("stunden.ini","zeile28","stunden", "")

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

GUICtrlSetData($Button28, $INI28)
;===============================================================
$INI29 = IniRead("stunden.ini","zeile29","stunden", "")

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

GUICtrlSetData($Button29, $INI29)
;==============================================================
$INI30 = IniRead("stunden.ini","zeile30","stunden", "")

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

GUICtrlSetData($Button30, $INI30)
;===============================================================
$INI31 = IniRead("stunden.ini","zeile31","stunden", "")

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

GUICtrlSetData($Button31, $INI31)
;===============================================================
$INI32= IniRead("stunden.ini","zeile32","stunden", "")

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

GUICtrlSetData($Button32, $INI32)
;===============================================================
$INI33 = IniRead("stunden.ini","zeile33","stunden", "")

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

GUICtrlSetData($Button33, $INI33)
;===============================================================
$INI34 = IniRead("stunden.ini","zeile34","stunden", "")

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

GUICtrlSetData($Button34, $INI34)
;===============================================================
$INI35 = IniRead("stunden.ini","zeile35","stunden", "")

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

GUICtrlSetData($Button35, $INI35)
;==================================================================

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Func thetime()
GUICtrlSetData ($label21, @HOUR & ":" & @MIN & ":" & @SEC)
EndFunc
;BUTTONRESET=================================================================
Case $resetbutton
FileDelete("stunden.ini")
MsgBox(0,"Wichtig","Damit die Änderungen übernehmt werden das Programm neustarten !")
;==================================================================================BUTTONRESET ENDE
Case $Button36
$sZahl = InputBox("Zahl", "Bitte geben Sie die gewünschte Zahl ein die Sie Quadrieren möchten und drücken sie auf Ok.")
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.") ;QUADRIEIER
EndIf
$rechnung = $sZahl * $sZahl
$sround = Round($rechnung, 2)
MsgBox(0,"Ergebnis", "Ihr Ergebnis lautet: " & $sround)
;====================================================================================
Case $Button37
$swurzel = InputBox("Wurzelrechner","Bitte gebe die Quadratwurzel an !" )
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.") ;WURZELRECHNER
EndIf
$wurzelergebnis = Sqrt($swurzel)
$gerundet = Round($wurzelergebnis, 2)
MsgBox(0,"Ergebnis","Ihr Ergebnis lautet: " & $gerundet)
;================================================================================
Case $Button38
$Saddition1 = InputBox("Addition","Gebe die 1 Zahl an !")
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.") ;ADDITION
EndIf
$Saddition2 = InputBox("Addition","Gebe die 2 Zahl an !")
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.")
EndIf
$additionergebnis = $Saddition1 + $Saddition2
$additionrundet = Round($additionergebnis, 2)
MsgBox(0,"Ergebnis","Ihr Ergebnis lautet: " & $additionrundet)
;================================================================================
Case $Button39
$sub1 = InputBox("Subtraktion","Gebe die 1 Zahl an !")
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.")
EndIf
$sub2 = InputBox("Subtraktion","Gebe die 2 zahl an !") ;SUBTRAKTION
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.")
EndIf
$subergebnis = $sub1 - $sub2
$subrundet = Round($subergebnis, 2)
MsgBox(0,"Ergebnis","Ihr Ergebnis lautet: " & $subrundet)
;===================================================================================
Case $Button41
$divi1 = InputBox("Division","Gebe die 1 Zahl an !")
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.")
EndIf
$divi2 = InputBox("Division","Gebe die 2 zahl an !") ;DIVISION
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.")
EndIf
$diviergebnis = $divi1 / $divi2
$divirundet = Round($diviergebnis, 2)
MsgBox(0,"Ergebnis","Ihr Ergebnis lautet: " & $divirundet)
;===============================================================================
Case $Button40
$multi1 = InputBox("Multiplikation","Gebe die 1 Zahl an !")
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.")
EndIf
$multi2 = InputBox("Multiplikation","Gebe die 2 zahl an !") ;DIVISION
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.")
EndIf
$multiergebnis = $multi1 * $multi2
$multirundet = Round($multiergebnis, 2)
MsgBox(0,"Ergebnis","Ihr Ergebnis lautet: " & $multirundet)

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

Case $Button1
$sdata = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata)
GUICtrlSetData($Button1, $sdata)
IniWrite("stunden.ini","zeile1","stunden",$sdata)
Case $Button2
$sdata2 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata2)
GUICtrlSetData($Button2, $sdata2)
IniWrite("stunden.ini","zeile2","stunden",$sdata2)
Case $Button3
$sdata3 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata3)
GUICtrlSetData($Button3, $sdata3)
IniWrite("stunden.ini","zeile3","stunden",$sdata3)
Case $Button4
$sdata4 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata4)
GUICtrlSetData($Button4, $sdata4)
IniWrite("stunden.ini","zeile4","stunden",$sdata4)
Case $Button5
$sdata5 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata5)
GUICtrlSetData($Button5, $sdata5)
IniWrite("stunden.ini","zeile5","stunden",$sdata5)
Case $Button6
$sdata6 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata6)
GUICtrlSetData($Button6, $sdata6)
IniWrite("stunden.ini","zeile6","stunden",$sdata6)
Case $Button7
$sdata7 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata7)
GUICtrlSetData($Button7, $sdata7)
IniWrite("stunden.ini","zeile7","stunden",$sdata7)
Case $Button8
$sdata8 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata8)
GUICtrlSetData($Button8, $sdata8)
IniWrite("stunden.ini","zeile8","stunden",$sdata8)
Case $Button9
$sdata9 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata9)
GUICtrlSetData($Button9, $sdata9)
IniWrite("stunden.ini","zeile9","stunden",$sdata9)
Case $Button10
$sdata10 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata10)
GUICtrlSetData($Button10, $sdata10)
IniWrite("stunden.ini","zeile10","stunden",$sdata10)
Case $Button11
$sdata11 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata11)
GUICtrlSetData($Button11, $sdata11)
IniWrite("stunden.ini","zeile11","stunden",$sdata11)
Case $Button12
$sdata12 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata12)
GUICtrlSetData($Button12, $sdata12)
IniWrite("stunden.ini","zeile12","stunden",$sdata12)
Case $Button13
$sdata13 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata13)
GUICtrlSetData($Button13, $sdata13)
IniWrite("stunden.ini","zeile13","stunden",$sdata13)
Case $Button14
$sdata14= InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata14)
GUICtrlSetData($Button14, $sdata14)
IniWrite("stunden.ini","zeile14","stunden",$sdata14)
Case $Button15
$sdata15 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata15)
GUICtrlSetData($Button15, $sdata15)
IniWrite("stunden.ini","zeile15","stunden",$sdata15)
Case $Button16
$sdata16 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata16)
GUICtrlSetData($Button16, $sdata16)
IniWrite("stunden.ini","zeile16","stunden",$sdata16)
Case $Button17
$sdata17 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata17)
GUICtrlSetData($Button17, $sdata17)
IniWrite("stunden.ini","zeile17","stunden",$sdata17)
Case $Button18
$sdata18 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata18)
GUICtrlSetData($Button18, $sdata18)
IniWrite("stunden.ini","zeile18","stunden",$sdata18)
Case $Button19
$sdata19 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata19)
GUICtrlSetData($Button19, $sdata19)
IniWrite("stunden.ini","zeile19","stunden",$sdata19)
Case $Button20
$sdata20 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata20)
GUICtrlSetData($Button20, $sdata20)
IniWrite("stunden.ini","zeile20","stunden",$sdata20)
Case $Button21
$sdata21 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata21)
GUICtrlSetData($Button21, $sdata21)
IniWrite("stunden.ini","zeile21","stunden",$sdata21)
Case $Button22
$sdata22 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata22)
GUICtrlSetData($Button22, $sdata22)
IniWrite("stunden.ini","zeile22","stunden",$sdata22)
Case $Button23
$sdata23 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata23)
GUICtrlSetData($Button23, $sdata23)
IniWrite("stunden.ini","zeile23","stunden",$sdata23)
Case $Button24
$sdata24 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata24)
GUICtrlSetData($Button24, $sdata24)
IniWrite("stunden.ini","zeile24","stunden",$sdata24)
Case $Button25
$sdata25 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata25)
GUICtrlSetData($Button25, $sdata25)
IniWrite("stunden.ini","zeile25","stunden",$sdata25)
Case $Button26
$sdata26 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata26)
GUICtrlSetData($Button26, $sdata26)
IniWrite("stunden.ini","zeile26","stunden",$sdata26)
Case $Button27
$sdata27 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata27)
GUICtrlSetData($Button27, $sdata27)
IniWrite("stunden.ini","zeile27","stunden",$sdata27)
Case $Button28
$sdata28 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata28)
GUICtrlSetData($Button28, $sdata28)
IniWrite("stunden.ini","zeile28","stunden",$sdata28)
Case $Button29
$sdata29 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata29)
GUICtrlSetData($Button29, $sdata29)
IniWrite("stunden.ini","zeile29","stunden",$sdata29)
Case $Button30
$sdata30 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata30)
GUICtrlSetData($Button30, $sdata30)
IniWrite("stunden.ini","zeile30","stunden",$sdata30)
Case $Button31
$sdata31 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata31)
GUICtrlSetData($Button31, $sdata31)
IniWrite("stunden.ini","zeile31","stunden",$sdata31)
Case $Button32
$sdata32 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata32)
GUICtrlSetData($Button32, $sdata32)
IniWrite("stunden.ini","zeile32","stunden",$sdata32)
Case $Button33
$sdata33 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata33)
GUICtrlSetData($Button33, $sdata33)
IniWrite("stunden.ini","zeile33","stunden",$sdata33)
Case $Button34
$sdata34 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata34)
GUICtrlSetData($Button34, $sdata34)
IniWrite("stunden.ini","zeile34","stunden",$sdata34)
Case $Button35
$sdata35 = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlRead($sdata35)
GUICtrlSetData($Button35, $sdata35)
IniWrite("stunden.ini","zeile35","stunden",$sdata35)

EndSwitch
WEnd

[/autoit]

zptsvhbfa

Super Arbeit! Schön, übersichtlich und sogar mit Uhrzeit.

Einen kleinen Bug hab ich gefunden und zwar wenn du ein Fach schon angegeben hast und klickst ausversehen nochmal drauf und dann auf Cancel dann wird das Feld gelöscht.

Ansonsten sieht das Ding echt gut aus.

PS: achja noch einen kleinen Tipp: Benutze Spoiler damit der Thread übersichtlich bleibt. Das ist dieser Button -->

Nono

@zptsvhbfa
Danke
Der Bug ist mir auch aufgefallen nur wusste ich nicht wie man es anders
machen könnte ...

Fresapore

Sieht schön übersichtlich aus.

Du kannst das Scipt mit der Verwendung von Arrays noch stark verkürzen , wenn sie dir vertraut sind

MfG,
Fresapore

Nono

Vielen dank Fresapore
Das mit den Arrays ist so n Sache
da ich mich gar nicht mit den auskenne
aber schon Tutorials dazu angeguckt habe
aber diese nie verstanden habe :(.

Irrlicht

Schau dir Bugfix's Tutorial zu den arrays an..

blubbstar

Ganz nett, allerdings ist Division/Multiplikation vertauscht!

Nono

Danke blubbstar für den Hinweis.

EDIT : SIEHE POST 1 Division/Multiplikation vertauscht.

RapIt

Hey,
schönes Script!
Als Ideen noch folgendes:

-Bitte ein paar mehr Stunden (bis zur 10 oder so...)
-A/B Wochen wären cool...
-Zu einem Tray-Icon minimieren
-Per Tastenkombination sichtbar/unsichtbar machen...

-(Vielleicht zusätzlich einen übersichtlichen Hausaufgaben & Klausur-planer reinbauen, wenn du was größeres daraus machen willst...)

Wenn du die ersten 4, für mich sehr wichtigen, Punkte noch realisieren würdest, wäre das Programm für den Alltag ein echter Mehrwert

Viele Grüße,
RapIt

Ps: Mit Arrays ist es wirklich VIEL leichter, erst recht wenn vielleicht noch mehr Stunden und A/B Wochen kommen... Daher guck dir mal BugFix Tut an...

BadBunny

Mit Arrays gehts schneller und einfacher, hab dashier jetzt in ca 10 Min hinbekommen. Noch ohne abspeichern oder so (mit 10 H RapIt :D)

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
Dim $aButtons[5][10]
$Y = 50
$X = 20
$hGUI = GUICreate("Schneller einfacher kurzer Stundenplan^^", 500, 500)
GUICtrlCreateLabel("Montag", 30, 30, 60)
GUICtrlSetFont(-1, 12)
GUICtrlCreateLabel("Dienstag", 105, 30, 70)
GUICtrlSetFont(-1, 12)
GUICtrlCreateLabel("Mittwoch", 185, 30, 63)
GUICtrlSetFont(-1, 12)
GUICtrlCreateLabel("Donnerstag", 265, 30, 67)
GUICtrlSetFont(-1, 10)
GUICtrlCreateLabel("Freitag", 350, 30, 60)
GUICtrlSetFont(-1, 12)
For $i = 0 To UBound($aButtons) - 1
For $t = 0 To UBound($aButtons, 2) - 1
$aButtons[$i][$t] = GUICtrlCreateButton("", $X, $Y, 75, 30)
$Y += 40
Next
$X += 80
$Y = 50
Next
GUISetState()
While 1
$nMsg = GUIGetMsg()

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

Switch $nMsg
Case $Gui_Event_close
Exit
EndSwitch
For $i = 0 To UBound($aButtons) - 1
For $j = 0 To UBound($aButtons, 2) - 1
If $nMsg = $aButtons[$i][$j] Then
$hInput = InputBox("Stunde", "Stunde eingeben")
If $hInput <> "" Then
GUICtrlSetData($aButtons[$i][$j], $hInput)
EndIf
EndIf
Next
Next
WEnd

[/autoit]

Jetzt auch mit Woche A / B (zu überichtlichkeit wird das obere stehen gelassen, daraus kann Nono sich die Arrays angucken)

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
Dim $aButtons[5][10]
Dim $aButtonsB[5][10]
Global $Y = 50
Global $X = 20
Global $GuiHeight = 500, $GuiWidth = 500

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

$hGUI = GUICreate("Schneller einfacher kurzer Stundenplan^^", $GuiHeight, $GuiWidth)
$Tab = GUICtrlCreateTab(0, 0, $GuiHeight, $GuiWidth)
GUICtrlCreateTabItem("Woche A")
GUICtrlCreateLabel("Montag", 30, 30, 60)
GUICtrlSetFont(-1, 12)
GUICtrlCreateLabel("Dienstag", 105, 30, 70)
GUICtrlSetFont(-1, 12)
GUICtrlCreateLabel("Mittwoch", 185, 30, 63)
GUICtrlSetFont(-1, 12)
GUICtrlCreateLabel("Donnerstag", 265, 30, 67)
GUICtrlSetFont(-1, 10)
GUICtrlCreateLabel("Freitag", 350, 30, 60)
GUICtrlSetFont(-1, 12)
For $i = 0 To UBound($aButtons) - 1
For $t = 0 To UBound($aButtons, 2) - 1
$aButtons[$i][$t] = GUICtrlCreateButton("", $X, $Y, 75, 30)
$Y += 40
Next
$X += 80
$Y = 50
Next
GUICtrlCreateTabItem("Woche B")
GUICtrlCreateLabel("Montag", 30, 30, 60)
GUICtrlSetFont(-1, 12)
GUICtrlCreateLabel("Dienstag", 105, 30, 70)
GUICtrlSetFont(-1, 12)
GUICtrlCreateLabel("Mittwoch", 185, 30, 63)
GUICtrlSetFont(-1, 12)
GUICtrlCreateLabel("Donnerstag", 265, 30, 67)
GUICtrlSetFont(-1, 10)
GUICtrlCreateLabel("Freitag", 350, 30, 60)
GUICtrlSetFont(-1, 12)
$X = 20
For $i = 0 To UBound($aButtons) - 1
For $t = 0 To UBound($aButtons, 2) - 1
$aButtonsB[$i][$t] = GUICtrlCreateButton("", $X, $Y, 75, 30)
$Y += 40
Next
$X += 80
$Y = 50
Next
GUISetState()
While 1
$nMsg = GUIGetMsg()

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

Switch $nMsg
Case $Gui_Event_close
Exit
EndSwitch
For $i = 0 To UBound($aButtons) - 1
For $j = 0 To UBound($aButtons, 2) - 1
If $nMsg = $aButtons[$i][$j] Then
$hInput = InputBox("Stunde", "Stunde eingeben")
If $hInput <> "" Then
GUICtrlSetData($aButtons[$i][$j], $hInput)
EndIf
EndIf
Next
Next
For $i = 0 To UBound($aButtonsB) - 1
For $j = 0 To UBound($aButtonsB, 2) - 1
If $nMsg = $aButtonsB[$i][$j] Then
$hInput = InputBox("Stunde", "Stunde eingeben")
If $hInput <> "" Then
GUICtrlSetData($aButtonsB[$i][$j], $hInput)
EndIf
EndIf
Next
Next
WEnd

[/autoit]

Nono

@ Rapit

Zitat

-Bitte ein paar mehr Stunden (bis zur 10 oder so...)
-A/B Wochen wären cool...
-Zu einem Tray-Icon minimieren
-Per Tastenkombination sichtbar/unsichtbar machen...

-(Vielleicht zusätzlich einen übersichtlichen Hausaufgaben & Klausur-planer reinbauen, wenn du was größeres daraus machen willst...)

Ich werde mal gucken was ich da machen kann. Das Problem ist ich habe nocht nicht so viele Kentnisse aber ich werde
dann demnächst das Tutorial von Bugifx durchlesen und es zu verstehen.
Da ich immoment viel mit der Schule um die Ohren habe werde ich vermutlich dafür ein wenig länger benötigen.
Danke für die verbesserungsvorschläge

BadBunny
Ich versuche deinen Script zu verstehen nachdem ich mir das Tutorial von Bugfix angeschaut habe.
Mein erste ein Blick es sieht sehr schwer aus
Aber vielen dank für das beispiel

BadBunny

Ich bin mal so nett (ich hab Zeit :D) und erkläre jeden einzelnen Schritt.
Als erstes bestimme ich ein Array, $aButtons mit 2 Dimensionen.

[autoit]

Dim $aButtons[5][10]

[/autoit]

Die erste Dimension hat 5 Indexe, die zweite hat 10. Da Array 0 basierend sind, ist das erste Array $aButtons[0][0] und das letzte $aButtons[4][9].
Danach erstell ich eine Gui, wie gewohnt, und danach die Wochentage.

Jetzt kommt das eigentliche:
Ich sage, das in einer For schleife, in der i = 0 ist, bis zur Anzahl der Indexe von der ersten Dimension des Arrays $aButtons -1 durchlaufen werden soll.
In dieser Schleife mach ich noch eine Schleife, die das selbe mit dem 2ten Index macht.

Ich ich erstell also ein Button, dann einen dadrunter (siehe $Y += 40) und das 10 mal (von 0 bis 9)
Nachdem diese Schleife durchlaufen ist, wird $X += 80 gerechnet, um nach rechts, also auf Dienstag zurücken. Zudem wird $y wieder auf seine Anfangsposition gesetzt($Y = 50).
Dann läsuft wieder das selbe wie von vorne durch, bis die äuere For Schleife zum Ende kommt, dann sind alle Stunden eingetragen.

Ein Beispiel:

[autoit]

#include <GUIConstants.au3>
Dim $aButtons[5][10]
$Y = 50
$X = 20
$hGUI = GUICreate("Schneller einfacher kurzer Stundenplan^^", 500, 500)
GUISetState()
For $i = 0 To UBound($aButtons) - 1
For $t = 0 To UBound($aButtons, 2) - 1
$aButtons[$i][$t] = GUICtrlCreateButton("", $X, $Y, 75, 30)
$Y += 40
Sleep (200)
Next
$X += 80
$Y = 50
Next
While 1
$nMsg = GUIGetMsg()

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

Switch $nMsg
Case $Gui_Event_close
Exit
EndSwitch
WEnd

[/autoit]

Die überprüfung, ob ein Button geklickt wird, ist dashier:

[autoit]

For $i = 0 To UBound($aButtons) - 1
For $j = 0 To UBound($aButtons, 2) - 1
If $nMsg = $aButtons[$i][$j] Then
$hInput = InputBox("Stunde", "Stunde eingeben")
If $hInput <> "" Then
GUICtrlSetData($aButtons[$i][$j], $hInput)
EndIf
EndIf
Next
Next

[/autoit]

Es wird, wie beim erstellen, mit 2 For Schleifen gearbeitet. Es wird immer überprüft ob eins von ihenn geklickt wurde (also ob GuiGetMsg die ID des Buttons zurückgibt)
Ein Beispiel mit hervorhebung der Überprüfung:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
Dim $aButtons[5][10]
$Y = 50
$X = 20
$hGUI = GUICreate("Schneller einfacher kurzer Stundenplan^^", 500, 500)
GUICtrlCreateLabel("Montag", 30, 30, 60)
GUICtrlSetFont(-1, 12)
GUICtrlCreateLabel("Dienstag", 105, 30, 70)
GUICtrlSetFont(-1, 12)
GUICtrlCreateLabel("Mittwoch", 185, 30, 63)
GUICtrlSetFont(-1, 12)
GUICtrlCreateLabel("Donnerstag", 265, 30, 67)
GUICtrlSetFont(-1, 10)
GUICtrlCreateLabel("Freitag", 350, 30, 60)
GUICtrlSetFont(-1, 12)
For $i = 0 To UBound($aButtons) - 1
For $t = 0 To UBound($aButtons, 2) - 1
$aButtons[$i][$t] = GUICtrlCreateButton("", $X, $Y, 75, 30)
$Y += 40
Next
$X += 80
$Y = 50
Next
GUISetState()
While 1
$nMsg = GUIGetMsg()

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

Switch $nMsg
Case $Gui_Event_close
Exit
EndSwitch
For $i = 0 To UBound($aButtons) - 1
For $j = 0 To UBound($aButtons, 2) - 1
;~ If $nMsg = $aButtons[$i][$j] Then
;~ $hInput = InputBox("Stunde", "Stunde eingeben")
;~ If $hInput <> "" Then
GUICtrlSetData($aButtons[$i][$j], "geprüft")
;~ EndIf
;~ EndIf
Sleep (200)
Next
Next
WEnd

[/autoit]

Natürlich ist es nicht so langsam, ich hab ihn Zeile 40 ein Sleep gesetzt, damit du es erkennen kannst.

Ich hoffe es war gut verständlich, wenn noch fragen bestehen frag einfach

RapIt

Hier, ich hab dir ein Ansatz mit Arrays gemacht...Ist zwar etwas unübersichtlich, aber es hilft beim verstehen, wie es geht...

Die Positionen der Buttons sind jetzt zwar definiert, was eigentlich nicht so schön ist, die kann man auch relativ machen und mit den Schleifenvariablen berechnen, aber dazu hab ich jetzt kz...

Spoiler anzeigen

[autoit]

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

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

MsgBox(0,"Wilkommen", "Um den Stundenplan zu ändern einfach auf die Button's klicken !"& @CRLF & "WICHTIG ---> Das Komma musst du als Punkt schreiben ! (Nur bei den Extra Funktionen)" & @CRLF & "Bei den Extras wird immer auf 2 Komma stellen nach dem Komma gerundet !" )

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

Global $Buttons[5][7] ;Die verschiedenen Stunden
Global $pos[35][2] = [[104,48],[216,48],[328,48],[440,48],[552,48],[104,96],[216,96],[328,96],[440,96],[552,96],[104,144],[216,144],[328,144],[440,144],[552,144],[104,192],[216,192],[328,192],[440,192],[552,192],[104,240],[216,240],[328,240],[440,240],[552,240],[104,288],[216,288],[328,288],[440,288],[552,288],[104,336],[216,336],[328,336],[440,336],[552,336]]
; Das große Array beinhaltet die Positionen der verschiedenen Buttons
Global $Ini[5][7]

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

$Form1 = GUICreate("Stundenplan ", 785, 390, 588, 231)
$MenuItem1 = GUICtrlCreateMenu("Optionen")
$resetbutton = GUICtrlCreateMenuItem("Alle Button's löschen", $MenuItem1)
GUISetBkColor(0xC0C0C0)

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

Global $labpos[7] = [48,96,144,192,240,288,336];Die Positionen der Stunden-Labels
for $i = 0 to 6 ;Es werden 7 Labels kreiert.
GUICtrlCreateLabel(String($i+1)&" Stunde", 8, $labpos[$i], 75, 28) ;Das Label wird mit dem Namen 'String($i+1)&" Stunde" ' erstellt. $i ist dabei die Schleifenvariable. Diese wird um 1 erhöht, da die Schleife bei 0 anfängt, wir aber ja nicht bei der 0 Stunde anfangen
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
Next

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

;Die Buttons werden erstellt
for $i = 0 to 6 ;Das zweidimensionale Array wird in 2 Schleifen abgearbeitet Hier zunächst die Stunden
for $j = 0 to 4; Hier die Tage
$Buttons[$j][$i] = GUICtrlCreateButton("Keine Angabe", $pos[5*$i+$j][0], $pos[5*$i+$j][1], 99, 25, $WS_GROUP) ; Der button wird erstellt. Position: '5*$i+$j' (Die verschachtelten Schleifen werden wieder in eine Position aufgelöst...
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
next
Next

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

$Label8 = GUICtrlCreateLabel("Montag", 104, 8, 64, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label9 = GUICtrlCreateLabel("Dienstag", 216, 8, 73, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label10 = GUICtrlCreateLabel("Mittwoch", 328, 8, 80, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label11 = GUICtrlCreateLabel("Donnerstag", 440, 8, 96, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label12 = GUICtrlCreateLabel("Freitag", 552, 8, 62, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
$Label13 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------------------------------------------------------------------------------", 8, 128, 648, 12)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label14 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------------------------------------------------------------------------------", 7, 80, 648, 12)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label15 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------", 5, 32, 768, 12)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label16 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------------------------------------------------------------------------------", 7, 170, 648, 12)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label17 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------------------------------------------------------------------------------", 3, 223, 648, 12)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label18 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------------------------------------------------------------------------------", 3, 265, 648, 12)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label19 = GUICtrlCreateLabel("-----------------------------------------------------------------------------------------------------------------------------------------------------------------", 2, 314, 648, 12)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label20 = GUICtrlCreateLabel("By Nono", 728, 336, 47, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Label21 = GUICtrlCreateLabel(" ", 8, 8, 88, 19)
GUICtrlSetFont(-1, 8, 400, 0, "Comic Sans MS")
$Button36 = GUICtrlCreateButton("Quadrierer", 661, 46, 115, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button37 = GUICtrlCreateButton("Wurzel Rechner", 661, 94, 115, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button38 = GUICtrlCreateButton("Addition", 661, 142, 115, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button39 = GUICtrlCreateButton("Subtraktion", 661, 190, 115, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button40 = GUICtrlCreateButton("Multiplikation", 661, 238, 115, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Button41 = GUICtrlCreateButton("Division", 661, 286, 115, 25, $WS_GROUP)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Label22 = GUICtrlCreateLabel("Extras", 664, 8, 58, 28)
GUICtrlSetFont(-1, 13, 400, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)

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

AdlibRegister("thetime", 100)
;EXTRAS====================================================================

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

;EXTRAS ENDE==================================================================================

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

for $i = 0 to 4 ; Auch das lesen der Ini wird in einer Schleife abgearbeitet...
for $j = 0 to 6
$ini[$i][$j] = IniRead("stunden.ini","zeile"&String(5*$i+$j+1),"stunden", "")
GUICtrlSetData($Buttons[$i][$j], $ini[$i][$j])
Next
Next

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

Func thetime()
GUICtrlSetData ($label21, @HOUR & ":" & @MIN & ":" & @SEC)
EndFunc

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

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

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

;BUTTONRESET=================================================================
Case $resetbutton
FileDelete("stunden.ini")
MsgBox(0,"Wichtig","Damit die Änderungen übernehmt werden das Programm neustarten !")
;==================================================================================BUTTONRESET ENDE
Case $Button36
$sZahl = InputBox("Zahl", "Bitte geben Sie die gewünschte Zahl ein die Sie Quadrieren möchten und drücken sie auf Ok.")
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.") ;QUADRIEIER
EndIf
$rechnung = $sZahl * $sZahl
$sround = Round($rechnung, 2)
MsgBox(0,"Ergebnis", "Ihr Ergebnis lautet: " & $sround)
;====================================================================================
Case $Button37
$swurzel = InputBox("Wurzelrechner","Bitte gebe die Quadratwurzel an !" )
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.") ;WURZELRECHNER
EndIf
$wurzelergebnis = Sqrt($swurzel)
$gerundet = Round($wurzelergebnis, 2)
MsgBox(0,"Ergebnis","Ihr Ergebnis lautet: " & $gerundet)
;================================================================================
Case $Button38
$Saddition1 = InputBox("Addition","Gebe die 1 Zahl an !")
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.") ;ADDITION
EndIf
$Saddition2 = InputBox("Addition","Gebe die 2 Zahl an !")
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.")
EndIf
$additionergebnis = $Saddition1 + $Saddition2
$additionrundet = Round($additionergebnis, 2)
MsgBox(0,"Ergebnis","Ihr Ergebnis lautet: " & $additionrundet)
;================================================================================
Case $Button39
$sub1 = InputBox("Subtraktion","Gebe die 1 Zahl an !")
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.")
EndIf
$sub2 = InputBox("Subtraktion","Gebe die 2 zahl an !") ;SUBTRAKTION
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.")
EndIf
$subergebnis = $sub1 - $sub2
$subrundet = Round($subergebnis, 2)
MsgBox(0,"Ergebnis","Ihr Ergebnis lautet: " & $subrundet)
;===================================================================================
Case $Button41
$divi1 = InputBox("Division","Gebe die 1 Zahl an !")
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.")
EndIf
$divi2 = InputBox("Division","Gebe die 2 zahl an !") ;DIVISION
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.")
EndIf
$diviergebnis = $divi1 / $divi2
$divirundet = Round($diviergebnis, 2)
MsgBox(0,"Ergebnis","Ihr Ergebnis lautet: " & $divirundet)
;===============================================================================
Case $Button40
$multi1 = InputBox("Multiplikation","Gebe die 1 Zahl an !")
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.")
EndIf
$multi2 = InputBox("Multiplikation","Gebe die 2 zahl an !") ;DIVISION
If @error Then
MsgBox(0,"Fehler", "Sie haben auf Abbrechen geklickt.")
EndIf
$multiergebnis = $multi1 * $multi2
$multirundet = Round($multiergebnis, 2)
MsgBox(0,"Ergebnis","Ihr Ergebnis lautet: " & $multirundet)

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

Case Else ; Hier wird abgefragt, ob einer der Buttons gedrückt wurde. Dies passiert wieder in einer geschachtelten Schleife, damit alle abgefragt werden können...
For $i = 0 to 4
For $j = 0 to 6
if $nmsg = $Buttons[$i][$j] Then
$wert = InputBox("Angabe","Bitte gebe ein Fach an !")
GUICtrlSetData($Buttons[$i][$j],$wert)
IniWrite("stunden.ini","zeile"&String(5*$i+$j+1),"stunden",$wert)
EndIf
Next
Next

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

EndSwitch
WEnd

[/autoit]

Viele Grüße
RapIt

//Edit: Du warst wohl schneller