Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Hesap Makinesi
  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.

Hesap Makinesi
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Raziye Nur Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07 Temmuz 2025
Durum: Aktif Değil
Puanlar: 4 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Raziye Nur Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Hesap Makinesi
    Gönderim Zamanı: 09 Temmuz 2025 Saat 16:28
Hesap makinesinde sayıları edit girişi şeklinde değil de butonlu sayı seçip işlem yapmak istiyorum yardımcı olabilir misiniz? ana kod
  var
  MyForm : TCLForm;
  Sayi1Edit, Sayi2Edit : TCLEdit;
  OperatorLabel, SonucLabel : TCLLabel;
  ArtiButton, EksiButton, CarpButton, BolmeButton,UsAlmaButton,ModButton :  TCLImage;
  AnaPanel, sayiPanel,IslemPanel, IslemPanel1,IslemPanel2,IslemPanel3 HesaplaPanel, SonucPanel : TCLPanel;
  HesaplaButton : TCLButton;
  Unit1 : TCLUnit;
  
void HesaplaButtonTikla;
{
  if((Sayi1Edit.Text == '') || (Sayi2Edit.Text == ''))
  {
    ShowMessage('Sayi değerlerini boş bırakmayınız.');
  }
  else
  {
    if (OperatorLabel.Text == '?')
      ShowMessage('Bir işlem seçiniz.');
    else
    {
      Unit1.UnitName = 'uHesaplama';
      Unit1.CallerForm = MyForm;
      Unit1.Run;
      MyForm.clHide;   
    }

  }
}

void IslemButtonTikla; 
var
  clickedBtn:TClProButton;
{
  clickedBtn = TClProButton(MyForm.Clsender); 
  OperatorLabel.Text = clickedBtn.Hint;

}
 
