Kleines Matheprogramm

Chicago

Hallo,

hier mal ein Kleines Mathematik Programm, was ich vor 20 Jahren mal in
Basic geschrieben habe. Ich habe es mal, um wieder mit proggen anzufangen,
in Autoit umgeschrieben. Es ist keine Meisterleistung ( das weiß ich selber ),
aber mal ein Anfang.

Berechnet werden Quadratmeter, Trapetz, Dreiecke und so weiter...... auch wenn Masse fehlen

Danken möchte ich hier mal ganz lieb, meinen "Prof" peethebee, der mir sehr wertvolle Tips und
hilfstellungen gegeben hat und hier und da schützend eingegriffen hat.

Ich würde mich freuen, wenns hier mal einige testen würden und mir vieleicht auch
einige Vorschläge zur Verbesserung geben könnten ........ Soll heißen .....
Kritik und Vorschläge sind gerne gesehen .... also los...

Edit: Das Script war zu groß, drum jetzt als zip angehängt.......

Edit2: einige kleinere Fehler ausgeräumt und mit der Erlaubnis von Daniel W.
dessen Calculator mit eingebaut. Danke nochmal an Daniel

**Oscar**

Hallo Chicago!

Du hast es so gewollt.

- vor dem veröffentlichen erstmal testen, ob's überhaupt läuft.
Angefangen mit Zeile 56: GUICtrlSetOnEvent($OKButton, "OKButton";) ; auszuführen die "func" <-- hier OKButton()
Semikolon VOR der schließenden Klammer. Diesen Fehler hast Du dutzende Male (bei jedem GUICtrlSetOnEvent und jedem GUISetOnEvent) gemacht.

- Zeile 179: $Formel4 = " Die Formel = V / ( L * B "
Klammer schließen. Ist zwar nur ein Ausgabestring, aber für den Benutzer sieht das nicht so schön aus.

- Trapez schreibt sich ohne "tz"

- Benutzer muss erraten, in welcher Einheit er die Eingaben machen muss.

- Die Menüsteuerung über die Eingabe einer Nummer finde ich nervig. Buttons wären IMHO besser.

- Wenn ich auf der zweiten Seite "8" eingebe, erscheint eine MsgBox: "Achter Case-Ausdruck war wahr"

- Die Angaben Opt("GUICoordMode", 3) und Opt("GUIOnEventMode", 1) müssen nur einmal am Anfang des Script stehen.

- Quadratmeter wird doch mit "m²" abgekürzt. Sorry, bei QM denke ich immer an den Qualitäts-Manager bei mir auf der Arbeit.

MfG. Oscar

**Alina**

Hallo.

Ich finde die Idee schon mal sehr gut. Mathe ist ja nicht JEDEM sein Ding.

Ich habe den Quelltext mal etwas berichtigt, da ich auch Fehlermeldungen bekam und ich verwende die aktuelle Version von AutoIt.

Hier der berichtigte Sourcecode mit der Bitte mir die Berichtigung nicht übel zu nehmen:

Spoiler anzeigen

[autoit]

#cs
----------------------------------------------------------------------------
AutoIt Version: 3.2.8.1
Author: Chicago

Script Function: Mathematik Grundrechenarten

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

; ##############################
; includes
; ##############################
#include <GUIConstants.au3>

$hauptgui = GUICreate("Mathematik 1", 500, 400) ; Fenster dimensionieren und Titel des Fensters
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

$text0 = "1: Volumenberechnung"
$text1 = "2: Fehlende Längenberechnung aus 1"
$text2 = "3: Fehlende Breitenberechnung aus 1"
$text3 = "4: Fehlende Höhenberechnung aus 1"
$text4 = "5; Quadratmeter Berechnung"
$text5 = "6: Trapez Berechnung"
$text6 = "7: Dreiecks Berechnung"
$Menuekarte2 = "8: Menüauswahlkarte 2"
$beenden = "Menüauswahl beenden mit ESC" ; Zeile

GUICtrlCreateLabel($text0 & "", 15, 20) ; Text
GUICtrlCreateLabel($text1 & "", 15, 50) ; Text
GUICtrlCreateLabel($text2 & "", 15, 80) ; Text
GUICtrlCreateLabel($text3 & "", 15, 110) ; Text
GUICtrlCreateLabel($text4 & "", 15, 140) ; Text
GUICtrlCreateLabel($text5 & "", 15, 170) ; Text
GUICtrlCreateLabel($text6 & "", 15, 200) ; Text
GUICtrlCreateLabel($Menuekarte2 & "", 15, 230) ; Text
GUICtrlCreateLabel($beenden & "", 15, 260) ; Text

GUICtrlCreateLabel("Auswahl", 15, 350) ; Text
$Auswahl = GUICtrlCreateInput("", 70, 348, 15, 21)
$OKButton = GUICtrlCreateButton("&OK", 100, 348, 50, 22,$BS_DEFPUSHBUTTON) ; OK Button
GUICtrlSetOnEvent($OKButton, "OKButton") ; auszuführen die "func" <-- hier OKButton()

GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

; Gui Volumenberechnung
; ====================================

$vol = GUICreate("Volumenberechnung", 300, 300) ; Fenster dimensionieren und Titel des Fensters
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

$Formel1 = " Die Formel = L * B * H "
$l1 = "Bitte geben Sie die Länge ein !"
$B1 = "Bitte geben Sie die Breite ein !"
$h1 = "Bitte geben Sie die Höhe ein !"

GUICtrlCreateLabel($Formel1 & "", 15, 20)
GUICtrlCreateLabel($l1 & "", 15, 40)
GUICtrlCreateLabel($B1 & "", 15, 100)
GUICtrlCreateLabel($h1 & "", 15, 160)

$laenge1 = GUICtrlCreateInput("", 15, 70, 50, 21)
GUICtrlSetOnEvent(-1, "Volumenberechnung");
$Breite1 = GUICtrlCreateInput("", 15, 130, 50, 21)
GUICtrlSetOnEvent(-1, "Volumenberechnung");
$hoehe1 = GUICtrlCreateInput("", 15, 190, 50, 21)
GUICtrlSetOnEvent(-1, "Volumenberechnung");

