Genel İşlemler

    var 
  editBoy , editYas , editKilo , editBoyun , editBel , editKalca: TclEdit;
  buttonHesapla: TCLButton;
  labelSonuc: TCLLabel;
  comboboxCinsiyet : TCLComboBox;
  MyForm: TCLForm;

  boy , kilo , boyun , bel , kalca , yagOrani , d1 , d2 , toplam , terim , fark: Double;
  yas , i , k: Integer;
  cinsiyet: String;

  function log10(x: Double): Double;
  {
    if x <=0
    {
      Result= 0;
    }
    else
    {
    k = 0;
    while (x >= 2.0)
    {
      x = x / 2.0;
      k = k + 1;
    }

    d1 = (x - 1) / (x + 1);
    d2 = d1 * d1;
    toplam = 0;
    terim = d1;
    for i = 1 to 15
    {
    toplam = toplam + terim / (2 * i - 1);
    terim = terim * d2;
    }
    Result = (k * 0.30102999566) + ((2 * toplam) / 2.30258509299);
  } 

  void yagOraniHesaplaIslemi;
  { 
    boy = FloatToStr(editBoy.Text);
    boyun = FloatToStr(editBoyun.Text);
    bel = FloatToStr(editBel.Text);
    Kalca = FloatToStr(editKalca.Text);
    cinsiyet = comboboxCinsiyet.Text;
    //yas = FloatToStr(editYas.Text);
    //kilo = FloatToStr(editKilo.Text);

    if (cinsiyet=='Erkek')
      {
        if ((boy > 0) && (bel > 0) && (boyun > 0))
          {
            fark = bel - boyun;
            yagOrani = 86.010 * log10(fark) - 70.041 * log10(boy) + 36.76;
            ShowMessage(yagOrani);
          }
        else
          {
            ShowMessage('Lütfen Bütün Değerleri Doldurunuz');
          }
      }

    else
      {
        if ((boy > 0) && (bel > 0) && (boyun > 0) && (Kalca > 0))
          {
            fark = bel + kalca - boyun;
            yagOrani = 163.205 * log10(fark) - 97.684 * log10(boy) - 78.387;
            ShowMessage(yagOrani);
          }
        else
          {
            ShowMessage('Lütfen Bütün Değerleri Doldurunuz');
          }
      }
    ShowMessage('yagOrani hesaplandı');  
  }  

  {
    MyForm=TCLForm.Create(Self);

    buttonHesapla=MyForm.AddNewButton(MyForm,'yagOraniHesapla', 'Hesapla');
    buttonHesapla.Align = alBottom;    

    comboboxCinsiyet=MyForm.AddNewComboBox(MyForm, 'comboboxCinsiyet');
    comboboxCinsiyet.AddItem('Kadın' , '0')
    comboboxCinsiyet.AddItem('Erkek' , '1')
    comboboxCinsiyet.Align = alBottom;

    editBoy=MyForm.AddNewEdit(MyForm,'Boyedit', 'Boyunuzu Giriniz');
    //editYas=MyForm.AddNewEdit(MyForm,'Yasedit', 'Yasınızı Giriniz');
    //editKilo=MyForm.AddNewEdit(MyForm,'Kiloedit', 'Kilonuzu Giriniz');
    editBoyun=MyForm.AddNewEdit(MyForm,'Boyunedit', 'Boyun Cevrenizi Giriniz');
    editBel=MyForm.AddNewEdit(MyForm,'Beledit', 'Bel Cevrenizi Giriniz');
    editKalca=MyForm.AddNewEdit(MyForm,'Kalcaedit', 'Kalca Cevrenizi Giriniz');

    MyForm.AddNewEvent(buttonHesapla,tbeOnClick, 'yagOraniHesaplaIslemi');

    editBoy.Align = alTop; editBoy.Margins.Top = 25;
    //editYas.Align = alTop; editYas.Margins.Top = 25;
    //editKilo.Align = alTop; editKilo.Margins.Top = 25;
    editBoyun.Align = alTop; editBoyun.Margins.Top = 25;
    editBel.Align = alTop; editBel.Margins.Top = 25;
    editKalca.Align = alTop; editKalca.Margins.Top = 25;
    MyForm.Run;
  }

Unit Main: Syntax error.
Source position: 40,7
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
AcarPlus Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 11 Saat 14 Dakika Önce Konum: Konya Durum: Aktif Değil Puanlar: 2	Mesaj Seçenekleri Yanıt Yaz Alıntı AcarPlus Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Genel İşlemler Gönderim Zamanı: 4 Saat 20 Dakika Önce Saat 17:48
	var editBoy , editYas , editKilo , editBoyun , editBel , editKalca: TclEdit; buttonHesapla: TCLButton; labelSonuc: TCLLabel; comboboxCinsiyet : TCLComboBox; MyForm: TCLForm; boy , kilo , boyun , bel , kalca , yagOrani , d1 , d2 , toplam , terim , fark: Double; yas , i , k: Integer; cinsiyet: String; function log10(x: Double): Double; { if x <=0 { Result= 0; } else { k = 0; while (x >= 2.0) { x = x / 2.0; k = k + 1; } d1 = (x - 1) / (x + 1); d2 = d1 * d1; toplam = 0; terim = d1; for i = 1 to 15 { toplam = toplam + terim / (2 * i - 1); terim = terim * d2; } Result = (k * 0.30102999566) + ((2 * toplam) / 2.30258509299); } void yagOraniHesaplaIslemi; { boy = FloatToStr(editBoy.Text); boyun = FloatToStr(editBoyun.Text); bel = FloatToStr(editBel.Text); Kalca = FloatToStr(editKalca.Text); cinsiyet = comboboxCinsiyet.Text; //yas = FloatToStr(editYas.Text); //kilo = FloatToStr(editKilo.Text); if (cinsiyet=='Erkek') { if ((boy > 0) && (bel > 0) && (boyun > 0)) { fark = bel - boyun; yagOrani = 86.010 * log10(fark) - 70.041 * log10(boy) + 36.76; ShowMessage(yagOrani); } else { ShowMessage('Lütfen Bütün Değerleri Doldurunuz'); } } else { if ((boy > 0) && (bel > 0) && (boyun > 0) && (Kalca > 0)) { fark = bel + kalca - boyun; yagOrani = 163.205 * log10(fark) - 97.684 * log10(boy) - 78.387; ShowMessage(yagOrani); } else { ShowMessage('Lütfen Bütün Değerleri Doldurunuz'); } } ShowMessage('yagOrani hesaplandı'); } { MyForm=TCLForm.Create(Self); buttonHesapla=MyForm.AddNewButton(MyForm,'yagOraniHesapla', 'Hesapla'); buttonHesapla.Align = alBottom; comboboxCinsiyet=MyForm.AddNewComboBox(MyForm, 'comboboxCinsiyet'); comboboxCinsiyet.AddItem('Kadın' , '0') comboboxCinsiyet.AddItem('Erkek' , '1') comboboxCinsiyet.Align = alBottom; editBoy=MyForm.AddNewEdit(MyForm,'Boyedit', 'Boyunuzu Giriniz'); //editYas=MyForm.AddNewEdit(MyForm,'Yasedit', 'Yasınızı Giriniz'); //editKilo=MyForm.AddNewEdit(MyForm,'Kiloedit', 'Kilonuzu Giriniz'); editBoyun=MyForm.AddNewEdit(MyForm,'Boyunedit', 'Boyun Cevrenizi Giriniz'); editBel=MyForm.AddNewEdit(MyForm,'Beledit', 'Bel Cevrenizi Giriniz'); editKalca=MyForm.AddNewEdit(MyForm,'Kalcaedit', 'Kalca Cevrenizi Giriniz'); MyForm.AddNewEvent(buttonHesapla,tbeOnClick, 'yagOraniHesaplaIslemi'); editBoy.Align = alTop; editBoy.Margins.Top = 25; //editYas.Align = alTop; editYas.Margins.Top = 25; //editKilo.Align = alTop; editKilo.Margins.Top = 25; editBoyun.Align = alTop; editBoyun.Margins.Top = 25; editBel.Align = alTop; editBel.Margins.Top = 25; editKalca.Align = alTop; editKalca.Margins.Top = 25; MyForm.Run; } Unit Main: Syntax error. Source position: 40,7 https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 1002	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 4 Saat 17 Dakika Önce Saat 17:51
	Merhaba Enes, Gözünden kaçan basit bir hata var } eksik log10 prosedürün de else den sonra { var ama kapanış eksik kalmış. function log10(x: Double): Double; { if x <=0 { Result= 0; } else { k = 0; while (x >= 2.0) { x = x / 2.0; k = k + 1; } d1 = (x - 1) / (x + 1); d2 = d1 * d1; toplam = 0; terim = d1; for i = 1 to 15 { toplam = toplam + terim / (2 * i - 1); terim = terim * d2; } Result = (k * 0.30102999566) + ((2 * toplam) / 2.30258509299); } } https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">