uygulama

var

  Formum: TCLForm;

  AdGiris, BoyGiris, KiloGiris: TCLEdit;

  SonucYazi, OneriYazi, HareketBilgiYazi: TCLLabel;

  HesaplaButton, SquatButton, PlankButton, ZiplaButton, MekikButton, DagciButton,resimlinkButton : TCLButton;

  AnaAlan, BilgiAlan, ButtonAlan, SonucAlani, OneriAlani, HareketAlani, BolgeAlan, TakvimAlani : TCLPanel;

  HareketResim: TCLImage;

  KolButton, SirtButton, BacakButton,  Barbell_BicepsCurlButton,  Dumbell_Hammer_CurlButton, Incline_Dumbell_PressButton,  AlternateDumbellCurlButton,  Dumbell_Concentration_CurlButton, HyperextensionButton, Latpull_downButton, BarfiksButton, BentoverowButton, Barbell_deadliftButton, HackSquatButton, LegPressButton,  Standing_LegCurlButton,  LyingLeg_CurlButton,  LegExtensionButton : TCLButton;

  KolResim, SirtResim, BacakResim, setImage : TCLImage;

  TakvimEtiketi: TCLLabel;

  ad: String;

  boy, kilo, vki: Float;

  durum, secilenBolge: String;

  bugunTarihi: String;

void HesaplaButtonTikla;

{

  if ((AdGiris.Text == '') || (BoyGiris.Text == '') || (KiloGiris.Text == ''))

  {

    ShowMessage('Lütfen tüm alanlari doldurunuz.');

  }

  else

  {

    ad = AdGiris.Text;

    boy = StrToFloat(BoyGiris.Text) / 100;

    kilo = StrToFloat(KiloGiris.Text);

    vki = kilo / (boy * boy);

    vki = Round(vki * 10) / 10;

    if (vki < 18.5)

      durum = 'Zayif - Direnç antrenmanlari yapabilirsiniz.';

    else if (vki < 25)

      durum = 'Normal - Haftada 3-4 gün kardiyo ve güç antrenmani önerilir.';

    else if (vki < 30)

      durum = 'Fazla kilolu - Düzenli yürüyüş ve hafif kardiyo yapmalisiniz.';

    else

      durum = 'Obez - Uzman kontrolünde düşük etkili egzersiz yapiniz.';

    SonucYazi.Text = 'Merhaba ' + ad + ', VKİ: ' + FloatToStr(vki);

    OneriYazi.Text = durum;

    HareketBilgiYazi.Text = '';

    bugunTarihi = DateToStr(Date());

    TakvimEtiketi.Text = 'Bugünkü kayit: ' + bugunTarihi + ' | VKİ: ' + FloatToStr(vki);

  }

}

void SquatbuttonTikla;

{

  HareketBilgiYazi.Text = 'Squat:\nAyaklar omuz hizasında açık, dizleri bükerek çömel. 3 set, 15 tekrar.';

  Formum.setImage(HareketResim, 'https://r.resimlink.com/6mVeGvN.png');

}

void PlankbuttonTikla;

{

  HareketBilgiYazi.Text = 'Plank:\nDirsekler ve ayak parmakları üzerinde dur, vücut düz dursun. 3 set, 30 saniye.';

  Formum.setImage(HareketResim, 'https://r.resimlink.com/K9HqRPEpJgUT.png');

}

void ZiplabuttonTikla;

{

  HareketBilgiYazi.Text = 'Ziplamali Açma:\nAyaklar ve kollar açılıp kapanır. Kardiyo için idealdir. 3 set, 20 tekrar.';

  Formum.setImage(HareketResim, 'https://r.resimlink.com/PwpBcnXYEQS.png');

}

void MekikbuttonTikla;

{

  HareketBilgiYazi.Text = 'Mekik:\nSırt üstü yat, dizler bükülü, gövdeni kaldır. 3 set, 20 tekrar.';

  Formum.setImage(HareketResim, 'https://r.resimlink.com/OH0oJAIpT.png');

}

void DagcibuttonTikla;

{

  HareketBilgiYazi.Text = 'Dağci:\nŞınav pozisyonunda dizleri sırayla çek. 3 set, 30 tekrar.';

  Formum.setImage(HareketResim, 'https://r.resimlink.com/7NRTpK.png');

}

void resimlinkbutton;

{

  resimlinkButton = Formum.AddNewButton(AnaAlan, 'ButtonAlan','Resime tıkla');

  resimlinkButton.Align = alTop;

  resimlinkButton.Height = 70;

}

