Clomosy | Forum : TclTimer https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 01 May 2026 19:22:38 +0000 Thu, 16 May 2024 13:13:05 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=592 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[TclTimer : Kodunuzu incelediğimde 2. timer...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=819#819 Yazar: cagataycantay
Konu: 592
Gönderim Zamanı: 16 Mayıs 2024 Saat 13:13

Kodunuzu incelediğimde 2. timer a gerek olmadığından dolayı onu kaldırdım, diğer kullanacağımız timer ı buton un event inde true yaparak butona basıldığında başlamasını sağladım. 

Düzenlenmiş Hali:

Var
  AnaForm:TclForm;
  btn1 : TClProButton;
  sayac:Integer;
  
  zaman:TCLTimer;
  sayac1:Integer;
  lblTimer: TCLLabel;
  
  testImg: TCLImage;  
  
void zamanlayici;
{
  if(sayac == sayac)
  {
  sayac = sayac + 1;
  zaman.Enabled = True;    //Timerı butona basıldığında başlatıyoruz.  
  btn1.Text = IntToStr(sayac);
  
  if(sayac == 25)
  {
    AnaForm.SetFormColor('#23c7c5','',clGNone);
    sayac1 = sayac1 + 3;
    btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);
    btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);
    testImg.Position.X = Abs((Random() * AnaForm.clWidth) - testImg.Width);
    testImg.Position.Y = Abs((Random() * AnaForm.clHeight) - testImg.Height);
  }
  
  if(sayac == 72)
  {
    AnaForm.SetFormColor('#e01f1f','',clGNone);
    sayac1 = sayac1 + 5;
    btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);
    btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);
  }
  
  if(sayac == 100)
  {
    AnaForm.SetFormColor('#cfeb00','#db7edd',clGHorizontal);
    sayac1 = sayac1 + 7;
    btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);
    btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);
  }
  }
  else
  {
  btn1.Text = IntToStr(sayac);
  sayac = sayac + 1;
  }
}

void sure;
{
  if(sayac1 == 0)
  {
    zaman.Enabled = False;  // sürekli ekranda gösteriyor. False olacak.
    lblTimer.caption = IntToStr(sayac1);
    ShowMessage('Süreniz Doldu!');
    ShowMessage('Puanınız: ' + IntToStr(sayac));
    
    if(sayac1 == 1)
    {
    zaman.Enabled= True;   //burda hiç bir şey olmuyor.
    lblTimer.caption = IntToStr(sayac1);
    }
  }
  else
  {
    lblTimer.caption=IntToStr(sayac1);
    Dec(sayac1);
  }
}

