Saat Başı İşlem Yaptırmak

[nitro]

bence şöyle yapın, query dakikada bir çalışsın ve zamanının gelmesine 1 dakikadan az kalan alarmları, hatırlatmaları bi listbox'a doldursun. timer saniyede bir listboxtan kontrol yapsın. zira her saniye çalışan bir query her yönden zararlı olur.

[Hancet]

sonsaat adında global bir değişken tanımlayın.
Timer'da sonsaat'in o anki saatle aynı olup olmadığını konrol edin.
Eğer eşitse kodların çelışmasına izin vermeyin.
Eşit değilse kodlar çalışsın ve sonsaat=geçerli saat olsun.

eğer yanlış anlamadıysam sonsaat değişkeni sanırım array ile tanımlanacak. çünkü 24 saat var.
timer ile kontrol ettiğim zaman timer'in interval'i 1000 olması gerek.
buraya kadar ben bi avantaj göremedim.
sonra timer başka bi timer kullanmadan nasıl duracak onuda çıkaramadım.

biraz daha açıklarsanız sevinirim.

tuanna kardeş jedi konusunda ki önerin için teşekkür ederim.
Ben bu jedi'yi duyduğumdan beri bir türlü kuramıyorum.
ya indirirken indiremiyor veya yanlış indiriyorum. yada kurarken kuramıyor veya yanlış kurup bilgisayarı içinden çıkılmaz durumlara sokuyorum.
Sitede ki bu konuyla ilgili bütün yazıları okudum ama beceremedim.
Geniş bi vaktim olduğu zaman yapacağım ama benden kurtulamaz.

ilgilenen arkadaşlara teşekkür ederim.

Herkeze Kolay Gelsin..

[ulu coder]

sonsaat adında global bir değişken tanımlayın.
Timer'da sonsaat'in o anki saatle aynı olup olmadığını konrol edin.
Eğer eşitse kodların çelışmasına izin vermeyin.
Eşit değilse kodlar çalışsın ve sonsaat=geçerli saat olsun.

eğer yanlış anlamadıysam sonsaat değişkeni sanırım array ile tanımlanacak. çünkü 24 saat var.
timer ile kontrol ettiğim zaman timer'in interval'i 1000 olması gerek.
buraya kadar ben bi avantaj göremedim.
sonra timer başka bi timer kullanmadan nasıl duracak onuda çıkaramadım.

SonSaat global tanımlanmış string bir değişken olsun.
Kodlar şöyle olursa Timer dakikada bir çalışır, fakat istenen kısım saat başı işlenir;

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
var
  saat,dakika,saniye,salise:word;
begin
  DecodeTime(Now,saat,dakika,saniye,salise);
  if inttostr(saat)=SonSaat Then exit;//saat değişmemişse çık
  sonsaat:=inttostr(saat);{Ey bilgisayar!
  saat değişmişse yapacağın ilk iş
  Sonsaati, şimdiki saate eşitlemek olsun ki
  bir saat boyunca aşağıdaki kodlar işlemesin}

  
  //Buraya Yazacağınız kodlar saat değiştiğinde çalışır.

end;

Bu arada JEDİ'yi kurarken nasıl bir hatayla karşılaştığını söylersen yardımcı olmaya çalışırız.

Kolay gelsin

[Hancet]

ulu coder hocam bu sefer anladım anlatmak istediğini

forum üyelerinden çok güzel fikirler çıktı gerçekten bu kadar beklemiyordum. Tam bi beyin fırtınası oldu bence bu soru.

Sanırım en iyi çözüm sizin ki
diğer yöntemlerde çok güzel ama timer'ı durdurmak için başka bi timer daha kullanmak gerekiyor.

Tüm arkadaşlara ilgilerinden dolayı teşekkür ederim

Jedi ile ilgili sorunuma gelince buraya yazarsam Mustafa Abi hemen kilitler başlığı
ama şu kadarını söyleyeyim. jedi'yi indirmek için forumda verilen siteye girince karşıma bikaç versiyor çıkıyor. indirdiğim zipli/rarlı dosyaları boş bi klasöre açınca aynı dosyadan bir daha var üzerine yazayım mı falan diye soruyor. sanırım iki klasör olarak zip/rar'lanmış olması lazım ama bulamadım o versiyonu hala.
eğer bi mahsuru yoksa bence siteye en güncel ve sorunsuz çalışan versiyonlar eklenmeli.

neyse

tekrar teşekkür ederim
kolay gelsin...