Checkboxen

sp3333dy

Danke kleiner da hab ich etwas mehr durchgeblickt =)

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 553, 165, 236, 264)
; ,---Array mit 3 Inhalten 2 Spalten
; |
; |
; | Index = 3 1 Spalte Index = 3 2 Spalte
; | ,-$acheckBox[0][0] Checkbox $acheckBox[0][1] 1
; | |
; | |,$acheckBox[1][0] Checkbox1 $acheckBox[1][1] 1
; | |
; | |,$acheckBox[2][0] Checkbox $acheckBox[2][1] 1
; | |
; | |
; | |
; | |
Local $acheckBox[4][2] = [["Checkbox", 1],["Checkbox1", 1],["Checkbox2", 1],["Checkbox3", 1]]
;
; ,-Neu ArrayVariable dür die Erstellung der CheckBoxen
Local $checkErstellen[4], $x = 48;$x ist eine variable zum erstellen der Checkbox in unserm fall ist die erste GUICtrlCreateCheckbox('CheckBox',352,48,97, 17) $x = 48
; ,-- $i = Zähler Variable zweite GUICtrlCreateCheckbox('CheckBox',352,92,97, 17) $x + 24
; | Drite GUICtrlCreateCheckbox('CheckBox',352,140,97, 17)$x + 24
; |,- Wir weisen $i 0 zu das beseutet das $i ab 0 anfängt zu zählen
; |
; | ,1 ,2 ,3
; |,- In unserem Beispiel bis To 2 also bis 2 bedeutet 0 - 1 - 2
; |
; |- $i = 0 CheckBox 1 erstellen dann $i = 1 CheckBox 2 erstellen dann $i = 2 CheckBox 3 erstellen
; |
For $i = 0 To 3
; ,Ihr kommt unsere erstes Array zu einsatz für sie nahmen der einzelne Checkbox
; |
; |,$i = 0 dann hat auch $acheckBox[0][0] = "Checkbox" -> 1
; |
; |,$i = 1 dann hat auch $acheckBox[1][0] = "Checkbox1" -> 2
; |
; |,$i = 2 dann hat auch $acheckBox[2][0] = "Checkbox2" -> 3
; |
; |
; |
; |
$checkErstellen[$i] = GUICtrlCreateCheckbox($acheckBox[$i][0], 352, $x, 97, 17)
$x += 24
Next

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