void eksure
{
  if(sayac==25)
  {
    testImg.Visible=True;
  }
  else
  sayac1 = sayac1+5;
  testImg.Visible=False;
}
  
 {
   sayac=0;
   
   sayac1=20;
   
   AnaForm = TclForm.Create(Self);
   
  Zaman=AnaForm.AddNewTimer(AnaForm,'zaman',1000);
  Zaman.Enabled=False; 
  AnaForm.AddNewEvent(zaman,tbeOnTimer,'sure');
  
  lblTimer=AnaForm.AddNewLabel(AnaForm,'lblTimer','');
  lblTimer.StyledSettings = ssFamily;
  lblTimer.TextSettings.Font.Size = 35;
  lblTimer.Align = alTop;
  lblTimer.Height=50;
  lblTimer.Width=50;
  lblTimer.Margins.Left = 170;
  
  
  
   AnaForm.SetFormColor('#52504d','',clGNone); 
   btn1 = AnaForm.AddNewProButton(AnaForm,'btn1','SAYAC');
   testImg = AnaForm.AddNewImage(AnaForm,'testImg');
  
   btn1.Align = alNone; //Böyle yaparak butonu sabitlemiş oluyorum.
   btn1.Width = 100;
   btn1.Height = 100;
   btn1.Position.X = (AnaForm.clWidth / 2) - (btn1.Width / 2);  //konum1.
   btn1.Position.Y = (AnaForm.clHeight / 2) - (btn1.Width / 2); // konum2.
   
  testImg.Align = alNone;
  testImg.Height = 30;
  testImg.Width = 30;
  testImg.Position.X = (AnaForm.clWidth / 2) - (testImg.Width / 2);  //testImg konum1.
  testImg.Position.Y = (AnaForm.clHeight / 2) - (testImg.Width / 2); //testImg konum2.
   
   btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#a0a3b1');
   btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#050505');
   btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
   btn1.clProSettings.IsTransparent = False;
   btn1.clProSettings.FontSize = 12;
   btn1.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
   btn1.clProSettings.FontHorzAlign = palCenter;
   btn1.clProSettings.IsFill = True; 
   btn1.clProSettings.IsRound = True;
   btn1.clProSettings.RoundHeight = 50;
   btn1.clProSettings.RoundWidth = 50;
   btn1.clProSettings.BorderWidth = 3;
   btn1.SetclProSettings(btn1.clProSettings);
   
   
   AnaForm.AddNewEvent(btn1,tbeOnClick,'zamanlayici');
   AnaForm.AddNewEvent(testImg,tbeOnClick,'eksure');
   
  
   AnaForm.Run;
 
 }
]]> Thu, 16 May 2024 13:13:05 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=819#819 <![CDATA[TclTimer : Projemde ortadaki yuvarlağa bastığımda...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=818#818 Yazar: emre.gungor01
Konu: 592
Gönderim Zamanı: 16 Mayıs 2024 Saat 11:56

Projemde ortadaki yuvarlağa bastığımda üst tarafta bulunan zamanında çalışmasını istiyordum. Ben ortadaki yuvarlağa basmadığım sürece sayacında başlamasını istemiyorum.]]> Thu, 16 May 2024 11:56:39 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=818#818 <![CDATA[TclTimer : Sorunuza cevap verebilmemiz için...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=817#817 Yazar: cagataycantay
Konu: 592
Gönderim Zamanı: 16 Mayıs 2024 Saat 11:52

Sorunuza cevap verebilmemiz için yaşadığınız problemi doğrudan burada açıklayabilir misiniz?]]> Thu, 16 May 2024 11:52:48 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=817#817 <![CDATA[TclTimer : Hocamızla konuştuğumda kendisi...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=816#816 Yazar: emre.gungor01
Konu: 592
Gönderim Zamanı: 15 Mayıs 2024 Saat 18:31

Hocamızla konuştuğumda kendisi zamanlayıcı hakkında düzeltme yapacaktı.

Kodlar;

Var
  AnaForm:TclForm;
  btn1 : TClProButton;
  Zaman : TCLTimer;
  sayac:Integer;
  
  Zaman2:TCLTimer;
  sayac1:Integer;
  lblTimer: TCLLabel;
  
  testImg: TCLImage;  //random yerlerde belirli zamanda görsel çıkartıyor.
  
void zamanlayici;
{
  if(sayac == sayac)
  {
  sayac = sayac + 1;
  Zaman.Enabled = False;  //burda yuvarlağın içindeki yazıyı çift arttırıyor.
  btn1.Text = IntToStr(sayac);
  
  if(sayac == 25)
  {
    AnaForm.SetFormColor('#23c7c5','',clGNone);
    sayac1 = sayac1 + 3;
    btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);
    btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);
    testImg.Position.X = Abs((Random() * AnaForm.clWidth) - testImg.Width);
    testImg.Position.Y = Abs((Random() * AnaForm.clHeight) - testImg.Height);
  }
  
  if(sayac == 72)
  {
    AnaForm.SetFormColor('#e01f1f','',clGNone);
    sayac1 = sayac1 + 5;
    btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);
    btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);
  }
  
  if(sayac == 100)
  {
    AnaForm.SetFormColor('#cfeb00','#db7edd',clGHorizontal);
    sayac1 = sayac1 + 7;
    btn1.Position.X = Abs((Random() * AnaForm.clWidth) - btn1.Width);
    btn1.Position.Y = Abs((Random() * AnaForm.clHeight) - btn1.Height);
  }
  }
  else
  {
  btn1.Text = IntToStr(sayac);
  sayac = sayac + 1;
  }
}

