Вопросы по языку ST

[slonegd]

у меня был нестандартный протокол, где приходилось циклом перебирать все биты нескольких байт. Я для этого сделал функцию типа IsClear(Byte,Bit), где внутри функции bit через CASE заменил обычными цифрами. Всё компилировалось и внутри цикла for мог написать такую конструкцию
...
IF IsClear(by,i) THEN
...
По сути обращение к биту через переменную, хотя и смотрится по-индуски. Решения лучше пока не нашел.

[Осинский Алексей]

у меня был нестандартный протокол, где приходилось циклом перебирать все биты нескольких байт. Я для этого сделал функцию типа IsClear(Byte,Bit), где внутри функции bit через CASE заменил обычными цифрами. Всё компилировалось и внутри цикла for мог написать такую конструкцию
...
IF IsClear(by,i) THEN
...
По сути обращение к биту через переменную, хотя и смотрится по-индуски. Решения лучше пока не нашел.

В библиотеке Util есть функция EXTRACT, которая позволяет получить доступ к биту по его номеру.
Если я правильно понял - Вы можете ее использовать внутри Вашей функции IsClear вместо CASE'ов.

[Осинский Алексей]

Зачем внутри ? Вместо

Исключительно ради того, чтобы не заменять в готовом проекте все вызовы "IsClear(x, y)" на "NOT EXTRACT (x, y)".

[Осинский Алексей]

И немного отходя от темы получения доступа к биту:
Не рекомендуется использовать в условиях исполнимые выражения поскольку это усложняет отладку.
В данном конкретном случае все предельно ясно

IF IsClear (x, y) THEN
	....
END_IF

И если программа не заходит внутрь условия, то понятно, почему она этого не сделала

но в случае

IF IsClear (x, y) OR IsClear (x, y + 1) THEN
	....
END_IF

Уже сложнее понять какое же из условий не выполняется и почему программа не зашла внутрь условия.
Поэтому рекомендуется ввести дополнительную переменную с "говорящим" именем, которую затем использовать в условии.

Например:

VAR
	// Признак того, что активна авария "ПОЖАР"
	xIsFireAlarmActive	: BOOL;
	// Признак того, что активна авария датчика
	xIsSensorAlarmActive	: BOOL;
END_VAR


xIsFireAlarmActive := IsClear (x, y);
xIsSensorAlarmActive := IsClear (x, y + 1);
IF xIsFireAlarmActive OR xIsSensorAlarmActive THEN
	....
END_IF

В таком случае при отладке всегда будет понятно, почему программа не зашла внутрь условия.