Панели оператора СП270. Вопросы и ответы

**SokolovS** · 28.10.2014, 15:15

Насколько я понимаю, соответствие RS-485 будет обеспечено терминалом при передаче (если порт правильно настроен), а соответствие стандарту Modbus и правильность ответа проверяет уже скрипт.
Вот новая функция, проверить по-прежнему нет возможности

Код:

const BYTES_PER_REG = 2;
const N_RETRIES = 3;
const RETRY_TIMEOUT = 1000; //ms
BOOL MWrites(int comID, int staID, int objType, int add1, int regs, void* pRegs) {
	BYTE bSend[256], bRecieve[256], i;
	WORD bBytesToSend = 0, bBytesRecieved = 65535;
	BYTE nRetry = N_RETRIES; //Количество попыток повтора
	BYTE offset_PSW_log;
	int CrcSum;
	
	switch (comID) {
	case DOWNLOAD:
		offset_PSW_log = 60;
		break;
	case PLC:
		offset_PSW_log = 70;
		break;
	default:
		return Writes(comID, staID, objType, add1, regs, pRegs); //don't know what to do
	}
	
	bSend[0] = staID;
	switch (objType) {
	case MODBUS_RTU_REGS_4X:
		bSend[1] = 0x10;
		break;
	default:
		return Writes(comID, staID, objType, add1, regs, pRegs); //don't know what to do
	}
	bSend[2] = HIBYTE(add1);
	bSend[3] = LOBYTE(add1);
	bSend[4] = HIBYTE(regs);
	bSend[5] = LOBYTE(regs);
	bSend[6] = regs * BYTES_PER_REG;
	bBytesToSend = 7;
	
	for (i=0; i<regs*2; i++) {
		bSend[bBytesToSend] = ((BYTE*)pRegs)[i];
		bBytesToSend++;
	}
	
	CrcSum = Crc(bSend, bBytesToSend);
	bSend[bBytesToSend] = LOBYTE(CrcSum);
	bSend[bBytesToSend + 1] = HIBYTE(CrcSum);
	bBytesToSend += 2;
	
	if (bBytesToSend > 256)
		return FALSE;
	
	Enter(comID);//Захватить порт PLC
	do {
		if (bBytesRecieved != 65535) { //Была ошибка связи
			PSW[offset_PSW_log+1]++;
			if (bBytesRecieved != 0) // Ошибка данных
				PSW[offset_PSW_log+3]++;
			//else //Таймаут
			//	PSW[offset_PSW_log+2]++;
		}
		
		Send(comID, bSend, bBytesToSend);//Отправить команду
		bBytesRecieved = Receive(comID, bRecieve, 256, RETRY_TIMEOUT, 6);//Получить ответ (тайм-аут 1000мс)
	} while ((bBytesRecieved == 0 || //Если данные получены
		bRecieve[0] != staID || //От правильного устройства
		bRecieve[1] != bSend[1] || //Правильной функцией
		MAKEWORD(bRecieve[3], bRecieve[2]) != add1 || // По правильному адресу
		MAKEWORD(bRecieve[5], bRecieve[4]) != regs || // Правильное количество регистров
		Crc(bRecieve, bBytesRecieved) != 0 //Контрольная сумма в порядке 
	) && (nRetry--)>0); //... то всё ок, иначе отнимаем попытку и, если они остались, пытаемся ещё
	Leave(comID);//Освободить порт
	
	if (nRetry>0) { //Если попытки остались, значит, последняя попытка связи была успешной
		PSW[offset_PSW_log]++;
		return TRUE;
	} else
		return FALSE;
}

**SokolovS** · 12.03.2015, 10:49

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

Насколько я понимаю, соответствие RS-485 будет обеспечено терминалом при передаче (если порт правильно настроен), а соответствие стандарту Modbus и правильность ответа проверяет уже скрипт.
Вот новая функция, проверить по-прежнему нет возможности

Код:

Код:

