Checkbox Fragen

Reaker

so ich habe drei fragen zu checkbox...
wie mache ich dass wenn ich einen haken bei checkbox mache das inputfeld deaktiviert wird(hab da ja was im forum gefunden, aber das geht nicht, wenn ich dann wieder den haken weg mache kommt der eingegebene Text zum vorschein)...also das es grau wird und man halt zusätzlich nicht mit der maus rein kann, wäre cool
- wie mache ich dass wenn ich zwei checkboxen habe und eine anklicke dass die andere unchecked wird und umgekehrt, bekomm das nicht richtig hin
- und wie funktioniert dass dass der haken bei der checkbox erst abgefragt wird, wenn ich auch ok klicke und nicht sofort

danke euch schonmal

Sithlord95

also
ohne source is immer schlecht aber ich versuch mal mein glück

[autoit]

#include <GUIConstants.au3>

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

opt("guioneventmode",1)
GUICreate("Meine GUI")
$Button_1 = GUICtrlCreateButton("starte das _buttongedrückt func",10, 30, 100)
guictrlsetonevent(-1,"_buttongedrueckt")
$checkbox1 = GUICtrlCreateCheckbox("CHECKBOX 1", 13, 80, 120, 20)

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

$input = GUICtrlCreateInput("", 10, 5, 300, 20)
guisetonevent($GUI_EVENT_CLOSE,"_exit")
GUISetState(@SW_SHOW)

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

func _buttongedrueckt()
if BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED then
guictrlsetstate($input,$GUI_DISABLE)
Else
guictrlsetstate($input,$GUI_enABLE)
endif
endfunc

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

func _exit()
exit
endfunc

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

while 1
wend

[/autoit]

also wenn der button gedrückt ist dann
wird gecheckt ob da ein hacken ausgefüllt ist bei der checkbox
und wenn er ausgefüllt ist wird das feld deaktiviert

Reaker

ok also das mit den haken also das er erst fortfährt wenn ich generieren klicke funktioniert, aber ich möchte dass wenn ich einen hacken mache, er automatisch den anderen deaktiviert und umgekehrt, und er sofort wenn ich den haken mache das jeweilige inputfeld deaktiviert, ich kann ja mal die beiden posten:

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

