BMI (Körpergewicht-Index) berechnen mit Delphi

[TOC]

Hi!

Ich hab da mal so´n Programm gebastelt mit dem man seinen BMI (Body Mass Index = Körpergewicht-Index) berechnen kann.

Früher berechnete man das Körpergewicht nach dem Broca-Index. Dabei zieht man von der Größe in Zentimetern den Wert 100 ab, bei Frauen liegt nach diesem Index das Gewicht etwa 10 Prozent niedriger.

Der BMI ist ein neueres Verfahren, das nach meiner Meinung einen realistischeren Wert ergibt. Den BMI berechnet man in dem man das Gewicht in Kilogramm durch das Quadrat der Körperlänge in Metern dividiert. Auf einer Skala kann man dann ablesen in welchem Bereich man liegt, also ob man Untergewicht, Normalgewicht, Übergewicht hat oder Fettleibig ist. Die Skala berücksichtigt auch den unterschiedlichen Knochenbau und die Durschnittsgröße sowie Fettverteilung die sich bei Männern und Frauen leicht unterscheidet.

Wie immer findet ihr im Anhang zwei Programm-Versionen, eine für Delphi 3.0 und eine für 7.0.

-----------------------------------------------------------------------------------------------

Version 0.7

Änderung:

1.) In der Delphi 7-Version steht nun die Eigenschaft 'DoubleBuffered' von Form1 auf 'true', damit der Scroller nicht mehr flimmert!

-----------------------------------------------------------------------------------------------

Hi!

Hier kommt Version 0.8 von BMI!

Änderungen:

1.) In der Delphi7-Version steht die Eigenschaft 'Position' vom Info- und GiftWare-Formular nun auf 'MainFormCenter'. Ich denke das ist sinnvoller als 'ScreenCenter'.

2.) Beide Versionen wurden mit den aktuellen Versionen meiner Komponenten neu kompiliert.

Wenn Du das Projekt öffnen und neu kompilieren möchtest dann benötigtst Du meine Komponentensammlung die Du hier findest: Tocs Komponenten als Paket

Hinweis: Dieses Programm schreibt NIX in Deine System-Registrierung!

Grüße von TOC!

[jfheins]

Sieht ganz nett aus.

Aber geb' mal Gewicht und Größe ein, und dann wieder die Größe weg :wink:

[TOC]

Hi!

Zitat:

Zitat von jfheins

Aber geb' mal Gewicht und Größe ein, und dann wieder die Größe weg :wink:

Uups! Das darf nit sein! Ihr findet echt Fehler auf die ich nie kommen würde :? ! Danke :drunken: !
Mach wohl morgen ein Update, weil ich hier im InternetCafe leider kein Delphi hab.

Grüße von TOC!

[whiteshark]

Ist ein kleines nettes Programm.

[bigg]

9200 zeilen Code für eine simple Berechnung o.0
Wieso soviel?

[JasonDX]

Ganz lustig!
Was du auch noch machen könntest: Borderstyle auf bsSingle setzen, damit man das Fenster nicht resizen kann ;)
Aba ganz interessant... Ich bin untergewichtig *gg* (BMI 17 :drunken: )

PS: Du solltest vielleicht auch noch angeben, welche Compos dafür benötigt werden ;)

[PierreB]

Was soll ich noch groß sagen, gutes Programm ! :thumb:

[TOC]

Hi!

Zitat:

Zitat von bigg

9200 zeilen Code für eine simple Berechnung o.0
Wieso soviel?

Wieso eigentlich nit? Wenns mir Spaß macht? Ich programier immernoch nur so zum Spaß!
Soll mir einer erzählen das programme selber schreiben keinen Spaß macht, da lach ich aber :lol: !

Zitat:

Zitat von Chimaira

Ganz lustig!
Was du auch noch machen könntest: Borderstyle auf bsSingle setzen, damit man das Fenster nicht resizen kann
Aba ganz interessant... Ich bin untergewichtig *gg* (BMI 17 )

PS: Du solltest vielleicht auch noch angeben, welche Compos dafür benötigt werden

Ich find´s auch lustig. Nur, wenn ich meinen eigenen BMI berechne komm ich dummerweise in den Bereich der Fettleibigkeit, :cry: seufz!

Meinst Du mit Compos Computer? Sollte eigentlich auf allen PC´s ab Windows ´95 laufen, oder was meinst Du mit Compos???

Zitat:

Zitat von PierreB

Was soll ich noch groß sagen, gutes Programm !

Danke!

Grüße von TOC!

[JasonDX]

Zitat:

Zitat von TOC

Zitat:

Zitat von Chimaira

Ganz lustig!
Was du auch noch machen könntest: Borderstyle auf bsSingle setzen, damit man das Fenster nicht resizen kann
Aba ganz interessant... Ich bin untergewichtig *gg* (BMI 17 )

PS: Du solltest vielleicht auch noch angeben, welche Compos dafür benötigt werden

Meinst Du mit Compos Computer? Sollte eigentlich auf allen PC´s ab Windows ´95 laufen, oder was meinst Du mit Compos???

Ne, welche Komponenten ;)
(zumindest wenn ich den Source aufgemacht habe, hab ich mal so einige Meldungen gekriegt, dass er ein paar Kommponenten nicht kennt)

[TOC]

Hi!

Zitat:

Zitat von Chimaira

Ne, welche Komponenten
(zumindest wenn ich den Source aufgemacht habe, hab ich mal so einige Meldungen gekriegt, dass er ein paar Kommponenten nicht kennt)

Ach so, das meinst Du. Meine Compos findest Du hier : Tocs Komponenten als Paket

Grüße von TOC!