1
Ваши вопросы / Re: Считаем отсутствие связи
« : 18 Февраля 2025, 09:12:35 »
Спасибо! Теперь разобрался, заработало
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
begin
If Lermont_103.IsGoodQuality = False then
TimerStart (TimeLerm103, 0)
else
TimerReset (TimeLerm103);
end.
begin
If Serova_451.IsGoodQuality = False then
TimerStart (TimeSerova451, 0)
else
TimerReset (TimeSerova451);
end.
var
aSeconds: Int64;
begin
If Lermont_103.IsGoodQuality = False then
TimerStart (TimeLerm103, 0)
else
TimerReset (TimeLerm103);
if Sender is TM_Text then // проверяем, что Sender это текст
with Sender as TM_Text do // приводим Sender к типу "TM_Text"
begin
aSeconds := SecondsBetween(0, TimeLerm103.AsDateTime); // получаем кол-во секунд
Text := SecondsToStr(aSeconds); // переводим секунды в строку вида "чч:мм:сс".
end;
end.