Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
var q,w,e,r,t,y,u,i,o,p,a,s,d,f,g,h,j,k,l,q1,w1,e1,r1,t1,y1,u1,i1,o1,p1,a1,s1,d1,f1,g1,h1,j1,k1,l1,z1,c1 : Integer;
begin
q:=bit_00.Value; w:=bit_01.Value; e:=bit_02.Value; r:=bit_03.Value; t:=bit_04.Value; y:=bit_05.Value; u:=bit_06.Value;
i:=bit_07.Value; o:=bit_08.Value; p:=bit_09.Value; a:=bit_10.Value; s:=bit_11.Value; d:=bit_12.Value; f:=bit_13.Value;
g:=bit_14.Value; h:=bit_15.Value; j:=bit_16.Value; k:=bit_17.Value; l:=bit_18.Value;
Bitmaska.Value:=Abs(q)*Power(2,0)
+Abs(w)*Power(2,1)
+ 0*Power(2,2)
+ 0*Power(2,3)
+Abs(e)*Power(2,4)
+Abs(r)*Power(2,5)
+Abs(t)*Power(2,6)
+Abs(y)*Power(2,7)
+Abs(u)*Power(2,8)
+Abs(i)*Power(2,9)
+Abs(o)*Power(2,10)
+ 0*Power(2,1)
+ 0*Power(2,12)
+Abs(p)*Power(2,13)
+ 0*Power(2,14)
+ 0*Power(2,15)
+ 0*Power(2,16)
+ 0*Power(2,17)
+Abs(a)*Power(2,18)
+ 0*Power(2,19)
+ 0*Power(2,20)
+Abs(s)*Power(2,21)
+Abs(d)*Power(2,22)
+Abs(f)*Power(2,23)
+Abs(g)*Power(2,24)
+Abs(h)*Power(2,25)
+Abs(j)*Power(2,26)
+Abs(k)*Power(2,27)
+Abs(l)*Power(2,28)
+0*Power(2,29)
+0*Power(2,30)
+0*Power(2,31) ;
Bitmaska.Value shr 1;
begin
SetBit(Bitmaska.Value,0,bit0.Value)
SetBit(Bitmaska.Value,1,bit1.Value)
SetBit(Bitmaska.Value,2,bit2.Value)
SetBit(Bitmaska.Value,3,bit3.Value)
SetBit(Bitmaska.Value,4,bit4.Value)
...
SetBit(Bitmaska.Value,31,bit31.Value)
end.
begin
Bitmaska.Value:=bit0.Value*Power(2,0)
+bit1.Value*Power(2,1)
+bit2.Value*Power(2,2)
+bit3.Value*Power(2,3)
+bit4.Value*Power(2,4)
+bit5.Value*Power(2,5)
+bit6.Value*Power(2,6)
+bit7.Value*Power(2,7)
+bit8.Value*Power(2,8)
+bit9.Value*Power(2,9)
+bit10.Value*Power(2,10)
+bit11.Value*Power(2,11)
+bit12.Value*Power(2,12)
+bit13.Value*Power(2,13)
+bit14.Value*Power(2,14)
+bit15.Value*Power(2,15)
+bit16.Value*Power(2,16)
+bit17.Value*Power(2,17)
+bit18.Value*Power(2,18)
+bit19.Value*Power(2,19)
+bit20.Value*Power(2,20)
+bit21.Value*Power(2,21)
+bit22.Value*Power(2,22)
+bit23.Value*Power(2,23)
+bit24.Value*Power(2,24)
+bit25.Value*Power(2,25)
+bit26.Value*Power(2,26)
+bit27.Value*Power(2,27)
+bit28.Value*Power(2,28)
+bit29.Value*Power(2,29)
+bit30.Value*Power(2,30)
+bit31.Value*Power(2,31);
end.
Необходимо визуально по картинке бункера понимать, что с ним происходит в данный момент. Это три состояния: наполнение, опорожнение, бездействие.Приветствую!
Код: (delphi)var
aTemp, aZad: TM_Variable;
begin
// выполняем скрипт только для столбца с уставками и проверяем, что ячейки связаны с переменными
if (Cell.Col = 2) and (Cell.Variable <> nil) and (Cell.VariableEx <> nil) then
begin
aTemp := Cell.VariableEx; // переменная температуры
aZad := Cell.Variable; // переменная задания
aTemp.HighAlarm := aZad.AsFloat + 3; // верхняя авар. граница = задание + 3
aTemp.LowAlarm := aZad.AsFloat - 3; // нижняя авар. граница = задание - 3
end;
end.
Помогло удаление "задвоившихся" переменных в конфигурации орс-сервера -> ... Кто создавал ошибку, скада или орс, я так и не понял.Скада создавать и редактировать конфигурацию орс-сервера еще не научилась