const BYTES_PER_REG = 2;
const N_RETRIES = 3;
const RETRY_TIMEOUT = 1000; //ms
BOOL MWrites(int comID, int staID, int objType, int add1, int regs, void* pRegs) {
	BYTE bSend[256], bRecieve[256], i;
	WORD bBytesToSend = 0, bBytesRecieved = 65535;
	BYTE nRetry = N_RETRIES; //Количество попыток повтора
	BYTE offset_PSW_log;
	int CrcSum;
	
	switch (comID) {
	case DOWNLOAD:
		offset_PSW_log = 60;
		break;
	case PLC:
		offset_PSW_log = 70;
		break;
	default:
		return Writes(comID, staID, objType, add1, regs, pRegs); //don't know what to do
	}
	
	bSend[0] = staID;
	switch (objType) {
	case MODBUS_RTU_REGS_4X:
		bSend[1] = 0x10;
		break;
	default:
		return Writes(comID, staID, objType, add1, regs, pRegs); //don't know what to do
	}
	bSend[2] = HIBYTE(add1);
	bSend[3] = LOBYTE(add1);
	bSend[4] = HIBYTE(regs);
	bSend[5] = LOBYTE(regs);
	bSend[6] = regs * BYTES_PER_REG;
	bBytesToSend = 7;
	
	for (i=0; i<regs*2; i++) {
		bSend[bBytesToSend] = ((BYTE*)pRegs)[i];
		bBytesToSend++;
	}
	
	CrcSum = Crc(bSend, bBytesToSend);
	bSend[bBytesToSend] = LOBYTE(CrcSum);
	bSend[bBytesToSend + 1] = HIBYTE(CrcSum);
	bBytesToSend += 2;
	
	if (bBytesToSend > 256)
		return FALSE;
	
	Enter(comID);//Захватить порт PLC
	do {
		if (bBytesRecieved != 65535) { //Была ошибка связи
			PSW[offset_PSW_log+1]++;
			if (bBytesRecieved != 0) // Ошибка данных
				PSW[offset_PSW_log+3]++;
			//else //Таймаут
			//	PSW[offset_PSW_log+2]++;
		}
		
		Send(comID, bSend, bBytesToSend);//Отправить команду
		bBytesRecieved = Receive(comID, bRecieve, 256, RETRY_TIMEOUT, 6);//Получить ответ (тайм-аут 1000мс)
	} while ((bBytesRecieved == 0 || //Если данные получены
		bRecieve[0] != staID || //От правильного устройства
		bRecieve[1] != bSend[1] || //Правильной функцией
		MAKEWORD(bRecieve[3], bRecieve[2]) != add1 || // По правильному адресу
		MAKEWORD(bRecieve[5], bRecieve[4]) != regs || // Правильное количество регистров
		Crc(bRecieve, bBytesRecieved) != 0 //Контрольная сумма в порядке 
	) && (nRetry--)>0); //... то всё ок, иначе отнимаем попытку и, если они остались, пытаемся ещё
	Leave(comID);//Освободить порт
	
	if (nRetry>0) { //Если попытки остались, значит, последняя попытка связи была успешной
		PSW[offset_PSW_log]++;
		return TRUE;
	} else
		return FALSE;
}

Добрался потестить. Отправляет запрос с неправильным порядком байт
Исправил, вот эта штука работоспособна (полный цикл тестирования не проводился):

Код:

const BYTES_PER_REG = 2;
const N_RETRIES = 3;
const RETRY_TIMEOUT = 1000; //ms
BOOL MWrites(int comID, int staID, int objType, int add1, int regs, void* pRegs) {
	BYTE bSend[256], bRecieve[256], i;
	WORD bBytesToSend = 0, bBytesRecieved = 65535;
	BYTE nRetry = N_RETRIES; //Количество попыток повтора
	BYTE offset_PSW_log;
	int CrcSum;
	
	switch (comID) {
	case DOWNLOAD:
		offset_PSW_log = 60;
		break;
	case PLC:
		offset_PSW_log = 70;
		break;
	default:
		return Writes(comID, staID, objType, add1, regs, pRegs); //don't know what to do
	}
	
	bSend[0] = staID;
	switch (objType) {
	case MODBUS_RTU_REGS_4X:
		bSend[1] = 0x10;
		break;
	default:
		return Writes(comID, staID, objType, add1, regs, pRegs); //don't know what to do
	}
	bSend[2] = HIBYTE(add1);
	bSend[3] = LOBYTE(add1);
	bSend[4] = HIBYTE(regs);
	bSend[5] = LOBYTE(regs);
	bSend[6] = regs * BYTES_PER_REG;
	bBytesToSend = 7;
	
	for (i=0; i<regs; i++) {
		bSend[bBytesToSend] = HIBYTE(((WORD*)pRegs)[i]);
		bBytesToSend++;
		bSend[bBytesToSend] = LOBYTE(((WORD*)pRegs)[i]);
		bBytesToSend++;
	}
	
	CrcSum = Crc(bSend, bBytesToSend);
	bSend[bBytesToSend] = HIBYTE(CrcSum);
	bSend[bBytesToSend + 1] = LOBYTE(CrcSum);
	bBytesToSend += 2;
	
	if (bBytesToSend > 256)
		return FALSE;
	
	Enter(comID);//Захватить порт PLC
	do {
		if (bBytesRecieved != 65535) { //Была ошибка связи
			PSW[offset_PSW_log+1]++;
			if (bBytesRecieved != 0) // Ошибка данных
				PSW[offset_PSW_log+2]++;
			//else //Таймаут
			//	PSW[offset_PSW_log+3]++;
		}
		
		Send(comID, bSend, bBytesToSend);//Отправить команду
		bBytesRecieved = Receive(comID, bRecieve, 256, RETRY_TIMEOUT, 6);//Получить ответ (тайм-аут 1000мс)
	} while ((bBytesRecieved == 0 || //Если данные получены
		bRecieve[0] != staID || //От правильного устройства
		bRecieve[1] != bSend[1] || //Правильной функцией
		MAKEWORD(bRecieve[3], bRecieve[2]) != add1 || // По правильному адресу
		MAKEWORD(bRecieve[5], bRecieve[4]) != regs || // Правильное количество регистров
		Crc(bRecieve, bBytesRecieved) != 0 //Контрольная сумма в порядке 
	) && (--nRetry)>0); //... то всё ок, иначе отнимаем попытку и, если они остались, пытаемся ещё
	Leave(comID);//Освободить порт
	
	if (nRetry>0) { //Если попытки остались, значит, последняя попытка связи была успешной
		PSW[offset_PSW_log]++;
		return TRUE;
	} else
		return FALSE;
}

