Счетчик моточасов

[sibi-c]

Добрый день! Помогите написать программу для подсчета часов работы насоса. Т.е. насос включается-начинается отсчет времени, выключается - отсчет прекращается, включается снова-отсчет возобновляется. Желательно на STL...

[NickLu2]

Declaration

Show

Code: Select all

IN
IN_Run         bool
IN_Reset      bool
IN_1s_ONS   bool

IN_OUT
InOut_Work_Hours          INT
InOut_Aux_Work_Sec      INT

Function

Show

Code: Select all

      AN    #IN_Run
      JC    ncnt                        //не считаем 
      L     #InOut_Aux_Work_Sec
      AN    #IN_1s_ONS
      JC    ncnt
      L     1
      +I    
      T     #InOut_Aux_Work_Sec

      L     3600
      >=I   
      JCN   ncnt
      L     #InOut_Work_Hours           //еще 1 час натикал
      L     1
      +I    
      T     #InOut_Work_Hours
      L     0
      T     #InOut_Aux_Work_Sec
ncnt: NOP   0

      AN    #IN_Reset
      JC    nzer
      L     0
      T     #InOut_Work_Hours
      T     #InOut_Aux_Work_Sec
nzer: SET   
      SAVE  

Оформляем как FCxx, вызываем его
на вход IN_Run подключаем контактор пускателя,
In_reset - сигнал сброса счетчика (если нужно, либо "always_off"),
IN_1s_ONS - подключаем сигнал, включающийся 1 раз в секунду на 1 цикл (получаем из Clock memory byte + pos oneshot)
InOut_Work_Hours - время работы в часах (INT, напр. MW100) --> используем дальше
InOut_Aux_Work_Sec - вспомогателный INT, напр. MW102

[almaz78]

обратите внимание на функции:
RTM
SET_RTM
CTRL_RTM
READ_RTM

[sibi-c]

Спасибо за помощь! Все работает!

[Pvalp]

Интерестно, а как это будет выглядить в SCL?

[NikolaySKR]

Подскажите лузеру, как это в lab сделать? или что это за язык?