IGRv3.0-IdealGewichtsRechner

RR04

Heute wollte ich meinen IGR vorstellen , mein erstes Programm überhaupt. Ich war überrascht , wieviele Feinheiten berücksichtigt werden müssen , abgesehen von dem Grundwissen was man sich aneignen muss.
Aber man wächst auch mit den Aufgaben die man sich stellt.

An das Forum nochmals Dank für die Geduld und Mitwirkung.

In der anhängigen Zip-Datei befinden sich das Icon und eine Exe-Datei für Win9x und Höher.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

$Form1_1 = GUICreate("iesis IGR v 3.0", 370, 300, 193, 115)
GUISetFont(12, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel(" Ihr IdealGewichtsRechner ", 32, 32, 318, 30)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Hier Ihre Größe in cm eingeben !", 40, 96, 290, 30)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetState(-1, $GUI_FOCUS)
$Button1 = GUICtrlCreateButton("Idealgewicht berechnen", 40, 152, 290, 30, 0)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("", 40, 255, 290, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("V 3.0 Build 20070925", 0, 280, 107, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Icon1 = GUICtrlCreateIcon("Smiley12.ico", 0, 296, 240, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Label5 = GUICtrlCreateLabel("Kiesi", 344, 280, 27, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$Zahl1 = GUICtrlRead($Input1)
Select
Case $nMsg = $Button1
If Not StringIsDigit(GUICtrlRead($Input1)) Then
GUICtrlSetData($Label3, "Bitte nur Zahlen eingeben !")
Else
$Zahl2 = ($Zahl1 - 100) * 0.9
GUICtrlSetData($Label3, "Ihr Idealgewicht beträgt : " & $Zahl2 & " kg ")
EndIf
Case $nMsg = $GUI_EVENT_CLOSE
Exit
ExitLoop
EndSelect
EndIf

WEnd

[/autoit]

[align=center]Die aktuelle Version hier:

IGRv8.1.00_2009-02-01.zip

**Xenobiologist**

Hi,

sehe keinen Anhang. Du hast den DefaultButton nicht belegt.

Version 3.0 Eijeijei

So long,

Mega

RR04

Nachgebessert...

habe ich mein Skript und im Anhang das compilieren gelassen.
Das K-Icon wird beim compilieren eingebaut.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

$Form1_1 = GUICreate("iesis IGR v 1.0", 370, 300, 193, 115)
GUISetFont(12, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel(" Ihr IdealGewichtsRechner ", 32, 32, 318, 30)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Hier Ihre Größe in cm eingeben !", 40, 96, 290, 30)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetState(-1, $GUI_FOCUS)
$Button1 = GUICtrlCreateButton("Idealgewicht berechnen", 40, 152, 290, 30, 0)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$Label3 = GUICtrlCreateLabel("", 40, 255, 290, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("V 1.0 Build 20070926", 0, 280, 107, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Icon1 = GUICtrlCreateIcon("Smiley12.ico", 0, 296, 240, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Label5 = GUICtrlCreateLabel("Kiesi", 344, 280, 27, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$Zahl1 = GUICtrlRead($Input1)
Select
Case $nMsg = $Button1
If Not StringIsDigit(GUICtrlRead($Input1)) Then
GUICtrlSetData($Label3, "Bitte nur Zahlen eingeben !")
Else
$Zahl2 = ($Zahl1 - 100) * 0.9
GUICtrlSetData($Label3, "Ihr Idealgewicht beträgt : " & $Zahl2 & " kg ")
EndIf
Case $nMsg = $GUI_EVENT_CLOSE
Exit
ExitLoop
EndSelect
EndIf

WEnd

[/autoit]

Edit GtaSpider: [26.09.2007 15:33]
Spoiler und AutoIt Tags eingefügt
Aufruf:

Code

[SPOILER][AUTOIT]
AutoIt Code
[/AUTOIT][/SPOILER]

**Xenobiologist**

HI,

guck dir mal den Style $ES_NUMBER für Input an.

So long,

Mega

RR04

Noch ein neuer IGR!

$input = InputBox(" IdealGewichtsRechner", " Bitte Ihre Größe in cm eingeben: ", " - Hier Ihre Eingabe bitte ! - ", "", 1, 1, -1, -1)
$input = ( $input - 100 ) * 0.9
MsgBox(0," Kiesi´s - IGR sagt : ", " Ihr Idealgewicht beträgt : " & $input & " kg ")

**Xenobiologist**

Hi,

dann kannst du es auch gleich in einer Zeile machen:

[autoit]

MsgBox(0, " Kiesi´s - IGR sagt : ", " Ihr Idealgewicht beträgt : " & (InputBox(" IdealGewichtsRechner", " Bitte Ihre Größe in cm eingeben: ", " - Hier Ihre Eingabe bitte ! - ", "", 1, 1, -1, -1) - 100) * 0.9 & " kg ")

[/autoit]

So long,

Mega

RR04

Hi,

im anliegenden AutoIT Code habe ich noch mal meine Oberfläche überarbeitet und stelle sie als eine Vorschau vor (nur die Oberfläche).
Da ich bisher im Forum nur als Hilfesuchender unterwegs war,freue ich mich umso mehr hier das Interesse geweckt und Anregung zum nachmachen gegeben zu haben.Auch so kann man voneinander lernen.

Spoiler anzeigen

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

; IGRvxxxx Preview-Release

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

#include <GUIConstants.au3>

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

$Form1_1 = GUICreate("iesis IdealGewichtsRechner v X.0", 401, 308, 193, 115)
$Input1 = GUICtrlCreateInput("Bitte geben Sie hier Ihre Körpergröße in cm ein !", 16, 16, 361, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Group1 = GUICtrlCreateGroup("Geschlecht", 16, 64, 193, 121)
$Radio1 = GUICtrlCreateRadio(" männlich", 32, 96, 113, 17)
$Radio2 = GUICtrlCreateRadio(" weiblich", 32, 152, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("- kein -", 16, 208, 363, 32)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Button1 = GUICtrlCreateButton("Idealgewicht berechnen", 16, 256, 217, 25, 0)
$Button2 = GUICtrlCreateButton("Beenden", 256, 256, 121, 25, 0)
$Label2 = GUICtrlCreateLabel("V X.0 Build 2007-09-26", 16, 288, 116, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
$Label3 = GUICtrlCreateLabel("Kiesi", 352, 288, 27, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
$Icon1 = GUICtrlCreateIcon("pe62.ico", 0, 280, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)

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

; - ! Achtung - Baustelle ! -

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

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

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

EndSwitch
WEnd

[/autoit]

RR04

Hi,

ich wollt Euch mal wieder auf den aktuellen Stand bringen und meine Zwischenversion vorstellen.
Die küntigen Funktionen sind noch nicht belegt.

Euer Ritzelrocker04

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#NoTrayIcon

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

$GUI = GUICreate("iesis IdealGewichtsRechner v X.0", 401, 308, 193, 115)

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

$tb_Groesse = GUICtrlCreateInput("Bitte geben Sie hier Ihre Körpergröße in cm ein !", 16, 16, 361, 28)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetState(-1, $GUI_FOCUS)

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

$gb_Geschlecht = GUICtrlCreateGroup("Geschlecht", 16, 64, 193, 121) ; *** Future Function ***

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

$rb_Maennlich = GUICtrlCreateRadio(" männlich", 32, 96, 113, 17) ; *** Future Function ***

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

$rb_Weiblich = GUICtrlCreateRadio(" weiblich", 32, 152, 113, 17) ; *** Future Function ***
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$lb_Ausgabe = GUICtrlCreateLabel("", 16, 208, 363, 32)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)

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

$bn_Rechnen = GUICtrlCreateButton("Idealgewicht berechnen", 16, 256, 217, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)

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

$bn_Close = GUICtrlCreateButton("Beenden", 256, 256, 121, 25, 0)

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

$lb_Version = GUICtrlCreateLabel("V X.0 Build 2007-10-02", 16, 288, 116, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)

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

$lb_Author = GUICtrlCreateLabel("Design by Kiesi", 304, 288, 78, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)

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

$in_Icon = GUICtrlCreateIcon("Smiley12.ico", 0, 280, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$_Eingabe = GUICtrlRead($tb_Groesse)
Select
Case $nMsg = $bn_Rechnen
If $_Eingabe < 100 Then
GUICtrlSetData($lb_Ausgabe, "Bitte nur Zahlen von 100 bis 230 eingeben !")
ElseIf $_Eingabe > 230 Then
GUICtrlSetData($lb_Ausgabe, "Bitte nur Zahlen von 100 bis 230 eingeben !")
Else
$_Ergebnis = ($_Eingabe - 100) * 0.9
GUICtrlSetData($lb_Ausgabe, "Ihr Idealgewicht beträgt : " & $_Ergebnis & " kg ")
EndIf
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
EndSelect
EndIf

WEnd

[/autoit]

RR04

Hi,
der IGR unterscheidet jetzt auch männlich und weiblich, kleine Icons lockern etwas auf.
Bei falschen Eingaben wird auch dass zusätzlich mit einem Icon quittiert.

Meine ersten Schritte beim programmieren und ich muss sagen Streckenweise habe ich überlegt lieber mein Kopfrechnen aufzubessern,
dennoch macht es viel Spaß.

Mit dem nötigen Humor können Programmierer auch feststellen , ob man nicht schon zu lange am Computer sitzt !(Scherz)

Danksagung
an das Forum
und die direkten Mitwirkenden für Ihre Mithilfe und Unterstützung
Euer Ritzelrocker04

RR04

Hi,

alles entwickelt sich weiter und warum soll der IGR nicht auch gleich den BMI ausrechnen ?

Also IGR und BMI werden eins !

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

$ico_Normalgew = "Icons\Normalgew.ico"
$ico_Er = "Icons\Er.ico"
$ico_Sie = "Icons\Sie.ico"
$ico_Zwink = "Icons\Zwink.ico"

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

$GUI = GUICreate("IGR und BMI v X.0", 258, 322, 193, 115)

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

$gb_Eingaben = GUICtrlCreateGroup("Ihre Eingaben", 16, 16, 225, 121)

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

$tb_Gewicht = GUICtrlCreateInput("Gewicht in kg", 32, 48, 73, 21, $ES_NUMBER)
GUICtrlSetState(-1, $GUI_FOCUS)

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

$tb_Groesse = GUICtrlCreateInput("Größe in cm", 32, 88, 73, 21, $ES_NUMBER)

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

$rb_Maennlich = GUICtrlCreateRadio("&männlich", 144, 56, 65, 17)
GUICtrlSetState($rb_Maennlich, $GUI_CHECKED)

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

$rb_Weiblich = GUICtrlCreateRadio("&weiblich", 144, 88, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$ico_Icon = GUICtrlCreateIcon($ico_Normalgew, 0, 200, 160, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))

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

$lb_BMI = GUICtrlCreateLabel("Willkommen,", 16, 176, 108, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)

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

$lb_Klasse = GUICtrlCreateLabel("errechnen Sie Ihren BMI", 16, 208, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)

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

$lb_IGR = GUICtrlCreateLabel("und Ihr Idealgewicht !", 16, 240, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)

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

$bn_Rechnen = GUICtrlCreateButton("&Rechnen", 16, 272, 65, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)

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

$bn_Hinweis = GUICtrlCreateButton("&Hinweis", 96, 272, 65, 25, 0)

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

$bn_Close = GUICtrlCreateButton("&Beenden", 176, 272, 65, 25, 0)

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

$lb_Version = GUICtrlCreateLabel("V X.0.00 Build 2007-10-18", 16, 304, 131, 15)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)

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

$lb_Author = GUICtrlCreateLabel("Design by Kiesi", 168, 304, 78, 15)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
GUISetState(@SW_SHOW)

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

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
If $_Er = 1 Then
$_Ergebnis_IGR = ($_EingabeGro - 100) * 0.9
GUICtrlSetData($lb_IGR, "das Idealgewicht beträgt : " & $_Ergebnis_IGR & " kg .")
$_Ergebnis_BMI = Round($_EingabeGew / ($_EingabeGro / 100) ^ 2, 0)
GUICtrlSetImage($ico_Icon, $ico_Er)
GUICtrlSetData($lb_Klasse, "-----------------------------")
GUICtrlSetData($lb_BMI, "Ihr BMI ist " & $_Ergebnis_BMI & " und")
Else
$_Ergebnis_IGR = ($_EingabeGro - 100) * 0.85
GUICtrlSetData($lb_IGR, "das Idealgewicht beträgt : " & $_Ergebnis_IGR & " kg .")
$_Ergebnis_BMI = Round($_EingabeGew / ($_EingabeGro / 100) ^ 2, 0)
GUICtrlSetImage($ico_Icon, $ico_Sie)
GUICtrlSetData($lb_Klasse, "-----------------------------")
GUICtrlSetData($lb_BMI, "Ihr BMI ist " & $_Ergebnis_BMI & " und")
EndIf
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_Zwink)
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 = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
Case $nMsg = $bn_Hinweis
MsgBox(2048, "Wichtiger Hinweis !", "Der BMI unterscheidet nicht zwischen Fett- und Muskelmasse." & @CR & _
"Sportler, Bodybuilder und Schwerstarbeiter, die viele Muskel-Kilos auf die Waage bringen," & @CR & _
"gehören nach dem BMI bereits in die Kategorie „übergewichtig“, obwohl ihr Körperfett-Anteil" & @CR & _
"nur gering ist. " & @CR & _
"Der BMI gilt ebenfalls nicht für Schwangere und stillende Mütter, kranke und alte Menschen " & @CR & _
"und Kinder im Wachstum. Überdies werden sehr kleine Menschen ( kleiner als 150 cm) oft " & @CR & _
"falsch zu hoch eingestuft, sehr große Menschen (größer als 190 cm) dagegen zu niedrig " & @CR & _
"bewertet. Ähnliche Einschränkungen gibt es für Menschen mit schlankem Körperbau, " & @CR & _
"die häufig zu niedrig eingestuft werden, und untersetzte Menschen," & @CR & _
"die zu schnell als zu dick klassifiziert werden." & @CR & _
" " & @CR & _
"Der BMI-Rechner soll nur einen ersten Anhalspunkt geben." & @CR & _
"Wer es genauer wissen will, ob er abspecken sollte, misst besser seinen persönlichen" & @CR & _
"Körperfettanteil, z.B. mit einer speziellen Körperfettwaage!")
EndSelect
EndIf

WEnd

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

Viel Spaß!
Euer Ritzelrocker04

RR04

Hi,

in dieser Ausgabe verabschieden wir uns von den beiden Icons Er und Sie. An dessen Stelle können wir gleich fünf Neue begrüßen, die uns dabei behilflich sind die Kategorien Normal- und Übergewicht sowie falsche Eingaben grafisch darzustellen. Auch wenn die GUI die selbe geblieben ist, hat sich unter der Haube doch etwas getan!

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

Dim $_Ergebnis_BMI
Dim $_EingabeGew , $_EingabeGro
Dim $_Ergebnis_Klasse

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

$ico_Normalgew = "Icons\Normalgew.ico"
$ico_Untergew = "Icons\Untergew.ico"
$ico_Uebergew = "Icons\Uebergew.ico"
$ico_StarkUebergew = "Icons\StarkUebergew.ico"
$ico_Zwink = "Icons\Zwink.ico"

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

$GUI = GUICreate("IGR und BMI v 6.0.08", 258, 322, 193, 115)

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

$gb_Eingaben = GUICtrlCreateGroup("Ihre Eingaben", 16, 16, 225, 121)

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

$tb_Gewicht = GUICtrlCreateInput("Gewicht in kg", 32, 48, 73, 21, $ES_NUMBER)
GUICtrlSetState(-1, $GUI_FOCUS)

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

$tb_Groesse = GUICtrlCreateInput("Größe in cm", 32, 88, 73, 21, $ES_NUMBER)

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

$rb_Maennlich = GUICtrlCreateRadio("&männlich", 144, 56, 65, 17)
GUICtrlSetState($rb_Maennlich, $GUI_CHECKED)

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

$rb_Weiblich = GUICtrlCreateRadio("&weiblich", 144, 88, 65, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

$ico_Icon = GUICtrlCreateIcon($ico_Normalgew, 0, 200, 160, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))

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

$lb_BMI = GUICtrlCreateLabel("Willkommen,", 16, 176, 108, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)

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

$lb_Klasse = GUICtrlCreateLabel("ich errechnen Ihren BMI", 16, 208, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)

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

$lb_IGR = GUICtrlCreateLabel("und das Idealgewicht !", 16, 240, 210, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)

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

$bn_Rechnen = GUICtrlCreateButton("&Rechnen", 16, 272, 65, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)

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

$bn_Hinweis = GUICtrlCreateButton("&Hinweis", 96, 272, 65, 25, 0)

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

$bn_Close = GUICtrlCreateButton("&Beenden", 176, 272, 65, 25, 0)

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

$lb_Version = GUICtrlCreateLabel("V 6.0.08 Build 2007-10-27", 16, 304, 131, 15)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)

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

$lb_Author = GUICtrlCreateLabel("Design by Kiesi", 168, 304, 78, 15)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
GUISetState(@SW_SHOW)

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

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_Zwink)
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 = $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." & @CR & _
"Sportler, Bodybuilder und Schwerstarbeiter, die viele Muskel-Kilos auf die Waage bringen," & @CR & _
"gehören nach dem BMI bereits in die Kategorie „übergewichtig“, obwohl ihr Körperfett-Anteil " & @CR & _
"nur gering ist. " & @CR & _
"Der BMI gilt ebenfalls nicht für Schwangere und stillende Mütter, kranke und alte Menschen " & @CR & _
"und Kinder im Wachstum. Überdies werden sehr kleine Menschen ( kleiner als 150 cm) oft " & @CR & _
"falsch zu hoch eingestuft, sehr große Menschen (größer als 190 cm) dagegen zu niedrig " & @CR & _
"bewertet. Ähnliche Einschränkungen gibt es für Menschen mit schlankem Körperbau, " & @CR & _
"die häufig zu niedrig eingestuft werden, und untersetzte Menschen," & @CR & _
"die zu schnell als zu dick klassifiziert werden." & @CR & _
" " & @CR & _
"Der BMI-Rechner soll nur einen ersten Anhalspunkt geben." & @CR & _
"Wer es genauer wissen will, ob er abspecken sollte, misst besser seinen persönlichen" & @CR & _
"Körperfettanteil, z.B. mit einer speziellen Körperfettwaage!")
EndSelect
EndIf

WEnd

[/autoit]

Schönes WE und
viel Spaß!
Euer Ritzelrocker04

Fast2

Im ersten Fenster steht: "Ich errechnen ihren BMI"

huggy

Cool, mit 19 hab ich also Unter und mittelgewicht ? :>

naja hab 23 (laut korrekter formel eig. 22,7 - wird wohl gerundet) und ihr?^^

RR04

Hi Fast2,

in der Tat hat man es hier mit einem freundlichen und höflichen Programm zu tun. Der Nutzer wird mit dem Satz „Willkommen, ich errechne Ihren BMI und das Idealgewicht“ begrüßt (siehe Zeile 29, 31, 35, 39). Auch ein lachendes Smiley zeigt sich zum Auftakt.
Erst nach Eingabe der Daten, also Gewicht in kg und Größe in cm von 100 bis 230, findet eine Berechnung statt. Andernfalls wird man auf falsche oder fehlende Eingaben hingewiesen. Für die Ausgabe der Ergebnisse BMI, Klassifizierung und Idealgewicht werden die Textlabels verwendet (siehe Zeile 106 – 109).
So war es gedacht und sollte auch bei Ihm so sein?

Schönes WE und
viel Spaß!
Euer Ritzelrocker04

RR04

Hi Huggy,

genau hier wird gerundet „ $_Ergebnis_BMI = Round($_EingabeGew / ($_EingabeGro / 100) ^ 2, 0) “ , aber ob nun 22,7 oder 23 führt immer zu „ Case 20 To 25 ; $_Ergebnis_Klasse = "Sie haben Normalgewicht ," „.

Bei der Recherche
zum BMI bin ich auf viele Faktoren gestoßen, aber auch genauso viele Einschränkungen die zu dem wichtigen Hinweis geführt haben.

Schönes WE und
viel Spaß!
Euer Ritzelrocker04

RR04

Hi,

vor dem Fest schnell noch einmal Idealgewicht und BMI prüfen. Auch in dieser Version hat sich etwas geändert.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

Dim $_Ergebnis_BMI
Dim $_EingabeGew , $_EingabeGro
Dim $_Ergebnis_Klasse

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

$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"

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

$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)

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

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)

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

If $_Er = 1 Then
$_Ergebnis_IGR = ($_EingabeGro - 100) * 0.9

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

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

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

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

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

WEnd

[/autoit]

Viel Spaß!
Euer Ritzelrocker04

Fast2

Ich hab mal Testwise bei Gewicht 5000 und bei Größe 230 eingegeben, dann hat sich das Programm mit dem Hinweiß auf eine nicht deklarierte Variable $_Smilie Verabschiedet.

RR04

Hi Fast2,
bei Fast2 gibt es immer solche Sachen, muss gerade an Seine letzte Nachricht denken. Wo ich ganz euphorisch übersehen habe, was Er eigentlich meinte. Ein Freund hat mich dann erneut aufmerksam darauf gemacht und hat dann gar nicht verstanden warum ich lachen musste. Ja, also gut noch einmal schauen und danke für den Hinweis.

MfG
Euer Ritzelrocker04

RR04

Hallo,
ich bin mal nachtragend und habe es wieder neu auf Kurs gebracht. Anbei noch einmal den Code im Spoiler sowie kompletter Anhang.

Spoiler anzeigen

[autoit][/autoit]

; by Ritzelrocker04
#include <GUIConstants.au3>

Dim $_Ergebnis_BMI
Dim $_EingabeGew , $_EingabeGro
Dim $_Ergebnis_Klasse
Dim $_Smileys
Dim $ico_Icon

$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 99
$_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 99
$_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_006.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][/autoit]

Edit: Die Einzüge !

Nochmals Danke für den Hinweis und weiterhin
viel Spaß!
Euer Ritzelrocker04

RR04

Ein zusätzliches Smiley soll zum Ausdruck bringen, wenn die Eingabe von Werten unnatürliche Ergebnisse ergeben würde.

Spoiler anzeigen

[autoit]

; by Ritzelrocker04 ==> IGRv8016.au3

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

#include <GUIConstants.au3>

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

Dim $_Ergebnis_BMI
Dim $_EingabeGew , $_EingabeGro
Dim $_Ergebnis_Klasse
Dim $_Smileys

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

$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"
$ico_ZwinkY = "IGRsys\ZwinkY.ico"

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

$GUI = GUICreate("IGR & BMI v 8.0", 258, 322, -1, -1)
$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, 180, 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)

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

GUISetState(@SW_SHOW)

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

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
Case Else
$_Ergebnis_BMI = "erstaunlich"
$_Ergebnis_Klasse = "es bleibt besser unser Geheimnis ,"
$_Smileys = $ico_ZwinkY
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
Case Else
$_Ergebnis_BMI = "erstaunlich"
$_Ergebnis_Klasse = "es bleibt besser unser Geheimnis ,"
$_Smileys = $ico_ZwinkY
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_007_CSJRE_W9x_3281.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] [autoit][/autoit] [autoit][/autoit]

Siehe Post 21
Weiterhin viel Spaß