1
Ваши вопросы / Re: Проблема с кнопкой
« : 14 Февраля 2017, 10:09:24 »
Спасибо, всё получилось !
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Прога написана на С# поэтому фраймворк .нет от 4 и выше версии обязателен.
procedure Narabotka_OnDataChange(Sender:Tm_Control);
begin
if kot_v_rab.ValueAsInt = 1 then
Time.Value := IncSecond(Now, -Interval.ValueAsInt);
if kot_v_rab.ValueAsInt = 0 then
Interval.Value := SecondsBetween(Now, Time.Value);
end.
procedure OnSecondTimer;
begin
if kot_v_rab.ValueAsInt = 1 then
Narabotka.Text := IntToStr(DaysBetween(Now, Time.Value)) + ' дней '+ TimeToStr(Now-Time.Value);
end.