ФБ MB_WR_COILS библиотеки ModBus.lib

[mummy117]

Добрый день. Не получаеться записать биты с помощью ФБ MB_WR_COILS.
Есть панель ИП320, в ней создаю 12 индикаторов с адресами 0-11.
Есть ПЛК63. В КДС пишу программу для передачи в панель битов.
ФБ MB_WR_SNG_COIL (передача одного бита) работает, а MB_WR_SNG_COIL нет.
Вот то что у меня в коде:

VAR
send_coil_s:MB_WR_COILS;
Buffer_yat: ARRAY[0..255] OF BYTE;
END_VAR

3:
Buffer_yat[0] :=1;
Buffer_yat[1] :=0;
Buffer_yat[2] :=1;
Buffer_yat[3] :=0;
Buffer_yat[4] :=1;
Buffer_yat[5] :=0;
Buffer_yat[6] :=1;
Buffer_yat[7] :=0;

send_coil_s(
Enable:=enabl,
Mode:=MB_RTU,
DevAddr:=1,
FirstAddr:=0,
Quantity:=12,
ComHandle:=Settings.Port,
Complete=>cmpl ,
Buffer:=BOOL_TO_BYTE(Buffer_yat), вот тут ругаеться, не знаю как загнать в байтовый масив биты.
пробывал Buffer:=Buffer_yat - не работает. записывает тлько первый бит.
TimeOut:=TimeOut);

IF cmpl THEN
master1:=4;
END_IF

[mummy117]

Не хочет.
BYTE ARRAY.png
Даже если все таки Buffer_yat:ARRAY[0..255]OF BYTE;
ARR.jpg

[capzap]

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

[mummy117]

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

Вы умеете отвечать загадками......

[mummy117]

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

Уважаемый capzap Вы это имели ввиду?

Buffer: ARRAY[0..255] OF BYTE;

f2:REAL:=12.7;
ptr_f2:POINTER TO BYTE;

ptr_f2:=ADR(f2);
buffer[5] := ptr_f2^;
ptr_f2:=ptr_f2+1;
buffer[4] := ptr_f2^;
ptr_f2:=ptr_f2+1;
buffer[7] := ptr_f2^;
ptr_f2:=ptr_f2+1;
buffer[6] := ptr_f2^;

[capzap]

нет, я имелл ввиду аргумент функции buffer

[mummy117]

Все таки, подскажите хоть кто-нибудь, как записать несколько бит с помощью ФБ MB_WR_COILS.

[capzap]

попробуйте такой пример битов у меня используется много, а передаю не битовой функцией http://www.owen.ru/forum/showthread....l=1#post143448

[petera]

Все таки, подскажите хоть кто-нибудь, как записать несколько бит с помощью ФБ MB_WR_COILS.

VAR
send_coil_s:MB_WR_COILS;
Buffer_yat: ARRAY[0..255] OF BYTE;
END_VAR

3:
Buffer_yat[0].0 :=1;
Buffer_yat[0].1 :=0;
Buffer_yat[0].2 :=1;
Buffer_yat[0].3 :=0;
Buffer_yat[0].4 :=1;
Buffer_yat[0].5 :=0;
Buffer_yat[0].6 :=1;
Buffer_yat[0].7 :=0;



send_coil_s(
Enable:=enabl,
Mode:=MB_RTU,
DevAddr:=1,
FirstAddr:=0,
Quantity:=12,
ComHandle:=Settings.Port,
Complete=>cmpl,
Buffer:=Buffer_yat,
TimeOut:=TimeOut);


IF cmpl THEN
master1:=4;
END_IF

ЗЫ. Ну или так для наглядности
Buffer_yat[0]:=PACK(1,0,1,0,1,0,1,0); (*Для первых восьми Coils*)
и для последующих COILs
Buffer_yat[1]:=PACK(1,0,1,0,1,0,1,0);
Buffer_yat[2]:=PACK(1,0,1,0,1,0,1,0);
и т.д до 2000 шт. Coils по 8 в каждом Buffer_yat[ххх]

[mummy117]

VAR
send_coil_s:MB_WR_COILS;
Buffer_yat: ARRAY[0..255] OF BYTE;
END_VAR

3:

Большое спасибо, так работает. Когда я создал тему, в ней вторым сообщением ответил человек, только он написал вместо:
Buffer_yat[0].0 :=1;
вот так
Buffer_yat.0 :=1;.

Я попробывал - оно не работает, отписался в теме, а он удалил свое сообщение