Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - satir 127 Width 100 verdim ama goruntuden gelmiyor
  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.

satir 127 Width 100 verdim ama goruntuden gelmiyor
 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: 14 Saat 14 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: satir 127 Width 100 verdim ama goruntuden gelmiyor
    Gönderim Zamanı: 6 Saat 46 Dakika Önce Saat 17:58
var
hesapForm : TclForm;
titleLabel: TClProLabel;
hesapPanel : TclProPanel;
hesapSonuc: TClProLabel;
btn : TClProButton;
buttons: array[0..19] of string;
i, col, row: Integer;
ilkSayi: Double;
islem: String;
yeniSayiMi: Boolean;
//FONCTION POUR EFFECTUER DES CALCULS

void ButtonClick;
var
  tiklananTus: String;
  ikinciSayi, sonuc: Double;
{
  // Hangi tuşa basıldığını alıyoruz
  tiklananTus = TClProButton(hesapForm.ClSender).Caption; //Recupere l'elemnet present sur le boutton qu'on a appuyer
  if (tiklananTus == '') Exit; // Boş tuşa basıldıysa hiçbir şey yapma

  // 1. Temizleme Tuşu (C)
  if (tiklananTus == 'C')
  {
    hesapSonuc.Text = '0';
    ilkSayi = 0;
    islem = '';
    yeniSayiMi = True;
  }
  // 2. Geri Silme Tuşu (⌫)
  else if (tiklananTus == '⌫')
  {
    if (Length(hesapSonuc.Text) > 1)
      hesapSonuc.Text = Copy(hesapSonuc.Text, 1, Length(hesapSonuc.Text) - 1);
    else
      hesapSonuc.Text = '0';
  }
  // 3. Eşittir Tuşu (=) - Sonucu Hesapla
  else if (tiklananTus == '=')
  {
    if (islem <> '')
    {
      ikinciSayi = StrToFloat(hesapSonuc.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;
      }
      
      hesapSonuc.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(hesapSonuc.Text);
    islem = tiklananTus;
    yeniSayiMi = True;
  }
  // 5. Yüzde Alma İşlemi (%)
  else if (tiklananTus == '%')
  {
    ilkSayi = StrToFloat(hesapSonuc.Text);
    sonuc = ilkSayi / 100;
    hesapSonuc.Text = FloatToStr(sonuc);
    yeniSayiMi = True;
  }
  // 6. Rakamlar ve Nokta
  else
  {
    if (yeniSayiMi || (hesapSonuc.Text == '0'))
    {
      hesapSonuc.Text = tiklananTus;
      yeniSayiMi = False;
    }
    else
    {
      hesapSonuc.Text = hesapSonuc.Text + tiklananTus;
    }
  }
}



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('#bdf4e2');
  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 = 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);
  hesapPanel.Align = alCenter;
}

void setEdit
  {
    hesapSonuc = hesapForm.AddNewProLabel(hesapPanel,'hesapSonuc','0.0');
    hesapSonuc.Align = alTop;
    hesapSonuc.Height = 70;
    hesapSonuc.Width=100;
    hesapSonuc.Margins.Top = 15;
    hesapSonuc.Margins.Left = 15;
    hesapSonuc.Margins.Right = 15;
    hesapSonuc.clProSettings.BorderColor = clAlphaColor.clHexToColor('#bdf4e2');
    hesapSonuc.clProSettings.BorderWidth = 2;
    hesapSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
    hesapSonuc.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#101d2d');
    
    hesapSonuc.clProSettings.FontSize = 40;
    hesapSonuc.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
    hesapSonuc.clProSettings.FontHorzAlign = palTrailing;
    hesapSonuc.clProSettings.TextSettings.Font.Style = [fsBold];
  
    hesapSonuc.clProSettings.IsFill = True; 
    hesapSonuc.clProSettings.IsRound = True;
    hesapSonuc.SetclProSettings(hesapSonuc.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) + 40; 
    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('#bdf4e2');
    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);
  yeniSayiMi = True; 
  ilkSayi = 0;
  islem = '';
  setLabel;
  setPanel;
  setEdit;
  setButtons; 
  createButtonUI; 
  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
 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,018 Saniyede Yüklendi.