$Button1 = GUICtrlCreateButton("Button1", 352, 120, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Button2", 432, 120, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

If FileExists(@ScriptDir & '\Test.ini') Then
Local $IniAus = IniReadSection(@ScriptDir & '\Test.ini', "Test")
;
;
;, (1) Bei der *.Ini auslesung ist das verhalten gleich auser das bei den ini Array[0][0] alle einträge beinhaltet
;
;, (2) Also fangen wir von 1 und nicht von 0 an zu Zähle Beipiel Array[0][0] wird ausgelesen z.B kommt 4-4 raus also 4 schlüssel 4 werte beinhaltet die *.ini
;- in unserm fall brauchen wir den Index nicht darum Array[1][0] fangen wir an aber wir wollen ja nicht den schlüssel sondern den wert also fangen wir von
;- Array[1][1] an!
;
For $i = 1 To UBound($IniAus) - 1
;
; ,Ihr kommt man durcheinander weil beispil iniArray[1][1] erster eintrag
; | $acheckBox[1][1] zweiter eintrag
; |vergleichen wir die beiden würde wir iniArray[1][1] = 1 und $acheckBox[1][1] = 2, eigentlich soll $acheckBox[0][1] = 1 eintrag
; |sein darum $i -1 erklärung $acheckBox[$i = 1 -1 wieder 0][1]
If $IniAus[$i][1] = $acheckBox[$i - 1][1] Then GUICtrlSetState($checkErstellen[$i - 1], $GUI_CHECKED)
Next
EndIf

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
_Ini()
Exit
Case $Button1
For $i = 0 To UBound($checkErstellen) - 1;-Ihr benutzen wir [ UBound ] weil alle Prüfen werden können ohne fehler | Prüfen welche CheckBox Aktiv ist
If GUICtrlRead($checkErstellen[$i]) = $GUI_CHECKED Or GUICtrlRead($checkErstellen[$i]) = $GUI_CHECKED Or GUICtrlRead($checkErstellen[$i]) = $GUI_CHECKED Then MsgBox(0, "Welche Check Aktiv", $acheckBox[$i][0])
Next
EndSwitch
WEnd
Func _Ini();---Speichern der Aktiven CheckBox
For $i = 0 To UBound($checkErstellen) - 1
If BitAND(GUICtrlRead($checkErstellen[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
$Check = 1 ;- wenn Aktiv = 1 Speichern
Else
$Check = 0
EndIf
IniWrite(@ScriptDir & '\Test.ini', "Test", $acheckBox[$i][0], $Check)
Next
EndFunc ;==>_Ini

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

So hab etwas probiert und konnte eine box erstellen darunter, nun meine frage wie kann ich jetz eine 2. spalte anlegen und daneben noch welche hinzufügen ?

so in etwa

[X] [X]

SEuBo

Hoffe ich habe ausreichend kommentiert.
Die ursprüngliche Schleife fügt ja der $x Koordinate ( welche eigentlich $y heißen müsste - $x = horizontal, $y = vertikal ) immer 24 pixel hinzu. Das Sorgt dafür dass die Checkboxen untereinander erstellt werden.
Würde man die Schleife ausschreiben sähe das so aus:

[autoit]

GUICtrlCreateCheckbox($acheckBox[0][0], 352, 48, 97, 17)
GUICtrlCreateCheckbox($acheckBox[1][0], 352, 72, 97, 17)
GUICtrlCreateCheckbox($acheckBox[2][0], 352, 96, 97, 17)
GUICtrlCreateCheckbox($acheckBox[3][0], 352, 120, 97, 17)

[/autoit]

usw...
Nun sagen wir aber der schleife, dass sie nach dem 2ten Durchlauf ( also nach GUICtrlCreateCheckbox(aCheckbox[2][0] ...))
Die X-Koordinate vergrößern soll (zb um 100 pixel), und Y wieder auf den Ursprungswert zurücksetzen soll Das sieht dann so aus:

[autoit]

GUICtrlCreateCheckbox($acheckBox[0][0], 352, 48, 97, 17)
GUICtrlCreateCheckbox($acheckBox[1][0], 352, 72, 97, 17)
GUICtrlCreateCheckbox($acheckBox[2][0], 352, 96, 97, 17)
GUICtrlCreateCheckbox($acheckBox[3][0], 452, 48, 97, 17)
GUICtrlCreateCheckbox($acheckBox[4][0], 452, 72, 97, 17)

[/autoit]

Hier die schleife wie sie sein sollte :

Spoiler anzeigen

[autoit]

Local $acheckBox[6][2] = [["Checkbox", 1],["Checkbox1", 1],["Checkbox2", 1],["Checkbox3", 1],["Checkbox4", 1],["Checkbox5", 1]]
Local $checkErstellen[6], $x = 352, $y = 48
For $i = 0 To 5
$checkErstellen[$i] = GUICtrlCreateCheckbox($acheckBox[$i][0], $x, $y, 97, 17)
$y += 24
Switch $i ; Fragt den aktuellen Durchlauf bzw. Index ab
Case 2 ; Bei Durchlauf nummer 2... (für eine dritte spalte machst du einfach "Case 2,5")
$x += 100 ; Füge der $x position 100 pixel hinzu, (ändere diesen wert mal um zu sehen, was passiert)
$y = 48 ; und $y wird wieder auf den ursprünglichen Wert gesetzt, also hat jetzt wieder die gleiche höhe wie "Checkbox"
; Schreibe mal zum Testen $x += 50 und $y = 30. Dann siehst du sehr gut wie das ganze funktioniert.
EndSwitch
Next

[/autoit]

EDIT : ausführlich beschrieben

sp3333dy

Danke für alles, aber ich würde es gerne mit der variante von UEZ probieren:

Nun habe ich da ein problem, ich weis ihr denkt euch vl was soll das den fr ein script werden aber naja is halt ne bastellei von mir .. es kommen über 80 checkboxen in eine GUI und mit dieser methode hab ich alles hin bekomm speichern lesen ausgeben etc. aber ab der 70. checkbox bekomm ich nur noch fehler macht da autoit nich mit oder muss ich da noch etwas beachten oder ist es mit der variante nicht möglich sagt bitte nich nein hab jetz extra alles geschrieben xD weil ich dachte habe entlich mal was gefunden was geht und einfach ist =) mit freundlichen grüßen

[autoit]

;Coded by UEZ
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test", 237, 143)
$Checkbox1 = GUICtrlCreateCheckbox("Convert X", 8, 8, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Convert Y", 8, 40, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Convert Z", 8, 72, 97, 17)
$Input1 = GUICtrlCreateInput("", 105, 8, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input2 = GUICtrlCreateInput("", 105, 40, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input3 = GUICtrlCreateInput("", 105, 72, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Load", 8, 104, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Save", 153, 104, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Load()

Case $Button2
Save()

Case $Checkbox1
If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then
GUICtrlSetState($Input1, $GUI_ENABLE)
Else
GUICtrlSetState($Input1, $GUI_DISABLE)
EndIf

Case $Checkbox2
If BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) Then
GUICtrlSetState($Input2, $GUI_ENABLE)
Else
GUICtrlSetState($Input2, $GUI_DISABLE)
EndIf

Case $Checkbox3
If BitAND(GUICtrlRead($Checkbox3), $GUI_CHECKED) Then
GUICtrlSetState($Input3, $GUI_ENABLE)
Else
GUICtrlSetState($Input3, $GUI_DISABLE)
EndIf
EndSwitch
WEnd

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

Func Save()
Local $ini, $save_file, $filename, $dummy_array
Local $filename_suffix = ".ini"
Local $save_path = @ScriptDir
$filename = ""
$filename = FileSaveDialog("Save Project Request Form", $save_path, "Ini Files (*" & $filename_suffix & ")|All Files(*.*)", 16)
If $filename <> "" Then
$dummy_array = StringSplit($filename, ".")
If UBound($dummy_array) > 0 Then
$filename = $dummy_array[1] & $filename_suffix
Else
$filename = $filename_suffix
EndIf
If Not @error Then
$ini = "[Input Section]" & @CRLF & _
"Convert X=" & GUICtrlRead($Input1) & @CRLF & _
"Convert Y=" & GUICtrlRead($Input2) & @CRLF & _
"Convert Z=" & GUICtrlRead($Input3) & @CRLF & @CRLF & _
"[Checkbox Section]" & @CRLF & _
"Checkbox1=" & GUICtrlRead($Checkbox1) & @CRLF & _
"Checkbox2=" & GUICtrlRead($Checkbox2) & @CRLF & _
"Checkbox3=" & GUICtrlRead($Checkbox3) & @CRLF
FileOpen($filename, 2)
FileWrite($filename, $ini)
FileClose($filename)
EndIf
EndIf
EndFunc ;==>Save
Func Load()
Local $filename, $dummy_array, $line
Local $filename_suffix = ".ini"
Local $load_path = @ScriptDir
$filename = ""
$filename = FileOpenDialog("Load Project Request Form", $load_path, "Ini Files (*" & $filename_suffix & ")|All Files(*.*)", 1)
If $filename <> "" Then
$filename = FileOpen($filename, 0)
If Not @error Then
While 1
$line = FileReadLine($filename)
If @error = -1 Then ExitLoop
If StringInStr($line, "Convert X=") Then GUICtrlSetData($Input1, StringMid($line, StringInStr($line, "=") + 1))
If StringInStr($line, "Convert Y=") Then GUICtrlSetData($Input2, StringMid($line, StringInStr($line, "=") + 1))
If StringInStr($line, "Convert Z=") Then GUICtrlSetData($Input3, StringMid($line, StringInStr($line, "=") + 1))
If StringInStr($line, "Checkbox1=") = True And StringMid($line, StringInStr($line, "=") + 1) = 1 Then
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
GUICtrlSetState($Input1, $GUI_ENABLE)
EndIf
If StringInStr($line, "Checkbox1=") = True And StringMid($line, StringInStr($line, "=") + 1) = 4 Then
GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
GUICtrlSetState($Input1, $GUI_DISABLE)
EndIf
If StringInStr($line, "Checkbox2=") = True And StringMid($line, StringInStr($line, "=") + 1) = 1 Then
GUICtrlSetState($Checkbox2, $GUI_CHECKED)
GUICtrlSetState($Input2, $GUI_ENABLE)
EndIf
If StringInStr($line, "Checkbox2=") = True And StringMid($line, StringInStr($line, "=") + 1) = 4 Then
GUICtrlSetState($Checkbox2, $GUI_UNCHECKED)
GUICtrlSetState($Input2, $GUI_DISABLE)
EndIf
If StringInStr($line, "Checkbox3=") = True And StringMid($line, StringInStr($line, "=") + 1) = 1 Then
GUICtrlSetState($Checkbox3, $GUI_CHECKED)
GUICtrlSetState($Input3, $GUI_ENABLE)
EndIf
If StringInStr($line, "Checkbox3=") = True And StringMid($line, StringInStr($line, "=") + 1) = 4 Then
GUICtrlSetState($Checkbox3, $GUI_UNCHECKED)
GUICtrlSetState($Input3, $GUI_DISABLE)
EndIf
WEnd
FileClose($filename)
EndIf
EndIf
EndFunc ;==>Load

[/autoit]

sp3333dy

Spoiler anzeigen

[autoit]

;Coded by UEZ
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 293, 380, 244, 280)
$Checkbox1 = GUICtrlCreateCheckbox("", 8, 64, 17, 17)
$Checkbox2 = GUICtrlCreateCheckbox("", 32, 64, 17, 17)
$Checkbox3 = GUICtrlCreateCheckbox("", 56, 64, 17, 17)
$Checkbox4 = GUICtrlCreateCheckbox("", 80, 64, 17, 17)
$Checkbox5 = GUICtrlCreateCheckbox("", 104, 64, 17, 17)
$Checkbox6 = GUICtrlCreateCheckbox("", 128, 64, 17, 17)
$Checkbox7 = GUICtrlCreateCheckbox("", 152, 64, 17, 17)
$Checkbox8 = GUICtrlCreateCheckbox("", 176, 64, 17, 17)
$Checkbox9 = GUICtrlCreateCheckbox("", 200, 64, 17, 17)
$Checkbox10 = GUICtrlCreateCheckbox("", 224, 64, 17, 17)
$Checkbox11 = GUICtrlCreateCheckbox("", 248, 64, 17, 17)
$Checkbox12 = GUICtrlCreateCheckbox("", 272, 64, 17, 17)
$Checkbox13 = GUICtrlCreateCheckbox("", 8, 88, 17, 17)
$Checkbox14 = GUICtrlCreateCheckbox("", 32, 88, 17, 17)
$Checkbox15 = GUICtrlCreateCheckbox("", 56, 88, 17, 17)
$Checkbox16 = GUICtrlCreateCheckbox("", 80, 88, 17, 17)
$Checkbox17 = GUICtrlCreateCheckbox("", 104, 88, 17, 17)
$Checkbox18 = GUICtrlCreateCheckbox("", 128, 88, 17, 17)
$Checkbox19 = GUICtrlCreateCheckbox("", 152, 88, 17, 17)
$Checkbox20 = GUICtrlCreateCheckbox("", 176, 88, 17, 17)
$Checkbox21 = GUICtrlCreateCheckbox("", 200, 88, 17, 17)
$Checkbox22 = GUICtrlCreateCheckbox("", 224, 88, 17, 17)
$Checkbox23 = GUICtrlCreateCheckbox("", 248, 88, 17, 17)
$Checkbox24 = GUICtrlCreateCheckbox("", 272, 88, 17, 17)
$Checkbox25 = GUICtrlCreateCheckbox("", 8, 112, 17, 17)
$Checkbox26 = GUICtrlCreateCheckbox("", 32, 112, 17, 17)
$Checkbox27 = GUICtrlCreateCheckbox("", 56, 112, 17, 17)
$Checkbox28 = GUICtrlCreateCheckbox("", 80, 112, 17, 17)
$Checkbox29 = GUICtrlCreateCheckbox("", 104, 112, 17, 17)
$Checkbox30 = GUICtrlCreateCheckbox("", 128, 112, 17, 17)
$Checkbox31 = GUICtrlCreateCheckbox("", 152, 112, 17, 17)
$Checkbox32 = GUICtrlCreateCheckbox("", 176, 112, 17, 17)
$Checkbox33 = GUICtrlCreateCheckbox("", 200, 112, 17, 17)
$Checkbox34 = GUICtrlCreateCheckbox("", 224, 112, 17, 17)
$Checkbox35 = GUICtrlCreateCheckbox("", 248, 112, 17, 17)
$Checkbox36 = GUICtrlCreateCheckbox("", 272, 112, 17, 17)
$Checkbox37 = GUICtrlCreateCheckbox("", 8, 136, 17, 17)
$Checkbox38 = GUICtrlCreateCheckbox("", 32, 136, 17, 17)
$Checkbox39 = GUICtrlCreateCheckbox("", 56, 136, 17, 17)
$Checkbox40 = GUICtrlCreateCheckbox("", 80, 136, 17, 17)
$Checkbox41 = GUICtrlCreateCheckbox("", 104, 136, 17, 17)
$Checkbox42 = GUICtrlCreateCheckbox("", 128, 136, 17, 17)
$Checkbox43 = GUICtrlCreateCheckbox("", 152, 136, 17, 17)
$Checkbox44 = GUICtrlCreateCheckbox("", 176, 136, 17, 17)
$Checkbox45 = GUICtrlCreateCheckbox("", 200, 136, 17, 17)
$Checkbox46 = GUICtrlCreateCheckbox("", 224, 136, 17, 17)
$Checkbox47 = GUICtrlCreateCheckbox("", 248, 136, 17, 17)
$Checkbox48 = GUICtrlCreateCheckbox("", 272, 136, 17, 17)
$Checkbox49 = GUICtrlCreateCheckbox("", 8, 160, 17, 17)
$Checkbox50 = GUICtrlCreateCheckbox("", 32, 160, 17, 17)
$Checkbox51 = GUICtrlCreateCheckbox("", 56, 160, 17, 17)
$Checkbox52 = GUICtrlCreateCheckbox("", 80, 160, 17, 17)
$Checkbox53 = GUICtrlCreateCheckbox("", 104, 160, 17, 17)
$Checkbox54 = GUICtrlCreateCheckbox("", 128, 160, 17, 17)
$Checkbox55 = GUICtrlCreateCheckbox("", 152, 160, 17, 17)
$Checkbox56 = GUICtrlCreateCheckbox("", 176, 160, 17, 17)
$Checkbox57 = GUICtrlCreateCheckbox("", 200, 160, 17, 17)
$Checkbox58 = GUICtrlCreateCheckbox("", 224, 160, 17, 17)
$Checkbox59 = GUICtrlCreateCheckbox("", 248, 160, 17, 17)
$Checkbox60 = GUICtrlCreateCheckbox("", 272, 160, 17, 17)
$Checkbox61 = GUICtrlCreateCheckbox("", 8, 184, 17, 17)
$Checkbox62 = GUICtrlCreateCheckbox("", 32, 184, 17, 17)
$Checkbox63 = GUICtrlCreateCheckbox("", 56, 184, 17, 17)
$Checkbox64 = GUICtrlCreateCheckbox("", 80, 184, 17, 17)
$Checkbox65 = GUICtrlCreateCheckbox("", 104, 184, 17, 17)
$Checkbox66 = GUICtrlCreateCheckbox("", 128, 184, 17, 17)
$Checkbox67 = GUICtrlCreateCheckbox("", 152, 184, 17, 17)
$Checkbox68 = GUICtrlCreateCheckbox("", 176, 184, 17, 17)
$Checkbox69 = GUICtrlCreateCheckbox("", 200, 184, 17, 17)
$Checkbox70 = GUICtrlCreateCheckbox("", 224, 184, 17, 17)
$Checkbox71 = GUICtrlCreateCheckbox("", 248, 184, 17, 17)
$Checkbox72 = GUICtrlCreateCheckbox("", 272, 184, 17, 17)
$Checkbox73 = GUICtrlCreateCheckbox("", 8, 208, 17, 17)
$Checkbox74 = GUICtrlCreateCheckbox("", 32, 208, 17, 17)
$Checkbox75 = GUICtrlCreateCheckbox("", 56, 208, 17, 17)
$Checkbox76 = GUICtrlCreateCheckbox("", 80, 208, 17, 17)
$Checkbox77 = GUICtrlCreateCheckbox("", 104, 208, 17, 17)
$Checkbox78 = GUICtrlCreateCheckbox("", 128, 208, 17, 17)
$Checkbox79 = GUICtrlCreateCheckbox("", 152, 208, 17, 17)
$Checkbox80 = GUICtrlCreateCheckbox("", 176, 208, 17, 17)
$Checkbox81 = GUICtrlCreateCheckbox("", 200, 208, 17, 17)
$Checkbox82 = GUICtrlCreateCheckbox("", 224, 208, 17, 17)
$Checkbox83 = GUICtrlCreateCheckbox("", 248, 208, 17, 17)
$Checkbox84 = GUICtrlCreateCheckbox("", 272, 208, 17, 17)
$Checkbox85 = GUICtrlCreateCheckbox("", 8, 232, 17, 17)
$Checkbox86 = GUICtrlCreateCheckbox("", 32, 232, 17, 17)
$Checkbox87 = GUICtrlCreateCheckbox("", 56, 232, 17, 17)
$Checkbox88 = GUICtrlCreateCheckbox("", 80, 232, 17, 17)
$Checkbox89 = GUICtrlCreateCheckbox("", 104, 232, 17, 17)
$Checkbox90 = GUICtrlCreateCheckbox("", 128, 232, 17, 17)
$Checkbox91 = GUICtrlCreateCheckbox("", 152, 232, 17, 17)
$Checkbox92 = GUICtrlCreateCheckbox("", 176, 232, 17, 17)
$Checkbox93 = GUICtrlCreateCheckbox("", 200, 232, 17, 17)
$Checkbox94 = GUICtrlCreateCheckbox("", 224, 232, 17, 17)
$Checkbox95 = GUICtrlCreateCheckbox("", 248, 232, 17, 17)
$Checkbox96 = GUICtrlCreateCheckbox("", 272, 232, 17, 17)
$Checkbox97 = GUICtrlCreateCheckbox("", 8, 256, 17, 17)
$Checkbox98 = GUICtrlCreateCheckbox("", 32, 256, 17, 17)
$Checkbox99 = GUICtrlCreateCheckbox("", 56, 256, 17, 17)
$Checkbox100 = GUICtrlCreateCheckbox("", 80, 256, 17, 17)
$Checkbox101 = GUICtrlCreateCheckbox("", 104, 256, 17, 17)
$Checkbox102 = GUICtrlCreateCheckbox("", 128, 256, 17, 17)
$Checkbox103 = GUICtrlCreateCheckbox("", 152, 256, 17, 17)
$Checkbox104 = GUICtrlCreateCheckbox("", 176, 256, 17, 17)
$Checkbox105 = GUICtrlCreateCheckbox("", 200, 256, 17, 17)
$Checkbox106 = GUICtrlCreateCheckbox("", 224, 256, 17, 17)
$Checkbox107 = GUICtrlCreateCheckbox("", 248, 256, 17, 17)
$Checkbox108 = GUICtrlCreateCheckbox("", 272, 256, 17, 17)
$Checkbox109 = GUICtrlCreateCheckbox("", 8, 280, 17, 17)
$Checkbox110 = GUICtrlCreateCheckbox("", 32, 280, 17, 17)
$Checkbox111 = GUICtrlCreateCheckbox("", 56, 280, 17, 17)
$Checkbox112 = GUICtrlCreateCheckbox("", 80, 280, 17, 17)
$Checkbox113 = GUICtrlCreateCheckbox("", 104, 280, 17, 17)
$Checkbox114 = GUICtrlCreateCheckbox("", 128, 280, 17, 17)
$Checkbox115 = GUICtrlCreateCheckbox("", 152, 280, 17, 17)
$Checkbox116 = GUICtrlCreateCheckbox("", 176, 280, 17, 17)
$Checkbox117 = GUICtrlCreateCheckbox("", 200, 280, 17, 17)
$Checkbox118 = GUICtrlCreateCheckbox("", 224, 280, 17, 17)
$Checkbox119 = GUICtrlCreateCheckbox("", 248, 280, 17, 17)
$Checkbox120 = GUICtrlCreateCheckbox("", 272, 280, 17, 17)
$Button1 = GUICtrlCreateButton("Laden", 8, 312, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Speichern", 88, 312, 75, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Ausführen", 8, 344, 155, 25, $WS_GROUP)
$Input1 = GUICtrlCreateInput("", 66600, 66600, 66600, 66600)
GUICtrlSetState(-1, $GUI_DISABLE)

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Load()
Case $Button2
Save()
Case $Button3
if GUICtrlRead($Checkbox1) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox2) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox3) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox4) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox5) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox6) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox7) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox8) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox9) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox10) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox11) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox12) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox13) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox14) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox15) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox16) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox17) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox18) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox19) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox20) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox21) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox22) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox23) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox24) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox25) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox26) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox27) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox28) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox29) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox30) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox31) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox32) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox33) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox34) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox35) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox36) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox37) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox38) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox39) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox40) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox41) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox42) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox43) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox44) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox45) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox46) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox47) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox48) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox49) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox50) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox51) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox52) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox53) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox54) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox55) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox56) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox57) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox58) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox59) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox60) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox61) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox62) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox63) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox64) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox65) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox66) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox67) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox68) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox69) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox70) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox71) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox72) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox73) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox74) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox75) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox76) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox77) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox78) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox79) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox80) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox81) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox82) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox83) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox84) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox85) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox86) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox87) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox88) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox89) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox90) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox91) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox92) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox93) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox94) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox95) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox96) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox97) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox98) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox99) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox100) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox101) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox102) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox103) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox104) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox105) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox106) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox107) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox108) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox109) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox110) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox111) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox112) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox113) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox114) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox115) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox116) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox117) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox118) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox119) = $GUI_CHECKED Then msgbox("test","test","test")
if GUICtrlRead($Checkbox120) = $GUI_CHECKED Then msgbox("test","test","test")(
Case $Checkbox1
If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then
GUICtrlSetState($Input1, $GUI_ENABLE)
Else
GUICtrlSetState($Input1, $GUI_DISABLE)
EndIf
Case $Checkbox2
If BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) Then
GUICtrlSetState($Input1, $GUI_ENABLE)
Else
GUICtrlSetState($Input1, $GUI_DISABLE)
EndIf
Case $Checkbox3
If BitAND(GUICtrlRead($Checkbox3), $GUI_CHECKED) Then
GUICtrlSetState($Input1, $GUI_ENABLE)
Else
GUICtrlSetState($Input1, $GUI_DISABLE)
EndIf
EndSwitch
WEnd

