Clomosy | Forum : Image Timer https://www.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 14 Apr 2026 14:40:44 +0000 Tue, 08 Aug 2023 11:13:11 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://www.clomosy.com.tr/RSS_post_feed.asp?TID=553 <![CDATA[Clomosy | Forum]]> https://www.clomosy.com.tr/forum_images/logo.png https://www.clomosy.com.tr/ <![CDATA[Image Timer : Yada resim dizisini 3 kez oynatmak...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=701#701 Yazar: Alforce
Konu: 553
Gönderim Zamanı: 08 Ağustos 2023 Saat 11:13

Yada resim dizisini 3 kez oynatmak istiyorsan:

Global değişkenlere ekleyin:
Var
  RepeatNumber: Integer;
  ...
Begin
  RepeatNumber:= 0;
  ...

Sonrasında ise:
Const
  MaxRepeat = 3;
  ...
Begin
  if ImageOrder >= Max then
  Begin
    ImageOrder:= 0;
    
    RepeatNumber:= RepeatNumber +1;
  End;
  
  if RepeatNumber >= MaxRepeat then
  Begin
    ShowMessage('Resim dizisi 3 kez oynatıldı');
    // Sonrasında ise belki timerı kapatırsın.
  End;
  ...
]]> Tue, 08 Aug 2023 11:13:11 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=701#701 <![CDATA[Image Timer : Tabii, if ImageOrder &gt;= Max...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=700#700 Yazar: Alforce
Konu: 553
Gönderim Zamanı: 08 Ağustos 2023 Saat 11:07

Tabii,
if ImageOrder >= Max then
Begin
  ImageOrder:= 0;
  
  ShowMessage('Resim dizisi bitti');
End;
Bunu önceki yerine modifiye edin.
]]> Tue, 08 Aug 2023 11:07:34 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=700#700 <![CDATA[Image Timer : Peki bu kod çalıştıktan sonra...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=699#699 Yazar: sqlae
Konu: 553
Gönderim Zamanı: 08 Ağustos 2023 Saat 11:03

Peki bu kod çalıştıktan sonra formu timer'a nasıl bağlayabilirim yani bu resim 3 defa çalıştı ardından diğer forma geçeceğim

if aTimer.Interval = 100 then
begin
aTimer.Enabled:= False;
Clomosy.RunUnit:=('Unit2');
end;

şeklinde deneme yaptım fakat bunu yaptığımda döngü sonsuza kadar çalışıyor bunu tbeontimer satırına attığımda ise form hiç çalışmıyor iki formda açılıyor öylece bekliyor.

Kodu manuel yazdım hatalarım olabilir.
]]> Tue, 08 Aug 2023 11:03:44 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=699#699 <![CDATA[Image Timer : Dilediğiniz kadar resim koyabilirsiniz,...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=691#691 Yazar: Alforce
Konu: 553
Gönderim Zamanı: 08 Ağustos 2023 Saat 10:22

Dilediğiniz kadar resim koyabilirsiniz, teknik olarak sınır 2^31. Bu integer'ın pozitif sınırı.

Sanırım burdaki sorun "Max = 29;", bu 19 olmalıdır.

Kısaca olmayan bir indexe erişmeye çalışıyor.

Eğer resimleri bu şekilde depolarsanız daha rahat çalışabilirsiniz:
Images:= [
  'https://i.hizliresim.com/c2l0pxn.jpg',
  'https://i.hizliresim.com/j3wzg90.jpg',
  'https://i.hizliresim.com/af3ezy6.jpg',
  'https://i.hizliresim.com/1c9jno9.jpg',
  'https://i.hizliresim.com/luf2jfi.jpg',
  'https://i.hizliresim.com/sbzwmu7.jpg',
  'https://i.hizliresim.com/9s8m32j.jpg',
  'https://i.hizliresim.com/bz1vor1.jpg',
  'https://i.hizliresim.com/ijlpt8o.jpg',
  'https://i.hizliresim.com/2nc2s9i.jpg',
  'https://i.hizliresim.com/j60o3sw.jpg',
  'https://i.hizliresim.com/2wobckb.jpg',
  'https://i.hizliresim.com/ejzi1s9.jpg',
  'https://i.hizliresim.com/8u1qann.jpg',
  'https://i.hizliresim.com/toxksuf.jpg',
  'https://i.hizliresim.com/a0vda4t.jpg',
  'https://i.hizliresim.com/kus0uv2.jpg',
  'https://i.hizliresim.com/ahyleea.jpg',
  'https://i.hizliresim.com/pz1x4ek.jpg',
  'https://i.hizliresim.com/mwqpqcz.jpg'
  ];
]]> Tue, 08 Aug 2023 10:22:26 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=691#691 <![CDATA[Image Timer : Merhaba kodu çalıştırdıktan sonrasında...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=685#685 Yazar: sqlae
Konu: 553
Gönderim Zamanı: 08 Ağustos 2023 Saat 09:17

Merhaba kodu çalıştırdıktan sonrasında şu hatayı almaya başlıyorum sanırım resim sayısı fazla oldu :)

https://i.hizliresim.com/twdixvk.png

