Konu: timer zaman aralığı (Okunma sayısı 612 defa)

titan61 · « : 24 Haziran 2009 16:59:40 »

delphide belirlediğim zaman aralıklarında porta voltaj göndermek istiyorum zaman bitincede voltaj kesilsin istiyorum ama saat olarak sadece ilk baştaki saati alıyor program hangi zaman da açılmışsa o zaman ki saati baz alıyor sistem saatini kullanıyorum sonsuz döngü oluşturdum zaman sürekli saysın diye
while true do
buda programı durduruyor
procedure TForm3.Button1Click(Sender: TObject);
var
zaman1,zaman2,saat:TTime;
begin
saat:=time;
zaman1:=StrToTime(Edit1.Text);
zaman2:=StrToTime(Edit2.Text);
while true do
if CompareTime(zaman1,saat)=0 then
PortOut(888,4)
else
if CompareTime(zaman2,saat)=0 then
PortOut(888,0);

lütfen bana yardımcı olun

barutali · « **Yanıtla #1 :** 24 Haziran 2009 21:08:12 »

soruyu eğer doğru anladıysam şöyle bişey neden yapmıyorsun deme gereksinimi duydum

timer in interval değerini 10000 yaparsan 10 sn yede bir senin komutu işler

direk timer ın ontimer olayında kodunu yaz interval değerini ne kadar zamanda bir yapmasını istiyorsan ona göre ayarla (1000 = 1 sn ) bu kadar ...

titan61 · « **Yanıtla #2 :** 24 Haziran 2009 21:30:45 »

programda zamanları karşılaştırmayı şu şekilde denedim ama her zaman elseyi alıyor
if ((zaman3<=datetime)and(zaman4>=datetime)) then

zamaları
zaman3:=datetimepicker3.Time; şu şekilde alıyorum ama nasıl denersem deneyeyim karşılaştırmıyor

lütfen yardımcı olun zamanım daralıyor.

barutali · « **Yanıtla #3 :** 25 Haziran 2009 19:20:02 »

sana bir örnek hazırladım
exe ye sağtıkla özellikler de uyumluluk sekmesinde windows 95 olarak ayarla Win XP böyle port olaylarında sıkıntı yaratıyor...
kaç saniyede bir yapmasını istiyorsan milisaniye cinsinden giriceksin
888,0 ve 888,4 portlarında denedim çalışıyor... richedit ede dönen değeri atıyor...

Örn:
http://rapidshare.com/files/248573463/portX.rar.html

Rar Şifresi : delphidunyasi.net

titan61 · « **Yanıtla #4 :** 25 Haziran 2009 20:09:45 »

barutali ilgilendiğin için sağol yanlız benim sistem saatini kullanman gerekiyor birinci ve ikinici sayı arasında ki farkı alabilirim ama birinci saate sistem saati ile aynı olduğunda portun açılması gerekiyor bunda sorun yaşıyorum

bir de şu programda neden karşılaştırmıyor
zaman3:=datetimepicker3.Time;
zaman4:=datetimepicker4.Time
if ((zaman3<=datetime)and(zaman4>=datetime)) then
PortOut(888,4)
else
portout(888,0);

şimdiden tşk

barutali · « **Yanıtla #5 :** 26 Haziran 2009 17:53:24 »

aşağıdaki linkten indirebilirsin ..
üst taraftaki edite sistem saatiden atıyorum 10 saniye sonrasını yaz
alt taraftaki edite dokunma orda sistem saati işliyor zaten (edit2.text:=timetostr(time)

senin yazdığın saatle sistem saati aynı olduğu an başlıyor porta veri göndermeye...

http://rapidshare.com/files/248911712/Project1.rar.html

titan61 · « **Yanıtla #6 :** 26 Haziran 2009 18:23:17 »

abi programın kendisini atsaydın exe si daha fazla kafamı karıştırdı diğerine uyarlamaya çalışıyorum ama sıkıntılarım oldu

barutali · « **Yanıtla #7 :** 26 Haziran 2009 19:03:25 »

hiç kafa kalmadı pardon ekten indirebilirsin

Gönderen Konu: timer zaman aralığı (Okunma sayısı 612 defa)

titan61

timer zaman aralığı

barutali

Ynt: timer zaman aralığı

titan61

Ynt: timer zaman aralığı

barutali

Ynt: timer zaman aralığı

titan61

Ynt: timer zaman aralığı

barutali

Ynt: timer zaman aralığı

titan61

Ynt: timer zaman aralığı

barutali

Ynt: timer zaman aralığı