Rechtecksberechnung

[autoit]

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\stoffi\Desktop\Scripte\Rechteck.kxf
$Form1 = GUICreate("Rechtecksberechnung", 322, 114, 193, 125)
GUISetIcon("C:\WINDOWS\system32\shell32.dll", 12)
$InLange = GUICtrlCreateInput("", 48, 8, 105, 21)
$InFlache = GUICtrlCreateInput("", 48, 40, 105, 21)
$InBreite = GUICtrlCreateInput("", 208, 8, 105, 21)
$Lange = GUICtrlCreateLabel("Länge:", 8, 16, 37, 17)
$Flache = GUICtrlCreateLabel("Fläche:", 8, 48, 39, 17)
$Breite = GUICtrlCreateLabel("Breite:", 160, 16, 34, 17)
$Umfang = GUICtrlCreateLabel("Umfang:", 160, 48, 44, 17)
$InUmfang = GUICtrlCreateInput("", 208, 40, 105, 21)
$schliessen = GUICtrlCreateButton("Schließen", 184, 80, 105, 25, 0)
$Berechnen = GUICtrlCreateButton("Berechnen", 32, 80, 105, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\stoffi\Desktop\Scripte\Rechteck.kxf

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

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

If $InLange = -1 Then
$InLange = $InFlache / $InBreite
Else
$InLange = ($InUmfang - 2 * $InBreite) / 2
EndIf

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

If $InBreite = -1 Then
$InBreite = $InFlache / $InLange
Else
$InBreite = ($InUmfang - 2 * $InLange) / 2
EndIf
If $InFlache = -1 Then
$InFlache = $InLange * $InBreite
EndIf
If $InUmfang = -1 Then
$InUmfang = 2 * ($InLange + $InBreite)
EndIf

MsgBox (4096,"Berechnungsergebisse"," Die Fläche beträgt: "& $InFlache)
MsgBox (4096,"Berechnungsergebisse"," Der Umfang berägt: "& $InUmfang)
MsgBox (4096,"Berechnungsergebisse"," Die Länge beträgt: "& $InLange)
MsgBox (4096,"Berechnungsergebisse"," Die Breite beträgt: "& $InBreite)

EndSwitch
WEnd

[/autoit]