Beiträge von Alina

**Alina**

Hallo Oscar.

Wenn ich eine oder beide Combobox(en) deaktivieren, dann steht in der INI immer noch

Spoiler anzeigen

[autoit]

[parameter]
MAXAGE=/MAXAGE:9
MINAGE=/MINAGE:0

[/autoit]

und dabei soll, wenn die MAXAGE-Combobox deaktiviert ist so aus sehen:

Spoiler anzeigen

[autoit]

[parameter]
MAXAGE=
MINAGE=/MINAGE:0

[/autoit]

wenn die MINAGE-Combobox deaktiviert ist so aus sehen:

Spoiler anzeigen

[autoit]

[parameter]
MAXAGE=/MAXAGE:9
MINAGE=

[/autoit]

und wenn beide deaktiviert sind dann halt so:

Spoiler anzeigen

[autoit]

[parameter]
MAXAGE=
MINAGE=

[/autoit]

Kann man das noch mit abfragen?

**Alina**

Zitat von Dr.Doktor

(6)Wo kann ich Fehler die ich in der Hilfe finde mitteilen /selber verbessern?

Also wenn Du dich auf die deutsche Hilfe beziehen möchtest, wäre dieser Bereich auswählbar: Fragen Deutsche Hilfe.

**Alina**

Hallo Schnuffel.

Also so wie hier, läuft es bis auf einen Punkt richtig.

Script:

Spoiler anzeigen

[autoit]

#include<File.au3>
#include<GUIConstantsEx.au3>
#include <ButtonConstants.au3>

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

$ini0 = @ScriptDir & "\test.ini"
$ini2 = @ScriptDir & "\para.ini"

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

If Not FileExists($ini0) Then _FileCreate($ini0)

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

Dim $DTM_SETFORMAT_, $style

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

$Form1 = GUICreate("44_45_46_47_CB_RB_RB", 360, 380, 193, 125)

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