{
  MyForm = TCLForm.Create(Self);
  Unit1 = TCLUnit.Create;
  AnaPanel = MyForm.AddNewPanel(MyForm,'AnaPanel');
  AnaPanel.Align = AlClient;
  AnaPanel.Margins.Top = 30;
  AnaPanel.Margins.Bottom = 30;
  AnaPanel.Margins.Left = 30;
  AnaPanel.Margins.Right = 30;
  
  sayiPanel = MyForm.AddNewPanel(AnaPanel,'sayiPanel');
  sayiPanel.Align = AlMostTop;
  sayiPanel.Height = AnaPanel.Height / 6;
  sayiPanel.Margins.Top = 5;
  
  Sayi1Edit = MyForm.AddNewEdit(sayiPanel,'Sayi1Edit', 'Sayı 1... ');
  Sayi1Edit.Align = AlLeft;
  Sayi1Edit.Width = sayiPanel.Width/2 - 70;
  Sayi1Edit.clTypeOfField = taFloat;
  
  OperatorLabel = MyForm.AddNewLabel(sayiPanel,'OperatorLabel','?');
  OperatorLabel.Align = alClient;
  OperatorLabel.StyledSettings = ssFamily;
  OperatorLabel.TextSettings.Font.Size = 18;
  OperatorLabel.TextSettings.HorzAlign = taCenter;
  
  Sayi2Edit = MyForm.AddNewEdit(sayiPanel,'Sayi2Edit', 'Sayı 2... ');
  Sayi2Edit.Align = alRight;
  Sayi2Edit.Width = sayiPanel.Width/2 - 70;
  Sayi2Edit.clTypeOfField = taFloat;
  
  //Operatörler için oluşturulan panel yapısı
  IslemPanel = MyForm.AddNewPanel(AnaPanel,'IslemPanel');
  IslemPanel.Align = AlMostTop;
  IslemPanel.Height = AnaPanel.Height / 3;
  IslemPanel.Margins.Top = 30;
  
  IslemPanel1 = MyForm.AddNewPanel(IslemPanel,'IslemPanel1');
  IslemPanel1.Align = AlMostTop;
  IslemPanel1.Height = IslemPanel.Height / 2 - 20;
  IslemPanel1.Margins.Top = 5;
  IslemPanel1.Margins.Bottom = 5;
  
  ArtiButton = MyForm.AddNewButton(IslemPanel1,'ArtiButton', '+');
  ArtiButton.Align = alLeft;
  ArtiButton.Margins.Left = IslemPanel1.Width / 4;
  ArtiButton.Width = IslemPanel1.Width / 6;
  ArtiButton.Hint = '+';
  MyForm.AddNewEvent(ArtiButton,tbeOnClick,'IslemButtonTikla');
  
  EksiButton = MyForm.AddNewButton(IslemPanel1,'EksiButton', '-');
  EksiButton.Align = alRight;
  EksiButton.Margins.Right = IslemPanel1.Width / 4;
  EksiButton.Width = IslemPanel1.Width / 6;
  EksiButton.Hint = '-';
  MyForm.AddNewEvent(EksiButton,tbeOnClick,'IslemButtonTikla');
  
  IslemPanel2 = MyForm.AddNewPanel(IslemPanel,'IslemPanel2');
  IslemPanel2.Align = AlTop;
  IslemPanel2.Height = IslemPanel.Height / 2 - 20;
  IslemPanel2.Margins.Top = 5;
  IslemPanel2.Margins.Bottom = 5;
  
  CarpButton = MyForm.AddNewButton(IslemPanel2,'CarpButton', '*');
  CarpButton.Align = alLeft;
  CarpButton.Margins.Left = IslemPanel2.Width / 4;
  CarpButton.Width = IslemPanel2.Width / 6;
  CarpButton.Hint = '*';
  MyForm.AddNewEvent(CarpButton,tbeOnClick,'IslemButtonTikla');
  
  BolmeButton = MyForm.AddNewButton(IslemPanel2,'BolmeButton', '/');
  BolmeButton.Align = alRight;
  BolmeButton.Margins.Right = IslemPanel2.Width / 4;
  BolmeButton.Width = IslemPanel2.Width / 6;
  BolmeButton.Hint = '/';
  MyForm.AddNewEvent(BolmeButton,tbeOnClick,'IslemButtonTikla');
  
  IslemPanel3 = MyForm.AddNewPanel(IslemPanel,'IslemPanel3');
  IslemPanel3.Align = AlTop;
  IslemPanel3.Height = IslemPanel.Height / 2-20;
  IslemPanel3.Margins.Top = 5;
  IslemPanel3.Margins.Bottom = 5;
  
  ModButton = MyForm.AddNewButton(IslemPanel3,'ModButton', 'mod');
  ModButton.Align = alLeft;
  ModButton.Margins.Left = IslemPanel2.Width / 4;
  ModButton.Width = IslemPanel2.Width / 6;
  ModButton.Hint = 'mod';
  MyForm.AddNewEvent(ModButton,tbeOnClick,'IslemButtonTikla');
  
  UsAlmaButton = MyForm.AddNewButton(IslemPanel3,'UsAlmaButton', '^');
  UsAlmaButton.Align = alRight;
  UsAlmaButton.Margins.Right = IslemPanel2.Width / 4;
  UsAlmaButton.Width = IslemPanel2.Width / 6;
  UsAlmaButton.Hint = '^';
  MyForm.AddNewEvent(UsAlmaButton,tbeOnClick,'IslemButtonTikla');
  
  //Hesaplama butonu için oluşturulan panel yapısı
  HesaplaPanel = MyForm.AddNewPanel(AnaPanel, 'HesaplaPanel');
  HesaplaPanel.Align = AlBottom;
  HesaplaPanel.Height = AnaPanel.Height /6;
  HesaplaPanel.Margins.Bottom = 5;
  
  HesaplaButton = MyForm.AddNewButton(HesaplaPanel,'HesaplaButton', 'Hesapla');
  HesaplaButton.Align = alCenter;
  HesaplaButton.Height = HesaplaPanel.Height / 2;
  HesaplaButton.Width = 100;
  MyForm.AddNewEvent(HesaplaButton,tbeOnClick,'HesaplaButtonTikla');
  
  //uIslem ekranından gelen sonuç:
  SonucPanel =  MyForm.AddNewPanel(AnaPanel, 'SonucPanel');
  SonucPanel.Align = AlMostBottom;
  SonucPanel.Height = AnaPanel.Height / 8;
  SonucPanel.Margins.Bottom = 5;
  
  SonucLabel = MyForm.AddNewLabel(SonucPanel, 'SonucLabel','Sonuç: ');
  SonucLabel.Align = alLeft;
  SonucLabel.Width=SonucPanel.width;
  SonucLabel.StyledSettings = ssFamily;
  SonucLabel.TextSettings.Font.Size = 24;
  
  MyForm.Run;
}    
 uhesaplama 

