vik / Профиль - Комментарии / SCADA SIMP Light

еще один не маловажный вопрос по редактору скриптов.
Хочется видеть, что если обращаешься к несуществующему каналу, то при компиляции появлялось предупреждение.
Так же необходима кнопка автоформатирование кода, хотя бы на примере ide arduino.
Спасибо.

9 лет назад

Просмотр устаревших тэгов

столкнулись тоже с этой проблемой. Тегов порядка 300 стали недоступны. Увы…

9 лет назад

чтение тега типа bool

Работает, спасибо.
вот рабочий код, может кому пригодится.
[spoiler]

{объявляем переменные}
var b0,b1,b2,b3,b4,b5,b6,b7:int;
var Out: word;
var str: string;
Begin
{опрашиваем все биты и присваиваем промежуточным переменным}
B7:=ReadValue('bit_(7)');
B6:=ReadValue('bit_(6)');
B5:=ReadValue('bit_(5)');
B4:=ReadValue('bit_(4)');
B3:=ReadValue('bit_(3)');
B2:=ReadValue('bit_(2)');
B1:=ReadValue('bit_(1)');
B0:=ReadValue('bit_(0)');
{набираем стринг из 0 и 1}
str:=IntToStr(b7)+IntToStr(b6)+IntToStr(b5)+IntToStr(b4)+IntToStr(b3)+IntToStr(b2)+IntToStr(b1)+IntToStr(b0);
{конвертируем стринг из нолей и единиц в ворд}
out:= BinToWord(str);
{записываем результат}
WriteValue('outword',out);

end.

[/spoiler]

9 лет назад

чтение тега типа bool

а как опросить виртуальные каналы типа boolean и записать из них слово word
наваял примерно такое, но не работает.
[spoiler]

{Пример Pascal Script}
var b0,b1,b2,b3,b4,b5,b6,b7: boolean;
Var Out,: Integer;
Begin

B7:=ReadValue('bit_(7)');
B6:=ReadValue('bit_(6)');
B5:=ReadValue('bit_(5)');
B4:=ReadValue('bit_(4)');
B3:=ReadValue('bit_(3)');
B2:=ReadValue('bit_(2)');
B1:=ReadValue('bit_(1)');
B0:=ReadValue('bit_(0)');

out:= BinToWord('B7');
out:= out*2+BinToWord('B6');
out:= out*2+BinToWord('B5');
out:= out*2+BinToWord('B4');
out:= out*2+BinToWord('B3');
out:= out*2+BinToWord('B2');
out:= out*2+BinToWord('B1');
out:= out*2+BinToWord('B0');
WriteValue('outword',out);

end.

[/spoiler]

9 лет назад