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

[Igor_Efremenko]

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

Предположим:
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^;

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

[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]

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 Программа будет получать данные о том, из какой именно надо будет прочитать значение переменной

[Dimensy]

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]

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

[Dimensy]

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

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

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

[Igor_Efremenko]

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

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

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

[Igor_Efremenko]

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

[capzap]

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

[Igor_Efremenko]

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