Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - syntax error satir 6
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

syntax error satir 6
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Barthe_dev Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 7 Saat 28 Dakika Önce
Konum: konya
Durum: Aktif Değil
Puanlar: 8 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Barthe_dev Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: syntax error satir 6
    Gönderim Zamanı: 2 Saat 20 Dakika Önce Saat 15:38
var
hesapForm : TclForm;
titleLabel: TClProLabel;
hesapPanel : TclProPanel;
buttons: array[20] of string;
buttons : {
    "C", "%", "⌫", "/",
    "7", "8", "9", "*",
    "4", "5", "6", "-",
    "1", "2", "3", "+",
    "0", ".", "=", ""
  };

void setLabel;
{
  titleLabel = hesapForm.AddNewProLabel(hesapForm,'titleLabel','My First Hesap Makinesi');
  titleLabel.Align = alTop;
  titleLabel.Width = 150;
  titleLabel.Height = 70;
  titleLabel.Margins.Left=120;
  
  titleLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#f5428d');
  titleLabel.clProSettings.FontSize = 40;
  titleLabel.clProSettings.FontVertAlign = palcenter;
  titleLabel.clProSettings.FontHorzAlign = palLeading;
  titleLabel.clProSettings.TextSettings.Font.Style = [fsBold];
  titleLabel.clProSettings.IsFill = True; 
  titleLabel.clProSettings.IsRound = True;
  titleLabel.SetclProSettings(titleLabel.clProSettings);
}
void setPanel{
  hesapPanel=hesapForm.AddNewProPanel(hesapForm,'hesapPanel');
  hesapPanel.Width = 500;
  hesapPanel.Height = 400;
  hesapPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#46484e');
  hesapPanel.clProSettings.BorderWidth = 2;
  hesapPanel.clProSettings.IsFill = True; 
  hesapPanel.clProSettings.IsRound = True;
  hesapPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#080c16')
  hesapPanel.SetclProSettings(hesapPanel.clProSettings);
}


























{
  hesapForm = TCLForm.Create(Self);
  hesapForm.SetFormColor('#101d2d','',clGNone);
  setLabel;
  setPanel;
  hesapForm.Run;
}
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
kayra12 Açılır Kutu İzle
Deneyimli Üye
Deneyimli Üye


Kayıt Tarihi: 23 Aralık 2024
Durum: Aktif
Puanlar: 56 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı kayra12 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 1 saat 46 Dakika Önce Saat 16:12
var
  hesapForm : TclForm;
  titleLabel: TClProLabel;
  hesapPanel : TclProPanel;
  displayLabel : TClProLabel;
  btn : TClProButton;
  buttons: array[0..19] of string;
  i, col, row: Integer;
  
  // HESAPLAMA İÇİN YENİ EKLENEN DEĞİŞKENLER
  ilkSayi: Double;
  islem: String;
  yeniSayiMi: Boolean;

// TUŞLARA TIKLANDIĞINDA ÇALIŞACAK ANA FONKSİYON
void ButtonClick;
var
  tiklananTus: String;
  ikinciSayi, sonuc: Double;
{
  // Hangi tuşa basıldığını alıyoruz
  tiklananTus = TClProButton(hesapForm.ClSender).Caption; 
  if (tiklananTus == '') Exit; // Boş tuşa basıldıysa hiçbir şey yapma

  // 1. Temizleme Tuşu (C)
  if (tiklananTus == 'C')
  {
    displayLabel.Text = '0';
    ilkSayi = 0;
    islem = '';
    yeniSayiMi = True;
  }
  // 2. Geri Silme Tuşu (⌫)
  else if (tiklananTus == '⌫')
  {
    if (Length(displayLabel.Text) > 1)
      displayLabel.Text = Copy(displayLabel.Text, 1, Length(displayLabel.Text) - 1);
    else
      displayLabel.Text = '0';
  }
  // 3. Eşittir Tuşu (=) - Sonucu Hesapla
  else if (tiklananTus == '=')
  {
    if (islem <> '')
    {
      ikinciSayi = StrToFloat(displayLabel.Text);
      
      if (islem == '+') sonuc = ilkSayi + ikinciSayi;
      else if (islem == '-') sonuc = ilkSayi - ikinciSayi;
      else if (islem == '*') sonuc = ilkSayi * ikinciSayi;
      else if (islem == '/')
      {
        if (ikinciSayi == 0) sonuc = 0; // Sıfıra bölme hatasını engellemek için
        else sonuc = ilkSayi / ikinciSayi;
      }
      
      displayLabel.Text = FloatToStr(sonuc);
      islem = '';
      yeniSayiMi = True; // İşlem bitti, yeni rakam girildiğinde ekranı temizle
    }
  }
  // 4. Dört İşlem Tuşları (+, -, *, /)
  else if ((tiklananTus == '+') || (tiklananTus == '-') || (tiklananTus == '*') || (tiklananTus == '/'))
  {
    ilkSayi = StrToFloat(displayLabel.Text);
    islem = tiklananTus;
    yeniSayiMi = True;
  }
  // 5. Yüzde Alma İşlemi (%)
  else if (tiklananTus == '%')
  {
    ilkSayi = StrToFloat(displayLabel.Text);
    sonuc = ilkSayi / 100;
    displayLabel.Text = FloatToStr(sonuc);
    yeniSayiMi = True;
  }
  // 6. Rakamlar ve Nokta
  else
  {
    if (yeniSayiMi || (displayLabel.Text == '0'))
    {
      displayLabel.Text = tiklananTus;
      yeniSayiMi = False;
    }
    else
    {
      displayLabel.Text = displayLabel.Text + tiklananTus;
    }
  }
}

