Hi,
vor dem Fest schnell noch einmal Idealgewicht und BMI prüfen. Auch in dieser Version hat sich etwas geändert.
Spoiler anzeigen
#include <GUIConstants.au3>
Dim $_Ergebnis_BMI
Dim $_EingabeGew , $_EingabeGro
Dim $_Ergebnis_Klasse
$ico_Normalgew = "IGRsys\Normalgew.ico"
$ico_Untergew = "IGRsys\Untergew.ico"
$ico_Uebergew = "IGRsys\Uebergew.ico"
$ico_StarkUebergew = "IGRsys\StarkUebergew.ico"
$ico_Zwink = "IGRsys\Zwink.ico"
$ico_Zwink2 = "IGRsys\Zwink2.ico"
$GUI = GUICreate("IGR & BMI v 7.0", 258, 322, 194, 116)
$gb_Eingaben = GUICtrlCreateGroup("Ihre Eingaben", 16, 16, 225, 120)
$tb_Gewicht = GUICtrlCreateInput("Gewicht in kg", 32, 48, 73, 21, $ES_NUMBER)
GUICtrlSetState(-1, $GUI_FOCUS)
$tb_Groesse = GUICtrlCreateInput("Größe in cm", 32, 88, 73, 21, $ES_NUMBER)
$rb_Maennlich = GUICtrlCreateRadio("&männlich", 144, 56, 65, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$rb_Weiblich = GUICtrlCreateRadio("&weiblich", 144, 88, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ico_Icon = GUICtrlCreateIcon($ico_Normalgew, 0, 200, 160, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$lb_BMI = GUICtrlCreateLabel("Willkommen,", 16, 160, 108, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$lb_Klasse = GUICtrlCreateLabel("ich errechne Ihren BMI", 16, 192, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$lb_IGR = GUICtrlCreateLabel("und das Idealgewicht !", 16, 224, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$bn_About = GUICtrlCreateButton("&About", 16, 256, 65, 25, 0)
$bn_Hinweis = GUICtrlCreateButton("&Hinweis", 96, 256, 65, 25, 0)
$bn_Close = GUICtrlCreateButton("&Beenden", 176, 256, 65, 25, 0)
$bn_Rechnen = GUICtrlCreateButton("&Rechnen", 16, 290, 225, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$_EingabeGew = GUICtrlRead($tb_Gewicht)
$_EingabeGro = GUICtrlRead($tb_Groesse)
$_Er = GUICtrlRead($rb_Maennlich)
Select
Case $nMsg = $bn_Rechnen
If $_EingabeGro >= 100 And $_EingabeGro <= 230 Then
$_Ergebnis_BMI = Round($_EingabeGew / ($_EingabeGro / 100) ^ 2, 0)
If $_Er = 1 Then
$_Ergebnis_IGR = ($_EingabeGro - 100) * 0.9
Switch $_Ergebnis_BMI
Case 0 To 20
$_Ergebnis_Klasse = "Sie haben Untergewicht ,"
$_Smileys = $ico_Untergew
Case 20 To 25
$_Ergebnis_Klasse = "Sie haben Normalgewicht ,"
$_Smileys = $ico_Normalgew
Case 25 To 30
$_Ergebnis_Klasse = "Sie haben Übergewicht ,"
$_Smileys = $ico_Uebergew
Case 30 To 50
$_Ergebnis_Klasse = "Sie haben starkes Übergewicht ,"
$_Smileys = $ico_StarkUebergew
EndSwitch
Else
$_Ergebnis_IGR = ($_EingabeGro - 100) * 0.85
Switch $_Ergebnis_BMI
Case 0 To 19
$_Ergebnis_Klasse = "Sie haben Untergewicht ,"
$_Smileys = $ico_Untergew
Case 19 To 24
$_Ergebnis_Klasse = "Sie haben Normalgewicht ,"
$_Smileys = $ico_Normalgew
Case 24 To 30
$_Ergebnis_Klasse = "Sie haben Übergewicht ,"
$_Smileys = $ico_Uebergew
Case 30 To 50
$_Ergebnis_Klasse = "Sie haben starkes Übergewicht ,"
$_Smileys = $ico_StarkUebergew
EndSwitch
EndIf
GUICtrlSetImage($ico_Icon, $_Smileys)
GUICtrlSetData($lb_BMI, "Ihr BMI ist " & $_Ergebnis_BMI & " und")
GUICtrlSetData($lb_Klasse, $_Ergebnis_Klasse)
GUICtrlSetData($lb_IGR, "das Idealgewicht beträgt : " & $_Ergebnis_IGR & " kg .")
Else
GUICtrlSetData($lb_BMI, "Sorry ,")
GUICtrlSetData($lb_Klasse, "aber Ihre Größe bitte nur in")
GUICtrlSetData($lb_IGR, "cm von 100 bis 230 eingeben !")
GUICtrlSetImage($ico_Icon, $ico_Zwink2)
EndIf
If $_EingabeGew = 0 Then
GUICtrlSetData($lb_BMI, "Sorry ,")
GUICtrlSetData($lb_Klasse, "Sie müssen noch")
GUICtrlSetData($lb_IGR, "Ihr Gewicht in kg eingeben !")
GUICtrlSetImage($ico_Icon, $ico_Zwink)
EndIf
Case $nMsg = $bn_About
Run("About_005.exe")
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
Case $nMsg = $bn_Hinweis
MsgBox(64, "Wichtiger Hinweis !", "Der BMI unterscheidet nicht zwischen Fett- und Muskelmasse." & @CRLF & _
"Sportler, Bodybuilder und Schwerstarbeiter, die viele Muskel-Kilos auf die Waage bringen," & @CRLF & _
"gehören nach dem BMI bereits in die Kategorie „übergewichtig“, obwohl ihr Körperfett-Anteil " & @CR & _
"nur gering ist. " & @CRLF & _
"Der BMI gilt ebenfalls nicht für Schwangere und stillende Mütter, kranke und alte Menschen " & @CRLF & _
"und Kinder im Wachstum. Überdies werden sehr kleine Menschen ( kleiner als 150 cm) oft " & @CRLF & _
"falsch zu hoch eingestuft, sehr große Menschen (größer als 190 cm) dagegen zu niedrig " & @CRLF & _
"bewertet. Ähnliche Einschränkungen gibt es für Menschen mit schlankem Körperbau, " & @CRLF & _
"die häufig zu niedrig eingestuft werden, und untersetzte Menschen," & @CRLF & _
"die zu schnell als zu dick klassifiziert werden." & @CRLF & _
" " & @CRLF & _
"Der BMI-Rechner soll nur einen ersten Anhalspunkt geben." & @CRLF & _
"Wer es genauer wissen will, ob er abspecken sollte, misst besser seinen persönlichen" & @CRLF & _
"Körperfettanteil, z.B. mit einer speziellen Körperfettwaage!")
EndSelect
EndIf
WEnd
[/autoit]
Viel Spaß!
Euer Ritzelrocker04
