#ifndef _HOST_LINK_
#define _HOST_LINK_
/*******************************************/
#include <avr\io.h>
#include <stdlib.h>
#include "uart.h"
/*******************************************/
int read_PLC_TimerPV(int timer);
int read_PLC_register(int timer_addr);
char read_single_coil(int addr);
void write_PLC_register(int addr,int value);
void write_single_coil(int addr,char value);
/*******************************************/
// RS485 direction pin is PC4
#define RS485_RX() cbi(PORTD,2);sbi(DDRD,2);UART_RX_ENABLE()
#define RS485_TX() sbi(PORTD,2);sbi(DDRD,2);UART_RX_DISABLE()
/*******************************************/
char msg[ 128 ];
volatile char modbus_rx_buf[128];
#define MBRX_WAIT_START 0 // wait to @
#define MBRX_WAIT_END 1 // wait to *
#define MBRX_END 2 // finished
volatile char modbus_rx_state = MBRX_WAIT_START;
volatile char modbus_error = 0;
/*******************************************/
ISR( USART_RXC_vect )
{
static unsigned char index = 0;
unsigned char t;
t = UDR;
if( modbus_rx_state == MBRX_WAIT_START )
{
if( t == ':' )
{
modbus_rx_state = MBRX_WAIT_END;
index = 1;
modbus_rx_buf[0] = ':';
// clear buffer
for( t = 1; t < 128; t++ )
modbus_rx_buf[t] = 0;
}
}
else if( modbus_rx_state == MBRX_WAIT_END )
{
modbus_rx_buf[ index ] = t;
index++;
if( t == '\n' )
modbus_rx_state = MBRX_END;
}
}
/*******************************************/
void init_modbus()
{
uart_init(UART_115200);//9600
UART_RXINT_ON();
}
/*******************************************/
char modbus_get_lcr(char *str)
{
unsigned char i , lcr = 0 , t;
//caclulate LCR
for(i = 0; str[i]; i++)
{
if( str[i] >= '0' && str[i] <= '9' )
t = str[i] - '0';
else
t = (str[i]-'A')+10;
t = t << 4;
i++;
if( str[i] >= '0' && str[i] <= '9' )
t += str[i] - '0';
else
t += (str[i]-'A')+10;
lcr += t;
}
lcr = 0x100 - lcr;
return lcr;
}
/*******************************************/
void modbus_sendCommand(char *str)
{
unsigned char lcr = 0;
lcr = modbus_get_lcr(str);
// add fcs and * to header
RS485_TX();
_delay_ms(2);
sprintf_P( str , PSTR("%s%02X\r\n") , str , lcr );
uart_put(':');
uart_str( str );
while(UART_TX_COMPLETE()==0);
while(UART_TR_READY()==0);
uart_Flush();
_delay_us(150);
RS485_RX();
}// error 4506
/*******************************************/
// send a string to plc and wait 1 sec to answer
char modbus_sendRequest_P(char* request)
{
unsigned char i;
sprintf_P( msg , request );
modbus_rx_state = MBRX_WAIT_START;
modbus_sendCommand( msg );
for( i = 0; modbus_rx_state != MBRX_END ; i++)
{
if( i == 100 )
return 1;
_delay_ms(10);
}
return 0;
}
/*******************************************/
// send global string msg to plc and wait 1 sec to answer
char modbus_sendRequest()
{
unsigned char i;
modbus_rx_state = MBRX_WAIT_START;
modbus_sendCommand( msg );
for( i = 0; modbus_rx_state != MBRX_END ; i++)
{
if( i == 100 )
return 1;
_delay_ms(10);
}
return 0;
}
/*******************************************/
// checks recived frame
// returns 0 if ok
char modbus_check_frame(char* str)
{
unsigned char i , frame_lcr;
for( i = 1; (str[i]!=0) && (str[i]!='\r') ; i++ );
//
str[i] = 0;
frame_lcr = (int)strtol(str-2+i, (char **)NULL, 16);
str[i-2] = 0;
return modbus_get_lcr( str+1 ) != frame_lcr;
}
/*******************************************/
unsigned int rplc_pv;
int read_PLC_TimerPV(int timer)
{
unsigned char t = 0 , lcr , trys;
for( trys = 0; trys < 3 ; trys++ )
{
modbus_error = 0;
timer += 0x600; // timer pv base address
sprintf_P( msg , PSTR("0103%04X0001") , timer );
if( modbus_sendRequest() != 0 )
{
// comminication timeouted
modbus_error = 1;
}
else
{
if( modbus_check_frame((char*)modbus_rx_buf) )
{
modbus_error = 1;
return 0;
}
t = sscanf_P( (char*)(modbus_rx_buf+1) ,
PSTR("010302%4X%2X") ,
&rplc_pv,&lcr );
}
// if no error ocurse break for(;;) loop
if( modbus_error == 0 );
break;
_delay_ms(30);
}
if( modbus_error == 0 )
return rplc_pv;
return rplc_pv;
}
/*******************************************/
unsigned int rplc_sv;
int read_PLC_register(int timer_addr)
{
unsigned char t = 0 , lcr , trys;
//timer += 0x1000+408; // timer sv located from D408
for( trys = 0; trys < 3 ; trys++ )
{
modbus_error = 0;
sprintf_P( msg , PSTR("0103%04X0001") , timer_addr );
if( modbus_sendRequest() != 0 )
{
// comminication timeouted
modbus_error = 1;
}
else
{
if( modbus_check_frame((char*)modbus_rx_buf) )
modbus_error = 1;
t = sscanf_P( (char*)(modbus_rx_buf+1) ,
PSTR("010302%4X%2X") ,
&rplc_sv , &lcr );
}
// if no error ocurse break for(;;) loop
if( modbus_error == 0 );
break;
_delay_ms(30);
}
if( modbus_error == 0 )
return rplc_sv;
return 0;
}
/*******************************************/
unsigned int rplc_coil;
char read_single_coil(int addr)
{
// use command 01
unsigned char t = 0 , lcr , trys;
for( trys = 0; trys < 3 ; trys++ )
{
modbus_error = 0;
sprintf_P( msg , PSTR("0102%04X0001") , addr );
if( modbus_sendRequest() != 0 )
{
// comminication timeouted
modbus_error = 1;
}
else
{
if( modbus_check_frame((char*)modbus_rx_buf) )
{
modbus_error = 1;
return 0;
}
t = sscanf_P( (char*)(modbus_rx_buf+1) , PSTR("010201%2X%2X") ,
&rplc_coil,&lcr );
}
if( modbus_error == 0 )
break;
_delay_ms(30);
}
if( modbus_error == 0 )
return rplc_coil&0x01;
return 0;
}
/**************************************************************************************/
/*********************************** Write functions **********************************/
void write_PLC_register(int addr,int value)
{
sprintf_P( msg , PSTR("0106%04X%04X") , addr , value );
if( modbus_sendRequest() != 0 )
{
// comminication timeouted
modbus_error = 1;
}
}
/*******************************************/
void write_single_coil(int addr,char value)
{
// use command 05:Force single coil
if( value )
sprintf_P( msg , PSTR("0105%04XFF00") , addr , value );
else
sprintf_P( msg , PSTR("0105%04X0000") , addr , value );
if( modbus_sendRequest() != 0 )
{
// comminication timeouted
modbus_error = 1;
}
}
/*******************************************/
#endif
دوست گلم به قول خودمون دمت گرم ، سوال زیاد دارم اگه حال و حوصله داشتی و دلت خواست کمکم کن تا بتونیم یه کاری کنیم که خودمون همه کار کنیم اولش اینه که تو این پاکت دیتا که داریم میفرستیم بین کاراکتر ها باید فاصله باشه یا نباشه (space)
دوست گلم به قول خودمون دمت گرم ، سوال زیاد دارم اگه حال و حوصله داشتی و دلت خواست کمکم کن تا بتونیم یه کاری کنیم که خودمون همه کار کنیم اولش اینه که تو این پاکت دیتا که داریم میفرستیم بین کاراکتر ها باید فاصله باشه یا نباشه (space)
مساله بعدی هم اینه که سرعت پاسخگویی میخوام بسیار بالا باشه که به صورت لحظه ای بتونم مانیتورینگ داشته باشممساله بعدی هم اینه که سرعت پاسخگویی میخوام بسیار بالا باشه که به صورت لحظه ای بتونم مانیتورینگ داشته باشم
دیدگاه