BMI-delphi
Níže je uveden pouze náhled materiálu. Kliknutím na tlačítko 'Stáhnout soubor' stáhnete kompletní formátovaný materiál ve formátu DOC.
BMI+Seznam = DELPHI
unit Unit1;
public
BMI : real;
jmeno : string;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if Form2.ShowModal = mrOK then
begin
jmeno:=Form2.Edit1.Text;
BMI:=(Form2.SpinEdit1.Value / sqr(Form2.SpinEdit2.Value/100));
Label1.Caption:='BMI =' + FloatToStr(BMI);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
BMI:=0;
end;
procedure TForm1.Button2Click(Sender: TObject);
var s : string;
a : string;
begin
if BMI<>0 then
begin
if Form2.RadioButton1.Checked then
begin
s:='pane';
a:='';
end
else
begin
s:='paní';
a:='a';
end;
if BMI<20 then ShowMessage('Měl'+a+' byste trochu pribrat '+s+' '+jmeno);
if (BMI>=20) and (BMI<=25) then ShowMessage('Vaše váha'+s+' '+jmeno+' je úplně v normlálu');
if (BMI>25) and (BMI<=30) then ShowMessage('Jste mírně obézní'+s+' '+jmeno);
if (BMI>30) and (BMI<=40) then MessageDlg('Vaše obezita je vážná'+s+' '+jmeno+' měl'+s+' byste cvičit',mtWarning, [mbOk, mbIgnore], 0);
if (BMI>40) then MessageDlg('Něco takového jsem ještě neviděl!', mtWarning, [mbOK, mbIgnore], 0);
end
else ShowMessage('je treba nejdrive zadat data');
end;
procedure TForm1.npovda1Click(Sender: TObject);
begin
Form3.ShowModal();
end;
procedure TForm1.seznam1Click(Sender: TObject);
begin
Form4.ShowModal();
end;
end.
unit Unit2;
public
jmeno : string;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Edit1.Text:=jmeno;
end;
end.
unit Unit4;
procedure TForm4.Exit1Click(Sender: TObject);
begin
Close();
end;
procedure TForm4.Button1Click(Sender: TObject);
var jmeno : string;
prijmeni : string;
mesto : string;
ulice : string;
psc : string;
begin
Form5.Edit1.Text:='';
Form5.Edit2.Text:='';
Form5.Edit3.Text:='';
Form5.Edit4.Text:='';
Form5.Edit5.Text:='';
if Form5.ShowModal = mrOK then
begin
jmeno:=Form5.Edit1.Text;
prijmeni:=Form5.Edit2.Text;
mesto:=Form5.Edit3.Text;
ulice:=Form5.Edit4.Text;
psc:=Form5.Edit5.Text;
if jmeno='' then
begin
ShowMessage('musis vyplnit jmeno');
Form5.ShowModal();
end
else
ListBox1.Items.Add(jmeno+'-'+prijmeni+'-'+mesto+'-'+ulice+'-'+psc);
end;
end;
procedure TForm4.Save1Click(Sender: TObject);
begin
if (SaveDialog1.Execute()) then ListBox1.Items.SaveToFile(SaveDialog1.Filename);
end;
procedure TForm4.New1Click(Sender: TObject);
begin
ListBox1.Items.Clear();
end;
procedure TForm4.Load1Click(Sender: TObject);
begin
if (OpenDialog1.Execute()) then ListBox1.Items.LoadFromFile(OpenDialog1.Filename);
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
procedure TForm4.seadit1Click(Sender: TObject);
begin
ListBox1.Sorted:=true;
end;
procedure TForm4.Button3Click(Sender: TObject);
var s : string;
p : integer;
jmeno : string;
prijmeni : string;
mesto : string;
ulice : string;
psc : string;
begin
s:= Form4.ListBox1.Items.Strings[ListBox1.ItemIndex];
//jmeno
p := pos('-', s );
jmeno := copy( s, 1, p-1 );
Form5.Edit1.Text:=jmeno;
//prijmeni
s := copy( s,p+length('-'),length(s) );
p := pos('-', s );