**SokolovS** · 28.10.2014, 14:43

Увеличить таймаут до десяти секунд, подключить вместо нормального устройства просто терминал и любой ответ заслать

**petera** · 28.10.2014, 14:55

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

Увеличить таймаут до десяти секунд, подключить вместо нормального устройства просто терминал и любой ответ заслать

Любой ответ нельзя.
Захват-1.png

ЗЫ. Во вложении описание протокола

**petera** · 28.10.2014, 15:09

Популярно о Модбас https://sites.google.com/site/fieldb...odbuseducation
Захват-2.png

**petera** · 28.10.2014, 15:40

Скрипт не проверяет ситуацию ошибок второго типа, например если мастер пытается записать регистр в слейв по несуществующему адресу регистра, то в ответ будет послан пакет из 5 байт, а не из 8.
//[0]-адрес устройства
//[1]-Код функции ModbusRTU с индикацией ошибки-запись нескольких регистров 0x90
//[2]-код ошибки (0x02)
//[3]-ст.байт CRC
//[4]-мл.байт CRC
см пост#620

ЗЫ. Стандартые процедуры обмена при ошибках записывают в регистре PSW61(PSW71) число не успешных попыток обмена без учета повторных попыток, а в PSW62(PSW72) и PSW64(PSW73) с учетом повторных попыток, т.е. если число повторов задано 3, то при тайм-ауте PSW61(PSW71)=N, а PSW62(PSW72)=3хN, где N-число команд записи

**SokolovS** · 28.10.2014, 15:59

А теперь?

Код:

		bRecieve[1] != bSend[1] || //Правильной функцией

По задумке эта строка проверяет чего там вернуло устройство, и в случае возвращённой ошибки там будет не 0х10, а 0х90. Скрипт ещё несколько раз помучает устройство и отстанет, записав всё в ошибки. По задумке.

**petera** · 28.10.2014, 16:09

Если нам не важна причина ошибок, тот же неверный адрес регистра, для дальнейшего принятия решений, то тогда можно ограничится и просто констатацией ошибки.

**SokolovS** · 28.10.2014, 16:21

Я не вижу других вариантов
Штатные функции не поддерживают такого и смысла расширять возможности нет

**petera** · 28.10.2014, 16:44

Самое интересное, что похоже без наших усилий в регистры PSW62(PSW72) панель и так сама пишет даже для команд Send() и Receive()
Регистры PSW63(PSW73) проверяю.

ЗЫ PSW60(PSW70) (Успешные попытки) автоматически не обновляются

Тема: Панели оператора СП270. Вопросы и ответы

Опции темы

Отображение

Комбинированный просмотр

Похожие темы

Панели оператора СП3xx. Вопросы и ответы

Индикатор ИП120 , вопросы- ответы

СПК 110 в качестве Панели оператора

СПК 107 в качестве панели оператора

Вопрос по подключению и программированию панели оператора СП270

Метки этой темы

Ваши права