Translations:Полезные программы/5/ru

-- ПРОВЕРЯЕМ УСЛОВИЕ ---------- if not startBit then

   tmrStartTime = now; -- здесь сохранится время начала отсчета 
   WriteReg("TON_out", 0); -- сигнал таймера , битовый регистр с именем "TON_out"
      if curTmrState == 1 then 
             -- действия по переходу 1 - 0 , например сообщение о cнятии аварии
        end  
   return 0 

else

   if (now - tmrStartTime) > TIMER_DELAY then
     -- действия по истечении таймера 
           WriteReg("TON_out", 1)
           if curTmrState == 0 then 
             -- действия по переходу 0 - 1 , например сообщение об аварии
           end  
   end  -- if  

end -- if end -- main </syntaxhighlight>