1
Ваши вопросы / Re: Вопросы по скриптам в Simple-Scada 2
« : 12 Мая 2021, 12:27:54 »
Посмотрел Ваш проект, очень много для себя открыл , особенно работу с шаблонами . Спасибо большое
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
if TimerGetState(vrTime) <> 1 then TimerStart(vrTime, vrTime.AsDateTime);
Во вложении пример с шаблоном для вентилятора и просто группой объектов.
begin
if FileOpen('SaveFile.ssf', '') then
vrTime.Value := FileReadDateTime
else
vrTime.Value := 0;
if FileRecreate('SaveFile.ssf', '') then
FileWriteDateTime(vrTime.AsDateTime);
with (Sender as TM_Object) do
case AsInt of
1: TimerStart (vrTime , vrTime.AsDateTime);
3: TimerStart (vrTime , vrTime.AsDateTime);
7: TimerStart (vrTime , vrTime.AsDateTime);
else
TimerPause (vrTime );
end;
end.
begin
if FileOpen('SaveFile.ssf', '') then
vrTime_1.Value := FileReadDateTime
else
vrTime_1.Value := 0;
if FileRecreate('SaveFile.ssf', '') then
FileWriteDateTime(vrTime_1.AsDateTime);
with (Sender as TM_Object) do
case AsInt of
2: TimerStart (vrTime_1 , vrTime_1.AsDateTime);
3: TimerStart (vrTime_1 , vrTime_1.AsDateTime);
7: TimerStart (vrTime_1 , vrTime_1.AsDateTime);
else
TimerPause (vrTime_1 );
end;
end.
begin
if FileOpen('SaveFile.ssf', '') then
vrTime_2.Value := FileReadDateTime
else
vrTime_2.Value := 0;
if FileRecreate('SaveFile.ssf', '') then
FileWriteDateTime(vrTime_2.AsDateTime);
with (Sender as TM_Object) do
case AsInt of
4: TimerStart (vrTime_2 , vrTime_2.AsDateTime);
7: TimerStart (vrTime_2 , vrTime_2.AsDateTime);
else
TimerPause (vrTime_2 );
end;
end.