var
HesaplamaForm:TclForm;
Sayi1Label, Sayi2Label,IslemLabel : TCLLabel;
HesaplaButton : TCLButton;
IslemPanel, HesaplaPanel : TCLPanel;

void FormKapat;
{
  Clomosy.RunUnit('MainCode');
}
void AnaSayfadanAktar;
{
  Sayi1Label.Text = callerForm.Sayi1Edit.Text;
  IslemLabel.Text = callerForm.OperatorLabel.Text;
  Sayi2Label.Text = callerForm.Sayi2Edit.Text;
}

void Hesapla;
var
  Cevap : String;
{
  if(IslemLabel.Text == '+')
  {
    Cevap = IntToStr(StrToInt(Sayi1Label.Text) + StrToInt(Sayi2Label.Text));
  }
  else if(IslemLabel.Text == '-')
  {
   Cevap =  IntToStr(StrToInt(Sayi1Label.Text) - StrToInt(Sayi2Label.Text));
  }
  else if(IslemLabel.Text == '*')
  {
    Cevap =  IntToStr(StrToInt(Sayi1Label.Text) * StrToInt(Sayi2Label.Text));
  }
  else if(IslemLabel.Text == 'mod')
  {
    Cevap =  IntToStr(StrToInt(Sayi1Label.Text) mod StrToInt(Sayi2Label.Text));
  }
  else if(IslemLabel.Text == '^')
  {
    Cevap =  IntToStr(StrToInt(Sayi1Label.Text) ^ StrToInt(Sayi2Label.Text));
  }
  else
  {
    Cevap =  IntToStr(StrToInt(Sayi1Label.Text) / StrToInt(Sayi2Label.Text));
  }
  callerForm.SonucLabel.Text = 'Sonuç: '+ Cevap;
  
  ShowMessage('İşlem Sonucu Ana Sayfaya Yazdırıldı. Yönlendiriliyorsunuz...');
  callerForm.clShow;
  HesaplamaForm.clHide;
  
}

{
  HesaplamaForm = TCLForm.Create(Self);
  
  IslemPanel = HesaplamaForm.AddNewPanel(HesaplamaForm,'IslemPanel');
  IslemPanel.align = alMostTop;
  IslemPanel.height = HesaplamaForm.clWidth / 4;
  IslemPanel.margins.Top = 20;
  
  Sayi1Label = HesaplamaForm.AddNewLabel(IslemPanel,'Sayi1Label',' ');
  Sayi1Label.align = alLeft;
  Sayi1Label.margins.left = 40;
  Sayi1Label.width = (IslemPanel.Width*30)/100;
  Sayi1Label.styledsettings = ssFamily;
  Sayi1Label.Textsettings.Font.Size = 24;
  Sayi1Label.TextSettings.HorzAlign = taTrailing;
 
  Sayi2Label = HesaplamaForm.AddNewLabel(IslemPanel,'Sayi2Label',' ');
  Sayi2Label.align = alRight;
  Sayi2Label.margins.Right = 40;
  Sayi2Label.width = (IslemPanel.Width*30)/100;
  Sayi2Label.styledsettings = ssFamily;
  Sayi2Label.Textsettings.Font.Size = 24;
  
  
  IslemLabel = HesaplamaForm.AddNewLabel(IslemPanel,'IslemLabel','?');
  IslemLabel.align = alClient;
  IslemLabel.styledsettings = ssFamily;
  IslemLabel.Textsettings.Font.Size = 24;
  IslemLabel.TextSettings.HorzAlign = taCenter;
  

  HesaplaPanel = HesaplamaForm.AddNewPanel(HesaplamaForm, 'HesaplaPanel');
  HesaplaPanel.align = alTop;
  HesaplaPanel.height = HesaplamaForm.clWidth / 4;
  HesaplaPanel.margins.Top = 20;
  
  HesaplaButton = HesaplamaForm.AddNewButton(HesaplaPanel,'HesaplaButton', '=');
  HesaplaButton.Align = alCenter;
  HesaplaButton.Height = HesaplaPanel.Height / 2;
  HesaplaButton.Width = 100;
  HesaplaButton.styledsettings = ssFamily;
  HesaplaButton.Textsettings.Font.Size = 24;
  HesaplamaForm.AddNewEvent(HesaplaButton, tbeOnClick, 'Hesapla');
  HesaplamaForm.AddNewEvent(HesaplamaForm,tbeOnFormShow,'AnaSayfadanAktar');
  HesaplamaForm.AddNewEvent(HesaplamaForm,tbeonFormClose, 'FormKapat');
  HesaplamaForm.Run;
}
Yukarı Dön
semihberkanokutan Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 31 Temmuz 2024
Konum: Konya
Durum: Aktif Değil
Puanlar: 20 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (2) Teşekkürler(2)   Alıntı semihberkanokutan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 09 Temmuz 2025 Saat 17:08
Merhaba Raziye,

