Das is doch voll mies ich wollte denn machen und dann mal hier zeigen.
Und die GUI naja die is ja net Grade en prachtstück ich werde die mal verbessern.
Ok also mal hier meine GUI
Spoiler anzeigen
#include <GUIConstants.au3>
#NoTrayIcon
$GUI = GUICreate("Form1", 560, 180, 193, 125)
$Meter = GUICtrlCreateLabel("Körpergröße in Meter", 10, 5, 219, 20)
$gross = GUICtrlCreateInput("z.b 1.75", 10, 20, 145, 20)
$Kilo = GUICtrlCreateLabel("Gewicht in Kilo:", 10, 50, 75, 20)
$gewicht = GUICtrlCreateInput("z.b 70", 10, 65, 145, 20)
$Rechne = GUICtrlCreateButton("Rechnen", 10, 95, 145, 20)
$Body = GUICtrlCreateLabel("Body Mass Index:", 10, 125, 120, 20)
$BMI = GUICtrlCreateInput("", 10, 140, 145, 20)
$Kategorie = GUICtrlCreateLabel("Kategorie", 180, 5, 219, 20)
$Input6 = GUICtrlCreateInput("Untergewicht", 180, 20, 70, 20, $ES_READONLY)
$Input7 = GUICtrlCreateInput("Normalgewicht", 180, 45, 77, 20, $ES_READONLY)
$Input8 = GUICtrlCreateInput("Übergewicht", 180, 70, 70, 20, $ES_READONLY)
$Input8 = GUICtrlCreateInput("Fettleibigkeit Grad I", 180, 95, 104, 20, $ES_READONLY)
$Input10 = GUICtrlCreateInput("Fettleibigkeit Grad II",180, 120, 105, 20, $ES_READONLY)
$Input11 = GUICtrlCreateInput("Fettleibigkeit Grad III",180, 145, 105, 20, $ES_READONLY)
$Kategorie = GUICtrlCreateLabel("BMI (kg/m²)", 300, 5, 219, 20)
$Input6 = GUICtrlCreateInput("< 19", 300, 20, 45, 20, $ES_READONLY)
$Input7 = GUICtrlCreateInput("19 – 25", 300, 45, 45, 20, $ES_READONLY)
$Input8 = GUICtrlCreateInput("25 – 30", 300, 70, 45, 20, $ES_READONLY)
$Input8 = GUICtrlCreateInput("30 – 35", 300, 95, 45, 20, $ES_READONLY)
$Input10 = GUICtrlCreateInput("35 – 40",300, 120, 45, 20, $ES_READONLY)
$Input11 = GUICtrlCreateInput("> 40",300, 145, 45, 20, $ES_READONLY)
$Alter = GUICtrlCreateLabel("Alter (Jahre)", 370, 5, 219, 20)
$Input1 = GUICtrlCreateInput("19 – 24", 370, 20, 45, 20, $ES_READONLY)
$Input2 = GUICtrlCreateInput("25 – 34", 370, 45, 45, 20, $ES_READONLY)
$Input3 = GUICtrlCreateInput("35 – 44", 370, 70, 45, 20, $ES_READONLY)
$Input4 = GUICtrlCreateInput("45 – 54", 370, 95, 45, 20, $ES_READONLY)
$Input5 = GUICtrlCreateInput("55 – 64", 370, 120,45, 20, $ES_READONLY)
$Input6 = GUICtrlCreateInput("> 64", 370, 145, 45, 20, $ES_READONLY)
$KG = GUICtrlCreateLabel("BMI-Normalwert (kg/m²)", 440, 5, 219, 20)
$Input6 = GUICtrlCreateInput("19 – 24", 440, 20, 45, 20, $ES_READONLY)
$Input7 = GUICtrlCreateInput("20 – 25", 440, 45, 45, 20, $ES_READONLY)
$Input8 = GUICtrlCreateInput("21 – 26", 440, 70, 45, 20, $ES_READONLY)
$Input8 = GUICtrlCreateInput("22 – 27", 440, 95, 45, 20, $ES_READONLY)
$Input10 = GUICtrlCreateInput("23 – 28",440, 120,45, 20, $ES_READONLY)
$Input11 = GUICtrlCreateInput("24 – 29",440, 145, 45, 20, $ES_READONLY)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
CASE $Rechne
GUICtrlSetData($BMI, "" & _BMI(GuiCtrlRead($gewicht), GUICtrlRead($gross)))
EndSwitch
WEnd
Func _BMI($gewicht, $groesse)
if $groesse > 2 then MsgBox(0, "M", "Größe bitte in Meter angeben! " & @crlf & "z.b 1.75")
if $groesse < 1 then MsgBox(0, "M", "Größe bitte in Meter angeben! " & @crlf & "z.b 1.75")
if $gewicht < 2 then MsgBox(0, "M", "Gewicht in Kilo angeben" & @crlf & "z.b 70")
$quadrat = $groesse * $groesse
$bmi = $gewicht / $quadrat
Return $bmi
EndFunc
So der Code wurde mal komplett überarbeitet und nun ist eine liste verfügbar wo man nachschauen kann ob man zuviel oder zuwenig wiegt.
Hier mal en Screen wie der BMI Rechner nun aussieht
[Blockierte Grafik: http://sonster.so.funpic.de/BMI.png]
Und ich würde gerne wissen ob ihr diese liste da gut findet oder es sinnlos war sie reinzutun.
Ich persönlich finde die Liste ist hilfreich denn dann muss man nicht immer im internet gucken.