void sure;
{
  if(sayac1 == 0)
  {
    Zaman2.Enabled = False;  // sürekli ekranda gösteriyor. False olacak.
    lblTimer.caption = IntToStr(sayac1);
    ShowMessage('Süreniz Doldu!');
    ShowMessage('Puanınız: ' + IntToStr(sayac));
    
    if(sayac1 == 1)
    {
    Zaman2.Enabled= True;   //burda hiç bir şey olmuyor.
    lblTimer.caption = IntToStr(sayac1);
    }
  }
  else
  {
    lblTimer.caption=IntToStr(sayac1);
    Dec(sayac1);
  }
}

void eksure
{
  if(sayac==25)
  {
    testImg.Visible=True;
  }
  else
  sayac1 = sayac1+5;
  testImg.Visible=False;
}
  
 {
   sayac=0;
   
   sayac1=20;
   
   AnaForm = TclForm.Create(Self);
   
  Zaman= AnaForm.AddNewTimer(AnaForm,'Zaman',1000);
  Zaman.Enabled = True;  // burda da hiçbir işlev görünmüyor.
  AnaForm.AddNewEvent(Zaman,tbeOnTimer,'zamanlayici');
  
  
  Zaman2=AnaForm.AddNewTimer(AnaForm,'Zaman2',1000);
  Zaman2.Enabled=True;  // görünür yapıyor.
  AnaForm.AddNewEvent(Zaman2,tbeOnTimer,'sure');
  
  lblTimer=AnaForm.AddNewLabel(AnaForm,'lblTimer','');
  lblTimer.StyledSettings = ssFamily;
  lblTimer.TextSettings.Font.Size = 35;
  lblTimer.Align = alTop;
  lblTimer.Height=50;
  lblTimer.Width=50;
  lblTimer.Margins.Left = 170;
  
  
  
   AnaForm.SetFormColor('#52504d','',clGNone); 
   btn1 = AnaForm.AddNewProButton(AnaForm,'btn1','SAYAC');
   testImg = AnaForm.AddNewImage(AnaForm,'testImg');
  
   btn1.Align = alNone; //Böyle yaparak butonu sabitlemiş oluyorum.
   btn1.Width = 100;
   btn1.Height = 100;
   btn1.Position.X = (AnaForm.clWidth / 2) - (btn1.Width / 2);  //konum1.
   btn1.Position.Y = (AnaForm.clHeight / 2) - (btn1.Width / 2); // konum2.
   
  testImg.Align = alNone;
  testImg.Height = 30;
  testImg.Width = 30;
  testImg.Position.X = (AnaForm.clWidth / 2) - (testImg.Width / 2);  //testImg konum1.
  testImg.Position.Y = (AnaForm.clHeight / 2) - (testImg.Width / 2); //testImg konum2.
   
   btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#a0a3b1');
   btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#050505');
   btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
   btn1.clProSettings.IsTransparent = False;
   btn1.clProSettings.FontSize = 12;
   btn1.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
   btn1.clProSettings.FontHorzAlign = palCenter;
   btn1.clProSettings.IsFill = True; 
   btn1.clProSettings.IsRound = True;
   btn1.clProSettings.RoundHeight = 50;
   btn1.clProSettings.RoundWidth = 50;
   btn1.clProSettings.BorderWidth = 3;
   btn1.SetclProSettings(btn1.clProSettings);
   
   
   AnaForm.AddNewEvent(btn1,tbeOnClick,'zamanlayici');
   AnaForm.AddNewEvent(testImg,tbeOnClick,'eksure');
   
  
   AnaForm.Run;
 
 }
]]> Wed, 15 May 2024 18:31:16 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=816#816 <![CDATA[TclTimer : Merhaba Emre,istediğin durum şu...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=815#815 Yazar: Atiker01
Konu: 592
Gönderim Zamanı: 14 Mayıs 2024 Saat 11:42