Func Save()
Local $ini, $save_file, $filename, $dummy_array
Local $filename_suffix = ".ini"
Local $save_path = @ScriptDir
$filename = ""
$filename = FileSaveDialog("Save Project Request Form", $save_path, "Ini Files (*" & $filename_suffix & ")|All Files(*.*)", 16)
If $filename <> "" Then
$dummy_array = StringSplit($filename, ".")
If UBound($dummy_array) > 0 Then
$filename = $dummy_array[1] & $filename_suffix
Else
$filename = $filename_suffix
EndIf
If Not @error Then
$ini = "[Input Section]" & @CRLF & _
"Convert X=" & GUICtrlRead($Input1) & @CRLF & _
"Convert Y=" & GUICtrlRead($Input1) & @CRLF & _
"Convert Z=" & GUICtrlRead($Input1) & @CRLF & @CRLF & _
"[Checkbox Section]" & @CRLF & _
"Checkbox1=" & GUICtrlRead($Checkbox1) & @CRLF & _
"Checkbox2=" & GUICtrlRead($Checkbox2) & @CRLF & _
"Checkbox3=" & GUICtrlRead($Checkbox3) & @CRLF & _
"Checkbox4=" & GUICtrlRead($Checkbox4) & @CRLF & _
"Checkbox5=" & GUICtrlRead($Checkbox5) & @CRLF & _
"Checkbox6=" & GUICtrlRead($Checkbox6) & @CRLF & _
"Checkbox7=" & GUICtrlRead($Checkbox7) & @CRLF & _
"Checkbox8=" & GUICtrlRead($Checkbox8) & @CRLF & _
"Checkbox9=" & GUICtrlRead($Checkbox9) & @CRLF & _
"Checkbox10=" & GUICtrlRead($Checkbox10) & @CRLF & _
"Checkbox11=" & GUICtrlRead($Checkbox11) & @CRLF & _
"Checkbox12=" & GUICtrlRead($Checkbox12) & @CRLF & _
"Checkbox13=" & GUICtrlRead($Checkbox13) & @CRLF & _
"Checkbox14=" & GUICtrlRead($Checkbox14) & @CRLF & _
"Checkbox15=" & GUICtrlRead($Checkbox15) & @CRLF & _
"Checkbox16=" & GUICtrlRead($Checkbox16) & @CRLF & _
"Checkbox17=" & GUICtrlRead($Checkbox17) & @CRLF & _
"Checkbox18=" & GUICtrlRead($Checkbox18) & @CRLF & _
"Checkbox19=" & GUICtrlRead($Checkbox19) & @CRLF & _
"Checkbox20=" & GUICtrlRead($Checkbox20) & @CRLF & _
"Checkbox21=" & GUICtrlRead($Checkbox21) & @CRLF & _
"Checkbox22=" & GUICtrlRead($Checkbox22) & @CRLF & _
"Checkbox23=" & GUICtrlRead($Checkbox23) & @CRLF & _
"Checkbox24=" & GUICtrlRead($Checkbox24) & @CRLF & _
"Checkbox25=" & GUICtrlRead($Checkbox25) & @CRLF & _
"Checkbox26=" & GUICtrlRead($Checkbox26) & @CRLF & _
"Checkbox27=" & GUICtrlRead($Checkbox27) & @CRLF & _
"Checkbox28=" & GUICtrlRead($Checkbox28) & @CRLF & _
"Checkbox29=" & GUICtrlRead($Checkbox29) & @CRLF & _
"Checkbox30=" & GUICtrlRead($Checkbox30) & @CRLF & _
"Checkbox31=" & GUICtrlRead($Checkbox31) & @CRLF & _
"Checkbox32=" & GUICtrlRead($Checkbox32) & @CRLF & _
"Checkbox33=" & GUICtrlRead($Checkbox33) & @CRLF & _
"Checkbox34=" & GUICtrlRead($Checkbox34) & @CRLF & _
"Checkbox35=" & GUICtrlRead($Checkbox35) & @CRLF & _
"Checkbox36=" & GUICtrlRead($Checkbox36) & @CRLF & _
"Checkbox37=" & GUICtrlRead($Checkbox37) & @CRLF & _
"Checkbox38=" & GUICtrlRead($Checkbox38) & @CRLF & _
"Checkbox39=" & GUICtrlRead($Checkbox39) & @CRLF & _
"Checkbox40=" & GUICtrlRead($Checkbox40) & @CRLF & _
"Checkbox41=" & GUICtrlRead($Checkbox41) & @CRLF & _
"Checkbox42=" & GUICtrlRead($Checkbox42) & @CRLF & _
"Checkbox43=" & GUICtrlRead($Checkbox43) & @CRLF & _
"Checkbox44=" & GUICtrlRead($Checkbox44) & @CRLF & _
"Checkbox45=" & GUICtrlRead($Checkbox45) & @CRLF & _
"Checkbox46=" & GUICtrlRead($Checkbox46) & @CRLF & _
"Checkbox47=" & GUICtrlRead($Checkbox47) & @CRLF & _
"Checkbox48=" & GUICtrlRead($Checkbox48) & @CRLF & _
"Checkbox49=" & GUICtrlRead($Checkbox49) & @CRLF & _
"Checkbox50=" & GUICtrlRead($Checkbox50) & @CRLF & _
"Checkbox51=" & GUICtrlRead($Checkbox51) & @CRLF & _
"Checkbox52=" & GUICtrlRead($Checkbox52) & @CRLF & _
"Checkbox53=" & GUICtrlRead($Checkbox53) & @CRLF & _
"Checkbox54=" & GUICtrlRead($Checkbox54) & @CRLF & _
"Checkbox55=" & GUICtrlRead($Checkbox55) & @CRLF & _
"Checkbox56=" & GUICtrlRead($Checkbox56) & @CRLF & _
"Checkbox57=" & GUICtrlRead($Checkbox57) & @CRLF & _
"Checkbox58=" & GUICtrlRead($Checkbox58) & @CRLF & _
"Checkbox59=" & GUICtrlRead($Checkbox59) & @CRLF & _
"Checkbox60=" & GUICtrlRead($Checkbox60) & @CRLF & _
"Checkbox61=" & GUICtrlRead($Checkbox61) & @CRLF & _
"Checkbox62=" & GUICtrlRead($Checkbox62) & @CRLF & _
"Checkbox63=" & GUICtrlRead($Checkbox63) & @CRLF & _
"Checkbox64=" & GUICtrlRead($Checkbox64) & @CRLF & _
"Checkbox65=" & GUICtrlRead($Checkbox65) & @CRLF & _
"Checkbox66=" & GUICtrlRead($Checkbox66) & @CRLF & _
"Checkbox67=" & GUICtrlRead($Checkbox67) & @CRLF & _
"Checkbox68=" & GUICtrlRead($Checkbox68) & @CRLF & _
"Checkbox69=" & GUICtrlRead($Checkbox69) & @CRLF & _
"Checkbox70=" & GUICtrlRead($Checkbox70) & @CRLF & _
"Checkbox71=" & GUICtrlRead($Checkbox71) & @CRLF & _
"Checkbox72=" & GUICtrlRead($Checkbox72) & @CRLF & _
"Checkbox73=" & GUICtrlRead($Checkbox73) & @CRLF & _
"Checkbox74=" & GUICtrlRead($Checkbox74) & @CRLF & _
"Checkbox75=" & GUICtrlRead($Checkbox75) & @CRLF & _
"Checkbox76=" & GUICtrlRead($Checkbox76) & @CRLF & _
"Checkbox77=" & GUICtrlRead($Checkbox77) & @CRLF & _
"Checkbox78=" & GUICtrlRead($Checkbox78) & @CRLF & _
"Checkbox79=" & GUICtrlRead($Checkbox79) & @CRLF & _
"Checkbox80=" & GUICtrlRead($Checkbox80) & @CRLF & _
"Checkbox81=" & GUICtrlRead($Checkbox81) & @CRLF & _
"Checkbox82=" & GUICtrlRead($Checkbox82) & @CRLF & _
"Checkbox83=" & GUICtrlRead($Checkbox83) & @CRLF & _
"Checkbox84=" & GUICtrlRead($Checkbox84) & @CRLF & _
"Checkbox85=" & GUICtrlRead($Checkbox85) & @CRLF & _
"Checkbox86=" & GUICtrlRead($Checkbox86) & @CRLF & _
"Checkbox87=" & GUICtrlRead($Checkbox87) & @CRLF & _
"Checkbox88=" & GUICtrlRead($Checkbox88) & @CRLF & _
"Checkbox89=" & GUICtrlRead($Checkbox89) & @CRLF & _
"Checkbox90=" & GUICtrlRead($Checkbox90) & @CRLF & _
"Checkbox91=" & GUICtrlRead($Checkbox91) & @CRLF & _
"Checkbox92=" & GUICtrlRead($Checkbox92) & @CRLF & _
"Checkbox93=" & GUICtrlRead($Checkbox93) & @CRLF & _
"Checkbox94=" & GUICtrlRead($Checkbox94) & @CRLF & _
"Checkbox95=" & GUICtrlRead($Checkbox95) & @CRLF & _
"Checkbox96=" & GUICtrlRead($Checkbox96) & @CRLF & _
"Checkbox97=" & GUICtrlRead($Checkbox97) & @CRLF & _
"Checkbox98=" & GUICtrlRead($Checkbox98) & @CRLF & _
"Checkbox99=" & GUICtrlRead($Checkbox99) & @CRLF & _
"Checkbox100=" & GUICtrlRead($Checkbox100) & @CRLF & _
"Checkbox101=" & GUICtrlRead($Checkbox101) & @CRLF & _
"Checkbox102=" & GUICtrlRead($Checkbox102) & @CRLF & _
"Checkbox103=" & GUICtrlRead($Checkbox103) & @CRLF & _
"Checkbox104=" & GUICtrlRead($Checkbox104) & @CRLF & _
"Checkbox105=" & GUICtrlRead($Checkbox105) & @CRLF & _
"Checkbox106=" & GUICtrlRead($Checkbox106) & @CRLF & _
"Checkbox107=" & GUICtrlRead($Checkbox107) & @CRLF & _
"Checkbox108=" & GUICtrlRead($Checkbox108) & @CRLF & _
"Checkbox109=" & GUICtrlRead($Checkbox109) & @CRLF & _
"Checkbox110=" & GUICtrlRead($Checkbox110) & @CRLF & _
"Checkbox111=" & GUICtrlRead($Checkbox111) & @CRLF & _
"Checkbox112=" & GUICtrlRead($Checkbox112) & @CRLF & _
"Checkbox113=" & GUICtrlRead($Checkbox113) & @CRLF & _
"Checkbox114=" & GUICtrlRead($Checkbox114) & @CRLF & _
"Checkbox115=" & GUICtrlRead($Checkbox115) & @CRLF & _
"Checkbox116=" & GUICtrlRead($Checkbox116) & @CRLF & _
"Checkbox117=" & GUICtrlRead($Checkbox117) & @CRLF & _
"Checkbox118=" & GUICtrlRead($Checkbox118) & @CRLF & _
"Checkbox119=" & GUICtrlRead($Checkbox119) & @CRLF & _
"Checkbox120=" & GUICtrlRead($Checkbox120) & @CRLF

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

