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

Доброго времени суток!
Помогите, пожалуйста разобраться с такой ситуацией:

Предположим:
1) есть несколько переменных А1,А2,А3, содержащие некоторые значения;
2) Есть переменная того же типа, которой необходимо присвоить значение одной из этих переменных;
3) Есть строковая переменная В, которая содержит название переменной, от которой необходимо получить значение

Пробую делать так:

PROGRAM TestVar
VAR
A:WORD;
A1:WORD;
A2:WORD;
A3:WORD;
B:STRING(20);
pw:POINTER TO WORD;
END_VAR

---------- Сама программа ---------------

A:=0;

A1:=111;
A2:=222;
A3:=333;

B:='A1';

pw:=ADR( ПреобразоватьСодержимое(В) ); (* ТУТ ЯВНО ОШИБКА, но как написать правильно ??? *)

A:=pw^;

Как правильно реализовать?

Код:

IF B='A1' THEN pw:=ADR(A1); ELSIF B='A2' THEN pw:=ADR(A2); ELSIF B='A3' THEN pw:=ADR(A3); END_IF;

так попробуйте

Цитата:

Сообщение от capzap

Код:

IF B='A1' THEN pw:=ADR(A1); ELSIF B='A2' THEN pw:=ADR(A2); ELSIF B='A3' THEN pw:=ADR(A3); END_IF;

так попробуйте

Проблема в том, что я не могу знать чему именно будет равно, а переменных типа А1,А2..... - предположительно будет порядка 30000

PS Программа будет получать данные о том, из какой именно надо будет прочитать значение переменной

Цитата:

Сообщение от capzap

Код:

IF B='A1' THEN pw:=ADR(A1); ELSIF B='A2' THEN pw:=ADR(A2); ELSIF B='A3' THEN pw:=ADR(A3); END_IF;

так попробуйте

а зачем тогда указатель использовать?

...а какие варианты, если не использовать перечисление полного списка?

Цитата:

Сообщение от Igor_Efremenko

Проблема в том, что я не могу знать чему именно будет равно, а переменных типа А1,А2..... - предположительно будет порядка 30000

PS Программа будет получать данные о том, из какой именно надо будет прочитать значение переменной

А что Вы вообще хотите реализовать? Если, типа работа с рецептами, то где-то здесь была темка по этому поводу

Вложений: 1

Суть следующая:
Имеется огромное количество запорной арматуры(кранов) и пользователь динамически может формировать некоторую последовательность из этих кранов
... может быть порядка 2-50 кранов из общего числа (30000)
Задача: проанализировать состояние этих кранов (т.е. имеется 30000 УникПеременных.state; оператор указывает какие именно УникПеременных нужно анализировать сегодня)
В итоге наполняется вот такая структура:
Вложение 35845

Вопрос: Как теперь зная имя переменной обратиться к её значению STATE (например ZDV0116.STATE, которая описана отдельно) ?

PS Можно просто завести переменную ZDV0116:WORD; (не принципиально).... как к ней обратиться, зная её имя?

Можно-ли получить указатель например таким образом:
pw:=ADR('A1');
....указатель на ячейку памяти, где хранится значение переменной А1 ?

нет в языках МЭК такого понятия как eval
Указатель возвращает адрес области памяти, где храниться значение объекта, ни о каких именах переменных он не знает. С указателем можно только узнать адрес начального объекта и смещать на размер байт, согласно типа данных этого/их объекта/ов

Может как-то можно эту проблему решить другим способом, без указателей?

PS Используется программный PLC

формированием маски массива, то, что "1" принимаем в работу, что "0" не принимаем.
Не знаю, как это на ST описать, на C# примерно такое делал, там где проставлял true, уходило в работу, остальное отбрасывалось.

У меня было два массива в результате. в Первом "источник" (например кран 1, кран 10, кран 23 и т.д.) во втором их данные.

Вложений: 1

Предположим у Вас есть ФБ 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 значений приведет к увеличению времени цикла.
Поэтому выполняйте поиск по имени только тогда, когда это действительно важно.

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

Если же Вы хотите сохранить возможность работы с задвижкой по имени переменной в программе подойдет второй способ:

Допустим ФБ Вашей задвижки выглядит так:

Код:

FUNCTION_BLOCK ValveController VAR_INPUT END_VAR VAR_OUTPUT dwState : DWORD; END_VAR VAR END_VAR

Объявите структуру

Код:

TYPE NAMED_VALVE : STRUCT sName : STRING; pfbValve : POINTER TO ValveController; END_STRUCT END_TYPE

Объявите массив структур (для примера в глобальных переменных)

Код:

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

Инициализируйте массив например так:

Код:

IF NOT m_xIsValvesInitialized THEN FOR i := 1 TO g_c_uiValvesCount DO g_astValvesList[i].sName := UINT_TO_STRING (i); g_astValvesList[i].pfbValve := 0; (* Вместо 0 ADR (экземпляр ФБ задвижки) *) 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 IF g_astValvesList[i].pfbValve <> 0 THEN ;(* Тут выполняете необходимые манипуляции с задвижкой примерно так g_astValvesList[i].pfbValve^.dwState*) END_IF END_IF

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

Цитата:

Код:

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

Не проще ли тупо написать g_astValvesList : ARRAY [1..g_c_uiValvesCount] OF STRING

Цитата:

Сообщение от Dimensy

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

Не проще ли тупо написать g_astValvesList : ARRAY [1..g_c_uiValvesCount] OF STRING

Написать-то можно. А как потом понять что за задвижка под этим именем понимается?
Варианта 2:
1) Задвижка сама знает своем имя и входит в общий список задвижек (решение, приведенное в посте 13);
2) Задвижки не знают своих имен, но где-то в системе есть список всех задвижек с именами и указателями на них (решение, приведенное в посте 14).

Цитата:

Сообщение от Осинский Алексей

Написать-то можно. А как потом понять что за задвижка под этим именем понимается?
Варианта 2:
1) Задвижка сама знает своем имя и входит в общий список задвижек (решение, приведенное в посте 13);
2) Задвижки не знают своих имен, но где-то в системе есть список всех задвижек с именами и указателями на них (решение, приведенное в посте 14).

Большое спасибо, Осинский Алексей!