ПЛК110-30-М02 нестандартный проткол к весам ВСП4

[павелсиражев]

Вот окончательный вид рабочей программы .
PROGRAM PLC_PRG
VAR
port:COMSETTINGS:=(Port:=COM1,dwBaudRate:=9600,byS topBits:=0,byParity:=0,dwBufferSize:=28);
portReady:BOOL;
buf:ARRAY[0..27]OF BYTE;(*данные из весов через RS232*)
bufCopy:ARRAY[0..27]OF BYTE;
buf1:ARRAY[0..7]OF BYTE;(*массив веса*)
bufzero:ARRAY[0..27]OF BYTE:=28(0);
i:INT:=0;
i1:INT:=0;
i3:INT:=0;
dIWWORD:=0;
dIW2WORD:=0;
iWES: REAL:=0;
iSTEP:INT;
WES: REAL;(*чистый вес*)
iDEC: INT;
I4: BOOL := FALSE;
END_VAR

WHILE dIW<>500000 DO(*выдержка времени*)
dIW:=dIW+1;
END_WHILE
dIW2:=dIW2+1;
IF NOT portReady THEN(* Сразу открываем и настраиваем порт *)
portReady:=TRUE;
SysComOpen(port.Port);
SysComSetSettings(port.Port,ADR(port));
SysComRead(port.Port, ADR(buf),28,0);
ELSE(* Работаем с открытым портом *)
SysComRead(port.Port, ADR(buf),28, 0);
END_IF
bufCopy:=buf;
WHILE (i<=27)AND(i3=0)DO
IF bufCopy[i]=119 THEN
i3:=1;
FOR i1:=0 TO 7 DO
buf1[i1]:=bufCopy[i+i1+2];
END_FOR
END_IF
i:=i+1;
END_WHILE

FOR i:=0 TO 7 DO
IF buf1[i]= 46 THEN
I4:=TRUE;
iSTEP:=7-i;(*количество знаков после десятичной точки*)
iDEC:=i;(*положение десятичной точки*)
END_IF;
END_FOR;
IF i4=TRUE THEN
CASE iDEC-4 OF
2: buf1[iDEC]:=buf1[iDEC+1];
1: buf1[iDEC]:=buf1[iDEC+1];
buf1[iDEC+1]:=buf1[iDEC+2];
0: buf1[iDEC]:=buf1[iDEC+1];
buf1[iDEC+1]:=buf1[iDEC+2];
buf1[iDEC+2]:=buf1[iDEC+3];
END_CASE;
FOR i:=0 TO 6 DO
iWES:=iWES+(buf1[i]-48)*EXPT(10,(6-i));
END_FOR;
WES:=iWES/EXPT(10,iSTEP);
END_IF
i4:=FALSE;
iWES:=0;
i:=0;
i3:=0;
buf:=bufzero;
dIW:=0;
Сделал еще визуализацию для переменной WES.Проект во вложении.
Все отлично работает как часы! Всем спасибо!

[павелсиражев]

Функция ? Ничего себе. А вызываете как процедуру. Ничего не забыли ?


ps
Про чутьвышесказанное Sergey666 кстати да.
Выкладывайте сам проект а не левые кусочки.

А почему я не могу просто вызвать функцию? Если мне не нужно возвращаемое значение .
Хотя в описании библиотеки SysLibCom написано, что это функция, скорее это функциональный блок.

[павелсиражев]

В посте#4 я выложил программу с выдержкой времени по таймеру, но он никак не хочет считать. Не могу понять в чем причина? Хотелось бы , конечно сделать выдержку по таймеру, а не как я сделал через счетчик.

[kondor3000]

Добрый день. Переделал программу, добавил выдержку времени 300мс.
PROGRAM PLC_PRG
VAR
T1:=TON;
delay:TIME:=T#300ms;
port:COMSETTINGS:=(Port:=COM1,dwBaudRate:=2400);
portReady:BOOL;
buf:ARRAY[0..13]OF BYTE;
END_VAR

В посте № 4 у вас ошибка, надо равно в объявлении таймера убрать. Вот так должно быть T1:TON;
И в выложенной программе, у вас в конфигурации, так и осталось скорость 2400 и нечётный .

[Sergey666]

Все отлично работает как часы! Всем спасибо!

Вот ведь...а рекомендованные посты не прочитал..., #нуладно

[павелсиражев]

Вот ведь...а рекомендованные посты не прочитал..., #нуладно

Нет, те посты я прочитал, очень интересно ,много нового узнал.Спасибо.

[capzap]

Результат напоминает браконьера с гранатой на рыбалке. Нужно поесть - тонна рыбы кверху брюхом, пару рыбин на ужин и пошли дальше. Задача поесть - решена, да. И как часы само собой.

тише, тише, он знает такие слова как ООП, просто в виду примитивности задачи не желает его применять, а так бы показал нам кузькину мать

[павелсиражев]

В посте № 4 у вас ошибка, надо равно в объявлении таймера убрать. Вот так должно быть T1:TON;
И в выложенной программе, у вас в конфигурации, так и осталось скорость 2400 и нечётный .

Вот написал простую прогу с таймером TON.
PROGRAM PLC_PRG
VAR
T1:TON;
in1:BOOL:=FALSE;
delay:TIME:=T#10000ms;
i1:INT:=0;
END_VAR
IF in1=FALSE THEN
in1:=TRUE;
i1:=0;
T1(IN:=TRUE,PT:=delay);(*запускаем таймер*)
END_IF
IF T1.Q=TRUE THEN
in1:=FALSE;
T1(IN:=FALSE,PT:=T#0s);
ELSE
i1:=i1+1;
END_IF

Почему-то таймер не считает?

[kondor3000]

Вот написал простую прогу с таймером TON.
Почему-то таймер не считает?

Вставте строчку T1(); в тело программы.
Для правильной работы таймера, он должен быть вызван вне конструкции IF .... END_IF Таймер 2jpg.jpg


А таймер из поста #4, работает, если равно убрать.Таймер 1.jpg
И кстати там он вызван вне конструкции, почему то)))

[Sergey666]

Вот написал простую прогу с таймером TON.
PROGRAM PLC_PRG
VAR
T1:TON;
in1:BOOL:=FALSE;
delay:TIME:=T#10000ms;
i1:INT:=0;
END_VAR
IF in1=FALSE THEN
in1:=TRUE;
i1:=0;
T1(IN:=TRUE,PT:=delay);(*запускаем таймер*)
END_IF
IF T1.Q=TRUE THEN
in1:=FALSE;
T1(IN:=FALSE,PT:=T#0s);
ELSE
i1:=i1+1;
END_IF

Почему-то таймер не считает?

А чё он должен считать, если вызван внутри конструкции if-Then, которая false?