FileOpen($filename, 2)
FileWrite($filename, $ini)
FileClose($filename)
EndIf
EndIf
EndFunc ;==>Save
Func Load()
Local $filename, $dummy_array, $line
Local $filename_suffix = ".ini"
Local $load_path = @ScriptDir
$filename = ""
$filename = FileOpenDialog("Load Project Request Form", $load_path, "Ini Files (*" & $filename_suffix & ")|All Files(*.*)", 1)
If $filename <> "" Then
$filename = FileOpen($filename, 0)
If Not @error Then
While 1
$line = FileReadLine($filename)
If @error = -1 Then ExitLoop
If StringInStr($line, "Convert X=") Then GUICtrlSetData($Input1, StringMid($line, StringInStr($line, "=") + 1))
If StringInStr($line, "Convert Y=") Then GUICtrlSetData($Input1, StringMid($line, StringInStr($line, "=") + 1))
If StringInStr($line, "Convert Z=") Then GUICtrlSetData($Input1, StringMid($line, StringInStr($line, "=") + 1))
If StringInStr($line, "Checkbox1=") = True And StringMid($line, StringInStr($line, "=") + 1) = 1 Then
GUICtrlSetState($Checkbox1, $GUI_CHECKED)
GUICtrlSetState($Input1, $GUI_ENABLE)
EndIf
If StringInStr($line, "Checkbox1=") = True And StringMid($line, StringInStr($line, "=") + 1) = 4 Then
GUICtrlSetState($Checkbox1, $GUI_UNCHECKED)
GUICtrlSetState($Input1, $GUI_DISABLE)
EndIf
If StringInStr($line, "Checkbox2=") = True And StringMid($line, StringInStr($line, "=") + 1) = 1 Then
GUICtrlSetState($Checkbox2, $GUI_CHECKED)
GUICtrlSetState($Input1, $GUI_ENABLE)
EndIf
If StringInStr($line, "Checkbox2=") = True And StringMid($line, StringInStr($line, "=") + 1) = 4 Then
GUICtrlSetState($Checkbox2, $GUI_UNCHECKED)
GUICtrlSetState($Input1, $GUI_DISABLE)
EndIf
If StringInStr($line, "Checkbox3=") = True And StringMid($line, StringInStr($line, "=") + 1) = 1 Then
GUICtrlSetState($Checkbox3, $GUI_CHECKED)
GUICtrlSetState($Input1, $GUI_ENABLE)
EndIf
If StringInStr($line, "Checkbox3=") = True And StringMid($line, StringInStr($line, "=") + 1) = 4 Then
GUICtrlSetState($Checkbox3, $GUI_UNCHECKED)
GUICtrlSetState($Input1, $GUI_DISABLE)
EndIf
WEnd
FileClose($filename)
EndIf
EndIf
EndFunc ;==>Load

