Delphi 7: BMI programmierung

[Slimi xD]

Guten Tag ich bin einsteiger in delphi un habe mal ein frage un hoffe es kann mir jemand weiterhelfen un zwar möchte ich ein programm über dasThema Body mass index machen !!!un zwar habe ich dazu 3 buttons aufgezoggen mit:Neu um die werte zurückzusetzen und Beenden um das programm zu beenden !!! nun das problem ich habe keine ahnung wie ich die rechung ausführen soll sprich Körpergewicht in kg /(körpergröße in m)² !!! dies lege ich ebenfalls auf ein button wie muss ich dieses problen mlösen kann mir jemand helfen???natürlich habe ich auch 3 Edits gemacht un diese fertig mir fehlt nur noch der eine button!!!
Schonmal lieben dank für eure hilfe MFG Slimi xD

[ich2]

...so hallo erstmal...

Daten (also Zahlen) aus einem Edit einlesen:

Stichwort: StrToInt

...gruß

[Slimi xD]

puh sry was soll ich tun für dumme erklären plz!!!

[mkinzler]

Besser TryStrToInt()

[Slimi xD]

ja erklärt mir mal bitte wie ich das in den button schreiben muss die formel bin wirklich ein frischling un habe fast kp

[mkinzler]

Zitat:

Zitat von Slimi xD

puh sry was soll ich tun für dumme erklären plz!!!

Lernen die F1-Taste zu bedienen

[Nikolas]

Zitat:

puh sry was soll ich tun für dumme erklären plz!!!

a) ganze Worte schreiben
b) Grammatik beachten
c) Rechtschreibung beachten
d) Satzzeichen sparen
e) Problem genau beschreiben,
f) eigenen Quellcode zeigen
g) keine sinnlosen Beiträge absetzen
h) Suchfunktion benutzen
i) F1 drücken und Hilfe lesen.

:mrgreen:

Ach ja: Herzlich Willkommen in der DP :dp:

[Slimi xD]

ja okay f1 un wonach soll ich da genau suchen weil da ich neu bin sagt mir das nix sry

[TechnikerHC]

hi!
ich hab das so gelöst is ganz einfach:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
Var
m, h, B:real;


begin
m:=strtofloat(Edit1.text);
h:=strtofloat(Edit2.text);

B:=m/sqr(h);
if B<20
  then label4.Caption:='Untergewicht'
  else
    begin
      if B>25
        then label4.caption:='Übergewicht'
        else label4.caption:='Normalgewicht'
      end;


Edit3.Text:=floattostr(B);
end;

cheers

ps. das programm is jetzte nur für männer...wenn du das für beide geschlechter ham willst musst du noch be combobox mit reinmachen

[shmia]

Zitat:

Zitat von Slimi xD

ja okay f1 un wonach soll ich da genau suchen weil da ich neu bin sagt mir das nix sry

Du bist ja wirklich noch ein blutiger Anfänger. (Nix für ungut, jeder hat mal klein angefangen)
Aber so wird das nichts: Fragen stellen, ohne zu wissen, was man fragen will.

Da hilft nur eines - erst mal die minimalen Grundlagen erlernen:
http://www.delphi-treff.de/tutorials...ls/katalog/31/
Wenn du alle 3 Tutorial durchgearbeitet hast, dann bist du bereit Fragen zu stellen.