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

[capzap]

Чисто бросилось в глаза.

еще назначение i3 вызывает недоумение, видимо что то осталось от предыдущих изысканий

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

В общем ничего не меняется, да.
При условии что это копипаста проекта - как было порно, так и осталось.
Чисто бросилось в глаза.

Валенок, я ничего не понял из Вашего комментария!

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

еще назначение i3 вызывает недоумение, видимо что то осталось от предыдущих изысканий

Так проще. Не вижу смысла по каждому случаю применять ООП, это только усложняет код.

[melky]

Так вы не написали, если подключиться к линии при помощи ПК, то какие наборы байт вы видите в посылках ?

[capzap]

Так проще. Не вижу смысла по каждому случаю применять ООП, это только усложняет код.

что проще? Эта переменная, кроме как присваивания ей единички с ноликом больше ни чем не занимается, это как раз избыточный код и усложненный потому что приходится тратить время чтобы понять а что она делает

[melky]

И опять спрошу, не проще читать буфером в 1 байт ловя 0x0A и потом читать буфер в 14 байт с полноценным ответом и далее его разбирать, проверив и первый и второй и последние байты в уверенности целостности пакета ? Или потом читать уже постоянно по 14 байт, а в случае нарушения пакета переходить к поиску нужного байта ?

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

Так вы не написали, если подключиться к линии при помощи ПК, то какие наборы байт вы видите в посылках ?

Например:в десятичном коде 119,119,152,152,76,76,38,38,90,157,53,10,119,119,1 52,152,76,76,38,38,9,90,157,53,10,119,119,152

[melky]

почему у вас дважды идут одни и те же байты? в документации вроде такого нет ? первые 0x77 0x6E то есть 119 110 а у вас 4 раза подряд повторы
В конце 53 10 есть а должно быть 13 10 (0x0D 0x0A)

похоже что-то со скоростями не складуха или еще с чем-то. У вас там контроль четности не включен случайно ?
хотя контроль четности должен только старший бит менять, а у вас лажа какая-то

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

Написал новый код.
PROGRAM PLC_PRG
VAR
portReady:BOOL;
port:COMSETTINGS:=(Port:=COM1,dwBaudRate:=9600,byS topBits:=0,byParity:=1,dwBufferSize:=28);
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;
END_VAR
WHILE dIW<>5000000 DO
dIW:=dIW+1;
END_WHILE
dIW2:=dIW2+1;
IF portReady=FALSE 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
i:=0;
i3:=0;
buf:=bufzero;
dIW:=0;
В нем я изменил скорость обмена на 9600, добавил обнуление буфера перед чтением данных.
Сразу принимаю 28 байт, делаю его копию и ищу код 119, затем сохраняю в массив buf1 чисто данные веса.
Еще добавил выдержку времени ( простой счетчик через WHILE, через таймер TON у меня не получилось).
Данные идут, но логики в них нет.

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

почему у вас дважды идут одни и те же байты? в документации вроде такого нет ? первые 0x77 0x6E то есть 119 110 а у вас 4 раза подряд повторы
В конце 53 10 есть а должно быть 13 10 (0x0D 0x0A)

похоже что-то со скоростями не складуха или еще с чем-то. У вас там контроль четности не включен случайно ?
хотя контроль четности должен только старший бит менять, а у вас лажа какая-то

В том то и дело,что таких данных не должно быть.
В конфигурации ПЛК в параметрах порта Parity стоит ODD ( нечет).