[/autoit]

SEuBo

Spoiler anzeigen

[autoit]

;~ Hallo Sp3333dy,
;~ Ich habe mir wirklich viel Mühe gegeben, um das hier so ausgiebig zu kommentieren. (ca 2 stunden)
;~ Wenn du allerdings noch Fragen hast, dann stell sie. Aber bitte krame nicht wieder eine ganz neue
;~ Version aus, in der du wieder absolut undynamisch (ohne Schleifen) arbeitest. Das wäre
;~ eine Vergewaltigung von AutoIt :P. Ich habe versucht den Code so einfach wie Möglich zu halten,
;~ wenn du aber etwas nicht verstehst, dann ist das nicht schlimm - wir waren alle mal anfänger.
;~
;~ Ich hoffe das funktioniert jetzt so, wie du es dir vorgestellt hast, und noch viel mehr hoffe ich,
;~ dass ich dir damit ein wenig helfen konnte das Thema Arrays bzw. Schleifen zu verdeutlichen.
;~ Ich habe versucht, auf so viele deiner Fragen aus der Shoutbox wie möglich einzugehen, zB: Wie man einer,
;~ in einer Schleife erstellten, einzelner Checkbox eine funktion zuweisen kann. Ich habe dafür 2 Beispiele
;~ geschrieben. (eins ist noch auskommentiert - siehe Zeile 69 ff.). Speichert und laden funktionert jetzt
;~ Hoffentlich so wie du es wolltest. Wenn sich mir trotzdem ein Fehler eingeschlichen hat, verzeih mir das
;~ bitte.
;~
;~ Die ganzen Sleeps. MsgBoxen und Kommentare kannst du selbstverständlich löschen, wenn du sie nicht mehr
;~ brauchst. Lieben Gruß
;~
;~ SEuBo
;~ Und nochmal : Wenn du immernoch was nicht verstehst: Einfach fragen, aber versuch bitte dich ein bisschen
;~ Mit den Themen auseinander zu setzen. Es gibt sehr gute Tutorials die mir selbst unglaublich geholfen haben
;~ Bugfix zb hat sehr gute Tutorials in seiner Signatur, oder du gehst auf
;~
;~
;~ http://wiki.autoit.de/wiki/index.php/Tutorial
;~
;~
;~ Ich glaube dieses Tutorial hat mir Anfangs alles wichtige beigrebacht - Zusätzlich habe ich natürlich fleißig
;~ Die AUtoIt Hilfe studiert

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

