1
Ваши вопросы / Re: Вопросы и предложения по Simple-Scada 2
« : 10 Декабря 2024, 11:37:32 »
Здравствуйте! Планируется ли регистрация симпл скады в реестре отечественного ПО?
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
begin
if (ID1_L1_fed.AsInt= 0) and (ID1_R1_fed.AsInt> 40) then K1.AsInt:=1;
end.
begin
Atten_M1.Value:=(ID1_Atten.AsBool or ID2_Atten.AsBool or ID3_Atten.AsBool or ID4_Atten.AsBool or ID5_Atten.AsBool or ID6_Atten.AsBool or ID7_Atten.AsBool or ID8_Atten.AsBool or ID9_Atten.AsBool or ID10_Atten.AsBool);
Focus_M1.Value:=(ID1_Focus.AsBool or ID2_Focus.AsBool or ID3_Focus.AsBool or ID4_Focus.AsBool or ID5_Focus.AsBool or ID6_Focus.AsBool or ID7_Focus.AsBool or ID8_Focus.AsBool or ID9_Focus.AsBool or ID10_Focus.AsBool);
end.
var
a: integer;
S: String;
begin
{ условия для поля }
if Sender is TM_Field then // проверяем, что Sender это поле
with Sender as TM_Field do // приводим Sender к типу "TM_Field"
if AsInt > 100 then // если значение температуры больше 100 то
begin // температура отрицательная и вычисляем ее значение
a:=0; // сбрасываем старое значение временной переменной
a:=AsInt-65536; // вычисляем отрицательную разницу температуры
S:= IntToStr(a); // преобразуем значение с минусом в текстовую строку
Text:= S; // выдаем строку в свойство текста элемента поля
end;
end.