Merhaba Emre,
istediğin durum şu şekilde ise;
Uygulama içerisinde 2 adet zamanlayıcı bulunmaktadır. Biri oyun zamanı ve diğeri buton zamanı olarak tanımlandı.
Uygulamada değişken adı olarak;
Oyun zamanlayıcısı => oyunZamani
Buton zamanlayıcısı => butonZamani
Uygulama açıldığı anda oyunZamani zamanlayıcısı başlasın ve butonZamani zamanlayıcısı ise butona tıklandığı anda çalışması için;

Buton Event için => void bAktiflestir
oyunZamani Event için => void oZamanlayici
butonZamani Event için => void bZamanlayici

oluşturuldu.
Uygulama açıldığı anda oZamanlayici void yapısı çalışmaktadır. Burada ise sayac 20 değerine gelene kadar geri sayım yapmaktadır.
Butona tıklandığında bAktiflestir void içerisine butonZamani zamanlayıcısı aktifleştirilmektedir.
Aktifleşen butonZamani zamanlayıcısı ise bZamanlayici void yapısı çalışmaktadır. Burada ise buton üzerindeki metin içerisine çalışan zamanlayıcı için oluşturulan butonSayac değişkeni arttırılarak yazılmaktadır.

Uygulama içerisindeki zamanlayıcılar oyun süresi bittiğinde durmaktadır ya da butonSayac değişkeni 10 sayısına geldiğinde butonZamani zamanlayıcısı durmaktadır. Butona tıklanırsa tekrardan başlar. 
Kodları aşağıda yer alıyor. Burada yapıyı istediğin gibi değiştirebilirsin.

Var
  AnaForm:TclForm;
  btn1 : TClProButton;
  butonZamani : TCLTimer;
  butonSayac:Integer;
  
  oyunZamani:TCLTimer;
  oyunSayac:Integer;
  lblTimer: TCLLabel;

void bAktiflestir;
{
  butonZamani.Enabled = True;
}
void bZamanlayici;
{
  if(butonSayac == 10) //25
  {
    butonZamani.Enabled = False;
    btn1.Text = IntToStr(butonSayac);
    butonSayac = 0;
    ShowMessage('Buton süresi doldu. Bu kısımda istediğin yöntemi uygulamalısın.');
    
  }
  else
  {
    btn1.Text = IntToStr(butonSayac);
    Inc(butonSayac);
  }
}

void oZamanlayici;
{
  if(oyunSayac == 0)
  {
    oyunZamani.Enabled=False;
    butonZamani.Enabled = False; //oyun süresi durduğunda buton zamanlayıcısıda dursun
    lblTimer.caption = IntToStr(oyunSayac);
    ShowMessage('Süreniz Doldu!');
    /*
    if(btn1 == 1)
    {
      lblTimer.caption=IntToStr(oyunSayac);
    Dec(oyunSayac);
    }*/
  }
  else
  {
    lblTimer.caption=IntToStr(oyunSayac);
    Dec(oyunSayac);
  }
}

 {
   butonSayac=0;
   oyunSayac=20;
   
  AnaForm = TclForm.Create(Self);
   
  butonZamani= AnaForm.AddNewTimer(AnaForm,'',1000);
  butonZamani.Enabled = False;
  AnaForm.AddNewEvent(butonZamani,tbeOnTimer,'bZamanlayici');
  
  oyunZamani=AnaForm.AddNewTimer(AnaForm,'GetTimer',1000);
  oyunZamani.Enabled=True;
  AnaForm.AddNewEvent(oyunZamani,tbeOnTimer,'oZamanlayici');
  
  lblTimer=AnaForm.AddNewLabel(AnaForm,'lblTimer','');
  lblTimer.StyledSettings = ssFamily;
  lblTimer.TextSettings.Font.Size = 35;
  lblTimer.Align = alTop;
  lblTimer.Height=50;
  lblTimer.Width=50;
  
 
   AnaForm.SetFormColor('#52504d','',clGNone); 
   btn1 = AnaForm.AddNewProButton(AnaForm,'btn1','butonSayac');
   btn1.Align = alCenter;
   btn1.Width = 100;
   btn1.Height = 100;
   btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#a0a3b1');
   btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#050505');
   btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
   btn1.clProSettings.IsTransparent = False;
   btn1.clProSettings.FontSize = 12;
   btn1.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
   btn1.clProSettings.FontHorzAlign = palCenter;
   btn1.clProSettings.IsFill = True; 
   btn1.clProSettings.IsRound = True;
   btn1.clProSettings.RoundHeight = 50;
   btn1.clProSettings.RoundWidth = 50;
   btn1.clProSettings.BorderWidth = 3;
   btn1.SetclProSettings(btn1.clProSettings);

   AnaForm.AddNewEvent(btn1,tbeOnClick,'bAktiflestir');
   AnaForm.Run;
 
 }