#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIConstantsEx.au3>
#include <Array.au3>
#region - GUI Create
$Form1 = GUICreate("Form1", 293, 380, 244, 280)
MsgBox(0,"","Wir erstellen jetzt die Checkboxen in einer Schleife. Diese werden in einen Array geschrieben. Wir machen das jetzt mal extra langsam, damit du zugucken kannst. normalerweise geht das viel schneller ;)")
Global $Checkbox[121],$x = 8, $y = 64
$Checkbox[0] = "In dieser Spalte stehen die ID's"
GUISetState()
FOr $i = 1 to 120
$Checkbox[$i] = GUICtrlCreateCheckbox("",$x,$y,17,17)
$x += 24 ; Eine Spalte nach rechts.
Switch $i
Case 12,24,36,48,60,72,84,96,108 ; Du hattest immer 12 Checkboxen in einer Zeile. Also wird nach Checkbox12, 24, 36 usw. die nächste Zeile begonnen
ToolTip("Eine Reihe ist fertig"&@CRLF&"Jetzt kommt die nächste Zeile"&@CRLF&"Wir sind grade bei Checkbox"&$i)
$x = 8 ; Wir fangen wieder (fast) ganz links an ( X Koordinate 8 )
$y += 24 ; Und wir gehen eine Zeile tiefer
Sleep(1500)
ToolTip("")
EndSwitch
Sleep(150)
Next

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