GUICtrlCreateGroup('MaxAge', 10, 10, 340, 100)
$Combobox46 = GUICtrlCreateCheckbox("aktivieren", 20, 30, 89, 15)
$Radio60 = GUICtrlCreateRadio("Radio60", 20, 55, 60, 15)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio61 = GUICtrlCreateRadio("Radio61", 20, 80, 60, 15)
$Input23 = GUICtrlCreateInput("1899", 100, 53, 33, 21)
$Date1 = GUICtrlCreateDate("2009/09/21 16:08:49", 100, 77, 90, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$DTM_SETFORMAT_ = 0x1032
$style = "dd.MM.yyyy"; HH:mm:ss"
GUICtrlSendMsg($Date1, $DTM_SETFORMAT_, 0, $style)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

GUICtrlCreateGroup('MinAge', 10, 120, 340, 100)
$Combobox47 = GUICtrlCreateCheckbox("aktivieren", 20, 140, 89, 15)
$Radio62 = GUICtrlCreateRadio("Radio62", 20, 165, 60, 15)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio63 = GUICtrlCreateRadio("Radio63", 20, 190, 60, 15)
$Input24 = GUICtrlCreateInput("1", 100, 163, 33, 21)
$Date2 = GUICtrlCreateDate("2009/09/21 16:08:49", 100, 187, 90, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$DTM_SETFORMAT_ = 0x1032
$style = "dd.MM.yyyy"; HH:mm:ss"
GUICtrlSendMsg($Date2, $DTM_SETFORMAT_, 0, $style)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Button2 = GUICtrlCreateButton("A U S G A B E", 5, 348, 346, 25, 0, $BS_CENTER)

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

Global $a_cb46[5] = [$Combobox46,$Radio60,$Radio61,$Input23,$Date1]
Global $a_cb47[5] = [$Combobox47,$Radio62,$Radio63,$Input24,$Date2]

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

_changeState($a_cb46)
_changeState($a_cb47)

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

GUISetState(@SW_SHOW)

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

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

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

Case $a_cb46[0]
IniWrite($ini2, "parameter", "MAXAGE", "")
_changeState($a_cb46)

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

Case $a_cb46[3], $a_cb46[1]
If BitAND(GUICtrlRead($a_cb46[1]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb46[3], $GUI_ENABLE)
GUICtrlSetState($a_cb46[4], $GUI_DISABLE)
If GUICtrlRead($a_cb46[3]) >= 1900 Then
MsgBox(0, "MELDUNG", "Wert maximal 1899")
GUICtrlSetData($a_cb46[3], "")
Else ; kleiner als 1900
IniWriteSection($ini0, "parameter", "MAXAGE=/MAXAGE:" & GUICtrlRead($a_cb46[3]))
IniWrite($ini2, "parameter", "MAXAGE", IniRead($ini0,"parameter", "MAXAGE",""))
EndIf
Else
GUICtrlSetState($a_cb46[3], $GUI_DISABLE)
EndIf

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

Case $a_cb46[2], $a_cb46[4]
If BitAND(GUICtrlRead($a_cb46[2]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb46[4], $GUI_ENABLE)
GUICtrlSetState($a_cb46[3], $GUI_DISABLE)
Local $1_day ; ----------------> Anfang : ;Example_date1()
$1_day = StringSplit(GUICtrlRead($a_cb46[4]), ".", 1)
IniWriteSection($ini0, "parameter", "MAXAGE=/MAXAGE:" & $1_day[3] & $1_day[2] & $1_day[1])
IniWrite($ini2, "parameter", "MAXAGE", IniRead($ini0,"parameter", "MAXAGE",""))
Else
GUICtrlSetState($a_cb46[4], $GUI_DISABLE)
EndIf

Case $a_cb47[0]
IniWrite($ini2, "parameter", "MINAGE", "")
_changeState($a_cb47)

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

Case $a_cb47[3], $a_cb47[1]
If BitAND(GUICtrlRead($a_cb47[1]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb47[3], $GUI_ENABLE)
GUICtrlSetState($a_cb47[4], $GUI_DISABLE)
If GUICtrlRead($a_cb47[3]) >= 1900 Then
MsgBox(0, "MELDUNG", "Wert maximal 1899")
GUICtrlSetData($a_cb47[3], "")
Else ; kleiner als 1900
IniWriteSection($ini0, "parameter", "MINAGE=/MINAGE:" & GUICtrlRead($a_cb47[3]))
IniWrite($ini2, "parameter", "MINAGE", IniRead($ini0,"parameter", "MINAGE",""))
EndIf
Else
GUICtrlSetState($a_cb47[3], $GUI_DISABLE)
EndIf

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

Case $a_cb47[2], $a_cb47[4]
If BitAND(GUICtrlRead($a_cb47[2]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb47[4], $GUI_ENABLE)
GUICtrlSetState($a_cb47[3], $GUI_DISABLE)
Local $1_day ; ----------------> Anfang : ;Example_date1()
$1_day = StringSplit(GUICtrlRead($a_cb47[4]), ".", 1)
IniWriteSection($ini0, "parameter", "MINAGE=/MINAGE:" & $1_day[3] & $1_day[2] & $1_day[1])
IniWrite($ini2, "parameter", "MINAGE", IniRead($ini0,"parameter", "MINAGE",""))
Else
GUICtrlSetState($a_cb47[4], $GUI_DISABLE)
EndIf

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

Case $Button2

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

EndSwitch
WEnd

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

Func _changeState($cID)
Select
Case BitAND(GUICtrlRead($cID[0]), $GUI_CHECKED) = $GUI_CHECKED
For $i = 1 To UBound($cID) - 1
GUICtrlSetState($cID[$i], $GUI_SHOW)
Next
Case Else
For $i = 1 To UBound($cID) - 1
GUICtrlSetState($cID[$i], $GUI_HIDE)
Next
EndSelect
EndFunc ;==>_changeState

[/autoit]

Was nicht läuft oder wie ich nicht weiß wie ich es ändern soll ist, das wenn man in den Input-Felder den Wert ändert, dann muss man immer noch einmal auf Radio60 und oder Radio62 drücken. Sonst werden die Werte aus den/dem Input nicht übernommen.
Wenn man die Checkboxen 46 bzw. 47 deaktieviert, werden die Daten auch in die INI geschrieben, da ich später die INI in einer festen Form benötige. Also nur keinen Wert zuweisen.

Frage ist: "Kann man den jeweiligen Radiobutton irgendwie ansprechen.
Weiß gerade nicht anders es zu erklären.

Danke aber schon jetzt für die Mühe und super Hilfe.

**Alina**

Also so ist das Script doch genauso wie ich es mir vorgestellt habe. Es heißt "Maxage".

Was nun aber, wenn "Maxage" auf "Minage" trifft. Ich weiß nicht wie ich dann aus dem reinen "Maxage" ein "Maxage und ein Minage" mache.

hhhhhm, da mal versuchen ob es so geht, wie ich es mir gerade mal denke. Also bin ich gleich mal dabei das zu testen und wenn es nicht klappt, dann editiere ich hier

Aber "Maxage" ist super geworden. Danke !!!

EDIT: EDIT: EDIT: EDIT: EDIT:

Also ich habe nun "Minage" und "Maxage" im gleichen Verzeichnis.
Aber ich bekomme es nicht hin, aus den beiden Scripten ein komplettes Script zu machen. Ein sogenannten "MinMaxAge".
Der Wert, der in die para.ini geschrieben werden sollen so sein. Er soll den Wert dort übernehmen.

Minage:

Spoiler anzeigen

[autoit]

#include<File.au3>
#include<GUIConstantsEx.au3>
#include <ButtonConstants.au3>

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

$ini0 = @ScriptDir & "\test.ini"
$ini2 = @ScriptDir & "\para.ini"

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

If Not FileExists($ini0) Then _FileCreate($ini0)

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

Dim $a_cb47[5], $DTM_SETFORMAT_, $style

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

$Form1 = GUICreate("44_45_46_47_CB_RB_RB", 360, 180, 193, 125)
GUICtrlCreateGroup('Checkbox47', 10, 10, 340, 100)
$Combobox47 = GUICtrlCreateCheckbox("CB4747", 20, 30, 89, 15)
$Radio62 = GUICtrlCreateRadio("Radio62", 20, 55, 60, 15)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio61 = GUICtrlCreateRadio("Radio63", 20, 80, 60, 15)
$Input24 = GUICtrlCreateInput("1", 100, 53, 33, 21)
$Date2 = GUICtrlCreateDate("2009/09/21 16:08:49", 100, 77, 90, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$DTM_SETFORMAT_ = 0x1032
$style = "dd.MM.yyyy"; HH:mm:ss"
GUICtrlSendMsg($Date2, $DTM_SETFORMAT_, 0, $style)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$a_cb47[0] = $Combobox47
$a_cb47[1] = $Radio62
$a_cb47[2] = $Radio61
$a_cb47[3] = $Input24
$a_cb47[4] = $Date2

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

_changeState($a_cb47)

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

$Button1 = GUICtrlCreateButton("A U S G A B E", 5, 148, 346, 25, 0, $BS_CENTER)
GUISetState(@SW_SHOW)

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

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

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

Case $a_cb47[0]
_changeState($a_cb47)

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

Case $a_cb47[3], $a_cb47[1]
If BitAND(GUICtrlRead($a_cb47[1]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb47[3], $GUI_ENABLE)
GUICtrlSetState($a_cb47[4], $GUI_DISABLE)
If GUICtrlRead($a_cb47[3]) >= 1900 Then
MsgBox(0, "MELDUNG", "Wert maximal 1899")
GUICtrlSetData($a_cb47[3], "1899")
Else ; kleiner als 1900
IniWriteSection($ini0, "parameter", "MINAGE=/MINAGE:" & GUICtrlRead($a_cb47[3]))
IniWrite($ini2, "parameter", "MINAGE", IniRead($ini0,"parameter", "MINAGE","default"))
EndIf
Else
GUICtrlSetState($a_cb47[3], $GUI_DISABLE)
EndIf

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

Case $a_cb47[2], $a_cb47[4]
If BitAND(GUICtrlRead($a_cb47[2]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb47[4], $GUI_ENABLE)
GUICtrlSetState($a_cb47[3], $GUI_DISABLE)
Local $1_day ; ----------------> Anfang : ;Example_date1()
$1_day = StringSplit(GUICtrlRead($a_cb47[4]), ".", 1)
IniWriteSection($ini0, "parameter", "MINAGE=/MINAGE:" & $1_day[3] & $1_day[2] & $1_day[1])
IniWrite($ini2, "parameter", "MINAGE", IniRead($ini0,"parameter", "MINAGE","default"))
Else
GUICtrlSetState($a_cb47[4], $GUI_DISABLE)
EndIf

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

Case $Button1

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

EndSwitch
WEnd

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

Func _changeState($cID)
Select
Case BitAND(GUICtrlRead($cID[0]), $GUI_CHECKED) = $GUI_CHECKED
For $i = 1 To UBound($cID) - 1
GUICtrlSetState($cID[$i], $GUI_SHOW)
Next
Case Else
For $i = 1 To UBound($cID) - 1
GUICtrlSetState($cID[$i], $GUI_HIDE)
IniWriteSection($ini0, "parameter", "MINAGE=")
IniWrite($ini2, "parameter", "MINAGE", IniRead($ini0,"parameter", "MINAGE","default"))
Next
EndSelect
EndFunc ;==>_changeState

[/autoit]

Maxage:

Spoiler anzeigen

[autoit]

#include<File.au3>
#include<GUIConstantsEx.au3>
#include <ButtonConstants.au3>

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

$ini3 = @ScriptDir & "\test.ini"
$ini4 = @ScriptDir & "\para.ini"

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

If Not FileExists($ini3) Then _FileCreate($ini3)

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

Dim $a_cb46[5], $DTM_SETFORMAT_, $style

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

$Form1 = GUICreate("44_45_46_47_CB_RB_RB", 360, 180, 193, 125)
GUICtrlCreateGroup('Checkbox46', 10, 10, 340, 100)
$Combobox46 = GUICtrlCreateCheckbox("CB4646", 20, 30, 89, 15)
$Radio60 = GUICtrlCreateRadio("Radio60", 20, 55, 60, 15)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio61 = GUICtrlCreateRadio("Radio61", 20, 80, 60, 15)
$Input23 = GUICtrlCreateInput("1899", 100, 53, 33, 21)
$Date1 = GUICtrlCreateDate("2009/09/21 16:08:49", 100, 77, 90, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$DTM_SETFORMAT_ = 0x1032
$style = "dd.MM.yyyy"; HH:mm:ss"
GUICtrlSendMsg($Date1, $DTM_SETFORMAT_, 0, $style)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$a_cb46[0] = $Combobox46
$a_cb46[1] = $Radio60
$a_cb46[2] = $Radio61
$a_cb46[3] = $Input23
$a_cb46[4] = $Date1

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

_changeState($a_cb46)

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

$Button2 = GUICtrlCreateButton("A U S G A B E", 5, 148, 346, 25, 0, $BS_CENTER)
GUISetState(@SW_SHOW)

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

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

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

Case $a_cb46[0]
_changeState($a_cb46)

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

Case $a_cb46[3], $a_cb46[1]
If BitAND(GUICtrlRead($a_cb46[1]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb46[3], $GUI_ENABLE)
GUICtrlSetState($a_cb46[4], $GUI_DISABLE)
If GUICtrlRead($a_cb46[3]) >= 1900 Then
MsgBox(0, "MELDUNG", "Wert maximal 1899")
GUICtrlSetData($a_cb46[3], "1899")
Else ; kleiner als 1900
IniWriteSection($ini3, "parameter", "MAXAGE=/MAXAGE:" & GUICtrlRead($a_cb46[3]))
IniWrite($ini4, "parameter", "MAXAGE", IniRead($ini3,"parameter", "MAXAGE","default"))
EndIf
Else
GUICtrlSetState($a_cb46[3], $GUI_DISABLE)
EndIf

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

Case $a_cb46[2], $a_cb46[4]
If BitAND(GUICtrlRead($a_cb46[2]), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState($a_cb46[4], $GUI_ENABLE)
GUICtrlSetState($a_cb46[3], $GUI_DISABLE)
Local $1_day ; ----------------> Anfang : ;Example_date1()
$1_day = StringSplit(GUICtrlRead($a_cb46[4]), ".", 1)
IniWriteSection($ini3, "parameter", "MAXAGE=/MAXAGE:" & $1_day[3] & $1_day[2] & $1_day[1])
IniWrite($ini4, "parameter", "MAXAGE", IniRead($ini3,"parameter", "MAXAGE","default"))
Else
GUICtrlSetState($a_cb46[4], $GUI_DISABLE)
EndIf

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

Case $Button2

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

EndSwitch
WEnd

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

Func _changeState($cID)
Select
Case BitAND(GUICtrlRead($cID[0]), $GUI_CHECKED) = $GUI_CHECKED
For $i = 1 To UBound($cID) - 1
GUICtrlSetState($cID[$i], $GUI_SHOW)
Next
Case Else
For $i = 1 To UBound($cID) - 1
GUICtrlSetState($cID[$i], $GUI_HIDE)
IniWriteSection($ini3, "parameter", "MAXAGE=")
IniWrite($ini4, "parameter", "MAXAGE", IniRead($ini3,"parameter", "MAXAGE","default"))
Next
EndSelect
EndFunc ;==>_changeState

[/autoit]

Die Frage ist: Was muss ich aus Maxage in Minage übernehmen bzw. was muss ich in der Minage ändern um beide Scripte in eines zu bekommen. Die GUI anpassen von den Positionen der Boxen , Button ... ist klar, aber von den nicht grafischen Elementen blicke ich da nicht durch.

**Alina**

Schnuffel?
Da blicke ich gar nicht durch.

Mhhhh, das ist jetzt aber ....

Naja, mache ich erst einmal die ganzen anderen Scripte und schaue dann wie ich weiter komme. Danke aber dennoch für die Mühe.

Edit: 23-09-2009 ; 23:51 (/MESZ)
Konnte die Finger nicht davon lassen und habe weiter ausprobiert. Was nämlich, wenn die Combobox wieder deaktiviert (Harken raus) wird?
Aber das mache ich wie immer dann so, das ich den Wert in der INI-Datei auf ""NULL" setze". Halt nicht drinne.

Also so meine ich blicke ich da doch durch und kann es einarbeiten später. Erst mal alle anderen Scripte noch vorscripten

Und Danke nochmals an Schnuffel.

Spoiler anzeigen

[autoit]

#include<File.au3>
#include<GUIConstantsEx.au3>
#include <ButtonConstants.au3>

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

$ini = @ScriptDir & "\test.ini"
If Not FileExists($ini) Then _FileCreate($ini)

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

Dim $a_cb46[1][5]

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

$Form1 = GUICreate("44_45_46_47_CB_RB_RB", 360, 180, 193, 125)
GUICtrlCreateGroup('Checkbox46',10,10,340,100)
$Combobox46 = GUICtrlCreateCheckbox("CB4646", 20, 30, 89, 15)
$Radio60 = GUICtrlCreateRadio("Radio60", 20, 55, 60, 15)
$Radio61 = GUICtrlCreateRadio("Radio61", 20, 80, 60, 15)
$Input23 = GUICtrlCreateInput("1899", 100, 53, 33, 21)
$Date1 = GUICtrlCreateDate("2009/09/21 16:08:49", 100, 77, 186, 21)

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

$a_cb46[0][0] = $Combobox46
$a_cb46[0][1] = $Radio60
$a_cb46[0][2] = $Radio61
$a_cb46[0][3] = $Input23
$a_cb46[0][4] = $Date1

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

_changeState($a_cb46)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$Button1 = GUICtrlCreateButton("A U S G A B E", 5, 148, 346, 25, 0, $BS_CENTER )
GUISetState(@SW_SHOW)

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

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

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

Case $a_cb46[0][0]
_changeState($a_cb46)

Case $a_cb46[0][3], $a_cb46[0][1]
if BitAND(GUICtrlRead($a_cb46[0][1]), $GUI_CHECKED) = $GUI_CHECKED And GUICtrlRead($a_cb46[0][3]) >=1900 Then
Msgbox(0,"MELDUNG", "Wert maximal 1899")
GUICtrlSetData($a_cb46[0][3],"1899")
EndIf

If BitAND(GUICtrlRead($a_cb46[0][1]), $GUI_CHECKED) = $GUI_CHECKED AND GUICtrlRead($a_cb46[0][3]) <=1899 Then
IniWriteSection($ini,"parameter","MAXAGE="&GUICtrlRead($a_cb46[0][3]))
EndIf

Case $a_cb46[0][2], $a_cb46[0][4]
If BitAND(GUICtrlRead($a_cb46[0][2]), $GUI_CHECKED) = $GUI_CHECKED Then
Local $DTM_SETFORMAT_, $style, $1_day ; ----------------> Anfang : ;Example_date1()
; Um ein bestimmtes Standardformat auszuwählen
$DTM_SETFORMAT_ = 0x1032
$style = "dd.MM.yyyy"; HH:mm:ss"
GUICtrlSendMsg($a_cb46[0][4], $DTM_SETFORMAT_, 0, $style)
;GUISetState()
$1_day = StringSplit(GUICtrlRead($a_cb46[0][4]),".",1)
IniWriteSection($ini,"parameter","MAXAGE="&$1_day[3]&$1_day[2]&$1_day[1])
EndIf

Case $Button1

EndSwitch
WEnd

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

Func _changeState($cID)
Select
Case BitAND(GUICtrlRead($cID[0][0]), $GUI_CHECKED) = $GUI_CHECKED
For $i = 1 To $cID[0][0]
GUICtrlSetState($cID[0][$i], $GUI_SHOW)
Next
Case Else
For $i = 1 To $cID[0][0]
GUICtrlSetState($cID[0][$i], $GUI_HIDE)
IniWriteSection($ini,"parameter","MAXAGE=")
Next
EndSelect
EndFunc ;==>_changeState

[/autoit]

**Alina**

So geht das ja, aber ich möchte es in eine Funktion legen.

Spoiler anzeigen

[autoit]

#include<File.au3>
#include<GUIConstantsEx.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("44_45_46_47_CB_RB_RB", 362, 80, 193, 125)
$Checkbox46 = GUICtrlCreateCheckbox("Checkbox46", 5, 5, 89, 15)
$Radio1 = GUICtrlCreateRadio("Radio60", 100, 5, 60, 15)
$Radio2 = GUICtrlCreateRadio("Radio61", 100, 28, 57, 15)
$Input23 = GUICtrlCreateInput("1899", 165, 2, 33, 21)
$Date1 = GUICtrlCreateDate("2009/09/21 16:08:49", 165, 25, 186, 21)
$Button1 = GUICtrlCreateButton(" A U S G A B E ", 5, 48, 346, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

$checked = 0
GUICtrlSetState($Radio1, $GUI_DISABLE)
GUICtrlSetState($Radio2, $GUI_DISABLE)

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

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

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

Case $Checkbox46
_changeState($Checkbox46, $Radio1)
_changeState($Checkbox46, $Radio2)

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

Case $Radio1
if GUICtrlSetState($Radio1, $GUI_CHECKED) And GUICtrlRead($Input23) >=1900 Then
Msgbox(0,"MELDUNG", "Wert maximal 1899")
GUICtrlSetData($Input23,"1899")
EndIf

If GUICtrlSetState($Radio1, $GUI_CHECKED) AND GUICtrlRead($Input23) <=1899 Then
_FileCreate(@ScriptDir & "\44_45_46_47.txt")
FileOpen(@ScriptDir & "\44_45_46_47.txt",1)
FileWrite(@ScriptDir & "\44_45_46_47.txt", GUICtrlRead($Input23))
FileClose(@ScriptDir & "\44_45_46_47.txt")
Msgbox(0,"MELDUNG", GUICtrlRead($Input23)) ; nur zum testen
EndIf

Case $Radio2
If GUICtrlSetState($Radio2, $GUI_CHECKED) Then
Local $Date1, $DTM_SETFORMAT_, $style, $1_day ; ----------------> Anfang : ;Example_date1()
; Um ein bestimmtes Standardformat auszuwählen
$DTM_SETFORMAT_ = 0x1032
$style = "dd.MM.yyyy"; HH:mm:s"
GUICtrlSendMsg($Date1, $DTM_SETFORMAT_, 0, $style)
GUISetState()
$1_day = StringSplit(GUICtrlRead($Date1),".",1)
_FileCreate(@ScriptDir & "\44_45_46_47.txt")
FileOpen(@ScriptDir & "\44_45_46_47.txt",1)
FileWrite(@ScriptDir & "\44_45_46_47.txt", $1_day[3]&$1_day[2]&$1_day[1])
FileClose(@ScriptDir & "\44_45_46_47.txt")
MsgBox(0, "Zeit", $1_day[3]&$1_day[2]&$1_day[1]) ; ----------------> Ende : ;Example_date1() ; nur zum testen
EndIf

Case $Button1

EndSwitch
WEnd

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

Func _changeState($cID, $C1)
If GUICtrlRead($cID) = $GUI_CHECKED Then
GUICtrlSetState($C1, $GUI_ENABLE)
Else
GUICtrlSetState($C1, $GUI_DISABLE)
EndIf
EndFunc ;==>_changeState

[/autoit]

Nur es soll direkt in die INI schreiben und nicht wie hier in eine Text-Datei. Dazu halt das es in eine Funktion rein soll.

**Alina**

Script:

Spoiler anzeigen

[autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("44_45_46_47_CB_RB_RB", 362, 80, 193, 125)
$Checkbox46 = GUICtrlCreateCheckbox("Checkbox46", 5, 5, 89, 15)
$Radio60 = GUICtrlCreateRadio("Radio60", 100, 5, 60, 15)
$Radio61 = GUICtrlCreateRadio("Radio61", 100, 28, 57, 15)
$Input23 = GUICtrlCreateInput("1899", 165, 2, 33, 21)
$Date1 = GUICtrlCreateDate("2009/09/21 16:08:49", 165, 25, 186, 21)
$Button1 = GUICtrlCreateButton(" A U S G A B E ", 5, 48, 346, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

$checked = 0
GUICtrlSetState($Radio60, $GUI_DISABLE)
GUICtrlSetState($Radio61, $GUI_DISABLE)

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

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

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

Case $Checkbox46 ; Muss in der While bleiben !!!
_changeState($Checkbox46, $Radio60)
_changeState($Checkbox46, $Radio61)

Case $Button1
_maxage()
EndSwitch
WEnd

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

Func _changeState($cID, $C1)
If GUICtrlRead($cID) = $GUI_CHECKED Then
GUICtrlSetState($C1, $GUI_ENABLE)
GUICtrlSetState($C1, $GUI_UNCHECKED)
Else
GUICtrlSetState($C1, $GUI_DISABLE)
EndIf
EndFunc ;==>_changeState

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

Func _maxage()
If BitAND(GUICtrlRead($Checkbox46), $GUI_CHECKED) AND BitAND(GUICtrlRead($Radio60), $GUI_CHECKED) AND GUICtrlRead($Input23) <=1900 Then
if GUICtrlRead($Input23) >=1900 Then
Msgbox(0,"MELDUNG", "Wert maximal 1899")
GUICtrlSetData($Input23,"1899")
EndIf
endif

If BitAND(GUICtrlRead($Checkbox46), $GUI_CHECKED) AND BitAND(GUICtrlRead($Radio60), $GUI_CHECKED) AND GUICtrlRead($Input23) >=1899 Then
IniWrite(@ScriptDir & "\para.ini","parameter","MAXAGE", "/MAXAGE:" & GUICtrlRead($Input23))
Msgbox(0,"MELDUNG", GUICtrlRead($Input23)) ; nur zum testen
EndIf

If GUICtrlSetState($Radio61, $GUI_CHECKED) Then
Local $Date1, $DTM_SETFORMAT_, $style, $1_day ; ----------------> Anfang : ;Example_date1()
; Um ein bestimmtes Standardformat auszuwählen
$DTM_SETFORMAT_ = 0x1032
$style = "dd.MM.yyyy"; HH:mm:s"
GUICtrlSendMsg($Date1, $DTM_SETFORMAT_, 0, $style)
GUISetState()

$1_day = StringSplit(GUICtrlRead($Date1),".",1)
IniWrite(@ScriptDir & "\para.ini","parameter","MAXAGE", '/MAXAGE:' & $1_day[3]&$1_day[2]&$1_day[1])
MsgBox(0, "Zeit", $1_day[3]&$1_day[2]&$1_day[1]) ; ----------------> Ende : ;Example_date1() ; nur zum testen
EndIf
EndFunc

[/autoit]

1.) Warum schreibt er die Werte nicht in die INI-Datei?

2.) Wie behebe ich folgende Fehlermeldung ?
F:\MAXAge_and_Cbox.au3 (72) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
IniWrite(@ScriptDir & "\para.ini","parameter","MAXAGE", '/MAXAGE:' & $1_day[3]&$1_day[2]&$1_day[1])
IniWrite(@ScriptDir & "\para.ini","parameter","MAXAGE", '/MAXAGE:' & ^ ERROR

3.) wenn ich ein neues Datum oder eine Tageszahl angebe, dann muß ich immer wieder auf den Radiobutton drücken, damit es übernommen werd. Wie kann ich das beheben? Eigentlich bleibt der Radiobutton ja ausgewählt, wenn ich eine neue Zahl eingebe oder ein anderes Datum sucht, was ja logisch ist, nur ich bekomme die Daten nicht erneuert.

Danke bereits an dieser Stelle.

**Alina**

@ Xenobiologist
Könntest Du die beiden Vorschläge kurz erklären. Wieso machst Du es so?

Ich meindas da ein Fehler drinne ist.

Wenn ich Radio 2 auswähle und dann Radio 1, dann stehen beide werte drinne.

Ändere ich den Bereich so:

Spoiler anzeigen

[autoit]

Case $Radio1
If GUICtrlSetState($Radio1, $GUI_CHECKED) Then
_FileCreate(@ScriptDir & "\44_45_46_47.txt") <---- Datei neu erstellen vor dem speichern.
$fH = FileOpen(@ScriptDir & "\44_45_46_47.txt", 1)
FileWrite($fH, GUICtrlRead($Input23))
FileClose($fH)
MsgBox(0, "MELDUNG", GUICtrlRead($Input23)) ; nur zum testen
EndIf

[/autoit]

ist die Dateiausgabe in Ordnung.

**Alina**

Hallo zusammen.

Ich hatte folgendes, was ich lösen mußte.

Ich habe ein Combofeld. Nur wenn dieses ausgewählt ist, dann kann man sich zwischen dem Radio1-Button und dem Radio2-Button entscheiden.
Das war schnell gemacht.
Entscheidet man sich für Radio1, dann soll als erstes geprüft werden, ab die Angabe im Inputfeld eine Zahl kleiner gleich 1899 ist. Wenn Nein, dann "Meckermeldung" und setzen des maximalen zugelassenen Wertes in das Inputfeld zurück. Wenn der eingegebene Wert kleiner gleich 1899 ist, dann die Zahl in eine Datei schreiben.
Entscheidet man sich für Radio2, soll das aus dem Kalender ausgewählte Datum in die gleiche Datei geschrieben werden, aber der Alte Inhalt muß vorher gelöscht werden.
Habe einfach die Datei neu erstellen lassen, was sicherlich nicht die brave englische Art ist, aber erstens bin ich Dänin und zweitens sind wir doch hier in Deutschland.

Nehme gerne Verbesserungsvorschläge an, denn so lernt Frau ja auch dazu.

Hier das Script:

Spoiler anzeigen

[autoit]

#cs
Script Nr. 17 von 81 für Projekt "Grafische Oberfläche X_26"
#ce
#include<File.au3>
#include<GUIConstantsEx.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("44_45_46_47_CB_RB_RB", 362, 80, 193, 125)
$Checkbox46 = GUICtrlCreateCheckbox("Checkbox46", 5, 5, 89, 15)
$Radio1 = GUICtrlCreateRadio("Radio60", 100, 5, 60, 15)
$Radio2 = GUICtrlCreateRadio("Radio61", 100, 28, 57, 15)
$Input23 = GUICtrlCreateInput("1899", 165, 2, 33, 21)
$Date1 = GUICtrlCreateDate("2009/09/21 16:08:49", 165, 25, 186, 21)
$Button1 = GUICtrlCreateButton(" A U S G A B E ", 5, 48, 346, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

$checked = 0
GUICtrlSetState($Radio1, $GUI_DISABLE)
GUICtrlSetState($Radio2, $GUI_DISABLE)

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

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

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

Case $Checkbox46
IF $checked = 0 Then
GUICtrlSetState($Radio1, $GUI_ENABLE)
GUICtrlSetState($Radio2, $GUI_ENABLE)
$checked = 1

Else
GUICtrlSetState($Radio1, $GUI_DISABLE)
GUICtrlSetState($Radio2, $GUI_DISABLE)
$checked = 0
EndIf

Case $Radio1
if GUICtrlSetState($Radio1, $GUI_CHECKED) And GUICtrlRead($Input23) >=1900 Then
Msgbox(0,"MELDUNG", "Wert maximal 1899")
GUICtrlSetData($Input23,"1899")
EndIf

If GUICtrlSetState($Radio1, $GUI_CHECKED) AND GUICtrlRead($Input23) <=1899 Then
_FileCreate(@ScriptDir & "\44_45_46_47.txt")
FileOpen(@ScriptDir & "\44_45_46_47.txt",1)
FileWrite(@ScriptDir & "\44_45_46_47.txt", GUICtrlRead($Input23))
FileClose(@ScriptDir & "\44_45_46_47.txt")
Msgbox(0,"MELDUNG", GUICtrlRead($Input23)) ; nur zum testen
EndIf

Case $Radio2
If GUICtrlSetState($Radio2, $GUI_CHECKED) Then
Local $Date1, $DTM_SETFORMAT_, $style, $1_day ; ----------------> Anfang : ;Example_date1()
; Um ein bestimmtes Standardformat auszuwählen
$DTM_SETFORMAT_ = 0x1032
$style = "dd.MM.yyyy"; HH:mm:s"
GUICtrlSendMsg($Date1, $DTM_SETFORMAT_, 0, $style)
GUISetState()
$1_day = StringSplit(GUICtrlRead($Date1),".",1)
_FileCreate(@ScriptDir & "\44_45_46_47.txt")
FileOpen(@ScriptDir & "\44_45_46_47.txt",1)
FileWrite(@ScriptDir & "\44_45_46_47.txt", $1_day[3]&$1_day[2]&$1_day[1])
FileClose(@ScriptDir & "\44_45_46_47.txt")
MsgBox(0, "Zeit", $1_day[3]&$1_day[2]&$1_day[1]) ; ----------------> Ende : ;Example_date1() ; nur zum testen
EndIf

Case $Button1

EndSwitch
WEnd

[/autoit]

**Alina**

Poste bitte das Script was Du bis dato fertig hast, so das man sich das ansehen kann und ggf. eine Lsg. posten kann.

**Alina**

Zitat von vivus

...
==> $ret = StringRegExp(FileRead($file), '(?:EAN-Code: )(\d+)', 3) <== erklären ?
den Teil :: (?:EAN-Code: )(\d+) ???? da hört's bei mir auf ..
...

Da kann ich nur empfehlen diese Seite mal anzuschauen: BugFix's Erklärung. Evtl. hilft es Dir.

**Alina**

Schau mal bei FileInstall:
Include and install a file with the compiled script.
Bindet eine Datei in das kompilierte Skript ein und kopiert sie in das angegebene Verzeichnis.

FileInstall ( "source", "dest" [, flag] )
Bsp.: FileInstall("C:\test.bmp", "D:\mydir\test.bmp")

**Alina**

Moin Moin, Dr.Doktor.

Herzlich Willkomm Im Forum

Und Viel Spass Und Erfolg !!!

**Alina**

Auch noch nachträglich alles Gute und viel Gesundheit zum Purzeltag!

**Alina**

Raupi : D A N K E !!!

**Alina**

Eine Frage noch.

Kann ich am Anfang auch gleich Daten aus der vorlage.txt ins $List1 einlesen?
Dann braucht man die später nicht immer neu eingeben.

LG und BEIDEN HERZlichen DANK !!!!

**Alina**

XovoxKingdom
Danke !!!

**Alina**

So sollte es was werden:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 269, 245, 286, 300)
$MenuItem1 = GUICtrlCreateMenu("Datei")
$MenuItem4 = GUICtrlCreateMenuItem("Öffnen", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
$Button1 = GUICtrlCreateButton("Play", 8, 168, 43, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Pause", 56, 168, 43, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Dim $var=false

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem4
$Data=FileOpenDialog("Datei","","Datei (*.mp3)")

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

Case $MenuItem2
Exit
Case $Button1
$SoundPlay=_SoundOpen($Data,"Notify") ; Datei öffnen
$mij = _SoundPlay($SoundPlay,0) ; Datei abspielen
$pos1 = _SoundLength($mij, 2) ; Länger der Spielzeit
sleep($pos1) ; sleep über die Länge der Spielzeit
_SoundStop($mij) ; Datei STOP

;_SoundClose($SoundPlay)
Case $Button2
_SoundPause($SoundPlay)

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

EndSwitch
WEnd

[/autoit]

**Alina**

Hallo zusammen.

Das Script:

Spoiler anzeigen

[autoit]

#include<GUIConstantsEx.au3>
#include<File.au3>

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

$Form1 = GUICreate("Form1", 558, 275, 193, 125)
$Input1 = GUICtrlCreateInput("", 40, 24, 153, 21)
$List1 = GUICtrlCreateList("", 256, 24, 289, 123)
$Button1 = GUICtrlCreateButton("Hinzufügen", 40, 56, 155, 25, 0)
$Button2 = GUICtrlCreateButton("Alles Löschen", 40, 120, 155, 25, 0)
$Button3 = GUICtrlCreateButton("Markierten Eintrag löschen", 40, 88, 155, 25, 0)
$Button4 = GUICtrlCreateButton("Liste kommagetrennt speichern in Datei", 40, 160, 507, 25, 0)
GUISetState(@SW_SHOW)

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

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

Case $Button1 ; Eintrag zufügen
GUICtrlSetData($List1, GUICtrlRead($Input1) & "|")

Case $Button2 ; Alles löschen
GUICtrlSetData($List1, "")

Case $Button3 ; Markierten Eintrag löschen

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

Case $Button4 ; Liste in eine Textdatei speichern

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

EndSwitch
WEnd

[/autoit]

Bei $Button3 möchte ich, das der markierte Eintrag gelöscht wird und bei $Button4, das die Liste in eine Datei gespeichert wird. Ist die Liste vor dem drücken auf den Button vorhanden, dann leeren oder löschen und neu erstellen.

Ich komme da einfach nicht weiter. Wäre für Hilfe sehr dankbar.

**Alina**

Also alles zusammen so ?
Das müßte dann mit Zeile 9, 11, 49 auch gehen, oder? Ich meine doch.

Spoiler anzeigen

[autoit]

For $i = 1 To 44
GUICtrlSetState(Eval("input"&$i), $GUI_HIDE)
Next

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

For $i = 12 To 17
GUICtrlSetState(Eval("Label"&$i), $GUI_HIDE)
Next

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

GUICtrlSetState(Eval("Label"&"26"), $GUI_HIDE)

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

GUICtrlSetState(Eval("Label"&"29"), $GUI_HIDE)

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

For $i = 31 To 32
GUICtrlSetState(Eval("Label"&$i), $GUI_HIDE)
Next

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

For $i = 34 To 41
GUICtrlSetState(Eval("Label"&$i), $GUI_HIDE)
Next

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

For $i = 43 To 60
GUICtrlSetState(Eval("Label"&$i), $GUI_HIDE)
Next

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

For $i = 1 To 28
GUICtrlSetState(Eval("Pic"&$i), $GUI_HIDE)
Next

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

For $i = 7 To 18
GUICtrlSetState(Eval("Button"&$i), $GUI_HIDE)
Next

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

For $i = 27 To 37
GUICtrlSetState(Eval("Button"&$i), $GUI_HIDE)
Next

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

For $i = 1 To 67
GUICtrlSetState(Eval("Radio"&$i), $GUI_HIDE)
Next

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

For $i = 1 To 4
GUICtrlSetState(Eval("Date"&$i), $GUI_HIDE)
Next

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

For $i = 1 To 3
GUICtrlSetState(Eval("List"&$i), $GUI_HIDE)
Next

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

GUICtrlSetState(Eval("Edit"&"1"), $GUI_HIDE)

[/autoit]

Beiträge von Alina

Werte übergeben: MAXAGE

ContinueCase,/ErrorStdOut,etc

Werte übergeben: MAXAGE

Werte übergeben: MAXAGE

Werte übergeben: MAXAGE

Werte übergeben: MAXAGE

Werte übergeben: MAXAGE

Zusammenarbeit 1x Checkbox, 2x Radio, 1x Inputfeld und ein Kalenderelement (Date)

Zusammenarbeit 1x Checkbox, 2x Radio, 1x Inputfeld und ein Kalenderelement (Date)

Programm per Shell ausführen, und ggf. eine Frage beantworten

log-file auswerten

Bounce-Ball, neues Spiel

Uservorstellung Dr.Doktor

Geeeeeeeeeeeeeeeeeeeeeeeeburtstag

List-Eintrag löschen

List-Eintrag löschen

List-Eintrag löschen

_soundplay() problem

List-Eintrag löschen

1 Button x-Löschungen