Работа с массивами Tia Potal

[Gergon]

Доброго дня всем!
Появилась на досуге вот такая задача: Нужно записывать в массив значения с датчика влажности , причем записать нужно последние 100 значений, учитывая , что влажность постоянно меняется и массив соответственно тоже изменяться , т.е элементы массива должны постоянно сдвигаться на один -может ошибаюсь.
Пытаюсь реализовать на языке SCL , но пока безуспешно. Алгоритм моих действий таков : создаю массив в блоке DB (с типом данных real)
Далее переменную которая отвечает за влажность приравниваю к первому элементу массива , и .... все( Не могу сообразить как передавать переменную дальше уже во второй элемент, в третий и.т.д.

[Joshua]

Сделайте переменную, которая будет являться указателем на текущий номер ячейки массива. По нему записывайте значение влажности и инкрементируйте указатель.

[Gergon]

#i := 1;
"Value_RH".RH[#i]:=#rh;
#shell:=#i+1;
i- это индекс ячейки массива , she’ll- шаг .в правильном направлении мыслю ?))



i - индекс массива

[Joshua]

Скорее так:

Код: Выделить всё

IF "Value_RH".index < 0 OR "Value_RH".index > #maxArrayIndex THEN		// Проверка на границы массива
	"Value_RH".index := 0;
END_IF;
"Value_RH".RH["Value_RH".index] := #rh;
"Value_RH".index := "Value_RH".index + 1;

Границы массива сами подставите. Указатель вам необходимо где-то хранить. Можно в DB со значениями, можно в переменных экземпляра FB. Но не в локальных временных переменных.

[Gergon]

Спасибо, но это работает не много не так , тут значение переменной влажности сразу заноситься во все элементы , а должно быть так :влажность 54- записали в первый элемент массива , влажность 53- записали во второй элемент массива итд

[Михайло]

Gergon, вы что-то не то делаете или что-то не понимаете.

Какая нафик she'll?

[SMax]

Наверное как то так:

Код: Выделить всё

FUNCTION_BLOCK "Block_1"
{ S7_Optimized_Access := 'FALSE' }
VERSION : 0.1
   VAR_INPUT 
      Value : Real;
   END_VAR

   VAR 
      AR : Array[0..99] of Real;
   END_VAR

   VAR_TEMP 
      i : Int;
   END_VAR


BEGIN
	IF #Value <> #AR[0] THEN
	    FOR #i := 99 TO 1 BY -1 DO
	        #AR[#i] := #AR[#i - 1];
	    END_FOR;
	    #AR[0] := #Value;
	END_IF;
END_FUNCTION_BLOCK

[Gergon]

Спасибо большое