---- örnek kod ----
var
btn1 : TClProButton;

void BtnOnClick;
var
 clickedBtn:TClProButton;
{
 clickedBtn = TClProButton(MyForm.Clsender);
 ShowMessage(clickedBtn.Caption);
}

btn1 = MyForm.AddNewProButton(MyForm, 'btn1', '1');
MyForm.AddNewEvent(btn1, tbeOnClick, 'BtnOnClick');
-----------

Yukarıdakine benzer şekilde, Clsender ile tıkladığın butonun caption özelliğini döndürüp istediğin gibi kullanabilirsin.
Mesela bu kodda btn1 butonuna tıkadığımız zaman, bu butonun Captionu 1 olduğu için ShowMessage ile ekrana 1 yazdırıyor.

Daha iyi anlayabilmek için dökümandan ClSender'ı incelemeni öneririm.

İyi çalışmalar.
Semih
Yukarı Dön
CelalTugay Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07 Temmuz 2025
Konum: Konya
Durum: Aktif Değil
Puanlar: 11 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (2) Teşekkürler(2)   Alıntı CelalTugay Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 09 Temmuz 2025 Saat 17:12
Merhaba Raziye,
hesap makinasını butonla yapmak için sana örnek kodlarımı gönderiyorum, kodların içinde ufak ufak notlar aldım nerede ne yaptığımı oradan bakıp yararlanabilirsin. Kolay gelsin.

var  
 MyForm: TclForm;
 testLabel : TclLabel;
 Btn0,Btn1,Btn2,Btn3,BtnTopla,Btn4,Btn5,Btn6,BtnCikar,Btn7,Btn8,Btn9,BtnBol,BtnCarp,BtnSil,BtnSonuc: TClProButton;
 testEdit : TclEdit;
 testLayout,testLayout2,testLayout3,testLayout4 : TclLayout;
 islem: String;
 nolucak: Boolean;
 ilkSayi: Integer;
 
 // Buton tıklamalarını tanımlıyoruz
 
void Btn0Click {
  if (nolucak) { 
    testEdit.Text = '';
    nolucak = false;
  }
  
  if (testEdit.Text == '0') {
    testEdit.Text = '';
  }
  
  testEdit.Text = testEdit.Text + '0';
}
   

void Btn1Click {
  if (nolucak) { 
    testEdit.Text = '';
    nolucak = false;
  }
  
  if (testEdit.Text == '0') {
    testEdit.Text = '';
  }
  
  testEdit.Text = testEdit.Text + '1';
}

void Btn2Click {
  if (nolucak) { 
    testEdit.Text = '';
    nolucak = false;
  }
  
  if (testEdit.Text == '0') {
    testEdit.Text = '';
  }
  
  testEdit.Text = testEdit.Text + '2';
}

void Btn3Click {
  if (nolucak) { 
    testEdit.Text = '';
    nolucak = false;
  }
  
  if (testEdit.Text == '0') {
    testEdit.Text = '';
  }
  
  testEdit.Text = testEdit.Text + '3';
}