void KolbuttonTikla;

{

  secilenBolge = 'Kol';

  Barbell_BicepsCurlButton.Visible = False;

  Dumbell_Hammer_CurlButton.Visible = True;

  Incline_Dumbell_PressButton.Visible = False;

  AlternateDumbellCurlButton.Visible = True;

  Dumbell_Concentration_CurlButton.Visible = True;

}

void SirtbuttonTikla;

{

  secilenBolge = 'Sirt';

  HyperextensionButton.Visible = False;

  Latpull_downButton.Visible = True;

  BarfiksButton.Visible = True;

  BentoverowButton.Visible = False;

  Barbell_deadliftButton.Visible = True;

} 

void BacakbuttonTikla;         

{

  secilenBolge = 'bacak ';

  HackSquatButton.Visible = True;

  LegPressButton.Visible = False;

  Standing_LegCurlButton.Visible = True;

  LyingLeg_CurlButton.Visible = False;

  LegExtensionButton.Visible = False;

}

{

  Formum = TCLForm.Create(Self);

  AnaAlan = Formum.AddNewPanel(Formum, 'AnaAlan');

  AnaAlan.Align = alClient;

  AnaAlan.Margins.Top = 10;

  AnaAlan.Margins.Bottom = 10;

  AnaAlan.Margins.Left = 10;

  AnaAlan.Margins.Right = 10;

  BilgiAlan = Formum.AddNewPanel(AnaAlan, 'BilgiAlan');

  BilgiAlan.Align = alTop;

  BilgiAlan.Height = 120;

  AdGiris = Formum.AddNewEdit(BilgiAlan, 'AdGiris', 'Adıniz...');

  AdGiris.Align = alTop;

  AdGiris.Height = 30;

  BoyGiris = Formum.AddNewEdit(BilgiAlan, 'BoyGiris', 'Boy (cm)...');

  BoyGiris.Align = alTop;

  BoyGiris.clTypeOfField = taFloat;

  BoyGiris.Height = 30;

  KiloGiris = Formum.AddNewEdit(BilgiAlan, 'KiloGiris', 'Kilo (kg)...');

  KiloGiris.Align = alTop;

  KiloGiris.clTypeOfField = taFloat;

  KiloGiris.Height = 30;

  ButtonAlan = Formum.AddNewPanel(AnaAlan, 'ButtonAlan');

  ButtonAlan.Align = alTop;

  ButtonAlan.Height = 50;

  Hesaplabutton = Formum.AddNewButton(ButtonAlan, 'Hesaplabutton', 'VKİ Hesapla');

  Hesaplabutton.Align = alCenter;

  Hesaplabutton.Width = 140;

  Formum.AddNewEvent(Hesaplabutton, tbeOnClick, 'HesaplabuttonTikla');

  SonucAlani = Formum.AddNewPanel(AnaAlan, 'SonucAlani');

  SonucAlani.Align = alTop;

  SonucAlani.Height = 60;

  SonucYazi = Formum.AddNewLabel(SonucAlani, 'SonucYazi', '');

  SonucYazi.Align = alClient;

  SonucYazi.TextSettings.Font.Size = 16;

  OneriAlani = Formum.AddNewPanel(AnaAlan, 'OneriAlani');

  OneriAlani.Align = alTop;

  OneriAlani.Height = 70;

  OneriYazi = Formum.AddNewLabel(OneriAlani, 'OneriYazi', '');

  OneriYazi.Align = alClient;

  OneriYazi.WordWrap = True;

  OneriYazi.TextSettings.Font.Size = 14;

  TakvimAlani = Formum.AddNewPanel(AnaAlan, 'TakvimAlani');

  TakvimAlani.Align = alTop;

  TakvimAlani.Height = 50;

  TakvimEtiketi = Formum.AddNewLabel(TakvimAlani, 'TakvimEtiketi', 'Bugünkü kayıt: -');

  TakvimEtiketi.Align = alClient;

  TakvimEtiketi.TextSettings.Font.Size = 12;

  TakvimEtiketi.TextSettings.Font.Style = [fsBold];

  BolgeAlan = Formum.AddNewPanel(AnaAlan, 'BolgeAlan');

  BolgeAlan.Align = alTop;

  BolgeAlan.Height = 100;

  BolgeAlan.Margins.Bottom = 10;

  Kolbutton= Formum.AddNewButton(BolgeAlan, 'Kolbutton', 'Kol');

  Kolbutton.Align = alLeft;

  Kolbutton.Width = 100;

  Kolbutton.Height = 80;

  Formum.AddNewEvent(Kolbutton, tbeOnClick, 'KolbuttonTikla');

  KolResim = Formum.AddNewImage(Kolbutton, 'KolResim');

  Formum.setImage(KolResim,'https://r.resimlink.com/xLAKF5tZ.jpg');

  KolResim.Align = alClient; 

  Sirtbutton = Formum.AddNewButton(BolgeAlan, 'Sirtbutton', 'Sırt');

  Sirtbutton.Align = alLeft;

  Sirtbutton.Width = 100;

  Sirtbutton.Height = 80;

  Formum.AddNewEvent(Sirtbutton, tbeOnClick, 'SirtbuttonTikla');

  SirtResim = Formum.AddNewImage(Sirtbutton, 'SirtResim');

  Formum.setImage(SirtResim,'https://r.resimlink.com/mH6DWJEr.jpg');

  SirtResim.Align = alClient;

  Bacakbutton = Formum.AddNewButton(BolgeAlan, 'Bacakbutton', 'Bacak');

  Bacakbutton.Align = alLeft;

  Bacakbutton.Width = 100;

  Bacakbutton.Height = 80;

  Formum.AddNewEvent(Bacakbutton, tbeOnClick, 'BacakbuttonTikla');

  BacakResim = Formum.AddNewImage(Bacakbutton, 'BacakResim');

  Formum.setImage(BacakResim,'https://r.resimlink.com/rAgk5.png');

  BacakResim.Align = alClient;

  HareketAlani = Formum.AddNewPanel(AnaAlan, 'HareketAlani');

  HareketAlani.Align = alClient;

  HareketAlani.Margins.Top = 10;

  Squatbutton = Formum.AddNewButton(HareketAlani, 'Squatbutton', 'Squat');

  Squatbutton.Align = alTop;

  Squatbutton.Height = 40;

  Formum.AddNewEvent(Squatbutton, tbeOnClick, 'SquatbuttonTikla');

  Plankbutton = Formum.AddNewButton(HareketAlani, 'Plankbutton', 'Plank');

  Plankbutton.Align = alTop;

  Plankbutton.Height = 40;

  Formum.AddNewEvent(Plankbutton, tbeOnClick, 'PlankbuttonTikla');

  Ziplabutton = Formum.AddNewButton(HareketAlani, 'Ziplabutton', 'Zıplamalı Açma');

  Ziplabutton.Align = alTop;

  Ziplabutton.Height = 40;

  Formum.AddNewEvent(Ziplabutton, tbeOnClick, 'ZiplabuttonTikla');

  Mekikbutton = Formum.AddNewButton(HareketAlani, 'Mekikbutton', 'Mekik');

  Mekikbutton.Align = alTop;

  Mekikbutton.Height = 40;

  Formum.AddNewEvent(Mekikbutton, tbeOnClick, 'MekikbuttonTikla');

  Dagcibutton = Formum.AddNewButton(HareketAlani, 'Dagcibutton', 'Dağcı');

  Dagcibutton.Align = alTop;

  Dagcibutton.Height = 40;

  Formum.AddNewEvent(Dagcibutton, tbeOnClick, 'DagcibuttonTikla');

  Barbell_BicepsCurlButton = Formum.AddNewButton(HareketAlani, 'Barbell_BicepsCurlButton', 'Barbell_BicepsCurl');

  Barbell_BicepsCurlButton.Align = alTop;

  Barbell_BicepsCurlButton.Height = 40;

  Formum.AddNewEvent(Barbell_BicepsCurlButton, tbeOnClick, 'Barbell_BicepsCurlButtonTikla');

  

  Dumbell_Hammer_CurlButton = Formum.AddNewButton(HareketAlani, 'Dumbell_Hammer_CurlButton', 'Dumbell_Hammer_Curl');

  Dumbell_Hammer_CurlButton.Align = alTop;

  Dumbell_Hammer_CurlButton.Height = 40;

  Formum.AddNewEvent(Dumbell_Hammer_CurlButton, tbeOnClick, 'Dumbell_Hammer_CurlButtonTikla');

  

  

  Incline_Dumbell_PressButton = Formum.AddNewButton(HareketAlani, 'Incline_Dumbell_PressButton', 'Incline_Dumbell_Press');

  Incline_Dumbell_PressButton.Align = alTop;

  Incline_Dumbell_PressButton.Height = 40;

  Formum.AddNewEvent(Incline_Dumbell_PressButton, tbeOnClick, 'Incline_Dumbell_PressButtonTikla');

  

  AlternateDumbellCurlButton = Formum.AddNewButton(HareketAlani, 'AlternateDumbellCurlButton', 'AlternateDumbellCurl');

  AlternateDumbellCurlButton.Align = alTop;

  AlternateDumbellCurlButton.Height = 40;

  Formum.AddNewEvent(AlternateDumbellCurlButton, tbeOnClick, 'AlternateDumbellCurlButtonTikla');

 

  

  Dumbell_Concentration_CurlButton = Formum.AddNewButton(HareketAlani, 'Dumbell_Concentration_CurlButton', 'Dumbell_Concentration_Curl');

  Dumbell_Concentration_CurlButton.Align = alTop;

  Dumbell_Concentration_CurlButton.Height = 40;

  Formum.AddNewEvent(Dumbell_Concentration_CurlButton, tbeOnClick, ' Dumbell_Concentration_CurlButtonTikla');

 

  

  HyperextensionButton = Formum.AddNewButton(HareketAlani,  'HyperextensionButton', ' Hyperextension');

  HyperextensionButton.Align = alTop;

  HyperextensionButton.Height = 40;

  Formum.AddNewEvent(HyperextensionButton, tbeOnClick, ' HyperextensionButtonTikla');

 

  

  Latpull_downButton = Formum.AddNewButton(HareketAlani, ' Latpull_downButton', ' Latpull_down');

  Latpull_downButton.Align = alTop;

  Latpull_downButton.Height = 40;

  Formum.AddNewEvent(Latpull_downButton, tbeOnClick, ' Latpull_downButtonTikla');

  

  

  BentoverowButton = Formum.AddNewButton(HareketAlani, ' BentoverowButton', ' Bentoverow');

  BentoverowButton.Align = alTop;

  Bentoverowbutton.Height = 40;

  Formum.AddNewEvent(BentoverowButton, tbeOnClick, ' BentoverowButtonTikla');

  

  Barbell_deadliftButton = Formum.AddNewButton(HareketAlani, '  Barbell_deadliftButton', '  Barbell_deadlift');

  Barbell_deadliftButton.Align = alTop;

  Barbell_deadliftButton.Height = 40;

  Formum.AddNewEvent( Barbell_deadliftButton, tbeOnClick, '  Barbell_deadliftButtonTikla');

  

  HackSquatButton = Formum.AddNewButton(HareketAlani, '   HackSquatbutton', '   HackSquat');

  HackSquatButton.Align = alTop;

  HackSquatButton.Height = 40;

  Formum.AddNewEvent( HackSquatButton, tbeOnClick, '    HackSquatButtonTikla');

  LegPressButton = Formum.AddNewButton(HareketAlani, '   LegPressButton', '   LegPress');

  LegPressButton.Align = alTop;

  LegPressButton.Height = 40;

  Formum.AddNewEvent( LegPressButton, tbeOnClick, '    LegPressButtonTikla');

  Standing_LegCurlButton = Formum.AddNewButton(HareketAlani, '   Standing_LegCurlButton', '   Standing_LegCurl');

  Standing_LegCurlButton.Align = alTop;

  Standing_LegCurlButton.Height = 40;

  Formum.AddNewEvent( Standing_LegCurlButton, tbeOnClick, '    Standing_LegCurlButtonTikla');

  

  LyingLeg_CurlButton = Formum.AddNewButton(HareketAlani, '   LyingLegButton', '   LyingLeg_Curl');

  LyingLeg_CurlButton.Align = alTop;

  LyingLeg_CurlButton.Height = 40;

  Formum.AddNewEvent( LyingLeg_CurlButton, tbeOnClick, '    LyingLeg_CurlbuttonTikla');

  

  LegExtensionButton = Formum.AddNewButton(HareketAlani, '   LegExtensionButton', '   LegExtension');

  LegExtensionButton.Align = alTop;

  LegExtensionButton.Height = 40;

  Formum.AddNewEvent( LegExtensionButton, tbeOnClick, '    LegExtensionButtonTikla');

  

  HareketBilgiYazi = Formum.AddNewLabel(HareketAlani, 'HareketBilgiYazi', '');

  HareketBilgiYazi.Align = alTop;

  HareketBilgiYazi.WordWrap = True;

  HareketBilgiYazi.TextSettings.Font.Size = 14;

  HareketResim = Formum.AddNewImage(HareketAlani, 'HareketResim');

  HareketResim.Align = alClient;

  HareketResim.Margins.Top = 10;

  Formum.Run;

}