Sorunun çözüme ulaşıp ulaşmadığı ile ilgili geri dönüşünü bekliyorum.
İyi çalışmalar diliyorum.




]]> Tue, 14 May 2024 11:42:03 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=815#815 <![CDATA[TclTimer : Denedim fakat tam olarak çalışmıyor...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=812#812 Yazar: emre.gungor01
Konu: 592
Gönderim Zamanı: 13 Mayıs 2024 Saat 22:58

Denedim fakat tam olarak çalışmıyor bu sefer butonda tıklanma olayı çok geç oluyor benim istediğim butona anında tıklanması ve başlangıçta ben tıklayana kadar başlamamasıydı. 2 sürede yapmamın sebebi yuvarlağın içindeki label zamanlayici yani her bastığımda arttırıyor sayıyı sure ise yukarıda 20 den geriye doğru sayan süremiz şimdi burada ki koduda denediğimde yuvarlağın içindeki zamanlayiciyi etkiliyor. Acaba 3.bir event olayı açıp BtnOnClick özelliğini btn1 eventıyla birleştirmek mantıklı mı?]]> Mon, 13 May 2024 22:58:14 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=812#812 <![CDATA[TclTimer : Merhaba Emre,butona basmadan zaman...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=810#810 Yazar: Atiker01
Konu: 592
Gönderim Zamanı: 13 Mayıs 2024 Saat 13:26

Merhaba Emre,

butona basmadan zaman ilerlemesinin sebebi başka bir zamanlayıcının açık olması ve bunu aktifleştirmen. Kodunu şu şekilde değiştirmelisin. Öncelikle 2 tane zamanlayıcıya ihtiyacın yok. Zaman2 adındaki değişkenini silebilirsin. Buna bağlı prosedürün (void) doğru mantıkta çalışıyor. Bunu Zaman adındaki zamanlayıcı nesnesine bağlayabilirsin.

İkinci olarak butona bastığında zamanlayıcın aktifleşiyor ve doğru şekilde ilerliyor fakat zamanlayici void yapındaki algoritmik mantık istediğin mantıkla uyuşmuyor, hatalı. 
Aşağıda kodunu alıntıladım ve yorum satırına sorunu yazdım.

void zamanlayici;
{
  if(sayac == sayac) //sayac değişkeni her zaman kendisine eşit olacağı için bu if'e her zaman girecektir ve içerisinde zamanlayıcı durduracaktır. Yani zamanlayıcın aktifleşip bir kez çalışıp duracak.
  {
  sayac = sayac + 1;
  Zaman.Enabled = False;
  btn1.Text = IntToStr(sayac);
  if(sayac == 25)
  {
  ShowMessage('Süre doldu!');
  }
  }
  else
  {
  btn1.Text = IntToStr(sayac);
  sayac = sayac + 1;
  }
}


Düzenlenmiş hali:

Var
  AnaForm:TclForm;
  btn1 : TClProButton;
  Zaman : TCLTimer;
  sayac1:Integer;
  lblTimer: TCLLabel;
  