void Btn4Click {
  if (nolucak) { 
    testEdit.Text = '';
    nolucak = false;
  }
  
  if (testEdit.Text == '0') {
    testEdit.Text = '';
  }
  
  testEdit.Text = testEdit.Text + '4';
}

void Btn5Click {
  if (nolucak) { 
    testEdit.Text = '';
    nolucak = false;
  }
  
  if (testEdit.Text == '0') {
    testEdit.Text = '';
  }
  
  testEdit.Text = testEdit.Text + '5';
}

void Btn6Click {
  if (nolucak) { 
    testEdit.Text = '';
    nolucak = false;
  }
  
  if (testEdit.Text == '0') {
    testEdit.Text = '';
  }
  
  testEdit.Text = testEdit.Text + '6';
}

void Btn7Click {
  if (nolucak) { 
    testEdit.Text = '';
    nolucak = false;
  }
  
  if (testEdit.Text == '0') {
    testEdit.Text = '';
  }
  
  testEdit.Text = testEdit.Text + '7';
}

void Btn8Click {
  if (nolucak) { 
    testEdit.Text = '';
    nolucak = false;
  }
  
  if (testEdit.Text == '0') {
    testEdit.Text = '';
  }
  
  testEdit.Text = testEdit.Text + '8';
}

void Btn9Click {
  if (nolucak) { 
    testEdit.Text = '';
    nolucak = false;
  }
  
  if (testEdit.Text == '0') {
    testEdit.Text = '';
  }
  
  testEdit.Text = testEdit.Text + '9';
}


void BtnToplaClick {
  islem='+'
  nolucak=true;
  ilkSayi=StrToInt(testEdit.Text);
}

void BtnCikarClick {
  islem='-'
  nolucak=true;
  ilkSayi=StrToInt(testEdit.Text);
}

void BtnBolClick {
  islem='÷'
  nolucak=true;
  ilkSayi=StrToInt(testEdit.Text);
}

void BtnCarpClick {
  islem='X'
  nolucak=true;
  ilkSayi=StrToInt(testEdit.Text);
}

void BtnSonucClick 
var 
  ikinciSayi,sonuc: Integer;
{
  ikinciSayi= StrToInt(testEdit.Text);
  sonuc=0;
  if (islem == '+') { 
    sonuc = (ilkSayi + ikinciSayi)
    }
  else if (islem == '-') { 
    sonuc = (ilkSayi - ikinciSayi)
    }
  else if (islem == 'X') {
    sonuc = (ilkSayi * ikinciSayi)
    }
  else if (islem == '÷') {
    sonuc = (ilkSayi / ikinciSayi)
    }
  
 testEdit.Text = IntToStr(sonuc);
}


void BtnSilClick {
  testEdit.Text='';
}