void setLabel;
{
  titleLabel = hesapForm.AddNewProLabel(hesapForm,'titleLabel','My First Hesap Makinesi');
  titleLabel.Align = alTop;
  titleLabel.Height = 70;
  
  titleLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#f5428d');
  titleLabel.clProSettings.FontSize = 40;
  titleLabel.clProSettings.FontVertAlign = palcenter;
  titleLabel.clProSettings.FontHorzAlign = palCenter;
  titleLabel.clProSettings.TextSettings.Font.Style = [fsBold];
  titleLabel.SetclProSettings(titleLabel.clProSettings);
}

void setPanel;
{
  hesapPanel = hesapForm.AddNewProPanel(hesapForm,'hesapPanel');
  hesapPanel.Align = alCenter; 
  hesapPanel.Width = 460;
  hesapPanel.Height = 420; 
  
  hesapPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#46484e');
  hesapPanel.clProSettings.BorderWidth = 2;
  hesapPanel.clProSettings.IsFill = True; 
  hesapPanel.clProSettings.IsRound = True;
  hesapPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#080c16');
  hesapPanel.SetclProSettings(hesapPanel.clProSettings);
}

void setDisplay;
{
  displayLabel = hesapForm.AddNewProLabel(hesapPanel,'displayLabel','0');
  displayLabel.Align = alTop;
  displayLabel.Height = 70;
  displayLabel.Margins.Top = 15;
  displayLabel.Margins.Left = 15;
  displayLabel.Margins.Right = 15;
  
  displayLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
  displayLabel.clProSettings.FontSize = 36;
  displayLabel.clProSettings.FontVertAlign = palCenter;
  displayLabel.clProSettings.FontHorzAlign = palTrailing; 
  displayLabel.clProSettings.TextSettings.Font.Style = [fsBold];
  displayLabel.clProSettings.IsFill = True;
  displayLabel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#101d2d');
  displayLabel.clProSettings.IsRound = True;
  displayLabel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#f5428d');
  displayLabel.clProSettings.BorderWidth = 2;
  displayLabel.SetclProSettings(displayLabel.clProSettings);
}

void setButtons;
{
  buttons[0] = 'C';  buttons[1] = '%';  buttons[2] = '⌫'; buttons[3] = '/';
  buttons[4] = '7';  buttons[5] = '8';  buttons[6] = '9';  buttons[7] = '*';
  buttons[8] = '4';  buttons[9] = '5';  buttons[10] = '6'; buttons[11] = '-';
  buttons[12] = '1'; buttons[13] = '2'; buttons[14] = '3'; buttons[15] = '+';
  buttons[16] = '0'; buttons[17] = '.'; buttons[18] = '='; buttons[19] = '';
}

void createButtonUI;
{
  for (i = 0 to 19)
  {
    col = i mod 4; 
    row = i div 4; 
    
    btn = hesapForm.AddNewProButton(hesapPanel, 'btn'+IntToStr(i), buttons);
    btn.Align = alNone; 
    btn.Width = 100;
    btn.Height = 55;
    
    btn.Position.X = (col * 110) + 15; 
    btn.Position.Y = (row * 60) + 105; 
    
    btn.clProSettings.IsRound = True;
    btn.clProSettings.IsFill = True; 
    btn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#101d2d'); 
    btn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#f5428d');
    btn.clProSettings.BorderWidth = 2;
    btn.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff'); 
    btn.clProSettings.FontSize = 22;
    btn.clProSettings.TextSettings.Font.Style = [fsBold];
    btn.SetclProSettings(btn.clProSettings);

    // YENİ EKLENEN KISIM: Tuşları ButtonClick fonksiyonuna bağlıyoruz
    hesapForm.AddNewEvent(btn, tbeOnClick, 'ButtonClick');
  }
}

{
  hesapForm = TCLForm.Create(Self);
  hesapForm.SetFormColor('#101d2d','',clGNone);
  
  // Uygulama ilk açıldığında rakam girilmesini beklesin diye True yapıyoruz
  yeniSayiMi = True; 
  ilkSayi = 0;
  islem = '';
  
  setLabel;
  setPanel;
  setDisplay; 
  setButtons; 
  createButtonUI; 
  
  hesapForm.Run;
}. iyi çalışmalar dilerim 
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,020 Saniyede Yüklendi.