void BtnOnClick;
{
  Zaman.Enabled = True;
  ShowMessage('girdim');
}

void sure;
{
  if(sayac1 == 0)
  {
    Zaman.Enabled=False;
    lblTimer.caption = IntToStr(sayac1);
    ShowMessage('Süreniz Doldu!');
    /*
    if(btn1 == 1) //btn1 nesnesi içerisindeki değeri almak istiyorsan IntToStr(btn1.Text) == 1 yazmalısın.
    {
      lblTimer.caption=IntToStr(sayac1);
    Dec(sayac1);
    } */
  }
  else
  {
    lblTimer.caption=IntToStr(sayac1);
    Dec(sayac1);
  }
}

 {
   
   sayac1=20;
   
   AnaForm = TclForm.Create(Self);
   
  Zaman= AnaForm.AddNewTimer(AnaForm,'Zaman',1000);
  AnaForm.AddNewEvent(Zaman,tbeOnTimer,'sure');
  
  
  lblTimer=AnaForm.AddNewLabel(AnaForm,'lblTimer','');
  lblTimer.StyledSettings = ssFamily;
  lblTimer.TextSettings.Font.Size = 35;
  lblTimer.Align = alTop;
  lblTimer.Height=50;
  lblTimer.Width=50;
  
 
   AnaForm.SetFormColor('#52504d','',clGNone); 
   btn1 = AnaForm.AddNewProButton(AnaForm,'btn1','SAYAC');
   btn1.Align = alCenter;
   btn1.Width = 100;
   btn1.Height = 100;
   btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#a0a3b1');
   btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#050505');
   btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
   btn1.clProSettings.IsTransparent = False;
   btn1.clProSettings.FontSize = 12;
   btn1.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
   btn1.clProSettings.FontHorzAlign = palCenter;
   btn1.clProSettings.IsFill = True; 
   btn1.clProSettings.IsRound = True;
   btn1.clProSettings.RoundHeight = 50;
   btn1.clProSettings.RoundWidth = 50;
   btn1.clProSettings.BorderWidth = 3;
   btn1.SetclProSettings(btn1.clProSettings);

   AnaForm.AddNewEvent(btn1,tbeOnClick,'BtnOnClick');
   AnaForm.Run;
 
 }

Sorunun çözüme ulaşıp ulaşmadığı ile ilgili geri dönüşünü bekliyorum.
İyi çalışmalar diliyorum.


Düzenleyen Atiker01 - 13 Mayıs 2024 Saat 13:27]]> Mon, 13 May 2024 13:26:39 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=810#810 <![CDATA[TclTimer : evet event kısmını bunu attıktan...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=809#809 Yazar: emre.gungor01
Konu: 592
Gönderim Zamanı: 13 Mayıs 2024 Saat 10:31

evet event kısmını bunu attıktan sonra düzenledim. 2. olarak enabled kısımlarına baktığımda Zaman.Enabled = True; kısımlarına teker teker baktım fakat kimisinde zaman görünüyor kimisinde butona basmasam bile belirli bir süre sonra kendisi başladığı için zamanda otomatikmen başladığını farkettim. Acaba event kısmında mı hata yapıyorum. Clomosy Kitapta baktığımda enabled kısmı false olarak yazıyor fakat ben yaptığımda olmuyor veya işlev görmüyor.]]> Mon, 13 May 2024 10:31:21 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=809#809 <![CDATA[TclTimer : Merhaba Emre,öncelikle kodunu...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=807#807 Yazar: Atiker01
Konu: 592
Gönderim Zamanı: 13 Mayıs 2024 Saat 09:19

Merhaba Emre,

öncelikle kodunu çalıştırdığında hatayı görmüşsündür. 
En son tanımladığın Event yanlış bir tanımlama. Event içerisine ilk parametre bir nesneyi temsil etmeli sen bir procedure(void) bağlamışsın, o satırdaki hatanı düzeltmelisin.
Hata satırı: AnaForm.AddNewEvent(zamanlayici,tbeOnClick,'sure');