{

//Yeni bir form oluşturdum
//Bu forma bordo renkli arka plan verdim
// nolucak değişkenini başta temizleme yapmasın diye false olarak ayarladım
MyForm=TclForm.Create(self);
MyForm.SetFormColor('#8a0022','',clGNone);
nolucak = false


//MyForm adındaki formun içine 4 tane dikdörtgen kutu (layout) ekledim
//100x100 boyutunda ve yukarıdan 20 piksel boşluk koydum
//Her biri üst üste (top-aligned) olacak şekilde formun içine yerleştirdim
testLayout = MyForm.AddNewLayout(MyForm,'testLayout');
testLayout.Width = 100;
testLayout.Height = 100;
testLayout.Align=alTop;
testLayout.Margins.Top=20;

testLayout2 = MyForm.AddNewLayout(MyForm,'testLayout2');
testLayout2.Width = 100;
testLayout2.Height = 100;
testLayout2.Align=alTop;
testLayout2.Margins.Top=20;

testLayout3 = MyForm.AddNewLayout(MyForm,'testLayout3');
testLayout3.Width = 100;
testLayout3.Height = 100;
testLayout3.Align=alTop;
testLayout3.Margins.Top=20;

testLayout4 = MyForm.AddNewLayout(MyForm,'testLayout4');
testLayout4.Width = 100;
testLayout4.Height = 100;
testLayout4.Align=alTop;
testLayout4.Margins.Top=20;


//Ekrana sayı veya sonuç göstermek için ve özelliklerini belirleme işlemi yapıyorum
testEdit = MyForm.AddNewEdit(MyForm,'testEdit','0');
testEdit.StyledSettings = ssFamily;
testEdit.TextSettings.Font.Size =30;
testEdit.Height=30;
testEdit.Align=alMostTop;
testEdit.Margins.Top=10;
testEdit.Margins.Right=10;
testEdit.Margins.Left=10;
testEdit.ReadOnly = True;


//Butonları oluşturuyorum ve özelleştiriyorum
Btn0 = MyForm.AddNewProButton(testLayout4,'Btn0','0');
Btn0.Height=70;
Btn0.Width=80;
Btn0.Margins.Left=10;
Btn0.Margins.Right=5;
Btn0.Align=alLeft;
Btn0.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
Btn0.clProSettings.BorderWidth = 3;
Btn0.clProSettings.RoundHeight= 10;
Btn0.clProSettings.RoundWidth= 10;
Btn0.clProSettings.FontSize = 40;
Btn0.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
Btn0.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
Btn0.SetclProSettings(Btn0.clProSettings);
MyForm.AddNewEvent(Btn0,tbeOnClick,'Btn0Click');

Btn1 = MyForm.AddNewProButton(testLayout,'Btn1','1');
Btn1.Height=70;
Btn1.Width=80;
Btn1.Margins.Left=10;
Btn1.Margins.Right=5;
Btn1.Align=alLeft;
Btn1.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
Btn1.clProSettings.BorderWidth = 3;
Btn1.clProSettings.RoundHeight= 10;
Btn1.clProSettings.RoundWidth= 10;
Btn1.clProSettings.FontSize = 40;
Btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
Btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
Btn1.SetclProSettings(Btn1.clProSettings); 
MyForm.AddNewEvent(Btn1,tbeOnClick,'Btn1Click');

Btn2 = MyForm.AddNewProButton(testLayout,'Btn2','2');
Btn2.Height=70;
Btn2.Width=80;
Btn2.Margins.Left=10;
Btn2.Margins.Right=5;
Btn2.Align=alLeft;
Btn2.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
Btn2.clProSettings.BorderWidth = 3;
Btn2.clProSettings.RoundHeight= 10;
Btn2.clProSettings.RoundWidth= 10;
Btn2.clProSettings.FontSize = 40;
Btn2.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
Btn2.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
Btn2.SetclProSettings(Btn2.clProSettings); 
MyForm.AddNewEvent(Btn2,tbeOnClick,'Btn2Click');

Btn3 = MyForm.AddNewProButton(testLayout,'Btn3','3');
Btn3.Height=70;
Btn3.Width=80;
Btn3.Margins.Left=10;
Btn3.Margins.Right=5;
Btn3.Align=alLeft;
Btn3.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
Btn3.clProSettings.BorderWidth = 3;
Btn3.clProSettings.RoundHeight= 10;
Btn3.clProSettings.RoundWidth= 10;
Btn3.clProSettings.FontSize = 40;
Btn3.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
Btn3.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
Btn3.SetclProSettings(Btn3.clProSettings); 
MyForm.AddNewEvent(Btn3,tbeOnClick,'Btn3Click');


Btn4 = MyForm.AddNewProButton(testLayout2,'Btn4','4');
Btn4.Height=70;
Btn4.Width=80;
Btn4.Margins.Left=10;
Btn4.Margins.Right=5;
Btn4.Align=alLeft;
Btn4.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
Btn4.clProSettings.BorderWidth = 3;
Btn4.clProSettings.RoundHeight= 10;
Btn4.clProSettings.RoundWidth= 10;
Btn4.clProSettings.FontSize = 40;
Btn4.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
Btn4.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
Btn4.SetclProSettings(Btn4.clProSettings); 
MyForm.AddNewEvent(Btn4,tbeOnClick,'Btn4Click');

Btn5 = MyForm.AddNewProButton(testLayout2,'Btn5','5');
Btn5.Height=70;
Btn5.Width=80;
Btn5.Margins.Left=10;
Btn5.Margins.Right=5;
Btn5.Align=alLeft;
Btn5.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
Btn5.clProSettings.BorderWidth = 3;
Btn5.clProSettings.RoundHeight= 10;
Btn5.clProSettings.RoundWidth= 10;
Btn5.clProSettings.FontSize = 40;
Btn5.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
Btn5.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
Btn5.SetclProSettings(Btn5.clProSettings); 
MyForm.AddNewEvent(Btn5,tbeOnClick,'Btn5Click')

Btn6 = MyForm.AddNewProButton(testLayout2,'Btn6','6');
Btn6.Height=70;
Btn6.Width=80;
Btn6.Margins.Left=10;
Btn6.Margins.Right=5;
Btn6.Align=alLeft;
Btn6.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
Btn6.clProSettings.BorderWidth = 3;
Btn6.clProSettings.RoundHeight= 10;
Btn6.clProSettings.RoundWidth= 10;
Btn6.clProSettings.FontSize = 40;
Btn6.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
Btn6.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
Btn6.SetclProSettings(Btn6.clProSettings); 
MyForm.AddNewEvent(Btn6,tbeOnClick,'Btn6Click');


Btn7 = MyForm.AddNewProButton(testLayout3,'Btn7','7');
Btn7.Height=70;
Btn7.Width=80;
Btn7.Margins.Left=10;
Btn7.Margins.Right=5;
Btn7.Align=alLeft;
Btn7.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
Btn7.clProSettings.BorderWidth = 3;
Btn7.clProSettings.RoundHeight= 10;
Btn7.clProSettings.RoundWidth= 10;
Btn7.clProSettings.FontSize = 40;
Btn7.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
Btn7.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
Btn7.SetclProSettings(Btn7.clProSettings);
MyForm.AddNewEvent(Btn7,tbeOnClick,'Btn7Click');

Btn8 = MyForm.AddNewProButton(testLayout3,'Btn8','8');
Btn8.Height=70;
Btn8.Width=80;
Btn8.Margins.Left=10;
Btn8.Margins.Right=5;
Btn8.Align=alLeft;
Btn8.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
Btn8.clProSettings.BorderWidth = 3;
Btn8.clProSettings.RoundHeight= 10;
Btn8.clProSettings.RoundWidth= 10;
Btn8.clProSettings.FontSize = 40;
Btn8.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
Btn8.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
Btn8.SetclProSettings(Btn8.clProSettings); 
MyForm.AddNewEvent(Btn8,tbeOnClick,'Btn8Click');

Btn9 = MyForm.AddNewProButton(testLayout3,'Btn9','9');
Btn9.Height=70;
Btn9.Width=80;
Btn9.Margins.Left=10;
Btn9.Margins.Right=5;
Btn9.Align=alLeft;
Btn9.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
Btn9.clProSettings.BorderWidth = 3;
Btn9.clProSettings.RoundHeight= 10;
Btn9.clProSettings.RoundWidth= 10;
Btn9.clProSettings.FontSize = 40;
Btn9.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
Btn9.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
Btn9.SetclProSettings(Btn9.clProSettings);
MyForm.AddNewEvent(Btn9,tbeOnClick,'Btn9Click');

BtnTopla = MyForm.AddNewProButton(testLayout,'BtnTopla','+');
BtnTopla.Height=70;
BtnTopla.Width=80;
BtnTopla.Margins.Left=10;
BtnTopla.Margins.Right=5;
BtnTopla.Align=alLeft;
BtnTopla.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
BtnTopla.clProSettings.BorderWidth = 3;
BtnTopla.clProSettings.RoundHeight= 10;
BtnTopla.clProSettings.RoundWidth= 10;
BtnTopla.clProSettings.FontSize = 40;
BtnTopla.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
BtnTopla.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
BtnTopla.SetclProSettings(BtnTopla.clProSettings); 
MyForm.AddNewEvent(BtnTopla,tbeOnClick,'BtnToplaClick');

BtnCikar = MyForm.AddNewProButton(testLayout2,'BtnCikar','-');
BtnCikar.Height=70;
BtnCikar.Width=80;
BtnCikar.Margins.Left=10;
BtnCikar.Margins.Right=5;
BtnCikar.Align=alLeft;
BtnCikar.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
BtnCikar.clProSettings.BorderWidth = 3;
BtnCikar.clProSettings.RoundHeight= 10;
BtnCikar.clProSettings.RoundWidth= 10;
BtnCikar.clProSettings.FontSize = 40;
BtnCikar.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
BtnCikar.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
BtnCikar.SetclProSettings(BtnCikar.clProSettings);
MyForm.AddNewEvent(BtnCikar,tbeOnClick,'BtnCikarClick');

BtnCarp = MyForm.AddNewProButton(testLayout3,'BtnCarp','X');
BtnCarp.Height=70;
BtnCarp.Width=80;
BtnCarp.Margins.Left=10;
BtnCarp.Margins.Right=5;
BtnCarp.Align=alLeft;
BtnCarp.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
BtnCarp.clProSettings.BorderWidth = 3;
BtnCarp.clProSettings.RoundHeight= 10;
BtnCarp.clProSettings.RoundWidth= 10;
BtnCarp.clProSettings.FontSize = 40;
BtnCarp.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
BtnCarp.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
BtnCarp.SetclProSettings(BtnCarp.clProSettings); 
MyForm.AddNewEvent(BtnCarp,tbeOnClick,'BtnCarpClick');

BtnSil = MyForm.AddNewProButton(testLayout4,'BtnSil','C');
BtnSil.Height=70;
BtnSil.Width=80;
BtnSil.Margins.Left=10;
BtnSil.Margins.Right=5;
BtnSil.Align=alLeft;
BtnSil.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
BtnSil.clProSettings.BorderWidth = 3;
BtnSil.clProSettings.RoundHeight= 10;
BtnSil.clProSettings.RoundWidth= 10;
BtnSil.clProSettings.FontSize = 40;
BtnSil.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
BtnSil.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
BtnSil.SetclProSettings(BtnSil.clProSettings);
MyForm.AddNewEvent(BtnSil,tbeOnClick,'BtnSilClick');


BtnSonuc = MyForm.AddNewProButton(testLayout4,'BtnSonuc','=');
BtnSonuc.Height=70;
BtnSonuc.Width=80;
BtnSonuc.Margins.Left=10;
BtnSonuc.Margins.Right=5;
BtnSonuc.Align=alLeft;
BtnSonuc.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
BtnSonuc.clProSettings.BorderWidth = 3;
BtnSonuc.clProSettings.RoundHeight= 10;
BtnSonuc.clProSettings.RoundWidth= 10;
BtnSonuc.clProSettings.FontSize = 40;
BtnSonuc.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
BtnSonuc.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
BtnSonuc.SetclProSettings(BtnSonuc.clProSettings);
MyForm.AddNewEvent(BtnSonuc,tbeOnClick,'BtnSonucClick');

BtnBol = MyForm.AddNewProButton(testLayout4,'BtnBol','÷');
BtnBol.Height=70;
BtnBol.Width=80;
BtnBol.Margins.Left=10;
BtnBol.Margins.Right=5;
BtnBol.Align=alLeft;
BtnBol.clProSettings.BorderColor=clAlphaColor.clHexToColor('#eeff00');
BtnBol.clProSettings.BorderWidth = 3;
BtnBol.clProSettings.RoundHeight= 10;
BtnBol.clProSettings.RoundWidth= 10;
BtnBol.clProSettings.FontSize = 40;
BtnBol.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
BtnBol.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#00b3ff');
BtnBol.SetclProSettings(BtnBol.clProSettings);
MyForm.AddNewEvent(BtnBol,tbeOnClick,'BtnBolClick');

MyForm.Run;
}
Yukarı Dön
Raziye Nur Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07 Temmuz 2025
Durum: Aktif Değil
Puanlar: 4 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Raziye Nur Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 09 Temmuz 2025 Saat 17:48
Merhaba Semih, çok teşekkür ederim
Yukarı Dön
Raziye Nur Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 07 Temmuz 2025
Durum: Aktif Değil
Puanlar: 4 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Raziye Nur Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 09 Temmuz 2025 Saat 17:49
Merhaba Celal, attığın kodu inceleyeceğim çok teşekkürler.
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,064 Saniyede Yüklendi.