Jal2 ile birbirinden bağımsız zaman döngüleri

[Erdinçbavaş]

var dword san = 0


forever loop
_usec_delay  (1000000)       -- 1 sn
san = ( san + 1 )            --  1sn   ver.
if ( san < 3600 ) then pin_b7 = high else pin_b7 = low end if
if ( san == 240000 ) then san = 0  else end if


Programın başına bu şekilde bir ifade yazdığımda (zamandan sayıcıya aktarma yaptıgımda ) ana programım çalışsa bile (zaten kısa süre çalışıyor) Sayıcım kaldıgı yerden devam ediyor.Bu şekilde yaklaşık 5 günde 1 (3600 sn) bir çıkışla istediğimi yaptırabildim.Tabi ana programdan kaynaklı gecikmelerden dolayı zaman olarak gercek zamandan sapıyorum ama olsun benim için sorun değil.Bu arada jal2de 1 saatte 2sn den az bir sapma var.Emeği geçen herkese teşekkür eder ve saygılar sunarım.