Не явное обращение к переменным

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

Предположим у Вас есть ФБ ValveController, который осуществляет управление задвижкой.

ФБ выглядит примерно так:

FUNCTION_BLOCK ValveController
VAR_INPUT
	sNameToSet		: STRING;
END_VAR
VAR_OUTPUT
	sName			: STRING;
END_VAR
VAR
END_VAR

// Тело ФБ:
IF (sName = '') AND (sNameToSet <> '') THEN
	sName := sNameToSet;
END_IF

Там, где Вам необходимо объявите массив ФБ (для примера объявлю в глобальных переменных):

VAR_GLOBAL CONSTANT
	g_c_uiValvesCount	: UINT					:= 30;
END_VAR
VAR_GLOBAL
	g_astValvesList		: ARRAY [1..g_c_uiValvesCount] OF ValveController;
	i			: UINT;
END_VAR

и проинициализируйте его например так:

IF NOT m_xIsValvesInitialized THEN
	FOR i := 1 TO g_c_uiValvesCount DO
		g_astValvesList[i].sNameToSet := UINT_TO_STRING (i);
		g_astValvesList[i]();
	END_FOR
	m_xIsValvesInitialized := TRUE;
END_IF

Когда станет известно к какой задвижке обратиться Вам нужно будет всего лишь найти индекс задвижки в массиве зная ее имя.
Например так:

(*
Функция возвращает индекс задвижки в массиве по ее имени.
Если задвижка с указанным именем не найдена - вернет 0
*)
FUNCTION FindValveIndexByName : UINT
VAR_INPUT
	sValveToFindName		: STRING;
END_VAR
VAR
	i						: UINT;
END_VAR

// Тело функции
FindValveIndexByName := 0;
i := 1;
WHILE (FindValveIndexByName = 0) AND (i <= g_c_uiValvesCount) DO
	IF g_astValvesList[i].sName = sValveToFindName THEN
		FindValveIndexByName := i;
	END_IF
	i := i + 1;
END_WHILE

Когда нужно будет обратиться к задвижке выполните код

uiCurrentValveIndex := FindValveIndexByName ('5');
IF uiCurrentValveIndex > 0 THEN
	(* Тут выполняете необходимые манипуляции с задвижкой примерно так g_astValvesList[uiCurrentValveIndex].state *)
END_IF

Единственное что нужно помнить - перебор 30000 значений приведет к увеличению времени цикла.
Поэтому выполняйте поиск по имени только тогда, когда это действительно важно.

В приложении файл, содержащий код из этого сообщения.