2. olarak butona tıklandığında zamanlayıcı çalışsın istiyorsan zamanlayıcıyı uygulama açıldığı anda etkinleştirme, butona tıklandığında zamanlayıcıyı etkinleştirmelisin. 
Kod satırı:  Zaman.Enabled = True;
]]> Mon, 13 May 2024 09:19:18 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=807#807 <![CDATA[TclTimer : Merhabalar;Projemde süre ekledim...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=805#805 Yazar: emre.gungor01
Konu: 592
Gönderim Zamanı: 11 Mayıs 2024 Saat 18:33

Merhabalar;
Projemde süre ekledim fakat sürenin butona tıklandığında başlamasını istiyorum. Buton ile süreyi birbirine bağlayamadım bir türlü
Kodlar;
Var
  AnaForm:TclForm;
  btn1 : TClProButton;
  Zaman : TCLTimer;
  sayac:Integer;
  
  Zaman2:TCLTimer;
  sayac1:Integer;
  lblTimer: TCLLabel;
  
void zamanlayici;
{
  if(sayac == sayac)
  {
  sayac = sayac + 1;
  Zaman.Enabled = False;
  btn1.Text = IntToStr(sayac);
  if(sayac == 25)
  {
  ShowMessage('Süre doldu!');
  }
  }
  else
  {
  btn1.Text = IntToStr(sayac);
  sayac = sayac + 1;
  }
}

void sure;
{
  if(sayac1 == 0)
  {
    Zaman2.Enabled=False;
    lblTimer.caption = IntToStr(sayac1);
    ShowMessage('Süreniz Doldu!');
    if(btn1 == 1)
    {
      lblTimer.caption=IntToStr(sayac1);
    Dec(sayac1);
    }
  }
  else
  {
    lblTimer.caption=IntToStr(sayac1);
    Dec(sayac1);
  }
}

 {
   sayac=0;
   
   sayac1=20;
   
   AnaForm = TclForm.Create(Self);
   
  Zaman= AnaForm.AddNewTimer(AnaForm,'',1000);
  Zaman.Enabled = True;
  AnaForm.AddNewEvent(Zaman,tbeOnTimer,'zamanlayici');
  
  
  Zaman2=AnaForm.AddNewTimer(AnaForm,'GetTimer',1000);
  Zaman2.Enabled=True;
  AnaForm.AddNewEvent(Zaman2,tbeOnTimer,'sure');
  
  lblTimer=AnaForm.AddNewLabel(AnaForm,'lblTimer','');
  lblTimer.StyledSettings = ssFamily;
  lblTimer.TextSettings.Font.Size = 35;
  lblTimer.Align = alTop;
  lblTimer.Height=50;
  lblTimer.Width=50;
  
 
   AnaForm.SetFormColor('#52504d','',clGNone); 
   btn1 = AnaForm.AddNewProButton(AnaForm,'btn1','SAYAC');
   btn1.Align = alCenter;
   btn1.Width = 100;
   btn1.Height = 100;
   btn1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#a0a3b1');
   btn1.clProSettings.FontColor = clAlphaColor.clHexToColor('#050505');
   btn1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#ffffff');
   btn1.clProSettings.IsTransparent = False;
   btn1.clProSettings.FontSize = 12;
   btn1.clProSettings.FontVertAlign = palcenter;//palLeading , palCenter , palTrailing
   btn1.clProSettings.FontHorzAlign = palCenter;
   btn1.clProSettings.IsFill = True; 
   btn1.clProSettings.IsRound = True;
   btn1.clProSettings.RoundHeight = 50;
   btn1.clProSettings.RoundWidth = 50;
   btn1.clProSettings.BorderWidth = 3;
   btn1.SetclProSettings(btn1.clProSettings);

   AnaForm.AddNewEvent(btn1,tbeOnClick,'zamanlayici');
   AnaForm.AddNewEvent(zamanlayici,tbeOnClick,'sure');
   AnaForm.Run;
 
 }
]]> Sat, 11 May 2024 18:33:25 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=592&PID=805#805