Timer Problemi

[SAHAN33]

Forumda da aramalar yaptım ancak Timer nesnesinin tuttuğu zamanın bir dk öncesinin nasıl alındığına dair bir bilgi bulamadım. Sanırım Gecenin geç bir vakti olduğu için kafam durmuş durumda ama bir türlü Zamanın 1 dk öncesini aldıramadım timer a. Yani

Kod: Tümünü seç

procedure TFrm_Ana.Timer1Timer(Sender: TObject);
begin
Label9.Caption:=TimeToStr(Time);
Application.ProcessMessages;
if Time =BasSaat.Time-60 Then // 60 sn önce ise
 Begin
 // burada BasSaat DateTimePicker Ve Saat Gösterimi olarak ayarlı
  Showmessage('1 Dk Sonra Hazır ol..');
 End;

işin ilginç yanı ise time yada timer dan - (eksi) değerle işlem yapınca zaman geri saymaya başlıyor. Yani

Kod: Tümünü seç

Label9.Caption:=TimeToStr(Time-1);

diyince 04:18:36 olan zaman 19:24:59 gibi garip bir zamana dönüyor ve geri geri saymaya başlıyor. Zamanın 1 dk öncesi nasıl belirleniyor ?
Teşekkür Ederim..

[oklawa]

Tam olarak anladığımı söyleyemem ama,
zamanın 60 saniye öncesi için DateUtils fonksiyonu olan incSecond'u kullanabilirsiniz..

Kod: Tümünü seç

 
IncSecond(AValue: TDateTime; const ANumberOfSeconds: Int64): TDateTime;

incsecond(now,-60);//60 sn öncesi
incsecond(now,20);//20 sn sonrası

IncMinute'de sizin için uygun olabilir..

[ikutluay]

Forumda da aramalar yaptım ancak Timer nesnesinin tuttuğu zamanın bir dk öncesinin nasıl alındığına dair bir bilgi bulamadım. Sanırım Gecenin geç bir vakti olduğu için kafam durmuş durumda ama bir türlü Zamanın 1 dk öncesini aldıramadım timer a. Yani

Kod: Tümünü seç

procedure TFrm_Ana.Timer1Timer(Sender: TObject);
begin
Label9.Caption:=TimeToStr(Time);
Application.ProcessMessages;
if Time =BasSaat.Time-60 Then // 60 sn önce ise
 Begin
 // burada BasSaat DateTimePicker Ve Saat Gösterimi olarak ayarlı
  Showmessage('1 Dk Sonra Hazır ol..');
 End;

işin ilginç yanı ise time yada timer dan - (eksi) değerle işlem yapınca zaman geri saymaya başlıyor. Yani

Kod: Tümünü seç

Label9.Caption:=TimeToStr(Time-1);

diyince 04:18:36 olan zaman 19:24:59 gibi garip bir zamana dönüyor ve geri geri saymaya başlıyor. Zamanın 1 dk öncesi nasıl belirleniyor ?
Teşekkür Ederim..

timer değeri 10000 bin ise sn karşılıüı 10 idi. yanış hatırlamıyor isem

[SAHAN33]

İlgi ve alakanızdan dolayı çok teşekkür ederim . Oklawa arkadaşın yöntemi tamamen benim için biçilmiş kaftan oldu. Bu arada IKutluay arkadaşım. Sizin dediğiniz Interval olayı ki o timer nesnesinin ne kadar zamanda bir sistem saatini okuyacağını belirliyor. Ama cevap için çok teşekkür ederim. Zaman ayırmanız bile yeterli..