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!

[chkdsk]

Das Mag eine nette Fingerübung für jemanden sein, der Delphi lernt,
aber soetwas muss man doch nun wirklich nicht veröffentlichen, eine
Berechnung, die sich in einer einzigen Zeile erledigen lässt:

BMI = m / (h * h);

[TOC]

Hi!

Zitat von chkdsk:

Das Mag eine nette Fingerübung für jemanden sein, der Delphi lernt,
aber soetwas muss man doch nun wirklich nicht veröffentlichen, eine
Berechnung, die sich in einer einzigen Zeile erledigen lässt:

BMI = m / (h * h);

Gerade wer Delphi lernt hat nun einen SourceCode mehr zum herumschnüffeln. Man kann sich zum Beispiel die Mühe machen mal in´s InfoForm hineinzuschauen und kann da herausfinden wie einfach es ist *.mod-Dateien mit ´nem coolen Sound abzuspielen.

Und abgesehen davon: Nit jeder der mal seinen BMI berechnen will kann Delphi und sich´s selber schreiben.

Grüße von TOC!

[Stanlay Hanks]

Hi. Beim Verändern der TrackBar flimmert es. Setze mal die Eigenschaft DoubleBuffered der Bar auf true

Man liest sich, Stanlay

PS: "Dir"/"Dein"/"Du" etc. schreibt man nach der neuen Schlechtschreibung klein, nur bei Höflichkeitsformen groß. (Sie/Ihr etc...)

[TOC]

Hi!

Zitat von Stanlay Hanks:

Hi. Beim Verändern der TrackBar flimmert es. Setze mal die Eigenschaft DoubleBuffered der Bar auf true

PS: "Dir"/"Dein"/"Du" etc. schreibt man nach der neuen Schlechtschreibung klein, nur bei Höflichkeitsformen groß. (Sie/Ihr etc...)

Hab mich in Delphi 7.0 auf die Suche nach DoubleBufferd gemacht! Danke für den Hinweis. Delphi 7.0 ist für mich noch sehr neu. SoSo, DoubleBufferd ist also eine neue Eigenschaft von TWinControl! Aber warum findet man in der Delphi 7.0 Hilfe nix zu dem Thema? Warum erscheint so eine wichtige Eigenschaft nicht im ObjectInspector? Ich mußte ganz schön danach suchen !

Laß mir das mit dem 'Du/Dein' bitte. Ich bin einer von den 'alten Knackern' der mit der deutschen Schlechtschreibung auf Kriegsfuß steht, erst recht mit der neuen !

Grüße von TOC!

[TOC]

Hi!

Wieder mal ein kleines UpDate von BMI.Exe! Durch eine Änderung in meinen Komponenten mußte ich alles neu kompilieren, logo!

So. Ich hoffe ich hab nun alle Programme in allen Threads korigiert und hoffentlich keine neuen Fehler hineingebastelt.

Grüße von TOC !

[tilman]

Find ich gut
Übrigens könntest du das Projekt allgemein für Menschen mit einem BMI zwischen 21 und 24 Kostenfrei stellen Obwohl, die müssten es ja erst testen um zu wissen ob sie es benutzen dürfen - nicht so gut.

[TOC]

Hi!

Zitat von tilman:

Find ich gut
Übrigens könntest du das Projekt allgemein für Menschen mit einem BMI zwischen 21 und 24 Kostenfrei stellen Obwohl, die müssten es ja erst testen um zu wissen ob sie es benutzen dürfen - nicht so gut.

Ach, so ernst nehm ich das ganze nit! Kein Erwachsener der damit herumspielt braucht mit ´ner Anzeige zu rechnen, wirklich nit! Ich werd dies ohnehin nie merken.

Allerdings schreibe ich eigentlich nur SoftWare für sozial benachteiligte Kinder und Jugendliche, die aus verarmten Familien kommen und sich keine SoftWare kaufen können. Das ist mein Hobby !
Ich weiß wie knapp bei millionen Kids das Taschengeld ist. Auch diese Kids haben ein Recht auf legalem Weg Software zu erwerben! Ist zumindest meine Meinung! Und weiterverschenken wollen sie die Programme auch, wenn sie ihnen gefallen, logo!

Das GiftWare-Formular soll für die Kids Rechtssicherheit schaffen und in einer einfachen und verständlich Sprache regeln was man mit dem Programmen darf und was bitte nit!

Grüße von TOC !