Timer Kapatabilme

[naturelmania]

projemde timer kullanırken timerı başlatabiliyorum ama bi türlü durduramıyorum. Kodum aşağıdaki gibi
Timer1.enabled komutuna false değerini aktarmam 1 işe yaramıyor. Bu arada proje de tek butona tıklama yapılarak baştılsın ve durdurulsun istiyorum.

Şimdiden yardımlarınız için teşekkürler.

Kod: Tümünü seç

procedure TForm1.GBaslaClick(Sender: TObject);

begin
    if Comport.Connected = False then
      begin
      showmessage('Fotometre Bağlantısı Açık Değil');
      end;
    if Comport.Connected = True then
    begin
      if Timer1.Enabled = True then
        begin
          Timer1.Enable = False;
          Gbasla.Caption := 'Gözleme Başla';
        end;
      if Timer1.Enabled = False then
        begin
          Timer1.Enabled := True;
          Gbasla.Caption := 'Gözlemi Bitir';
        end;
    end;

end;

[poshet303]

Normal şartlarda;

Kod: Tümünü seç

Timer1.enabled;

çalışır.

Kod: Tümünü seç

if Comport.Connected = True then 

eğer bu şart sağlanmıyor ise Timer.Enabled kısmına erişilemiyor olabilir.

kodu trace ederek sorunun kaynağını öğrenebilirsiniz.

[Hancet]

Kod: Tümünü seç

procedure TForm1.GBaslaClick(Sender: TObject); 

begin 
    if Comport.Connected = False then 
      begin 
      showmessage('Fotometre Bağlantısı Açık Değil'); 
      end; 
    if Comport.Connected = True then 
    begin 
      if Timer1.Enabled = True then //timer açıksa 
        begin 
          Timer1.Enable = False;  // timer'ı durdur
          Gbasla.Caption := 'Gözleme Başla'; 
        end; 
      if Timer1.Enabled = False then  // timer duruyorsa
        begin 
          Timer1.Enabled := True; // timer'ı aç
          Gbasla.Caption := 'Gözlemi Bitir'; 
        end; 
    end; 

end;

yukarıda ki kodlarına açıklama ekledim sadece. bu kodlar ile timer durmaz zaten. çünkü timer'ı kontrol ederek açıp kapıyorsun ve sürekli şart sağlanıyor.

Kod: Tümünü seç

procedure TForm1.GBaslaClick(Sender: TObject); 

begin 
    if Comport.Connected = False then 
      begin 
      showmessage('Fotometre Bağlantısı Açık Değil'); 
      end; 
    if Comport.Connected = True then 
    begin 
      if Timer1.Enabled = True then //timer açıksa 
        begin 
          Timer1.Enable = False;  // timer'ı durdur
          Gbasla.Caption := 'Gözleme Başla';
          abort; //procedure'den çık
        end; 
      if Timer1.Enabled = False then  // timer duruyorsa
        begin 
          Timer1.Enabled := True; // timer'ı aç
          Gbasla.Caption := 'Gözlemi Bitir'; 
          abort;//procedure'den çık  
        end; 
    end; 

end;

böyle kullanırsan sorun çözülür sanırım....
Kolay Gelsin

[naturelmania]

Hancet çok teşekkür ederim gerçekten de oldu.
Abort komutunu kullanmayı aklımın ucundan bile geçirmemiştim. Çok teşekkür ederim

[rsimsek]

Procedure den çıkmak için Abort yerine Exit i tercih etmelisiniz

[Trial_Cooder]

Timer Şahlanıp Gidiyor

[Hancet]

Hancet çok teşekkür ederim gerçekten de oldu.
Abort komutunu kullanmayı aklımın ucundan bile geçirmemiştim. Çok teşekkür ederim

önemli değil

Procedure den çıkmak için Abort yerine Exit i tercih etmelisiniz

Hocam farkları nedir biraz açıklar mısınız lütfen

[poshet303]

rsimsek demiş ki:

Procedure den çıkmak için Abort yerine Exit i tercih etmelisiniz

Hocam farkları nedir biraz açıklar mısınız lütfen

Cevaplanmamış, önemli olduğunu düşündüğüm için cevaplayayım.

exit: procedure yada function dan çıkış sağlar. İlgili fonksiyon yada prosedürü çağırmış olan satırın bir altından devam edilir.

abort: sessiz bir istisna üretilir. Programın işleyişi bu noktada durur ve ilk istisna yöneticisine kadar gelinir. İstisna yöneticisi programcı tarafından yazılmamışsa Delphi nin istisna yöneticisine gelinir, bu tüm prosedür ve fonksiyonlardan çıkış anlamına geliyor.

Olayın sümülasyonu;

Kod: Tümünü seç

procedure TForm1.A;
begin
 Memo1.Lines.Add('A');
 abort;//exit;**********
end;

procedure TForm1.B;
begin
 Memo1.Lines.Add('B');
 A;
 Memo1.Lines.Add('B2 dananın kuyruğu');
end;

procedure TForm1.C;
begin
 try
  B;
 except
  showmessage('Hayrola');
 end;
  Memo1.Lines.Add('C');
end;

********** lı satırda önce exit; yazıp B; yi çağırın. sonra abort; yazıp B; yi çağırın. Sonuç aynı mı.

Peki şimdi ********** lı satırda Abort; yazıp C; yi çağırın. Sonuç.

Efendim programcılık ciddi iştir. Sağdan soldan öğrenilebilecek bir şey değildir. İşin temelini iyi kitaplardan ve ilgili yazılımların yardım dosyalarından okuyarak öğrenmek lazım. Yoksa cidi sıkıntılar olabilir.

Aman dikkat.