Kod satırı

var
MyForm:TclForm;
testButton : TclButton;
GetTimer: TClTimer;

ImageOrder: Integer;
Images: Variant;

procedure testButtonOnClick;
begin
   
end;

procedure resimDeg;
const
  Max = 29;
Begin    
  MyForm.SetImage(testButton,Images[ImageOrder]);
  ImageOrder:= ImageOrder +1;
  
  if ImageOrder >= Max then
    ImageOrder:= 0;
end;

begin
MyForm := TclForm.Create(Self)
MyForm.SetFormColor('#FFFFFF','#FFFFFF',clGVertical);

ImageOrder:= 0;
Images:= ['https://i.hizliresim.com/c2l0pxn.jpg','https://i.hizliresim.com/j3wzg90.jpg','https://i.hizliresim.com/af3ezy6.jpg','https://i.hizliresim.com/1c9jno9.jpg','https://i.hizliresim.com/luf2jfi.jpg','https://i.hizliresim.com/sbzwmu7.jpg','https://i.hizliresim.com/9s8m32j.jpg','https://i.hizliresim.com/bz1vor1.jpg','https://i.hizliresim.com/ijlpt8o.jpg','https://i.hizliresim.com/2nc2s9i.jpg','https://i.hizliresim.com/j60o3sw.jpg','https://i.hizliresim.com/2wobckb.jpg','https://i.hizliresim.com/ejzi1s9.jpg','https://i.hizliresim.com/8u1qann.jpg','https://i.hizliresim.com/toxksuf.jpg','https://i.hizliresim.com/a0vda4t.jpg','https://i.hizliresim.com/kus0uv2.jpg','https://i.hizliresim.com/ahyleea.jpg','https://i.hizliresim.com/pz1x4ek.jpg','https://i.hizliresim.com/mwqpqcz.jpg'];

  GetTimer:= MyForm.AddNewTimer(MyForm,'GetTimer',500);
  GetTimer.Interval := 100;
  GetTimer.Enabled := True;
  MyForm.AddNewEvent(GetTimer,tbeOnTimer,'resimDeg');

if GetTimer.Interval > 100 then
begin
  GetTimer.Enabled := False;
  Clomosy.RunUnit('Unit2');
end;
testButton := MyForm.AddNewProButton(MyForm,'testButton','');
clComponent.SetupComponent(testButton,'{"Align" : "alNone","MarginBottom":350,"MarginRight":250,"Width" :400,"Height":400}');

MyForm.Run;
end;
]]> Tue, 08 Aug 2023 09:17:07 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=685#685 <![CDATA[Image Timer : Önemli nokta, bunlar global değişken. Var...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=683#683 Yazar: Alforce
Konu: 553
Gönderim Zamanı: 07 Ağustos 2023 Saat 17:54

Önemli nokta, bunlar global değişken.
Var
  ImageOrder: Integer;
  Images: Variant;
...
Begin
  ImageOrder:= 0;
  Images:= ['Image1.png','Image2.png','Image3.png','Image4.png'];
  ...

Const
  Max = 4;
Begin    
  MyForm.SetImage(Image1, Images[ImageOrder]);
  
  ImageOrder:= ImageOrder +1;
  
  if ImageOrder >= Max then
    ImageOrder:= 0;
End;
]]> Mon, 07 Aug 2023 17:54:42 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=683#683 <![CDATA[Image Timer : 2 den fazla olan resim yaklaşımını...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=682#682 Yazar: sqlae
Konu: 553
Gönderim Zamanı: 07 Ağustos 2023 Saat 17:43

2 den fazla olan resim yaklaşımını da öğrenebilir miyim ? ]]> Mon, 07 Aug 2023 17:43:40 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=682#682 <![CDATA[Image Timer : Öncesinde değişkenleri oluştur: Var...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=681#681 Yazar: Alforce
Konu: 553
Gönderim Zamanı: 07 Ağustos 2023 Saat 17:39

Öncesinde değişkenleri oluştur:
Var
  ImageOrder: Boolean;
  Images: Variant;
...
Begin
  ImageOrder:= False;
  Images:= ['Image1.png','Image2.png'];
  ...

Sonra Timerın OnTimer olayına bunu yaz:
  if ImageOrder then
    MyForm.SetImage(Image1, Images[0])
  else
    MyForm.SetImage(Image1, Images[1]);
  
  ImageOrder:= not ImageOrder;

Bu 2 adet resim için iyi çalışmalıdır.
Ama 2 den fazla resim için farklı bir yaklaşım izlenir.
]]> Mon, 07 Aug 2023 17:39:34 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=681#681 <![CDATA[Image Timer : Merhabalar, bir image&#039;in...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=680#680 Yazar: sqlae
Konu: 553
Gönderim Zamanı: 07 Ağustos 2023 Saat 17:27

Merhabalar, bir image'in içerisine koyduğum resmin timer ile sürekli olarak değişmesini istiyorum 2 adet resmim mevcut bu resime tıklandığında resim sürekli olarak 2 resim arasında değişsin bunu nasıl yapabilirim.]]> Mon, 07 Aug 2023 17:27:58 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=553&PID=680#680