CODESYS V3.5. Работа с модемами

[Эдуард_Н]

Объявите 5 строковых переменных (вероятно, они будут использованы в визуализации), а потом объедините их с помощью функции CONCAT из библиотеки Standard в одну строку, которая будет привязана к каналу компонента.

Screenshot_1.jpg Так пойдёт?

[Евгений Кислов]

Screenshot_1.jpg Так пойдёт?

После последнего номера ';' можно не ставить.
Если вас это устраивает - то используйте, конечно.

[Эдуард_Н]

После последнего номера ';' можно не ставить.
Если вас это устраивает - то используйте, конечно.

В CFC думаю лучше вряд ли придумать, или у вас есть предложения?

P.S. Ещё "+" пристегнуть надо будет, чтоб упростить ввод.

[Евгений Кислов]

В CFC думаю лучше вряд ли придумать, или у вас есть предложения?

Я не сторонник низкоуровневого кодирования на CFC, так что комментировать не буду.

[Эдуард_Н]

Я не сторонник низкоуровневого кодирования на CFC, так что комментировать не буду.

Предложите свой вариант, в ST. И для меня примером будет. Пробую в ST, но пока тяжело.

[Евгений Кислов]

Предложите свой вариант, в ST. И для меня примером будет. Пробую в ST, но пока тяжело.

В качестве примера:

PROGRAM PLC_PRG
VAR
	// задал 2 номера для теста
	asPhoneNumbers:					ARRAY [1..c_iPhoneNumberCount] OF STRING(16) := ['79101234567', '','79101234568', '', ''];
	sModemPhoneNumbers:				STRING;
	i:						INT;
	xCreateString:					BOOL;
END_VAR
VAR CONSTANT
	c_iPhoneNumberCount:		                INT := 5;
END_VAR



IF xCreateString THEN
	
	// очищаем строку
	MEM.MemFill(ADR(sModemPhoneNumbers), SIZEOF(sModemPhoneNumbers), 0);

	FOR i := 1 TO c_iPhoneNumberCount DO
	
		// игнорируем незаданные номера
		IF asPhoneNumbers[i] = '' THEN
			CONTINUE;
		ELSE
			sModemPhoneNumbers := OSU.CONCAT4(sModemPhoneNumbers, '+', asPhoneNumbers[i], ';');
		END_IF
	END_FOR
	
	// после последнего номера не должно быть разделителя
	sModemPhoneNumbers[LEN(sModemPhoneNumbers) - 1] := 0;
	
	xCreateString := FALSE;
	
END_IF

[Эдуард_Н]

В качестве примера:

PROGRAM PLC_PRG
VAR
	// задал 2 номера для теста
	asPhoneNumbers:					ARRAY [1..c_iPhoneNumberCount] OF STRING(16) := ['79101234567', '','79101234568', '', ''];
	sModemPhoneNumbers:				STRING;
	i:						INT;
	xCreateString:					BOOL;
END_VAR
VAR CONSTANT
	c_iPhoneNumberCount:		                INT := 5;
END_VAR



IF xCreateString THEN
	
	// очищаем строку
	MEM.MemFill(ADR(sModemPhoneNumbers), SIZEOF(sModemPhoneNumbers), 0);

	FOR i := 1 TO c_iPhoneNumberCount DO
	
		// игнорируем незаданные номера
		IF asPhoneNumbers[i] = '' THEN
			CONTINUE;
		ELSE
			sModemPhoneNumbers := OSU.CONCAT4(sModemPhoneNumbers, '+', asPhoneNumbers[i], ';');
		END_IF
	END_FOR
	
	// после последнего номера не должно быть разделителя
	sModemPhoneNumbers[LEN(sModemPhoneNumbers) - 1] := 0;
	
	xCreateString := FALSE;
	
END_IF

Так понимаю, что в эмуляции не работает?