$reslabel1 = GUICtrlCreateLabel("Das Volumen beträgt: 0 Kubik", 15, 240, 250, 22)

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 270, 120) ; OK Button
GUISetOnEvent($vol, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

; ====================================
; ende Gui Volumenberechnung

; Gui Fehlende Längenberechnung
; ====================================

$LaengBerechnung = GUICreate("Fehlende Längenberechnung", 300, 300) ; Fenster dimensionieren und Titel des Fensters
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked");
$Formel2 = " Die Formel = ( V / ( B * H ))"
$V = "Bitte geben Sie das Volumen ein !"
$B1 = "Bitte geben Sie die Breite ein !"
$h1 = "Bitte geben Sie die Höhe ein !"

GUICtrlCreateLabel($Formel2 & "", 15, 20)
GUICtrlCreateLabel($V & "", 15, 40)
GUICtrlCreateLabel($B1 & "", 15, 100)
GUICtrlCreateLabel($h1 & "", 15, 160)

$Volu2 = GUICtrlCreateInput("", 15, 70, 50, 21)
GUICtrlSetOnEvent(-1, "Laenge_Berechnen");
$Breite2 = GUICtrlCreateInput("", 15, 130, 50, 21)
GUICtrlSetOnEvent(-1, "Laenge_Berechnen");
$hoehe2 = GUICtrlCreateInput("", 15, 190, 50, 21)
GUICtrlSetOnEvent(-1, "Laenge_Berechnen");

$reslabel2 = GUICtrlCreateLabel("Die Länge beträgt: 0 Meter", 15, 240, 250, 22)

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 270, 120) ; OK Button
GUISetOnEvent($LaengBerechnung, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

; ====================================
; ende Gui Fehlende Längenberechnung

; Gui Fehlende Breitenberechnung
; ====================================

$BreitenBerechnung = GUICreate("Fehlende BreitenBerechnung", 300, 300) ; Fenster dimensionieren und Titel des Fensters
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked");
$Formel3 = " Die Formel = V / ( L * H )"
$V = "Bitte geben Sie das Volumen ein !"
$l1 = "Bitte geben Sie die Länge ein !"
$h1 = "Bitte geben Sie die Höhe ein !"

GUICtrlCreateLabel($Formel3 & "", 15, 20)
GUICtrlCreateLabel($V & "", 15, 40)
GUICtrlCreateLabel($l1 & "", 15, 1000)
GUICtrlCreateLabel($h1 & "", 15, 160)

$Volu3 = GUICtrlCreateInput("", 15, 70, 50, 21)
GUICtrlSetOnEvent(-1, "Breite_Berechnen");
$laenge3 = GUICtrlCreateInput("", 15, 130, 50, 21)
GUICtrlSetOnEvent(-1, "Breite_Berechnen");
$hoehe3 = GUICtrlCreateInput("", 15, 190, 50, 21)
GUICtrlSetOnEvent(-1, "Breite_Berechnen");

$reslabel3 = GUICtrlCreateLabel("Die Breite beträgt: 0 Meter", 15, 240, 250, 22)

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 270, 120) ; OK Button
GUISetOnEvent($BreitenBerechnung, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

; ====================================
; ende Gui Fehlende Breitenberechnung

; Gui Fehlende Höhenberechnung
; ====================================

$Hoehenberechnung = GUICreate("Fehlende Höhe Berechnung", 300, 300) ; Fenster dimensionieren und Titel des Fensters
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked");
$Formel4 = " Die Formel = V / ( L * B )"
$V = "Bitte geben Sie das Volumen ein !"
$l1 = "Bitte geben Sie die Länge ein !"
$B1 = "Bitte geben Sie die Breite ein !"

GUICtrlCreateLabel($Formel4 & "", 15, 20)
GUICtrlCreateLabel($V & "", 15, 40)
GUICtrlCreateLabel($l1 & "", 15, 100)
GUICtrlCreateLabel($B1 & "", 15, 160)

$Volu4 = GUICtrlCreateInput("", 15, 70, 50, 21)
GUICtrlSetOnEvent(-1, "Hoehe_Berechnen");
$laenge4 = GUICtrlCreateInput("", 15, 130, 50, 21)
GUICtrlSetOnEvent(-1, "Hoehe_Berechnen");
$Breite4 = GUICtrlCreateInput("", 15, 190, 50, 21)
GUICtrlSetOnEvent(-1, "Hoehe_Berechnen");

$reslabel4 = GUICtrlCreateLabel("Die Höhe beträgt: 0 Meter", 15, 240, 250, 22)

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 270, 120) ; OK Button
GUISetOnEvent($Hoehenberechnung, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

; ====================================
; ende Gui Fehlende Höhenberechnung

; Gui Quadratmeter Berechnung
; ====================================

$QM_Berechn = GUICreate("Quadratmeter Berechnung", 300, 300) ; Fenster dimensionieren und Titel des Fensters
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked");
$formel5 = " Die Formel ist: A * B = m² "
$a = "Bitte geben Sie die Länge ein !"
$B = "Bitte geben Sie die Breite ein !"

GUICtrlCreateLabel($formel5 & "", 15, 20)
GUICtrlCreateLabel($a & "", 15, 80)
GUICtrlCreateLabel($B & "", 15, 140)

$laengeQM = GUICtrlCreateInput("", 15, 110, 50, 21)
GUICtrlSetOnEvent(-1, "QM_Berechnen");
$BreiteQM = GUICtrlCreateInput("", 15, 170, 50, 21)
GUICtrlSetOnEvent(-1, "QM_Berechnen");

$reslabel5 = GUICtrlCreateLabel("Die Quadratmeter betragen: 0 m²", 15, 240, 250, 22)

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 270, 120) ; OK Button
GUISetOnEvent($QM_Berechn, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

; ====================================
; ende Gui Quadratmeter Berechnung

; Gui Trapez Berechnung
; ====================================

$Trapez = GUICreate("Trapez Berechnung", 300, 300) ; Fenster dimensionieren und Titel des Fensters
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked");
$formel6 = " Die Formel ist: FL = ( L1 + L2 ) / 2 ) * H "
$L1 = "Bitte geben Sie die Länge 1 ein !"
$L2 = "Bitte geben Sie die Länge 2 ein !"
$H = "Bitte geben Sie die Höhe ein !"

GUICtrlCreateLabel($formel6 & "", 15, 20)
GUICtrlCreateLabel($L1 & "", 15, 60)
GUICtrlCreateLabel($L2 & "", 15, 120)
GUICtrlCreateLabel($H & "", 15, 180)

$laengeL1Trap_1= GUICtrlCreateInput("", 15, 90, 50, 21)
GUICtrlSetOnEvent(-1, "Trapez");
$LaengeL2Trap_1 = GUICtrlCreateInput("", 15, 150, 50, 21)
GUICtrlSetOnEvent(-1, "Trapez");
$hoeheTrap_1 = GUICtrlCreateInput("", 15, 210, 50, 21)
GUICtrlSetOnEvent(-1, "Trapez");

$reslabel6 = GUICtrlCreateLabel("Die Quadratmeter betragen: 0 m²", 15, 240, 250, 22)

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 270, 120) ; OK Button
GUISetOnEvent($Trapez, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

; ====================================
; ende Gui Trapez Berechnung

; Gui Dreiecks Berechnung
; ====================================

$Dreiecks = GUICreate("Dreiecks Berechnung", 300, 300) ; Fenster dimensionieren und Titel des Fensters
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked");
$formel7 = " Die Formel ist: FL = ( L * H ) / 2 "
$LD = "Bitte geben Sie die Länge ein !"
$HD = "Bitte geben Sie die Höhe ein !"

GUICtrlCreateLabel($formel7 & "", 15, 20)
GUICtrlCreateLabel($LD & "", 15, 60)
GUICtrlCreateLabel($HD & "", 15, 120)

$laengeLD = GUICtrlCreateInput("", 15, 90, 50, 21)
GUICtrlSetOnEvent(-1, "Dreiecks");
$HoeheLD = GUICtrlCreateInput("", 15, 150, 50, 21)
GUICtrlSetOnEvent(-1, "Dreiecks");

$reslabel7 = GUICtrlCreateLabel("Die Quadratmeter betragen: 0 m²", 15, 240, 250, 22)

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 270, 120) ; OK Button
GUISetOnEvent($Dreiecks, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

; ====================================
; ende Gui Dreiecks Berechnung

;=======================================================================================================================================================
; Gui AUSWAHLMENÜ 2
;=======================================================================================================================================================

$menue2 = GUICreate("Mathematik 1 MENÜ 2", 500, 400) ; Fenster dimensionieren und Titel des Fensters
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

$text02 = "1: Fehlende Längenberechnung aus ---> Quadratmeter Berechnen" ; 5
$text12 = "2: Fehlende Breitenberechnung aus ---> Quadratmeter Berechnen"; 5
$text22 = "3: Fehlende Länge 1 Berechnen aus ---> Trapez Berechnen"; 6
$text32 = "4: Fehlende Länge 2 Berechnen aus ---> Trapez Berechnen"; 6
$text42 = "5; Fehlende Höhe Berechnen aus ---> Trapez Berechnen"; 6
$text52 = "6: Fehlende Länge Berechnen aus ---> Dreiecke Berechnen"; 7
$text62 = "7: Fehlende Höhe Berechnen aus ---> Dreiecke Berechnen"; 7
;$Menuekarte3 = "8: Menüauswahlkarte 3"
$beenden = "Zurück zu Menü 1 mit ESC" ; Zeile

GUICtrlCreateLabel($text02 & "", 15, 20) ; Text
GUICtrlCreateLabel($text12 & "", 15, 50) ; Text
GUICtrlCreateLabel($text22 & "", 15, 80) ; Text
GUICtrlCreateLabel($text32 & "", 15, 110) ; Text
GUICtrlCreateLabel($text42 & "", 15, 140) ; Text
GUICtrlCreateLabel($text52 & "", 15, 170) ; Text
GUICtrlCreateLabel($text62 & "", 15, 200) ; Text
;GUICtrlCreateLabel($Menuekarte3 & "", 15, 230) ; Text
GUICtrlCreateLabel($beenden & "", 15, 260) ; Text

GUICtrlCreateLabel("Auswahl", 15, 350) ; Text
$Auswahl2 = GUICtrlCreateInput("", 70, 348, 15, 21)
$OKButton2 = GUICtrlCreateButton("&OK", 100, 348, 50, 22,$BS_DEFPUSHBUTTON) ; OK Button
GUICtrlSetOnEvent($OKButton2, "OKButton2"); ; auszuführen die "func" <-- hier OKButton()

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 300, 120) ; OK Button
GUISetOnEvent($menue2, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked");

;=======================================================================================================================================================
; end gui Menü 2

; Anfang der gui´s von Menü 2
;=======================================================================================================================================================

; Anfang Gui von 1: Fehlende Längenberechnung aus ---> Quadratmeter Berechnen
;----------------------------------------------------------------------------
; FehllaenQM <---- func Name

$FehllaenQM = GUICreate("Fehlende Längenberechnung ", 300, 300) ; Titel des FenstersFehlende Längenberechnung aus ---> Quadratmeter Berechnen
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked");
$formel8 = " Die Formel ist: m² / B = L "
$Volu_6 = "Bitte geben Sie das Volumen ein !"
$B = "Bitte geben Sie die Breite ein !"

GUICtrlCreateLabel($formel8 & "", 15, 20)
GUICtrlCreateLabel($Volu_6 & "", 15, 80)
GUICtrlCreateLabel($B & "", 15, 140)

$Volu6 = GUICtrlCreateInput("", 15, 110, 50, 21)
GUICtrlSetOnEvent(-1, "FehllaenQM");
$Breite6 = GUICtrlCreateInput("", 15, 170, 50, 21)
GUICtrlSetOnEvent(-1, "FehllaenQM");

$reslabel8 = GUICtrlCreateLabel("Die Länge beträgt: 0 M", 15, 240, 250, 22)

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 270, 120) ; OK Button
GUISetOnEvent($FehllaenQM, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

;--------------------------------------------------------------------------
; Ende Gui von 1: Fehlende Längenberechnung aus ---> Quadratmeter Berechnen

; Anfang Gui von 2: Fehlende Breitenberechnung aus ---> Quadratmeter Berechnen
;-----------------------------------------------------------------------------
; FehlbreiQM <---- func Name

$FehlbreiQM = GUICreate("Fehlende Breitenberechnung ", 300, 300) ; Titel des Fensters Fehlende Breitenberechnung aus ---> Quadratmeter Berechnen
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked");
$formel9 = " Die Formel ist: m² / L = B "
$Volu_7 = "Bitte geben Sie das Volumen ein !"
$laeng_7 = "Bitte geben Sie die Länge ein !"

GUICtrlCreateLabel($formel9 & "", 15, 20)
GUICtrlCreateLabel($Volu_7 & "", 15, 80)
GUICtrlCreateLabel($laeng_7 & "", 15, 140)

$Volu7 = GUICtrlCreateInput("", 15, 110, 50, 21)
GUICtrlSetOnEvent(-1, "FehlbreiQM");
$laenge7 = GUICtrlCreateInput("", 15, 170, 50, 21)
GUICtrlSetOnEvent(-1, "FehlbreiQM");

$reslabel9 = GUICtrlCreateLabel("Die Breite beträgt: 0 M", 15, 240, 250, 22)

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 270, 120) ; OK Button
GUISetOnEvent($FehlbreiQM, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

;--------------------------------------------------------------------------
; Ende Gui von 2: Fehlende Breitenberechnung aus ---> Quadratmeter Berechnen

; Anfang Gui von 3: Fehlende Länge 1 Berechnen aus ---> Trapez Berechnen
;-----------------------------------------------------------------------------
; FehllaenTrap <---- func Name

$Fehllaen1Trap = GUICreate("Fehlende Länge 1 Bei Trapez", 300, 300) ; Fenster dimensionieren und Titel des Fensters
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked");
$formelTrap = " Die Formel ist: ( ( m² / H ) - ( L2 / 2 )) * 2 "
$QMTrap = "Bitte geben Sie die Quadratmeter ein !"
$L2Trap = "Bitte geben Sie die Länge 2 ein !"
$HTrap = "Bitte geben Sie die Höhe ein !"

GUICtrlCreateLabel($formelTrap & "", 15, 20)
GUICtrlCreateLabel($QMTrap & "", 15, 60)
GUICtrlCreateLabel($L2Trap & "", 15, 120)
GUICtrlCreateLabel($HTrap & "", 15, 180)

$QMTrap1 = GUICtrlCreateInput("", 15, 90, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen1Trap");
$LaengeTrap2 = GUICtrlCreateInput("", 15, 150, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen1Trap");
$hoeheTrap1 = GUICtrlCreateInput("", 15, 210, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen1Trap");

$reslabe20 = GUICtrlCreateLabel("Die Länge 1 betragen: 0 M", 15, 240, 250, 22)

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 270, 120) ; OK Button
GUISetOnEvent($Fehllaen1Trap, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

;--------------------------------------------------------------------------
; Ende Gui von 3: Fehlende Länge 1 Berechnen aus ---> Trapez Berechnen

; Anfang Gui von 3: Fehlende Länge 2 Berechnen aus ---> Trapez Berechnen
;-----------------------------------------------------------------------------
; Fehllaen2Trap <---- func Name

$Fehllaen2Trap = GUICreate("Fehlende Länge 1 Bei Trapez", 300, 300) ; Fenster dimensionieren und Titel des Fensters
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked");
$formelTrap1 = " Die Formel ist: ( ( m² / H ) - ( L2 / 2 )) * 2 "
$QMTrap = "Bitte geben Sie die Quadratmeter ein !"
$L1Trap = "Bitte geben Sie die Länge 1 ein !"
$HTrap = "Bitte geben Sie die Höhe ein !"

GUICtrlCreateLabel($formelTrap1 & "", 15, 20)
GUICtrlCreateLabel($QMTrap & "", 15, 60)
GUICtrlCreateLabel($L2Trap & "", 15, 120)
GUICtrlCreateLabel($HTrap & "", 15, 180)

$QMTrap1 = GUICtrlCreateInput("", 15, 90, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen2Trap");
$LaengeTrap1 = GUICtrlCreateInput("", 15, 150, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen2Trap");
$hoeheTrap1 = GUICtrlCreateInput("", 15, 210, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen2Trap");

$reslabe21 = GUICtrlCreateLabel("Die Länge 1 betragen: 0 M", 15, 240, 250, 22)

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 270, 120) ; OK Button
GUISetOnEvent($Fehllaen2Trap, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

;--------------------------------------------------------------------------
; Ende Gui von 3: Fehlende Länge 2 Berechnen aus ---> Trapez Berechnen 5; Fehlende Höhe Berechnen aus ---> Trapez Berechnen

; Anfang Gui von 5; Fehlende Höhe Berechnen aus ---> Trapez Berechnen
;-----------------------------------------------------------------------------

; FehllhoeheTrap <---- func Name

$FehllhoeheTrap = GUICreate("Fehlende Höhe Bei Trapez", 300, 300) ; Fenster dimensionieren und Titel des Fensters
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked");
$formelTrap_3 = " Die Formel ist: ( m² / ( ( L1 / 2) + ( L2 / 2 ) ) )"
$QMTrap_3 = "Bitte geben Sie die Quadratmeter ein !"
$L1Trap_3 = "Bitte geben Sie die Länge 1 ein !"
$L2Trap_3 = "Bitte geben Sie die Länge 2 ein !"

GUICtrlCreateLabel($formelTrap_3 & "", 15, 20)
GUICtrlCreateLabel($QMTrap_3 & "", 15, 60)
GUICtrlCreateLabel($L2Trap_3 & "", 15, 120)
GUICtrlCreateLabel($L2Trap_3 & "", 15, 180)

$QMTrap3 = GUICtrlCreateInput("", 15, 90, 50, 21)
GUICtrlSetOnEvent(-1, "FehllhoeheTrap");
$LaengeTrap3 = GUICtrlCreateInput("", 15, 150, 50, 21)
GUICtrlSetOnEvent(-1, "FehllhoeheTrap");
$LaengTrap3 = GUICtrlCreateInput("", 15, 210, 50, 21)
GUICtrlSetOnEvent(-1, "FehllhoeheTrap");

$reslabe21 = GUICtrlCreateLabel("Die Länge 1 betragen: 0 M", 15, 240, 250, 22)

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 270, 120) ; OK Button
GUISetOnEvent($FehllhoeheTrap, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

;--------------------------------------------------------------------------
; Ende Gui von 5: Fehlende Höhe Berechnen aus ---> Trapez Berechnen

; Anfang Gui von 6: Fehlende Länge Berechnen aus ---> Dreiecke Berechnen
;-----------------------------------------------------------------------------
; func Name = FehlaenDreiecks()
$FehlaenDreiecks = GUICreate("Fehlende Länge beim Dreieck", 300, 300) ; Fenster dimensionieren und Titel des Fensters
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked");
$formelDrei = " Die Formel ist: L = ( m² / H ) * 2 "
$LDDrei = "Bitte geben Sie die Quadratmeter an !"
$HDDrei = "Bitte geben Sie die Höhe ein !"

GUICtrlCreateLabel($formelDrei & "", 15, 20)
GUICtrlCreateLabel($LDDrei & "", 15, 60)
GUICtrlCreateLabel($HDDrei & "", 15, 120)

$QMDREI = GUICtrlCreateInput("", 15, 90, 50, 21)
GUICtrlSetOnEvent(-1, "FehlaenDreiecks");
$HoeheLDDREI = GUICtrlCreateInput("", 15, 150, 50, 21)
GUICtrlSetOnEvent(-1, "FehlaenDreiecks");

$reslabe22 = GUICtrlCreateLabel("Die Länge beträgt: 0 m²", 15, 240, 250, 22)

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 270, 120) ; OK Button
GUISetOnEvent($FehlaenDreiecks, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

;--------------------------------------------------------------------------
; Ende Gui von 6: Fehlende Länge Berechnen aus ---> Dreiecke Berechnen

; Anfang Gui von 7: Fehlende Höhe Berechnen aus ---> Dreiecke Berechnen
;-----------------------------------------------------------------------------
; func Name = FehlhoeDreiecks()

$FehlhoeDreiecks = GUICreate("Fehlende Höhe beim Dreieck", 300, 300) ; Fenster dimensionieren und Titel des Fensters
Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1) ; Wechsle in den OnEvent Modus

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked");
$formelDrei_2 = " Die Formel ist: H = ( m² / L ) * 2 "
$QMDrei_2 = "Bitte geben Sie die Quadratmeter an !"
$LaeDrei = "Bitte geben Sie die Länge ein !"

GUICtrlCreateLabel($formelDrei_2 & "", 15, 20)
GUICtrlCreateLabel($QMDrei_2 & "", 15, 60)
GUICtrlCreateLabel($LaeDrei & "", 15, 120)

$QMDREI_3 = GUICtrlCreateInput("", 15, 90, 50, 21)
GUICtrlSetOnEvent(-1, "FehlhoeDreiecks");
$LaengeDREI = GUICtrlCreateInput("", 15, 150, 50, 21)
GUICtrlSetOnEvent(-1, "FehlhoeDreiecks");

$reslabe23 = GUICtrlCreateLabel("Die Höhe beträgt: 0 m²", 15, 240, 250, 22)

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 270, 120) ; OK Button
GUISetOnEvent($FehlhoeDreiecks, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked"); ; auszuführen die "func" <-- hier CLOSEClicked()

;--------------------------------------------------------------------------
; Ende Gui von 7: Fehlende Höhe Berechnen aus ---> Dreiecke Berechnen

;=======================================================================================================================================================
; ende für die gui´s von Menü 2

While 1
Sleep(100)
WEnd

Func OKButton() ; <-- func Start
$Auswahlwert = GUICtrlRead($Auswahl, 0)
Switch $Auswahlwert
Case "1"
;MsgBox(0, "", "Erster Case-Ausdruck Volumenberechnung war wahr");
GUISetState(@SW_SHOW, $Vol)
;Volumenberechnung()
Case "2"
GUISetState(@SW_SHOW, $LaengBerechnung)
;MsgBox(0, "", "Zweiter Case-Ausdruck war wahr");
Case "3"
GUISetState(@SW_SHOW, $BreitenBerechnung)
;MsgBox(0, "", "Dritter Case-Ausdruck war wahr");
Case "4"
GUISetState(@SW_SHOW, $Hoehenberechnung)
;MsgBox(0, "", "Vierter Case-Ausdruck war wahr");
Case "5"
GUISetState(@SW_SHOW, $QM_Berechn)
;MsgBox(0, "", "Fünfter Case-Ausdruck war wahr");
Case "6"
GUISetState(@SW_SHOW, $Trapez)
;MsgBox(0, "", "Sechster Case-Ausdruck war wahr");
Case "7"
GUISetState(@SW_SHOW, $Dreiecks)
;MsgBox(0, "", "Siebter Case-Ausdruck war wahr");
Case "8"
GUISetState(@SW_SHOW, $menue2)
;MsgBox(0, "", "Achter Case-Ausdruck war wahr");
Case Else
MsgBox(0, "Fehler", "Geben Sie eine Nummer ein !");
EndSwitch
EndFunc ;==>OKButton

Func CLOSEClicked()
GUISetState(@SW_HIDE, @GUI_WinHandle)
if @GUI_WinHandle = $hauptgui Then Exit
EndFunc ;==>CLOSEClicked

Func Volumenberechnung() ; <==Volumenberechnung
Global $L = GUICtrlRead($laenge1)
Global $B = GUICtrlRead($Breite1)
Global $H = GUICtrlRead($hoehe1)

$Volumen = ($L * $B * $H)
$var = Int(1000 * $Volumen + .5) / 1000

GUICtrlSetData($reslabel1, "Das Volumen beträgt: " & $var & " Kubik");

EndFunc ;==>Volumenberechnung

Func Laenge_Berechnen()
Global $V = GUICtrlRead($Volu2)
Global $B = GUICtrlRead($Breite2)
Global $H = GUICtrlRead($hoehe2)

$laenge = ($V / ($B * $H))
$L = Int(1000 * $laenge + .5) / 1000

GUICtrlSetData($reslabel2, "Die Länge beträgt: " & $L & " Meter ");
EndFunc ;==>Laenge_Berechnen

Func Breite_Berechnen() ; Func Anfang

Global $V = GUICtrlRead($Volu3)
Global $L = GUICtrlRead($laenge3)
Global $H = GUICtrlRead($hoehe3)

$Breite = ($V / ($L * $H))
$B = Int(1000 * $Breite + .5) / 1000

GUICtrlSetData($reslabel3, "Die Breite beträgt: " & $B & " Meter ");

EndFunc ;==>Breite_Berechnen

Func Hoehe_Berechnen() ; Func Anfang

Global $V = GUICtrlRead($Volu4)
Global $L = GUICtrlRead($laenge4)
Global $B = GUICtrlRead($Breite4)

$hoehe = ($V / ($L * $B))
$H = Int(1000 * $hoehe + .5) / 1000

GUICtrlSetData($reslabel4, "Die Höhe beträgt: " & $H & " Meter ");

EndFunc ;==>Hoehe_Berechnen

Func QM_Berechnen() ; Func Anfang

Global $aQM = GUICtrlRead($laengeQM)
Global $BQM = GUICtrlRead($BreiteQM)

$QM_1 = ($aQM * $BQM)
$QM1 = Int(1000 * $QM_1 + .5) / 1000

GUICtrlSetData($reslabel5, "Die Quadratmeter betragen: " & $QM1 & " m² ");

EndFunc ;==> QM_Bere

func Trapez()

Global $L1Trapez = GUICtrlRead($laengeL1Trap_1)
Global $L2Trapez = GUICtrlRead($LaengeL2Trap_1)
Global $H2Trapez = GUICtrlRead($hoeheTrap_1)

$QMTrap = ( ( $L1Trapez + $L2Trapez) / 2 ) * $H2Trapez

GUICtrlSetData($reslabel6, "Die Quadratmeter betragen: " & $QMTrap & " m² ");

EndFunc

func Dreiecks()

Global $LD = GUICtrlRead($laengeLD)
Global $HD = GUICtrlRead($HoeheLD)

$QM2 = ( $LD * $HD ) / 2
$QM3 = Int(1000 * $QM2 + .5) / 1000

GUICtrlSetData($reslabel7, "Die Quadratmeter betragen: " & $QM3 & " m² ");

EndFunc

;=======================================================================================================================================================
; func für ---> AUSWAHLMENÜ 2
;=======================================================================================================================================================

Func OKButton2() ; <-- func Start
$Auswahlwert2 = GUICtrlRead($Auswahl2, 0)
Switch $Auswahlwert2
Case "1"
GUISetState(@SW_SHOW, $FehllaenQM)
;MsgBox(0, "", "Erster Case-Ausdruck Volumenberechnung war wahr");
Case "2"
GUISetState(@SW_SHOW, $FehlbreiQM)
;MsgBox(0, "", "Zweiter Case-Ausdruck war wahr");
Case "3"
GUISetState(@SW_SHOW, $Fehllaen1Trap)
;MsgBox(0, "", "Dritter Case-Ausdruck war wahr");
Case "4"
GUISetState(@SW_SHOW, $Fehllaen2Trap)
;MsgBox(0, "", "Vierter Case-Ausdruck war wahr");
Case "5"
GUISetState(@SW_SHOW, $FehllhoeheTrap)
;MsgBox(0, "", "Fünfter Case-Ausdruck war wahr");
Case "6"
GUISetState(@SW_SHOW, $FehlaenDreiecks)
;MsgBox(0, "", "Sechster Case-Ausdruck war wahr");
Case "7"
GUISetState(@SW_SHOW, $FehlhoeDreiecks)
;MsgBox(0, "", "Siebter Case-Ausdruck war wahr");
Case "8"
;GUISetState(@SW_SHOW, $Ma8)
MsgBox(0, "", "Achter Case-Ausdruck war wahr");
Case Else
MsgBox(0, "Fehler", "Geben Sie eine Nummer ein !");
EndSwitch
EndFunc ;==>OKButton

func FehllaenQM() ; Func Anfang

Global $Vol = GUICtrlRead($Volu6)
Global $Br = GUICtrlRead($Breite6)

$lae = ( $Vol / $Br )
$lae1 = Int(1000 * $lae + .5) / 1000

GUICtrlSetData($reslabel8, "Die Länge beträgt: " & $lae1 & " M ");

EndFunc

func FehlbreiQM() ;==> QM_Bere

Global $Vol = GUICtrlRead($Volu7)
Global $lae7 = GUICtrlRead($laenge7)

$erg = ( $Vol / $lae7 )
$erg1 = Int(1000 * $erg + .5) / 1000

GUICtrlSetData($reslabel9, "Die Breite beträgt: " & $erg1 & " M ");

EndFunc

func Fehllaen1Trap()

Global $QMTrapez = GUICtrlRead($QMTrap1)
Global $L2Trapez = GUICtrlRead($LaengeTrap2 )
Global $HTrap0 = GUICtrlRead($hoeheTrap1)

$Laeng1Trap = ( ( $QMTrapez / $HTrap0 ) - ($L2Trapez / 2 ) ) * 2
$Laeng1TrapERG = Int( 1000 * $Laeng1Trap + .5) / 1000

GUICtrlSetData($reslabe20, "Die Länge 1 beträgt: " & $Laeng1TrapERG & " M ");

EndFunc

func Fehllaen2Trap()

Global $QMTrapez = GUICtrlRead($QMTrap1)
Global $L1Trapez = GUICtrlRead($LaengeTrap1 )
Global $HTrap0 = GUICtrlRead($hoeheTrap1)

$Laeng2Trap = ( ( $QMTrapez / $HTrap0 ) - ($L1Trapez / 2 ) ) * 2
$Laeng1TrapERG = Int( 1000 * $Laeng2Trap + .5) / 1000

GUICtrlSetData($reslabe21, "Die Länge 2 beträgt: " & $Laeng1TrapERG & " M ");

EndFunc

func FehllhoeheTrap()

Global $QMTrapez = GUICtrlRead($QMTrap3)
Global $L1Trapez = GUICtrlRead($LaengeTrap3)
Global $L2Trap = GUICtrlRead($LaengTrap3)
; ( QM / ( ( L1 / 2) + ( L2 / 2 ) ) )
$HoeheFehTrap = ( $QMTrapez / ( ( $L1Trapez / 2 ) + ( $L2Trap / 2 ) ) )
$HoeheFehTrapERG = Int( 1000 * $HoeheFehTrap + .5) / 1000

GUICtrlSetData($reslabe21, "Die Höhe beträgt: " & $HoeheFehTrapERG & " M ");

EndFunc

func FehlaenDreiecks()

Global $LDFDREI = GUICtrlRead($QMDREI)
Global $HDFDrei = GUICtrlRead($HoeheLDDREI)
; L = ( QM / H ) * 2
$LaeFehl = ( $LDFDREI / $HDFDrei ) * 2
$LaeFehl1 = Int(1000 * $LaeFehl + .5) / 1000

GUICtrlSetData($reslabe22, "Die Länge beträgt: " & $LaeFehl1 & " M ");

EndFunc

func FehlhoeDreiecks()

Global $hoeFehDREI = GUICtrlRead($QMDREI_3)
Global $LaenDREI = GUICtrlRead($LaengeDREI)
; L = ( QM / L ) * 2
$LaeFehl = ( $hoeFehDREI / $LaenDREI ) * 2
$LaeFehl1 = Int(1000 * $LaeFehl + .5) / 1000

GUICtrlSetData($reslabe23, "Die Höhe beträgt: " & $LaeFehl1 & " M ");

EndFunc

[/autoit]

Ansonsten fehlt noch, das man einen Button betätigen kann, der die Berechnung "startet", da man sonst immer erst wieder mit der Maus auf ein Feld klicken muß, das man schon ausgefüllt hat.

Die Sachen "Einheit" und "Menüsteuerung" wurden bereits genannt.

QM ist, da gebe ich Oscar recht, die geläufige Abk. für "Qualitäts-Manager" bzw. auch "Qualitätsmanagment" und diese wird z. B. auch bei Gutachten verwendet.

Prüfe einfach mal den berichtigten Soucrecode und wenn Du alles überarbeitet hast, dann einfach neu posten und vllt. fällt uns dann ja noch mehr ein.

Ich mag Mathe gerne und so kann ich Dir sicherlich auch noch Hilfe geben. Mein Vorschlag ist, das Du die Formeln noch irgendwie mit sichtbar macht. Die Anwender können so nämlich auch gleich die Formeln lesen und es ist ja bekannt, das man durch lesen auch lernt.

Gruß, Lina.

Chicago

Hallo,

erstmal möchte ich danke sagen für die Kritik, und eure tolle Hilfe.

Jetzt mal der Reihe nach:

Zu Oskar:

Angefangen mit Zeile 56:
Semikolon VOR der schließenden Klammer. Diesen Fehler hast Du dutzende Male (bei jedem GUICtrlSetOnEvent und jedem GUISetOnEvent) gemacht.

-> Das kann ich leider nicht nachvollziehen, da es in meinem Script nicht so ist, auch
habe ich das Listing ausgedruckt wo es auch nicht so ist ....

- Zeile 179: $Formel4 = " Die Formel = V / ( L * B "

-> habe es im Ausdruck gesehen, aber es war schon zu spät um es zu ändern
hätte ich aber heute noch Editiert,

- Trapez schreibt sich ohne "tz"
-> schreibfehler, aber Deutsch war nie meine stärke

- Benutzer muss erraten, in welcher Einheit er die Eingaben machen muss.
-> Ich denke Du meinst jetzt in Metern oder mm.... Masseinheiten ?

zur Ausgabe der MsgBox Seite 2 .... da wollte ich noch eine dritte Seite ranhängen mit
Volumenberechnen von Zylindern, Kegeln und soweiter..... nur vergessen es auszukommentieren.

Opt("GUICoordMode", 3) und Opt("GUIOnEventMode", 1)
-> danke, wie ich sehe in jeder gui drin....

m² .... <-- wusste nicht wie ich das hoch 2 hinbekomme..... trotzdem Danke

Zu Alina:

Warum sollte ich Dir denn die Berichtigung übel nehmen... ich freue mich wenn ich hilfe und änderungs vorschläge auch in Form von Berichtigungen bekomme. So kann ich doch besser vergleichen .....

- Button betätigen kann, der die Berechnung "startet",
-> den hatte ich schon mal am anfang drin, hatte ihn aber nicht wirklich ans laufen bekommen...
werde ich aber noch einbauen bis zum nächsten mal. Ansonsten reicht doch Enter bei der letzten eingabe

Wie meinst Du das, mit den Formeln anzeigen? Die stehen doch schon im Fenster ....

Bei mir lief das Script eigendlich ohne Fehler, habe es ausgibig getestet. Mit
groben Fehlern hätte ich es nicht gepostet... Wer mich von Galenda her kennt,
weiß das...... da bin ich ein Perfektionist....
aber egal.... ist halt so, darum bittet man ja um Hilfe

Wie gesagt Danke an euch zwei für die konstruktive unterstützung...

Edit .... sehe gerade mein 100 Post ... :tassen:

Edit2 ..... im ersten Post Script überarbeitet... mit Berechnen Button

Edit3 .... Erneut überarbeitet ... Formeln und Ergebnis hervorgehoben und letzte Rechenfehler
behoben .... Ihr könnt wieder Testen

**Oscar**

Hallo Chicago!

Ich habe mal das erste Menü bearbeitet.
So in etwa (mit Buttons) finde ich die Navigation besser.

Sieh Dir mal die Zeilen 28...48 und Zeile 676 an. Die habe ich geändert.

Spoiler anzeigen

[autoit]

#cs
----------------------------------------------------------------------------
AutoIt Version: 3.2.8.1
Author: Chicago

Script Function: Mathematik Grundrechenarten

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

; ##############################
; includes
; ##############################
#include <GUIConstants.au3>

Opt("GUICoordMode", 3)
Opt("GUIOnEventMode", 1)
global $font = "Arial Black"

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

Dim $Auswahl[9]; 0...8
Dim $text[9]; 0...8

$hauptgui = GUICreate("Mathematik 1", 500, 400)

$text[0] = "1: Volumenberechnung"
$text[1] = "2: Fehlende Längenberechnung aus ---> Volumen"
$text[2] = "3: Fehlende Breitenberechnung aus ---> Volumen"
$text[3] = "4: Fehlende Höhenberechnung aus ---> Volumen"
$text[4] = "5; Quadratmeter Berechnung"
$text[5] = "6: Trapez Berechnung"
$text[6] = "7: Dreiecks Berechnung"
$text[7] = "8: Menüauswahlkarte 2"
$text[8] = "Menüauswahl beenden mit ESC"

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

For $i = 0 To 7
$Auswahl[$i] = GUICtrlCreateButton($text[$i], 15, 20 + $i * 30)
GUICtrlSetOnEvent(-1, "OKButton")
Next

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

GUICtrlCreateLabel($text[8], 15, 280)

GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

; Gui Volumenberechnung
; ====================================

$vol = GUICreate("Volumenberechnung", 300, 350)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

$Formel1 = " Die Formel = L * B * H "
$l1 = "Bitte geben Sie die Länge ein !"
$B1 = "Bitte geben Sie die Breite ein !"
$h1 = "Bitte geben Sie die Höhe ein !"

GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($Formel1 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($l1 & "", 15, 50)
GUICtrlCreateLabel($B1 & "", 15, 110)
GUICtrlCreateLabel($h1 & "", 15, 170)

$laenge1 = GUICtrlCreateInput("", 15, 70, 50, 21)
GUICtrlSetOnEvent(-1, "Volumenberechnung");
$Breite1 = GUICtrlCreateInput("", 15, 130, 50, 21)
GUICtrlSetOnEvent(-1, "Volumenberechnung");
$hoehe1 = GUICtrlCreateInput("", 15, 190, 50, 21)
GUICtrlSetOnEvent(-1, "Volumenberechnung");

$Berechnen_Button = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Volumenberechnung")

$font="Arial Black"
GUISetFont (9, 400, 4, $font)
$reslabel1 = GUICtrlCreateLabel("Das Volumen beträgt: 0 Kubik", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($vol, "CLOSEClicked");
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")

; ====================================
; ende Gui Volumenberechnung

; Gui Fehlende Längenberechnung
; ====================================

$LaengBerechnung = GUICreate("Fehlende Längenberechnung", 300, 350)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$Formel2 = " Die Formel = ( V / ( B * H ))"
$V = "Bitte geben Sie das Volumen ein !"
$B1 = "Bitte geben Sie die Breite ein !"
$h1 = "Bitte geben Sie die Höhe ein !"

GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($Formel2 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($V & "", 15, 40)
GUICtrlCreateLabel($B1 & "", 15, 100)
GUICtrlCreateLabel($h1 & "", 15, 160)

$Volu2 = GUICtrlCreateInput("", 15, 70, 50, 21)
GUICtrlSetOnEvent(-1, "Laenge_Berechnen")
$Breite2 = GUICtrlCreateInput("", 15, 130, 50, 21)
GUICtrlSetOnEvent(-1, "Laenge_Berechnen")
$hoehe2 = GUICtrlCreateInput("", 15, 190, 50, 21)
GUICtrlSetOnEvent(-1, "Laenge_Berechnen")

$Berechnen_Button1 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Laenge_Berechnen")

GUISetFont (9, 400, 4, $font)
$reslabel2 = GUICtrlCreateLabel("Die Länge beträgt: 0 Meter", 15, 280, 250, 22)

GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($LaengBerechnung, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")

; ====================================
; ende Gui Fehlende Längenberechnung

; Gui Fehlende Breitenberechnung
; ====================================

$BreitenBerechnung = GUICreate("Fehlende BreitenBerechnung", 300, 350)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$Formel3 = " Die Formel = V / ( L * H )"
$V = "Bitte geben Sie das Volumen ein !"
$l1 = "Bitte geben Sie die Länge ein !"
$h1 = "Bitte geben Sie die Höhe ein !"

GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($Formel3 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($V & "", 15, 40)
GUICtrlCreateLabel($l1 & "", 15, 100)
GUICtrlCreateLabel($h1 & "", 15, 160)

$Volu3 = GUICtrlCreateInput("", 15, 70, 50, 21)
GUICtrlSetOnEvent(-1, "Breite_Berechnen");
$laenge3 = GUICtrlCreateInput("", 15, 130, 50, 21)
GUICtrlSetOnEvent(-1, "Breite_Berechnen");
$hoehe3 = GUICtrlCreateInput("", 15, 190, 50, 21)
GUICtrlSetOnEvent(-1, "Breite_Berechnen");

$Berechnen_Button2 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Breite_Berechnen")

GUISetFont (9, 400, 4, $font)
$reslabel3 = GUICtrlCreateLabel("Die Breite beträgt: 0 Meter", 15, 280, 250, 22)
GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($BreitenBerechnung, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")

; ====================================
; ende Gui Fehlende Breitenberechnung

; Gui Fehlende Höhenberechnung
; ====================================

$Hoehenberechnung = GUICreate("Fehlende Höhe Berechnung", 300, 350)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$Formel4 = " Die Formel = V / ( L * B )"
$V = "Bitte geben Sie das Volumen ein !"
$l1 = "Bitte geben Sie die Länge ein !"
$B1 = "Bitte geben Sie die Breite ein !"

GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($Formel4 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($V & "", 15, 40)
GUICtrlCreateLabel($l1 & "", 15, 100)
GUICtrlCreateLabel($B1 & "", 15, 160)

$Volu4 = GUICtrlCreateInput("", 15, 70, 50, 21)
GUICtrlSetOnEvent(-1, "Hoehe_Berechnen")
$laenge4 = GUICtrlCreateInput("", 15, 130, 50, 21)
GUICtrlSetOnEvent(-1, "Hoehe_Berechnen")
$Breite4 = GUICtrlCreateInput("", 15, 190, 50, 21)
GUICtrlSetOnEvent(-1, "Hoehe_Berechnen")

#cs
Func Hoehe_Berechnen() ; Func Anfang

Global $V_1 = GUICtrlRead($Volu4)
Global $L_1 = GUICtrlRead($laenge4)
Global $B_1 = GUICtrlRead($Breite4)

$hoehe = ($V_1 / ($L_1 * $B_1))
$H = Int(1000 * $hoehe + .5) / 1000
$H1 = Round($H, 3)

GUICtrlSetData($reslabel4, "Die Höhe beträgt: " & $H1 & " Meter ");

EndFunc ;==>Hoehe_Berechnen
#ce

$Berechnen_Button3 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Hoehe_Berechnen")

GUISetFont (9, 400, 4, $font)
$reslabel4 = GUICtrlCreateLabel("Die Höhe beträgt: 0 Meter", 15, 280, 250, 22)

GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($Hoehenberechnung, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")

; ====================================
; ende Gui Fehlende Höhenberechnung

; Gui Quadratmeter Berechnung
; ====================================

$QM_Berechn = GUICreate("Quadratmeter Berechnung", 300, 350)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formel5 = " Die Formel ist: A * B = m² "
$a = "Bitte geben Sie die Länge ein !"
$B = "Bitte geben Sie die Breite ein !"

GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formel5 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($a & "", 15, 80)
GUICtrlCreateLabel($B & "", 15, 140)

$laengeQM = GUICtrlCreateInput("", 15, 110, 50, 21)
GUICtrlSetOnEvent(-1, "QM_Berechnen")
$BreiteQM = GUICtrlCreateInput("", 15, 170, 50, 21)
GUICtrlSetOnEvent(-1, "QM_Berechnen")

$Berechnen_Button4 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Hoehe_Berechnen")

GUISetFont (9, 400, 4, $font)
$reslabel5 = GUICtrlCreateLabel("Die Quadratmeter betragen: 0 m²", 15, 280, 250, 22)

GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($QM_Berechn, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")

; ====================================
; ende Gui Quadratmeter Berechnung

; Gui Trapez Berechnung
; ====================================

$Trapez = GUICreate("Trapez Berechnung", 300, 350)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formel6 = " Die Formel ist: FL = ( L1 + L2 ) / 2 ) * H "
$L1 = "Bitte geben Sie die Länge 1 ein !"
$L2 = "Bitte geben Sie die Länge 2 ein !"
$H = "Bitte geben Sie die Höhe ein !"

GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formel6 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($L1 & "", 15, 60)
GUICtrlCreateLabel($L2 & "", 15, 120)
GUICtrlCreateLabel($H & "", 15, 180)

$laengeL1Trap_1= GUICtrlCreateInput("", 15, 80, 50, 21)
GUICtrlSetOnEvent(-1, "Trapez")
$LaengeL2Trap_1 = GUICtrlCreateInput("", 15, 140, 50, 21)
GUICtrlSetOnEvent(-1, "Trapez")
$hoeheTrap_1 = GUICtrlCreateInput("", 15, 200, 50, 21)
GUICtrlSetOnEvent(-1, "Trapez")

$Berechnen_Button5 = GUICtrlCreateButton("&Berechnen", 15, 240, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Trapez")

GUISetFont (9, 400, 4, $font)
$reslabel6 = GUICtrlCreateLabel("Die Quadratmeter betragen: 0 m²", 15, 280, 250, 22)

GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($Trapez, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")

; ====================================
; ende Gui Trapez Berechnung

; Gui Dreiecks Berechnung
; ====================================

$Dreiecks = GUICreate("Dreiecks Berechnung", 300, 350)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formel7 = " Die Formel ist: FL = ( L * H ) / 2 "
$LD = "Bitte geben Sie die Länge ein !"
$HD = "Bitte geben Sie die Höhe ein !"

GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formel7 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($LD & "", 15, 60)
GUICtrlCreateLabel($HD & "", 15, 120)

$laengeLD = GUICtrlCreateInput("", 15, 90, 50, 21)
GUICtrlSetOnEvent(-1, "Dreiecks")
$HoeheLD = GUICtrlCreateInput("", 15, 150, 50, 21)
GUICtrlSetOnEvent(-1, "Dreiecks")

$Berechnen_Button6 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Dreiecks")

GUISetFont (9, 400, 4, $font)
$reslabel7 = GUICtrlCreateLabel("Die Quadratmeter betragen: 0 m²", 15, 280, 250, 22)

GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($Dreiecks, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")

; ====================================
; ende Gui Dreiecks Berechnung

;=======================================================================================================================================================
; Gui AUSWAHLMENÜ 2
;=======================================================================================================================================================

$menue2 = GUICreate("Mathematik 1 MENÜ 2", 500, 400)

$text02 = "1: Fehlende Längenberechnung aus ---> Quadratmeter Berechnen"
$text12 = "2: Fehlende Breitenberechnung aus ---> Quadratmeter Berechnen"
$text22 = "3: Fehlende Länge 1 Berechnen aus ---> Trapez Berechnen"
$text32 = "4: Fehlende Länge 2 Berechnen aus ---> Trapez Berechnen"
$text42 = "5; Fehlende Höhe Berechnen aus ---> Trapez Berechnen"
$text52 = "6: Fehlende Länge Berechnen aus ---> Dreiecke Berechnen"
$text62 = "7: Fehlende Höhe Berechnen aus ---> Dreiecke Berechnen"
;$Menuekarte3 = "8: Menüauswahlkarte 3"
$beenden = "Zurück zu Menü 1 mit ESC"

GUICtrlCreateLabel($text02 & "", 15, 20)
GUICtrlCreateLabel($text12 & "", 15, 50)
GUICtrlCreateLabel($text22 & "", 15, 80)
GUICtrlCreateLabel($text32 & "", 15, 110)
GUICtrlCreateLabel($text42 & "", 15, 140)
GUICtrlCreateLabel($text52 & "", 15, 170)
GUICtrlCreateLabel($text62 & "", 15, 200)
;GUICtrlCreateLabel($Menuekarte3 & "", 15, 230)
GUICtrlCreateLabel($beenden & "", 15, 260)

GUICtrlCreateLabel("Auswahl", 15, 350)
$Auswahl2 = GUICtrlCreateInput("", 70, 348, 15, 21)
$OKButton2 = GUICtrlCreateButton("&OK", 100, 348, 50, 22,$BS_DEFPUSHBUTTON)
GUICtrlSetOnEvent($OKButton2, "OKButton2")

$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 300, 120)
GUISetOnEvent($menue2, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

;=======================================================================================================================================================
; end gui Menü 2

; Anfang der gui´s von Menü 2
;=======================================================================================================================================================

; Anfang Gui von 1: Fehlende Längenberechnung aus ---> Quadratmeter Berechnen
;----------------------------------------------------------------------------
; FehllaenQM <---- func Name

$FehllaenQM = GUICreate("Fehlende Längenberechnung ", 300, 350)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formel8 = " Die Formel ist: m² / B = L "
$Volu_6 = "Bitte geben Sie das Volumen ein !"
$B = "Bitte geben Sie die Breite ein !"

GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formel8 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($Volu_6 & "", 15, 80)
GUICtrlCreateLabel($B & "", 15, 140)

$Volu6 = GUICtrlCreateInput("", 15, 110, 50, 21)
GUICtrlSetOnEvent(-1, "FehllaenQM")
$Breite6 = GUICtrlCreateInput("", 15, 170, 50, 21)
GUICtrlSetOnEvent(-1, "FehllaenQM")

$Berechnen_Button7 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "FehllaenQM")

GUISetFont (9, 400, 4, $font)
$reslabel8 = GUICtrlCreateLabel("Die Länge beträgt: 0 M", 15, 280, 250, 22)

GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($FehllaenQM, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")

;--------------------------------------------------------------------------
; Ende Gui von 1: Fehlende Längenberechnung aus ---> Quadratmeter Berechnen

; Anfang Gui von 2: Fehlende Breitenberechnung aus ---> Quadratmeter Berechnen
;-----------------------------------------------------------------------------
; FehlbreiQM <---- func Name

$FehlbreiQM = GUICreate("Fehlende Breitenberechnung ", 300, 350)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formel9 = " Die Formel ist: m² / L = B "
$Volu_7 = "Bitte geben Sie das Volumen ein !"
$laeng_7 = "Bitte geben Sie die Länge ein !"

GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formel9 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($Volu_7 & "", 15, 80)
GUICtrlCreateLabel($laeng_7 & "", 15, 140)

$Volu7 = GUICtrlCreateInput("", 15, 110, 50, 21)
GUICtrlSetOnEvent(-1, "FehlbreiQM")
$laenge7 = GUICtrlCreateInput("", 15, 170, 50, 21)
GUICtrlSetOnEvent(-1, "FehlbreiQM")

$Berechnen_Button8 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "FehllaenQM")

GUISetFont (9, 400, 4, $font)
$reslabel9 = GUICtrlCreateLabel("Die Breite beträgt: 0 M", 15, 280, 250, 22)

GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($FehlbreiQM, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")

;--------------------------------------------------------------------------
; Ende Gui von 2: Fehlende Breitenberechnung aus ---> Quadratmeter Berechnen

; Anfang Gui von 3: Fehlende Länge 1 Berechnen aus ---> Trapez Berechnen
;-----------------------------------------------------------------------------
; FehllaenTrap <---- func Name

$Fehllaen1Trap = GUICreate("Fehlende Länge 1 Bei Trapez", 300, 350)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formelTrap = " Die Formel ist: ( ( m² / H ) - ( L2 / 2 )) * 2 "
$QMTrap = "Bitte geben Sie die Quadratmeter ein !"
$L2Trap = "Bitte geben Sie die Länge 2 ein !"
$HTrap = "Bitte geben Sie die Höhe ein !"

GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formelTrap & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($QMTrap & "", 15, 60)
GUICtrlCreateLabel($L2Trap & "", 15, 120)
GUICtrlCreateLabel($HTrap & "", 15, 180)

$QMTrap1_0 = GUICtrlCreateInput("", 15, 80, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen1Trap")
$LaengeTrap2_0 = GUICtrlCreateInput("", 15, 140, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen1Trap")
$hoeheTrap1_0 = GUICtrlCreateInput("", 15, 200, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen1Trap")

$Berechnen_Button9 = GUICtrlCreateButton("&Berechnen", 15, 240, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Fehllaen1Trap")

GUISetFont (9, 400, 4, $font)
$reslabe20 = GUICtrlCreateLabel("Die Länge 1 beträgt: 0 M", 15, 280, 250, 22)

GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($Fehllaen1Trap, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")

;--------------------------------------------------------------------------
; Ende Gui von 3: Fehlende Länge 1 Berechnen aus ---> Trapez Berechnen

; Anfang Gui von 3: Fehlende Länge 2 Berechnen aus ---> Trapez Berechnen
;-----------------------------------------------------------------------------
; Fehllaen2Trap <---- func Name

$Fehllaen2Trap = GUICreate("Fehlende Länge 2 Bei Trapez", 300, 350)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formelTrap1 = " Die Formel ist: ( ( m² / H ) - ( L1 / 2 )) * 2 "
$QMTrap = "Bitte geben Sie die Quadratmeter ein !"
$L2Trap = "Bitte geben Sie die Länge 1 ein !"
$HTrap = "Bitte geben Sie die Höhe ein !"

GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formelTrap1 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($QMTrap & "", 15, 60)
GUICtrlCreateLabel($L2Trap & "", 15, 120)
GUICtrlCreateLabel($HTrap & "", 15, 180)

$QMTrap1_00 = GUICtrlCreateInput("", 15, 80, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen2Trap")
$LaengeTrap1_00 = GUICtrlCreateInput("", 15, 140, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen2Trap")
$hoeheTrap1_00 = GUICtrlCreateInput("", 15, 200, 50, 21)
GUICtrlSetOnEvent(-1, "Fehllaen2Trap")

$Berechnen_Button10 = GUICtrlCreateButton("&Berechnen", 15, 240, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "Fehllaen2Trap")

GUISetFont (9, 400, 4, $font)
$reslabe21 = GUICtrlCreateLabel("Die Länge 2 betragen: 0 M", 15, 280, 250, 22)

GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($Fehllaen2Trap, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")

;--------------------------------------------------------------------------
; Ende Gui von 3: Fehlende Länge 2 Berechnen aus ---> Trapez Berechnen

; Anfang Gui von 5; Fehlende Höhe Berechnen aus ---> Trapez Berechnen
;-----------------------------------------------------------------------------

; FehllhoeheTrap <---- func Name

$FehllhoeheTrap = GUICreate("Fehlende Höhe Bei Trapez", 300, 350)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formelTrap_3 = " Die Formel ist: ( m² / ( ( L1 / 2) + ( L2 / 2 ) ) )"
$QMTrap_3 = "Bitte geben Sie die Quadratmeter ein !"
$L1Trap_3 = "Bitte geben Sie die Länge 1 ein !"
$L2Trap_3 = "Bitte geben Sie die Länge 2 ein !"

GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formelTrap_3 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($QMTrap_3 & "", 15, 60)
GUICtrlCreateLabel($L1Trap_3 & "", 15, 120)
GUICtrlCreateLabel($L2Trap_3 & "", 15, 180)

$QMTrap3 = GUICtrlCreateInput("", 15, 80, 50, 21)
GUICtrlSetOnEvent(-1, "FehllhoeheTrap")
$LaengeTrap3 = GUICtrlCreateInput("", 15, 140, 50, 21)
GUICtrlSetOnEvent(-1, "FehllhoeheTrap")
$LaengTrap3 = GUICtrlCreateInput("", 15, 200, 50, 21)
GUICtrlSetOnEvent(-1, "FehllhoeheTrap")

$Berechnen_Button11 = GUICtrlCreateButton("&Berechnen", 15, 240, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "FehllhoeheTrap")

GUISetFont (9, 400, 4, $font)
$reslabe22 = GUICtrlCreateLabel("Die Höhe beträgt: 0 M", 15, 280, 250, 22)

GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($FehllhoeheTrap, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")

;--------------------------------------------------------------------------
; Ende Gui von 5: Fehlende Höhe Berechnen aus ---> Trapez Berechnen

; Anfang Gui von 6: Fehlende Länge Berechnen aus ---> Dreiecke Berechnen
;-----------------------------------------------------------------------------
; func Name = FehlaenDreiecks()
$FehlaenDreiecks = GUICreate("Fehlende Länge beim Dreieck", 300, 350)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formelDrei = " Die Formel ist: L = ( m² / H ) * 2 "
$LDDrei = "Bitte geben Sie die Quadratmeter an !"
$HDDrei = "Bitte geben Sie die Höhe ein !"

GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formelDrei & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($LDDrei & "", 15, 60)
GUICtrlCreateLabel($HDDrei & "", 15, 120)

$QMDREI = GUICtrlCreateInput("", 15, 90, 50, 21)
GUICtrlSetOnEvent(-1, "FehlaenDreiecks")
$HoeheLDDREI = GUICtrlCreateInput("", 15, 150, 50, 21)
GUICtrlSetOnEvent(-1, "FehlaenDreiecks")

$Berechnen_Button12 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "FehlaenDreiecks")

GUISetFont (9, 400, 4, $font)
$reslabe23 = GUICtrlCreateLabel("Die Länge beträgt: 0 m²", 15, 280, 250, 22)

GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($FehlaenDreiecks, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")

;--------------------------------------------------------------------------
; Ende Gui von 6: Fehlende Länge Berechnen aus ---> Dreiecke Berechnen

; Anfang Gui von 7: Fehlende Höhe Berechnen aus ---> Dreiecke Berechnen
;-----------------------------------------------------------------------------
; func Name = FehlhoeDreiecks()

$FehlhoeDreiecks = GUICreate("Fehlende Höhe beim Dreieck", 300, 350)

GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
$formelDrei_2 = " Die Formel ist: H = ( m² / L ) * 2 "
$QMDrei_2 = "Bitte geben Sie die Quadratmeter an !"
$LaeDrei = "Bitte geben Sie die Länge ein !"

GUISetFont (9, 400, 4, $font)
GUICtrlCreateLabel($formelDrei_2 & "", 15, 20)
GUISetFont (8.5, 400, 1, "")
GUICtrlCreateLabel($QMDrei_2 & "", 15, 60)
GUICtrlCreateLabel($LaeDrei & "", 15, 120)

$QMDREI_3 = GUICtrlCreateInput("", 15, 90, 50, 21)
GUICtrlSetOnEvent(-1, "FehlhoeDreiecks")
$LaengeDREI = GUICtrlCreateInput("", 15, 150, 50, 21)
GUICtrlSetOnEvent(-1, "FehlhoeDreiecks")

$Berechnen_Button13 = GUICtrlCreateButton("&Berechnen", 15, 230, 120) ; Berechnen Button
GUICtrlSetOnEvent($Berechnen_Button, "FehlhoeDreiecks")

GUISetFont (9, 400, 4, $font)
$reslabe24 = GUICtrlCreateLabel("Die Höhe beträgt: 0 m²", 15, 280, 250, 22)

GUISetFont (8.5, 400, 1, "")
$Zurueck = GUICtrlCreateButton("&Zurück zum Menü", 15, 310, 120)
GUISetOnEvent($FehlhoeDreiecks, "CLOSEClicked")
GUICtrlSetOnEvent($Zurueck, "CLOSEClicked")

;--------------------------------------------------------------------------
; Ende Gui von 7: Fehlende Höhe Berechnen aus ---> Dreiecke Berechnen

;=======================================================================================================================================================
; ende für die gui´s von Menü 2

While 1
Sleep(100)
WEnd

Func OKButton() ; <-- func Start
$Auswahlwert = @GUI_CtrlId - $Auswahl[0] + 1
Switch $Auswahlwert
Case "1"
;MsgBox(0, "", "Erster Case-Ausdruck Volumenberechnung war wahr")
GUISetState(@SW_SHOW, $Vol)
;Volumenberechnung()
Case "2"
GUISetState(@SW_SHOW, $LaengBerechnung)
;MsgBox(0, "", "Zweiter Case-Ausdruck war wahr");
Case "3"
GUISetState(@SW_SHOW, $BreitenBerechnung)
;MsgBox(0, "", "Dritter Case-Ausdruck war wahr");
Case "4"
GUISetState(@SW_SHOW, $Hoehenberechnung)
;MsgBox(0, "", "Vierter Case-Ausdruck war wahr");
Case "5"
GUISetState(@SW_SHOW, $QM_Berechn)
;MsgBox(0, "", "Fünfter Case-Ausdruck war wahr");
Case "6"
GUISetState(@SW_SHOW, $Trapez)
;MsgBox(0, "", "Sechster Case-Ausdruck war wahr");
Case "7"
GUISetState(@SW_SHOW, $Dreiecks)
;MsgBox(0, "", "Siebter Case-Ausdruck war wahr");
Case "8"
GUISetState(@SW_SHOW, $menue2)
;MsgBox(0, "", "Achter Case-Ausdruck war wahr");
Case Else
MsgBox(0, "Fehler", "Geben Sie eine vorhandene Nummer ein !")
EndSwitch
EndFunc ;==>OKButton

Func CLOSEClicked()
GUISetState(@SW_HIDE, @GUI_WinHandle)
if @GUI_WinHandle = $hauptgui Then Exit
EndFunc ;==>CLOSEClicked

Func Volumenberechnung() ; <==Volumenberechnung
Global $L = GUICtrlRead($laenge1)
Global $B = GUICtrlRead($Breite1)
Global $H = GUICtrlRead($hoehe1)

$Volumen = ($L * $B * $H)
$var = Int(1000 * $Volumen + .5) / 1000
$var1 = Round($var, 3)

GUICtrlSetData($reslabel1, "Das Volumen beträgt: " & $var1 & " Kubik");

EndFunc ;==>Volumenberechnung

Func Laenge_Berechnen()
Global $V = GUICtrlRead($Volu2)
Global $B = GUICtrlRead($Breite2)
Global $H = GUICtrlRead($hoehe2)

$laenge = ($V / ($B * $H))
$L = Int(1000 * $laenge + .5) / 1000
$L1 = Round($L, 3)

GUICtrlSetData($reslabel2, "Die Länge beträgt: " & $L1 & " Meter ");
EndFunc ;==>Laenge_Berechnen

Func Breite_Berechnen() ; Func Anfang

Global $V = GUICtrlRead($Volu3)
Global $L = GUICtrlRead($laenge3)
Global $H = GUICtrlRead($hoehe3)

$Breite = ($V / ($L * $H))
$B = Int(1000 * $Breite + .5) / 1000
$B1 = Round($B, 3)

GUICtrlSetData($reslabel3, "Die Breite beträgt: " & $B1 & " Meter ");

EndFunc ;==>Breite_Berechnen

Func Hoehe_Berechnen() ; Func Anfang

Global $V_1 = GUICtrlRead($Volu4)
Global $L_1 = GUICtrlRead($laenge4)
Global $B_1 = GUICtrlRead($Breite4)

$hoehe = ($V_1 / ($L_1 * $B_1))
$H = Int(1000 * $hoehe + .5) / 1000
$H1 = Round($H, 3)

GUICtrlSetData($reslabel4, "Die Höhe beträgt: " & $H1 & " Meter ");

EndFunc ;==>Hoehe_Berechnen

Func QM_Berechnen()

Global $aQM = GUICtrlRead($laengeQM)
Global $BQM = GUICtrlRead($BreiteQM)

$QM_1 = ($aQM * $BQM)
$QM1 = Int(1000 * $QM_1 + .5) / 1000
$QM1_1 = Round($QM1, 3)
GUICtrlSetData($reslabel5, "Die Quadratmeter betragen: " & $QM1_1 & " m² ");

EndFunc

func Trapez()

Global $L1Trapez = GUICtrlRead($laengeL1Trap_1)
Global $L2Trapez = GUICtrlRead($LaengeL2Trap_1)
Global $H2Trapez = GUICtrlRead($hoeheTrap_1)

$QMTrap = ( ( $L1Trapez + $L2Trapez) / 2 ) * $H2Trapez
$QMTrap1 = Round($QMTrap, 3)
GUICtrlSetData($reslabel6, "Die Quadratmeter betragen: " & $QMTrap1 & " m² ")

EndFunc

func Dreiecks()

Global $LD = GUICtrlRead($laengeLD)
Global $HD = GUICtrlRead($HoeheLD)

$QM2 = ( $LD * $HD ) / 2
$QM3 = Int(1000 * $QM2 + .5) / 1000
$QM3_1 = Round($QM3, 3)
GUICtrlSetData($reslabel7, "Die Quadratmeter betragen: " & $QM3_1 & " m² ")

EndFunc

;=======================================================================================================================================================
; func für ---> AUSWAHLMENÜ 2
;=======================================================================================================================================================

Func OKButton2() ; <-- func Start
$Auswahlwert2 = GUICtrlRead($Auswahl2, 0)
Switch $Auswahlwert2
Case "1"
GUISetState(@SW_SHOW, $FehllaenQM)
;MsgBox(0, "", "Erster Case-Ausdruck Volumenberechnung war wahr")
Case "2"
GUISetState(@SW_SHOW, $FehlbreiQM)
;MsgBox(0, "", "Zweiter Case-Ausdruck war wahr")
Case "3"
GUISetState(@SW_SHOW, $Fehllaen1Trap)
;MsgBox(0, "", "Dritter Case-Ausdruck war wahr")
Case "4"
GUISetState(@SW_SHOW, $Fehllaen2Trap)
;MsgBox(0, "", "Vierter Case-Ausdruck war wahr")
Case "5"
GUISetState(@SW_SHOW, $FehllhoeheTrap)
;MsgBox(0, "", "Fünfter Case-Ausdruck war wahr")
Case "6"
GUISetState(@SW_SHOW, $FehlaenDreiecks)
;MsgBox(0, "", "Sechster Case-Ausdruck war wahr")
Case "7"
GUISetState(@SW_SHOW, $FehlhoeDreiecks)
;MsgBox(0, "", "Siebter Case-Ausdruck war wahr")
Case "8"
;GUISetState(@SW_SHOW, $Ma8)
MsgBox(0, "Fehler", "Geben Sie eine vorhandene Nummer ein !")
Case Else
MsgBox(0, "Fehler", "Geben Sie eine vorhandene Nummer ein !")
EndSwitch
EndFunc ;==>OKButton

func FehllaenQM() ; Func Anfang

Global $Vol = GUICtrlRead($Volu6)
Global $Br = GUICtrlRead($Breite6)

$lae = ( $Vol / $Br )
$lae1 = Int(1000 * $lae + .5) / 1000
$lae1_1 = Round($lae1, 3)
GUICtrlSetData($reslabel8, "Die Länge beträgt: " & $lae1 & " M ")

EndFunc

func FehlbreiQM()

Global $Vol = GUICtrlRead($Volu7)
Global $lae7 = GUICtrlRead($laenge7)

$erg = ( $Vol / $lae7 )
$erg1 = Int(1000 * $erg + .5) / 1000
$erg1_1 = Round($erg1, 3 )
GUICtrlSetData($reslabel9, "Die Breite beträgt: " & $erg1_1 & " M ")

EndFunc

func Fehllaen1Trap()

Global $QMTrapez_00 = GUICtrlRead($QMTrap1_0)
Global $L2Trapez_00 = GUICtrlRead($LaengeTrap2_0 )
Global $HTrap0_00 = GUICtrlRead($hoeheTrap1_0)

$Laeng1Trap_000 = ( ( $QMTrapez_00 / $HTrap0_00 ) - ($L2Trapez_00 / 2 ) ) * 2
$Laeng1TrapERG_2 = Int( 1000 * $Laeng1Trap_000 + .5) / 1000
$Laeng1TrapERG_11 = Round($Laeng1TrapERG_2, 3)

GUICtrlSetData($reslabe20, "Die Länge 1 beträgt: " & $Laeng1TrapERG_11 & " M ")

EndFunc

func Fehllaen2Trap()

Global $QMTrapez_01 = GUICtrlRead($QMTrap1_00)
Global $L1Trapez_01 = GUICtrlRead($LaengeTrap1_00 )
Global $HTrap0_01 = GUICtrlRead($hoeheTrap1_00)

$Laeng2Trap = ( ( $QMTrapez_01 / $HTrap0_01 ) - ($L1Trapez_01 / 2 ) ) * 2
$Laeng1TrapERG2 = Int( 1000 * $Laeng2Trap + .5) / 1000
$Laeng1TrapERG3 = Round($Laeng1TrapERG2, 3)

GUICtrlSetData($reslabe21, "Die Länge 2 beträgt: " & $Laeng1TrapERG3 & " M ")

EndFunc

func FehllhoeheTrap()

Global $QMTrapez = GUICtrlRead($QMTrap3)
Global $L1Trapez = GUICtrlRead($LaengeTrap3)
Global $L2Trap = GUICtrlRead($LaengTrap3)

$HoeheFehTrap = ( $QMTrapez / ( ( $L1Trapez / 2 ) + ( $L2Trap / 2 ) ) )
$HoeheFehTrapERG = Int( 1000 * $HoeheFehTrap + .5) / 1000
$HoeheFehTrapERG1_1 = Round($HoeheFehTrapERG, 3)

GUICtrlSetData($reslabe22, "Die Höhe beträgt: " & $HoeheFehTrapERG1_1 & " M ")

EndFunc

func FehlaenDreiecks()

Global $LDFDREI = GUICtrlRead($QMDREI)
Global $HDFDrei = GUICtrlRead($HoeheLDDREI)

$LaeFehl = ( $LDFDREI / $HDFDrei ) * 2
$LaeFehl1 = Int(1000 * $LaeFehl + .5) / 1000
$LaeFehl2 = Round($LaeFehl1, 3)

GUICtrlSetData($reslabe23, "Die Länge beträgt: " & $LaeFehl2 & " M ")

EndFunc

func FehlhoeDreiecks()

Global $hoeFehDREI = GUICtrlRead($QMDREI_3)
Global $LaenDREI = GUICtrlRead($LaengeDREI)

$HoeFehl = ( $hoeFehDREI / $LaenDREI ) * 2
$HoeFehl1 = Int(1000 * $HoeFehl + .5) / 1000
$HoeFehl2 = Round($HoeFehl1, 3)

GUICtrlSetData($reslabe24, "Die Höhe beträgt: " & $HoeFehl2 & " M ")

EndFunc

[/autoit]

Chicago

Hallo Oscar,

Die Idee mit den Button ist nicht schlecht....
mit der if verstehe ich nicht so ganz.... aber egal.

Ich finde es ist auch sehr unübersichtlich was ich mir da damals ausgedacht habe, drum bin ich gerade dabei alles neu zu überarbeiten....
mit GUICtrlCreateTabItem ..... da lege ich die Button für jede Berechnung
zusammen in einem Reiter.... find ist wesendlich übersichtlicher.

Ich denke wenn ich es noch schaffe, stell ich es heute noch rein im ersten post.

Aber trotzdem danke für die Tips.... bis zum nächsten edit ...

Edit: .... so generalüberholt, aufgeräumt... mit Farbe gematscht...
Vieleicht müsste die OKButton Lösung überarbeitet werden ... aber mal sehen

**Oscar**

Hallo Chicago!

Klasse!

Jetzt ist es richtig gut. So wirkt das auch gleich viel professioneller.

Edit: Das heißt, eins ist mir noch eingefallen: Nutze doch die Fläche neben den Buttons für die Ein-/Ausgabe.

MfG. Oscar

Chicago

Hallo Oscar,

habe mal die neueste Fassung oben gepostet. Dein Vorschlag ist nicht schlecht, nur dachte ich mir hier nochmals die Formeln anzuzeigen.

Den ein oder anderen Tab versuche ich noch zu füllen mit Rechnungen.
Also wenn du noch was weißt, bitte schreiben, solltest du auch die Formel parat haben, direkt mitposten. Erspart mir die Suche.

**Oscar**

Neueste Fassung? Wo ist sie hin?

MfG. Oscar

chrisatack

Hi ....

Chicago erstmal thx für das nice Prog^^

Hatte mir vor kurzem auch mal was gebastelt zu Umrechnung von Grad Min und Sec... wollte es nur mal hier Posten falls es jemanden interessiert...

[Blockierte Grafik: http://img214.imageshack.us/img214/6347/01ta9.png]

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <GUIConstants.au3>
#include <Misc.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Formelrechner | Winkelumrechnung mit Grad/Min/Sec ~ by chris", 854, 150)
$Label1 = GUICtrlCreateLabel("Winkelumrechnung", 8, 8, 837, 33, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetFont(-1, 14, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x6E6E6E)
$Group1 = GUICtrlCreateGroup(" Winkelrechnungen mit Grad Min und Sec ", 8, 56, 835, 80)
$grad1 = GUICtrlCreateInput("", 16, 104, 33, 21)
$gradmin1 = GUICtrlCreateInput("", 64, 104, 33, 21)
$gradsec1 = GUICtrlCreateInput("", 112, 104, 33, 21)
$Combo1 = GUICtrlCreateCombo("+", 160, 104, 41, 25,BitOR($CBS_DROPDOWNLIST,$CBS_AUTOHSCROLL))
GUICtrlSetData (-1,"-")
$grad2 = GUICtrlCreateInput("", 208, 104, 33, 21)
$gradmin2 = GUICtrlCreateInput("", 256, 104, 33, 21)
$gradsec2 = GUICtrlCreateInput("", 304, 104, 33, 21)
$Berechne1 = GUICtrlCreateButton("Berechne", 718, 104, 63, 21, 0)
$leeren = GUICtrlCreateButton("Leeren", 787, 104, 50, 21, 0)
$ergebgrad = GUICtrlCreateInput("0", 400, 104, 73, 21,$ES_READONLY)
$ergebmin = GUICtrlCreateInput("0", 512, 104, 73, 21,$ES_READONLY)
$ergebsec = GUICtrlCreateInput("0", 624, 104, 73, 21,$ES_READONLY)
$Label3 = GUICtrlCreateLabel("°", 52, 104, 8, 17)
$Label4 = GUICtrlCreateLabel("'", 102, 104, 6, 17)
$Label5 = GUICtrlCreateLabel('"', 149, 104, 12, 17)
$Label6 = GUICtrlCreateLabel('" =', 341, 104, 45, 17)
$Label7 = GUICtrlCreateLabel("'", 294, 104, 6, 17)
$Label8 = GUICtrlCreateLabel("°", 244, 104, 8, 17)
$Label9 = GUICtrlCreateLabel("° oder ", 476, 104, 35, 17)
$Label2 = GUICtrlCreateLabel(" Winkel 1 +/- Winkel 2 = Ergebnis", 16, 80, 821, 17)
GUICtrlSetBkColor(-1, 0xD5D5D5)
$Label10 = GUICtrlCreateLabel("' oder ", 588, 104, 33, 17)
$Label11 = GUICtrlCreateLabel('"', 700, 104, 9, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

HotKeySet ("{enter}","_doit")

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

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

_doit ()

Case $leeren
GUICtrlSetData($grad1,"")
GUICtrlSetData($gradmin1,"")
GUICtrlSetData($gradsec1,"")
GUICtrlSetData($grad2,"")
GUICtrlSetData($gradmin2,"")
GUICtrlSetData($gradsec2,"")
GUICtrlSetData($ergebgrad,"")
GUICtrlSetData($ergebmin,"")
GUICtrlSetData($ergebsec,"")
EndSwitch
WEnd

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

Func _doit ()

If GUICtrlRead($gradsec1)>59 or GUICtrlRead($gradmin1)>59 or GUICtrlRead($gradsec2)>59 or GUICtrlRead($gradmin2)>59 Then
HotKeySet ("{enter}")
MsgBox (16,"error","Grad sec/min kann nicht >59 sein!")
HotKeySet ("{enter}","_doit")
Else
$sec = GUICtrlRead($gradsec1) /60 ;WINKEL 1
$zwischn1 = GUICtrlRead($gradmin1)+$sec
$min = $zwischn1/60
$ergeb1 = GUICtrlRead($grad1) + $min

$sec2 = GUICtrlRead($gradsec2) /60 ;WINKEL 2
$zwischn2 = GUICtrlRead($gradmin2)+$sec2
$min2 = $zwischn2/60
$ergeb2 = GUICtrlRead($grad2) + $min2

;ERGEBNIS BERECHNEN
if GUICtrlRead($Combo1) = '+' Then
$ergebnisgesammt = $ergeb1 + $ergeb2
Else
$ergebnisgesammt = $ergeb1 - $ergeb2
EndIf
$ergebnisgesammt = Round ($ergebnisgesammt,2)
GUICtrlSetData ($ergebgrad,$ergebnisgesammt)

GUICtrlSetData ($ergebmin,Round($ergebnisgesammt*60,2)); ERGEBNIS MIN '
;MsgBox (0,"",Round($ergebnisgesammt*60,0))
$ergebnismin = Round($ergebnisgesammt*60,2)
GUICtrlSetData ($ergebsec,Round($ergebnismin*60,2)); ERGEBNIS SEC "
EndIf
EndFunc

[/autoit]

MFG chris