MsgBox(0,"","Die Checkboxen sind fertig. Wir haben jetzt alle IDs in einem Array. Also in einer übersichtlichen Liste. "&@CRLF&"Die ID ist das, was beim erstellen einer Control (also einem Lable, einer Checkbox, einem Button usw.) zurückgegeben wird. "&@CRLF&@CRLF&"Wenn du z.B: schreibst"&@CRLF&"$Button = GUICtrlCreateButton()"&@CRLF&"dann enthält $Button die Control ID (z.B.: 12). Probier es aus: Erstelle einmal einen Button, und schreibe darunter"&@CRLF&"MsgBox(0,"",$Button)."&@CRLF&@CRLF&"Ich zeige dir nun wie der Array aussieht ;)")
_ArrayDisplay($Checkbox)
MsgBox(0,"","Es ist also quasi eine Liste nach folgendem Schema (nur hast du sie mit seeeehr viel weniger Arbeit erstellt):"&@CRLF&"$Checkbox1"&@CRLF&"$Checkbox2"&@CRLF&"$Checkbox3"&@CRLF&"$Checkbox4"&@CRLF&"$Checkbox5"&@CRLF&"$Checkbox6"&@CRLF&"$Checkbox7"&@CRLF&"$Checkbox8"&@CRLF&"$Checkbox9"&@CRLF&"$Checkbox10")

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

$Laden = GUICtrlCreateButton("Laden", 8, 312, 75, 25, $WS_GROUP)
$Speichern = GUICtrlCreateButton("Speichern", 88, 312, 75, 25, $WS_GROUP)
$Ausfuehren = GUICtrlCreateButton("Ausführen", 8, 344, 155, 25, $WS_GROUP)

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

#endregion

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