$version = "Beta"
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $zn[3]
$Form1 = GUICreate("Ausschnitt aus GUI " & $Version, 622, 287, 190, 123)
$Group1 = GUICtrlCreateGroup("", 8, 24, 609, 233)
$zn[1] = GUICtrlCreateInput("1. Input", 272, 176, 49, 21)
$zn[2] = GUICtrlCreateInput("2. Input", 272, 208, 49, 21)
$chk1 = GUICtrlCreateCheckbox("1. Chk", 344, 176, 185, 17)
$chk2 = GUICtrlCreateCheckbox("2. Chk", 344, 208, 137, 17)
$Generieren = GUICtrlCreateButton("Generieren", 480, 264, 97, 21, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
;Case $msg = $Generieren
;_buttongedrueckt()
;Case $msg = $info
;_info()
EndSelect
WEnd

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

also wenn ich jetz chk 1 klicke soll automatisch input 1 deaktiviert werden und wenn ich jetz bspw. bei chk2 klicken würde dass er chk1 wieder frei gibt und den input 1 und halt chk 2 nen haken setzt und input 2 deaktiviert, hoffe du hast das richtig verstanden^^

RR04

Hi,

solltest Du hier nicht besser Radioboxen verwenden ?

Reaker

ich habe davon leider nicht viel ahnung, ist meine erste gui
/edit so habe mal die hilfe angeschaut und da wäre ja so ein beispiel drinne, werde es mir mal genauer ansehen
...so nach genauerem hinsehen ist mir aufgefallen dass es nicht so praktisch ist, weil wenn ich einmal etwas ausgewählt habe, ich diesen haken nicht mehr wegmachen kann, diese chkbox ist ja nur eine zusatzoption bei meiner gui, die man nicht unbedingt anklicken muss, und wenn man bei radio ausversehen klickt muss man des script neustarten, und das is blöd

Sithlord95

habs gemacht genau nachdem was du gesagt hast

[autoit]

$version = "Beta"
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
opt("guioneventmode",1)
Global $zn[3]
$Form1 = GUICreate("Ausschnitt aus GUI " & $Version, 622, 287, 190, 123)
$Group1 = GUICtrlCreateGroup("", 8, 24, 609, 233)
$zn[1] = GUICtrlCreateInput("1. Input", 272, 176, 49, 21)
$zn[2] = GUICtrlCreateInput("2. Input", 272, 208, 49, 21)
$chk1 = GUICtrlCreateCheckbox("1. Chk", 344, 176, 185, 17)
guictrlsetonevent(-1,"_check1")
$chk2 = GUICtrlCreateCheckbox("2. Chk", 344, 208, 137, 17)
guictrlsetonevent(-1,"_check2")
$Generieren = GUICtrlCreateButton("Generieren", 480, 264, 97, 21, $WS_GROUP)
guisetonevent($GUI_EVENT_CLOSE,"_exit")
GUISetState(@SW_SHOW)

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

func _Exit()
Exit
EndFunc

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

func _check2()
guictrlsetstate($zn[1],$GUI_enaBLE)
guictrlsetstate($chk1,$GUI_unCHECKED)
guictrlsetstate($zn[2],$GUI_disaBLE)

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

endfunc

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

func _check1()
guictrlsetstate($zn[1],$GUI_disaBLE)
endfunc

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
;Case $msg = $Generieren
;_buttongedrueckt()
;Case $msg = $info
;_info()
EndSelect
WEnd

[/autoit]

Reaker

aber es funktioniert bei mir nicht:-(
es bewirkt reingarnix haken bleiben gleich und input wird nicht deaktiviert, so hatte ich es ja auch eig geschrieben
schreibe mir mal wie du das verstehst, wie ich das geschrieben habe, nicht das wir einander vorbeireden

Sithlord95

wenn auf die checkbox1 gedrückt wird wird der input 1 deaktiviert
,wenn auf checkbox2 gedrückt wird, wird der input2 gesperrt und checkbox1 und input1 aktiviert

Reaker

ja so stimmt es aber dein letztes skript funktioniert bei mir nicht, es ändert sich rein garnix

hier mal das komplette skript vlt hilft das ja weiter

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.0.0
Author: Marcel Böhm

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

#ce ----------------------------------------------------------------------------

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

$Version = "1.22 Beta"

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $sons[9], $sch[5], $ex[5], $zn[3]
#Region ### START Koda GUI section ###
$Form1 = GUICreate("Notenschnittberechner " & $Version, 622, 287, 190, 123)
$Group1 = GUICtrlCreateGroup("", 8, 24, 609, 233)
$Label1 = GUICtrlCreateLabel("Bitte einfach die enstsprechende Note in das Feld eintragen, falls keine Note vorhanden ist einfach Feld freilassen", 16, 32, 540, 17)
$Label2 = GUICtrlCreateLabel("1. Schulaufgabe", 11, 56, 82, 17)
$Label3 = GUICtrlCreateLabel("2. Schulaufgabe", 11, 81, 82, 17)
$Label4 = GUICtrlCreateLabel("3. Schulaufgabe", 11, 105, 82, 17)
$Label5 = GUICtrlCreateLabel("4. Schulaufgabe", 11, 129, 82, 17)
$sch[1] = GUICtrlCreateInput("", 104, 56, 41, 21)
$sch[2] = GUICtrlCreateInput("", 104, 80, 41, 21)
$sch[3] = GUICtrlCreateInput("", 104, 104, 41, 21)
$sch[4] = GUICtrlCreateInput("", 104, 128, 41, 21)
$Label7 = GUICtrlCreateLabel("1. Ex", 24, 152, 28, 17)
$ex[1] = GUICtrlCreateInput("", 104, 152, 41, 21)
$ex[2] = GUICtrlCreateInput("", 104, 176, 41, 21)
$ex[3] = GUICtrlCreateInput("", 104, 200, 41, 21)
$ex[4] = GUICtrlCreateInput("", 104, 224, 41, 21)
$Label8 = GUICtrlCreateLabel("2. Ex", 24, 176, 28, 17)
$Label9 = GUICtrlCreateLabel("3. Ex", 24, 200, 28, 17)
$Label10 = GUICtrlCreateLabel("4. Ex", 24, 224, 28, 17)
$Sonstige = GUICtrlCreateLabel("Sonstige: (zählt als mündliche Note!)", 184, 56, 178, 17)
$sons[1] = GUICtrlCreateInput("", 376, 56, 33, 21)
$sons[2] = GUICtrlCreateInput("", 424, 56, 33, 21)
$sons[3] = GUICtrlCreateInput("", 472, 56, 33, 21)
$sons[4] = GUICtrlCreateInput("", 520, 56, 33, 21)
$sons[5] = GUICtrlCreateInput("", 376, 88, 33, 21)
$sons[6] = GUICtrlCreateInput("", 424, 88, 33, 21)
$sons[7] = GUICtrlCreateInput("", 472, 88, 33, 21)
$sons[8] = GUICtrlCreateInput("", 520, 88, 33, 21)
$Group2 = GUICtrlCreateGroup("", 176, 128, 393, 113)
$Label11 = GUICtrlCreateLabel("Bitte gebe die Note ein, mit der dein neuer Schnitt berechnet werden soll Freilassen um aktuellen Schnitt anzeigen zu lassen", 184, 144, 345, 35)
$Label12 = GUICtrlCreateLabel("Schulaufgabe:", 184, 176, 73, 17)
$Label13 = GUICtrlCreateLabel("Ex:", 184, 208, 19, 17)
$zn[1] = GUICtrlCreateInput("", 272, 176, 49, 21) ;die neue Note bei Schulaufgabe
$zn[2] = GUICtrlCreateInput("", 272, 208, 49, 21) ; die neue note bei ex
$chk1 = GUICtrlCreateCheckbox("Berechne für alle Noten", 344, 176, 185, 17)
;GUICtrlSetOnEvent(-1,"_check1")
$chk2 = GUICtrlCreateCheckbox("Berechne für alle Noten", 344, 208, 137, 17)
;GUICtrlSetOnEvent(-1,"_check2")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label6 = GUICtrlCreateLabel("Marcel Böhm", 40, 264, 127, 17)
$Generieren = GUICtrlCreateButton("Generieren", 480, 264, 97, 21, $WS_GROUP)
guictrlsetonevent(-1,"_buttongedrueckt")
;$info = GUICtrlCreateButton("Info", 392, 264, 81, 21, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Generieren
_buttongedrueckt()
;Case $msg = $info
;_info()

EndSelect
WEnd

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

func _buttongedrueckt()
if BitAND(GUICtrlRead($chk1), $GUI_CHECKED) = $GUI_CHECKED then
_ausrechnenalleschulaufgabe()
Elseif BitAND(GUICtrlRead($chk2), $GUI_CHECKED) = $GUI_CHECKED then
_ausrechnenalleex()
guictrlsetstate($zn[1],$GUI_enABLE)
Else
_ausrechnen()
endif
endfunc

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

Func _ausrechnenalleschulaufgabe()
;------------------------Schuli Note 1--------------------------------
Local $sNotenAnzahls1 = 0, $sNotenGesamts1 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahls1 += 2
$sNotenGesamts1 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahls1 += 1
$sNotenGesamts1 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahls1 += 1
$sNotenGesamts1 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahls1 += 2
$sNotenGesamts1 += 1*2
$durchschnitts1 = $sNotenGesamts1 / $sNotenanZahls1
;----------------------------Schuli Note 2------------------------------------
Local $sNotenAnzahls2 = 0, $sNotenGesamts2 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahls2 += 2
$sNotenGesamts2 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahls2 += 1
$sNotenGesamts2 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahls2 += 1
$sNotenGesamts2 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahls2 += 2
$sNotenGesamts2 += 2*2
$durchschnitts2 = $sNotenGesamts2 / $sNotenanZahls2
;-----------------------------Schuli Note 3-------------------------------------
Local $sNotenAnzahls3 = 0, $sNotenGesamts3 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahls3 += 2
$sNotenGesamts3 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahls3 += 1
$sNotenGesamts3 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahls3 += 1
$sNotenGesamts3 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahls3 += 2
$sNotenGesamts3 += 3*2
$durchschnitts3 = $sNotenGesamts3 / $sNotenanZahls3
;--------------------------Schuli Note 4-------------------------------------------
Local $sNotenAnzahls4 = 0, $sNotenGesamts4 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahls4 += 2
$sNotenGesamts4 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahls4 += 1
$sNotenGesamts4 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahls4 += 1
$sNotenGesamts4 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahls4 += 2
$sNotenGesamts4 += 4*2
$durchschnitts4 = $sNotenGesamts4 / $sNotenanZahls4
;-------------------------Schuli Note 5------------------------------------
Local $sNotenAnzahls5 = 0, $sNotenGesamts5 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahls5 += 2
$sNotenGesamts5 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahls5 += 1
$sNotenGesamts5 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahls5 += 1
$sNotenGesamts5 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahls5 += 2
$sNotenGesamts5 += 5*2
$durchschnitts5 = $sNotenGesamts5 / $sNotenanZahls5
;------------------------Schuli Note 6-----------------------------------
Local $sNotenAnzahls6 = 0, $sNotenGesamts6 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahls6 += 2
$sNotenGesamts6 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahls6 += 1
$sNotenGesamts6 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahls6 += 1
$sNotenGesamts6 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahls6 += 2
$sNotenGesamts6 += 6*2
$durchschnitts6 = $sNotenGesamts6 / $sNotenanZahls6
;-----------------------------EndeSchuli-------------------------------------------
msgbox(0, "Schnitt mit Schulaufgabe", "Note 1: " & Round($durchschnitts1,2) & @LF & "Note 2: " & Round($durchschnitts2,2) & @LF & "Note 3: " & Round($durchschnitts3,2) & @LF & "Note 4: " & Round($durchschnitts4,2) & @LF & "Note 5: " & Round($durchschnitts5,2) & @LF & "Note 6: " & Round($durchschnitts6,2))
EndFunc
Func _ausrechnenalleex()
;------------------------ex Note 1--------------------------------
Local $sNotenAnzahle1 = 0, $sNotenGesamte1 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahle1 += 2
$sNotenGesamte1 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahle1 += 1
$sNotenGesamte1 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahle1 += 1
$sNotenGesamte1 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahle1 += 1
$sNotenGesamte1 += 1
$durchschnitte1 = $sNotenGesamte1 / $sNotenanZahle1
;----------------------------ex Note 2------------------------------------
Local $sNotenAnzahle2 = 0, $sNotenGesamte2 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahle2 += 2
$sNotenGesamte2 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahle2 += 1
$sNotenGesamte2 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahle2 += 1
$sNotenGesamte2 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahle2 += 1
$sNotenGesamte2 += 2
$durchschnitte2 = $sNotenGesamte2 / $sNotenanZahle2
;-----------------------------ex Note 3-------------------------------------
Local $sNotenAnzahle3 = 0, $sNotenGesamte3 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahle3 += 2
$sNotenGesamte3 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahle3 += 1
$sNotenGesamte3 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahle3 += 1
$sNotenGesamte3 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahle3 += 1
$sNotenGesamte3 += 3
$durchschnitte3 = $sNotenGesamte3 / $sNotenanZahle3
;--------------------------ex Note 4-------------------------------------------
Local $sNotenAnzahle4 = 0, $sNotenGesamte4 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahle4 += 2
$sNotenGesamte4 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahle4 += 1
$sNotenGesamte4 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahle4 += 1
$sNotenGesamte4 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahle4 += 1
$sNotenGesamte4 += 4
$durchschnitte4 = $sNotenGesamte4 / $sNotenanZahle4
;-------------------------ex Note 5------------------------------------
Local $sNotenAnzahle5 = 0, $sNotenGesamte5 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahle5 += 2
$sNotenGesamte5 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahle5 += 1
$sNotenGesamte5 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahle5 += 1
$sNotenGesamte5 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahle5 += 1
$sNotenGesamte5 += 5
$durchschnitte5 = $sNotenGesamte5 / $sNotenanZahle5
;------------------------ex Note 6-----------------------------------
Local $sNotenAnzahle6 = 0, $sNotenGesamte6 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahle6 += 2
$sNotenGesamte6 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahle6 += 1
$sNotenGesamte6 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahle6 += 1
$sNotenGesamte6 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahle6 += 1
$sNotenGesamte6 += 6
$durchschnitte6 = $sNotenGesamte6 / $sNotenanZahle6
;-----------------------------Endeex-------------------------------------------
msgbox(0, "Schnitt mit Extemporale", "Note 1: " & Round($durchschnitte1,2) & @LF & "Note 2: " & Round($durchschnitte2,2) & @LF & "Note 3: " & Round($durchschnitte3,2) & @LF & "Note 4: " & Round($durchschnitte4,2) & @LF & "Note 5: " & Round($durchschnitte5,2) & @LF & "Note 6: " & Round($durchschnitte6,2))

EndFunc

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

Func _ausrechnen()

Local $sNotenAnzahl = 0, $sNotenGesamt = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahl += 2
$sNotenGesamt += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahl += 1
$sNotenGesamt += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahl += 1
$sNotenGesamt += GUICtrlRead($sons[$i])
EndIf
Next
If GUICtrlRead($zn[1]) <> "" Then
$sNotenAnzahl += 2
$sNotenGesamt += GUICtrlRead($zn[1]) * 2
EndIf
If GUICtrlRead($zn[2]) <> "" Then
$sNotenAnzahl += 1
$sNotenGesamt += GUICtrlRead($zn[2])
EndIf
$durchschnitt = $sNotenGesamt / $sNotenanZahl

if GUICtrlRead($zn[1]) = 0 Then

msgbox(0, "", "Dein Durchschnitt liegt bei " & Round($durchschnitt,2))
EndIf
if GUICtrlRead($zn[1]) > 0 Then
MsgBox(0,"", "Dein Durchschnitt würde bei " & Round($durchschnitt,2) & " liegen")
EndIf

EndFunc ;==>_ausrechnen

[/autoit]

RR04

Sithlord95

$msg = GUIGetMsg() und opt("guioneventmode",1) gemischt in Post #6 !!

Sithlord95

rr04 du hast recht ich bin ein depp

ich wollte schnell fertig werden bei der hitze kann man das ja keinem übel nehmen

hab mich schon gewundert warums bei mri ging

[autoit]

$version = "Beta"
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
opt("guioneventmode",1)
Global $zn[3]
$Form1 = GUICreate("Ausschnitt aus GUI " & $Version, 622, 287, 190, 123)
$Group1 = GUICtrlCreateGroup("", 8, 24, 609, 233)
$zn[1] = GUICtrlCreateInput("1. Input", 272, 176, 49, 21)
$zn[2] = GUICtrlCreateInput("2. Input", 272, 208, 49, 21)
$chk1 = GUICtrlCreateCheckbox("1. Chk", 344, 176, 185, 17)
guictrlsetonevent(-1,"_check1")
$chk2 = GUICtrlCreateCheckbox("2. Chk", 344, 208, 137, 17)
guictrlsetonevent(-1,"_check2")
$Generieren = GUICtrlCreateButton("Generieren", 480, 264, 97, 21, $WS_GROUP)
guisetonevent($GUI_EVENT_CLOSE,"_exit")
GUISetState(@SW_SHOW)

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

func _Exit()
Exit
EndFunc

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

func _check2()
guictrlsetstate($zn[1],$GUI_enaBLE)
guictrlsetstate($chk1,$GUI_unCHECKED)
guictrlsetstate($zn[2],$GUI_disaBLE)

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

endfunc

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

func _check1()
guictrlsetstate($zn[1],$GUI_disaBLE)
endfunc

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

while 1
wend

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

Reaker

ok schon bisschen besser aber hat noch einige bugs
zb wenn ich des obere anklicke und wieder anklicke geht das deaktivierte inputfeld nicht weg
-wenn ich das untere anklicke und danach das obere wird das untere nicht wieder freigegeben und haken weggemacht

Sithlord95

moment moment das sind keine bugs
das war nur direkt nach anleitung lies es dir nochmal genau durch ich habe alles genau befolgt
du hast wohl vergessen was zu erwähnen aber ich denke das schaffste jetzt auch alleine

Reaker

aber ich habe das haargenau in mein script übernommen und selbst kann ich es nicht hinzuschreiben
ich bekomme das nicht hin, bitte helf mir

Sithlord95

na gut ich machs ..... auch wenn es um die giftzettel geht wenn cih dran denke was ihc bekomme schnitt ovn 3,7^^

Reaker

cool danke...ja ich glaube bin net wirklich besser^^

Sithlord95

ich habs jetzt

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.0.0
Author: Marcel Böhm

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

#ce ----------------------------------------------------------------------------

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

$Version = "1.22 Beta"

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $sons[9], $sch[5], $ex[5], $zn[3]
opt("guioneventmode",1)
#Region ### START Koda GUI section ###
$Form1 = GUICreate("Notenschnittberechner " & $Version, 622, 287, 190, 123)
guisetonevent($GUI_EVENT_CLOSE,"_exit")
$Group1 = GUICtrlCreateGroup("", 8, 24, 609, 233)
$Label1 = GUICtrlCreateLabel("Bitte einfach die enstsprechende Note in das Feld eintragen, falls keine Note vorhanden ist einfach Feld freilassen", 16, 32, 540, 17)
$Label2 = GUICtrlCreateLabel("1. Schulaufgabe", 11, 56, 82, 17)
$Label3 = GUICtrlCreateLabel("2. Schulaufgabe", 11, 81, 82, 17)
$Label4 = GUICtrlCreateLabel("3. Schulaufgabe", 11, 105, 82, 17)
$Label5 = GUICtrlCreateLabel("4. Schulaufgabe", 11, 129, 82, 17)
$sch[1] = GUICtrlCreateInput("", 104, 56, 41, 21)
$sch[2] = GUICtrlCreateInput("", 104, 80, 41, 21)
$sch[3] = GUICtrlCreateInput("", 104, 104, 41, 21)
$sch[4] = GUICtrlCreateInput("", 104, 128, 41, 21)
$Label7 = GUICtrlCreateLabel("1. Ex", 24, 152, 28, 17)
$ex[1] = GUICtrlCreateInput("", 104, 152, 41, 21)
$ex[2] = GUICtrlCreateInput("", 104, 176, 41, 21)
$ex[3] = GUICtrlCreateInput("", 104, 200, 41, 21)
$ex[4] = GUICtrlCreateInput("", 104, 224, 41, 21)
$Label8 = GUICtrlCreateLabel("2. Ex", 24, 176, 28, 17)
$Label9 = GUICtrlCreateLabel("3. Ex", 24, 200, 28, 17)
$Label10 = GUICtrlCreateLabel("4. Ex", 24, 224, 28, 17)
$Sonstige = GUICtrlCreateLabel("Sonstige: (zählt als mündliche Note!)", 184, 56, 178, 17)
$sons[1] = GUICtrlCreateInput("", 376, 56, 33, 21)
$sons[2] = GUICtrlCreateInput("", 424, 56, 33, 21)
$sons[3] = GUICtrlCreateInput("", 472, 56, 33, 21)
$sons[4] = GUICtrlCreateInput("", 520, 56, 33, 21)
$sons[5] = GUICtrlCreateInput("", 376, 88, 33, 21)
$sons[6] = GUICtrlCreateInput("", 424, 88, 33, 21)
$sons[7] = GUICtrlCreateInput("", 472, 88, 33, 21)
$sons[8] = GUICtrlCreateInput("", 520, 88, 33, 21)
$Group2 = GUICtrlCreateGroup("", 176, 128, 393, 113)
$Label11 = GUICtrlCreateLabel("Bitte gebe die Note ein, mit der dein neuer Schnitt berechnet werden soll Freilassen um aktuellen Schnitt anzeigen zu lassen", 184, 144, 345, 35)
$Label12 = GUICtrlCreateLabel("Schulaufgabe:", 184, 176, 73, 17)
$Label13 = GUICtrlCreateLabel("Ex:", 184, 208, 19, 17)
$zn[1] = GUICtrlCreateInput("", 272, 176, 49, 21) ;die neue Note bei Schulaufgabe
$zn[2] = GUICtrlCreateInput("", 272, 208, 49, 21) ; die neue note bei ex
$chk1 = GUICtrlCreateCheckbox("Berechne für alle Noten", 344, 176, 185, 17)
GUICtrlSetOnEvent(-1,"_check1")
$chk2 = GUICtrlCreateCheckbox("Berechne für alle Noten", 344, 208, 137, 17)
GUICtrlSetOnEvent(-1,"_check2")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label6 = GUICtrlCreateLabel("Marcel Böhm", 40, 264, 127, 17)
$Generieren = GUICtrlCreateButton("Generieren", 480, 264, 97, 21, $WS_GROUP)
guictrlsetonevent(-1,"_buttongedrueckt")
;$info = GUICtrlCreateButton("Info", 392, 264, 81, 21, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$checker1 = 0
$checker2 = 0
func _check1()
guictrlsetstate($chk2,$gui_disable)
guictrlsetstate($zn[2],$gui_disable)
$checker1 = 1
EndFunc

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

func _check2()
guictrlsetstate($chk1,$gui_disable)
guictrlsetstate($zn[1],$gui_disable)
$checker2 = 1
EndFunc

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

func _exit()
Exit
endfunc

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

While 1
if $checker1 = 1 then
if guictrlread($chk1) = $gui_unchecked Then
guictrlsetstate($chk2,$gui_enable)
guictrlsetstate($zn[2],$gui_enable)
$checker1 = 0
EndIf
endif

if $checker2 = 1 then
if guictrlread($chk2) = $gui_unchecked Then
guictrlsetstate($chk1,$gui_enable)
guictrlsetstate($zn[1],$gui_enable)
$checker2 = 0
EndIf
endif
WEnd

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

func _buttongedrueckt()
if BitAND(GUICtrlRead($chk1), $GUI_CHECKED) = $GUI_CHECKED then
_ausrechnenalleschulaufgabe()
Elseif BitAND(GUICtrlRead($chk2), $GUI_CHECKED) = $GUI_CHECKED then
_ausrechnenalleex()
guictrlsetstate($zn[1],$GUI_enABLE)
Else
_ausrechnen()
endif
endfunc

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

Func _ausrechnenalleschulaufgabe()
;------------------------Schuli Note 1--------------------------------
Local $sNotenAnzahls1 = 0, $sNotenGesamts1 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahls1 += 2
$sNotenGesamts1 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahls1 += 1
$sNotenGesamts1 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahls1 += 1
$sNotenGesamts1 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahls1 += 2
$sNotenGesamts1 += 1*2
$durchschnitts1 = $sNotenGesamts1 / $sNotenanZahls1
;----------------------------Schuli Note 2------------------------------------
Local $sNotenAnzahls2 = 0, $sNotenGesamts2 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahls2 += 2
$sNotenGesamts2 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahls2 += 1
$sNotenGesamts2 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahls2 += 1
$sNotenGesamts2 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahls2 += 2
$sNotenGesamts2 += 2*2
$durchschnitts2 = $sNotenGesamts2 / $sNotenanZahls2
;-----------------------------Schuli Note 3-------------------------------------
Local $sNotenAnzahls3 = 0, $sNotenGesamts3 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahls3 += 2
$sNotenGesamts3 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahls3 += 1
$sNotenGesamts3 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahls3 += 1
$sNotenGesamts3 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahls3 += 2
$sNotenGesamts3 += 3*2
$durchschnitts3 = $sNotenGesamts3 / $sNotenanZahls3
;--------------------------Schuli Note 4-------------------------------------------
Local $sNotenAnzahls4 = 0, $sNotenGesamts4 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahls4 += 2
$sNotenGesamts4 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahls4 += 1
$sNotenGesamts4 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahls4 += 1
$sNotenGesamts4 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahls4 += 2
$sNotenGesamts4 += 4*2
$durchschnitts4 = $sNotenGesamts4 / $sNotenanZahls4
;-------------------------Schuli Note 5------------------------------------
Local $sNotenAnzahls5 = 0, $sNotenGesamts5 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahls5 += 2
$sNotenGesamts5 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahls5 += 1
$sNotenGesamts5 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahls5 += 1
$sNotenGesamts5 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahls5 += 2
$sNotenGesamts5 += 5*2
$durchschnitts5 = $sNotenGesamts5 / $sNotenanZahls5
;------------------------Schuli Note 6-----------------------------------
Local $sNotenAnzahls6 = 0, $sNotenGesamts6 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahls6 += 2
$sNotenGesamts6 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahls6 += 1
$sNotenGesamts6 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahls6 += 1
$sNotenGesamts6 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahls6 += 2
$sNotenGesamts6 += 6*2
$durchschnitts6 = $sNotenGesamts6 / $sNotenanZahls6
;-----------------------------EndeSchuli-------------------------------------------
msgbox(0, "Schnitt mit Schulaufgabe", "Note 1: " & Round($durchschnitts1,2) & @LF & "Note 2: " & Round($durchschnitts2,2) & @LF & "Note 3: " & Round($durchschnitts3,2) & @LF & "Note 4: " & Round($durchschnitts4,2) & @LF & "Note 5: " & Round($durchschnitts5,2) & @LF & "Note 6: " & Round($durchschnitts6,2))
EndFunc
Func _ausrechnenalleex()
;------------------------ex Note 1--------------------------------
Local $sNotenAnzahle1 = 0, $sNotenGesamte1 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahle1 += 2
$sNotenGesamte1 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahle1 += 1
$sNotenGesamte1 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahle1 += 1
$sNotenGesamte1 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahle1 += 1
$sNotenGesamte1 += 1
$durchschnitte1 = $sNotenGesamte1 / $sNotenanZahle1
;----------------------------ex Note 2------------------------------------
Local $sNotenAnzahle2 = 0, $sNotenGesamte2 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahle2 += 2
$sNotenGesamte2 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahle2 += 1
$sNotenGesamte2 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahle2 += 1
$sNotenGesamte2 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahle2 += 1
$sNotenGesamte2 += 2
$durchschnitte2 = $sNotenGesamte2 / $sNotenanZahle2
;-----------------------------ex Note 3-------------------------------------
Local $sNotenAnzahle3 = 0, $sNotenGesamte3 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahle3 += 2
$sNotenGesamte3 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahle3 += 1
$sNotenGesamte3 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahle3 += 1
$sNotenGesamte3 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahle3 += 1
$sNotenGesamte3 += 3
$durchschnitte3 = $sNotenGesamte3 / $sNotenanZahle3
;--------------------------ex Note 4-------------------------------------------
Local $sNotenAnzahle4 = 0, $sNotenGesamte4 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahle4 += 2
$sNotenGesamte4 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahle4 += 1
$sNotenGesamte4 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahle4 += 1
$sNotenGesamte4 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahle4 += 1
$sNotenGesamte4 += 4
$durchschnitte4 = $sNotenGesamte4 / $sNotenanZahle4
;-------------------------ex Note 5------------------------------------
Local $sNotenAnzahle5 = 0, $sNotenGesamte5 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahle5 += 2
$sNotenGesamte5 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahle5 += 1
$sNotenGesamte5 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahle5 += 1
$sNotenGesamte5 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahle5 += 1
$sNotenGesamte5 += 5
$durchschnitte5 = $sNotenGesamte5 / $sNotenanZahle5
;------------------------ex Note 6-----------------------------------
Local $sNotenAnzahle6 = 0, $sNotenGesamte6 = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahle6 += 2
$sNotenGesamte6 += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahle6 += 1
$sNotenGesamte6 += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahle6 += 1
$sNotenGesamte6 += GUICtrlRead($sons[$i])
EndIf
Next
$sNotenAnzahle6 += 1
$sNotenGesamte6 += 6
$durchschnitte6 = $sNotenGesamte6 / $sNotenanZahle6
;-----------------------------Endeex-------------------------------------------
msgbox(0, "Schnitt mit Extemporale", "Note 1: " & Round($durchschnitte1,2) & @LF & "Note 2: " & Round($durchschnitte2,2) & @LF & "Note 3: " & Round($durchschnitte3,2) & @LF & "Note 4: " & Round($durchschnitte4,2) & @LF & "Note 5: " & Round($durchschnitte5,2) & @LF & "Note 6: " & Round($durchschnitte6,2))

EndFunc

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

Func _ausrechnen()

Local $sNotenAnzahl = 0, $sNotenGesamt = 0
For $i = 1 To 4
If GUICtrlRead($sch[$i]) <> "" Then
$sNotenAnzahl += 2
$sNotenGesamt += GUICtrlRead($sch[$i]) * 2
EndIf
If GUICtrlRead($ex[$i]) <> "" Then
$sNotenAnzahl += 1
$sNotenGesamt += GUICtrlRead($ex[$i])
EndIf
Next
For $i = 1 To 8
If GUICtrlRead($sons[$i]) <> "" Then
$sNotenAnzahl += 1
$sNotenGesamt += GUICtrlRead($sons[$i])
EndIf
Next
If GUICtrlRead($zn[1]) <> "" Then
$sNotenAnzahl += 2
$sNotenGesamt += GUICtrlRead($zn[1]) * 2
EndIf
If GUICtrlRead($zn[2]) <> "" Then
$sNotenAnzahl += 1
$sNotenGesamt += GUICtrlRead($zn[2])
EndIf
$durchschnitt = $sNotenGesamt / $sNotenanZahl

if GUICtrlRead($zn[1]) = 0 Then

msgbox(0, "", "Dein Durchschnitt liegt bei " & Round($durchschnitt,2))
EndIf
if GUICtrlRead($zn[1]) > 0 Then
MsgBox(0,"", "Dein Durchschnitt würde bei " & Round($durchschnitt,2) & " liegen")
EndIf

EndFunc ;==>_ausrechnen

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

Reaker

jeah danke funktioniert klasse, habe allerdings noch paar dinge geändert...
allen nochmal danke für ihr Bemühen

-closed-