#region - GUI SelectLoop
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Speichern
_Speichern()
Case $Laden
_Laden()
Case $Checkbox[99] ; Die musst du schon selber suchen
MsgBox(0,"","WOW! DU hast die geheime Checkbox Nr 99 gefunden! Wie du siehst kann man auch einzelnen Checkboxen noch Funktionen zuweisen!")
MsgBox(0,"","Das geht übrigens AUCH in schleifen. Ich habe im Quelltext mal ein Beispiel gemacht, bei dem ein klick auf jede 7te Checkbox eine Aktion auslöst.")
EndSwitch
;---> Hier ist dieses Beispiel (Es ist ganz wichtig, dass es außerhalb des Select-Endselect / Switch-Endswitch-Bereiches steht.
;---> Bei dieser Schleife müssen wir mit 7 starten. Damit es 7-14-21-28-35 usw. geht. Sonst wäre es eine 1-8-15-22-29 usw Schleife.
;~ For $i = 7 to 120 Step 7 ;--> Hier wird die komplette Schleife in 7er Schritten abgearbeitet. Also jede 7te Checkbox wird überprüft.
;~ If $msg = $Checkbox[$i] Then MsgBox(0,"","Die Checkbox Nr."&$i&" ist angeklickt. Diese Checkbox hat die ID: "&$Checkbox[$i]&@CRLF&@CRLF&"Das war übrigens eine Checkbox in der For-Next-Step 7 - Schleife.",10)
;~ Next
WEnd
#endregion

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

Func _Speichern()
$Ini = FileSaveDialog("Speichern...",@ScriptDir,"Ini-Dateien (*.ini)")
If not @error Then ; falls kein Fehler (zb schließen des Speichern-Fensters) aufgetreten ist, führe die Aktionen zum Speichern aus
MsgBox(0,"","Okey, wir gehen jetzt jede Checkbox, die im Array ist durch. Das ist das gleiche wie wenn du schreibst"&@CR&"If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then ..."&@CR&"If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then...,"&@CR&"Mit der Ausnahme, dass es kürzer und SCHNELLER ist! (und weeeeeeniger Tipparbeit!)")
For $i = 1 to 120 ; Hier sollte man besser Ubound($Checkbox)-1 benutzen. Sonst müsstest du, wenn du statt 120 vielleicht mal 140 Checkboxen einbauen willst,
; diesen Wert für jede Schleife Von Hand ändern.
If GUICtrlRead($Checkbox[$i]) = $GUI_CHECKED Then
MsgBox(0,"","Die Checkbox Nr."&$i&" ist angeklickt. Diese Checkbox hat die ID: "&$Checkbox[$i],3)
IniWrite($Ini,"Checkboxen","Checkbox"&$i,1) ; Wenn die Checkbox angehakt war, dann schreibe das in die Ini
Else
IniWrite($Ini,"Checkboxen","Checkbox"&$i,0) ; Wenn nicht, schreibe es auch in die Ini! (also dass sie nicht angehackt war)
EndIf
Next
If MsgBox(4,"","Mit dem schreiben der .ini sind wir jetzt fertig. Willst du Sie dir mal ansehen?") = 6 Then ShellExecute($Ini)
EndIf
EndFunc

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

Func _Laden()
$Ini = FileOpenDialog("Laden...",@ScriptDir,"Ini-Dateien (*.ini)") ;Wählt die Datei aus
If Not @error Then ; falls die Datei erfolgreich ausgewählt wurde (Dialog nicht geschlossen usw),
MsgBox(0,"","Jetzt lesen wir die .ini Datei ein. Und versuchen die Werte für 'Checkbox1'-'Checkbox120' einzulesen. Wenn der Wert nicht gefunden werden konnte, gilt das automatisch als 'nicht angehakt', wegen dem letzen parameter von IniRead(): Dem Default wert. Dieser Gibt an, welcher wert benutzt werden soll, wenn der 'Schlüssel' in der Ini nicht gefunden wird. Wenn er also versucht den Wert von Checkbox 20 aus der Ini zu lesen, aber das wort 'Checkbox20' nicht findet, dann gibt der Default Parameter an, welcher Wert stattdessen benutzt werden soll.")
For $i = 1 to 120 ;hier wieder die altbekannt Schleife mit 120 Durchläufen.
If IniRead($Ini,"Checkboxen","Checkbox"&$i,0) = 1 Then
MsgBox(0,"","Laut .ini Datei war Checkbox"&$i&" angeklickt. Das Skript stellt diesen zustand also wieder her ( GUICtrlSetState($Checkbox["&$i&"],$GUI_CHECKED) )")
GUICtrlSetState($Checkbox[$i],$GUI_CHECKED)
Else
GUICtrlSetState($Checkbox[$i],$GUI_UNCHECKED)
EndIf
Next
EndIf
EndFunc

[/autoit]

Kleiner

So Heute schreiben wir ~~eine Klausur~~ Test ! (sind wir mal nicht ganz so Streng)

Also sp3333dy was hast du die letzten 4 Tage gelernt?

Array: Wie werden Array aufgebaut______?
Aus welchem Grund benutzt man Array_______?
For … Next: Wie Funktioniert eine For Next schleife______?
Aus welchem Grund benutzt man For Next schleifen______?
*.Ini: Wie ist eine *.ini aufgebaut______?
Ab wo ist der erste Eintrag im Array_______?
Ab wo ist der erste Eintrag im *.Ini_______?
Wo lest sich der Index bei *.iniArray ermitteln____________?
Was bedeutet in einer IF abfrage das Not , Or und das And ________?

Bewertung von 1-6

Edit: Zeit von 06:39 bis 20:00 Uhr

Lg Kleiner

sp3333dy

Vielen dank an dich Seubo, hast große arbeit geleistet udn ich hab auch das meiste daavon kapiert .. nur eines nicht

du hast in diesen beispiel einer checkbox einen befehl zugeordnet wenn man drauf klickt okay kapiert und das untere kommentierte beispiel kann ich mit jeder checkbox eine msg ausgeben wo als info die ID angegeben ist aber wie kann ich nun jeder checkbox einen eigenen befehl zu ordnen sobald man dann auf den button ausführen klickt ?

zb checkbox 1 is angeklickt und checkbox 2 dann geht man auf ausführen und es wird eine datei verschoben und irg wo hingeklickt auf den bildschirm, wie ich das mache weis ich nich

[autoit]

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Speichern
_Speichern()
Case $Laden
_Laden()
Case $Checkbox[99] ; Die musst du schon selber suchen
MsgBox(0,"","WOW! DU hast die geheime Checkbox Nr 99 gefunden! Wie du siehst kann man auch einzelnen Checkboxen noch Funktionen zuweisen!")
MsgBox(0,"","Das geht übrigens AUCH in schleifen. Ich habe im Quelltext mal ein Beispiel gemacht, bei dem ein klick auf jede 7te Checkbox eine Aktion auslöst.")
EndSwitch
;---> Hier ist dieses Beispiel (Es ist ganz wichtig, dass es außerhalb des Select-Endselect / Switch-Endswitch-Bereiches steht.
;---> Bei dieser Schleife müssen wir mit 7 starten. Damit es 7-14-21-28-35 usw. geht. Sonst wäre es eine 1-8-15-22-29 usw Schleife.
;~ For $i = 7 to 120 Step 7 ;--> Hier wird die komplette Schleife in 7er Schritten abgearbeitet. Also jede 7te Checkbox wird überprüft.
;~ If $msg = $Checkbox[$i] Then MsgBox(0,"","Die Checkbox Nr."&$i&" ist angeklickt. Diese Checkbox hat die ID: "&$Checkbox[$i]&@CRLF&@CRLF&"Das war übrigens eine Checkbox in der For-Next-Step 7 - Schleife.",10)
;~ Next
WEnd

[/autoit]

SEuBo

Ganz einfach: Mit einem Array und dem Befehl Execute() (der führt einen AutoIt Befehl aus)
Hier ein Beispiel, das musst du dann entsprechend in deine GUI einbauen

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <GUIConstantsEx.au3>
Global $Checkbox[21]

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

;Wir schreiben alle Befehle in einen Array!
;So die lange Form (Nur zum Verständniss)

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

;~ Global $Befehle[21]
;~ $Befehle[0] = 'MouseMove(200,300)'
;~ $Befehle[1] = 'MsgBox(0,"","Hallo!")'
;~ $Befehle[2] = 'ConsoleWrite("Ich bins, nummer 2!"@CRLF)'
;~ $Befehle[3] = 'WinMinimizeAll()'
;~ $Befehle[4] = 'ShellExecute("calc.exe")'
;~ $Befehle[5] = '_ArrayDisplay($Befehle)'
;~ $Befehle[6] = 'ConsoleWrite("Ich bins, nummer 6!"@CRLF)'
;~ $Befehle[7] = 'MouseMove(500,600)'
;~ $Befehle[8] = 'MsgBox(0,"","Miau!")'
;~ $Befehle[9] = 'ShellExecute("notepad.exe")'
;~ $Befehle[10] = 'MouseMove(900,250)'
;~ $Befehle[11] = 'MsgBox(0,"","Hallööchen!")'
;~ $Befehle[12] = 'ConsoleWrite("Ich bins, nummer 12!"@CRLF)'
;~ $Befehle[13] = 'WinMinimizeAllUndo()'
;~ $Befehle[14] = 'ShellExecute("paint.exe")'
;~ $Befehle[15] = '_ArrayDisplay($Checkbox)'
;~ $Befehle[16] = 'ConsoleWrite("Ich bins, nummer 16!"@CRLF)'
;~ $Befehle[17] = 'MouseMove(500,600)'
;~ $Befehle[18] = 'MsgBox(0,"","Wuff!")'
;~ $Befehle[19] = 'ShellExecute("www.autoit.de")'
;~ $Befehle[20] = 'MsgBox(0,"","Das war die letzte")'

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

;Die Kurzform wäre:
Global $Befehle[21] = ['MouseMove(200,300)','MsgBox(0,"","Hallo!")','ConsoleWrite("Ich bins, nummer 2!"@CRLF)','WinMinimizeAll()','ShellExecute("calc.exe")','_ArrayDisplay($Befehle)','ConsoleWrite("Ich bins, nummer 6!"@CRLF)','MouseMove(500,600)','MsgBox(0,"","Miau!")','ShellExecute("notepad.exe")','MouseMove(900,250)','MsgBox(0,"","Hallööchen!")','ConsoleWrite("Ich bins, nummer 12!"@CRLF)','WinMinimizeAllUndo()','ShellExecute("paint.exe")','_ArrayDisplay($Checkbox)','ConsoleWrite("Ich bins, nummer 16!"@CRLF)','MouseMove(500,600)','MsgBox(0,"","Wuff!")','ShellExecute("www.autoit.de")','MsgBox(0,"","Das war die letzte")']

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

Global $y = 24

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

$GUI = GUICreate("GUI",200,700)
For $i = 1 To 20
$Checkbox[$i] = GUICtrlCreateCheckbox("Checkbox"&$i,20,$y)
$y += 24
Next
$Run = GUICtrlCreateButton("Ausführen",20,670)
GUISetState(@SW_SHOW)

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

_ArrayDisplay($Befehle)
While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
Case $Run
For $i = 1 to 20
If GUICtrlRead($Checkbox[$i]) = $GUI_CHECKED Then Execute($Befehle[$i])
Next
EndSwitch
WEnd

[/autoit]

sp3333dy

Danke dir noch ma habe alles hin bekommen, und habe es auch verstanden was ich mache hehe.

nun noch eine frage: sagen wir das mit den checkboxen ist GUI2 und wir haben noch eien GUI 1 und ich hätte gerne den ausführungsbutton auf der GUI1 würde das gehen ? das man in den checkboxen feld nur als einstellungsfeld nimmt und zum laden und speichern ?

SEuBo

ja