/*
MTDemo04: Be a Modbus/TCP master to connect 
          to several Modbus/TCP slave devices.
    
    Compiler: BC++ 3.1
    Compile mode: large
    Project: user.c
    		v7000.c
        	..\LIB\7188EL.Lib
    		..\LIB\TCPIPL.Lib
    		..\LIB\VCOM_NNNN.Lib, with NNNN being the lib file's version.
    		..\LIB\MBTCPNNN.Lib, with NNN being the lib file's version.
    
    Using function ModbusTCP_Init,ModbusTCP_Master2Slave, ModbusTCP_Close
    7188E can controll Modbus/TCP slave devices through the ethernet.
    Please refer to MBTCP_7E.h for more information.
        
    Hardware: 7188EX + Modbus/TCP slave device   
    
    Refer 7188e\TCP\Doc\[Big5|Eng|Gb2312]\Vxcomm.htm 
          7188e\TCP\Xserver\Xserver.htm
          7188e\TCP\Xserver\Function.htm   
    to get more information.

[23/Aug/2005] first release by Kevin

[2006,Feb,17] by Kevin
    Use new I/O memory mapping method. 
*/


#include <stdio.h>
#include "..\lib\7188e.h"
#include "..\lib\vxcomm.h"
#include "..\Lib\MBTCP.h"	// Modbus/TCP Head file for I-7188E

int iScanCOMPort=1;	// of Modbus Kernel
int iSendflag[3];
unsigned long lStart_TimeTick[3];  //To record when the 7186E/8000E do 
                                   //Ethernet communication. 

//The I/O memory mapping         
unsigned char far iMemory_DI[100];
unsigned char far iMemory_DO[100];
          int far iMemory_AI[100];
          int far iMemory_AO[100];

void UserCount(void)
{
    // user's timer trigger function
    //
    // In this function cannot use any function that will use the hardware signal "clock",
    // Such as:
    //  1. ClockHigh(),ClockLow(), ClockHighLow(),
    //  2. Any EEPROM functions.
    //  3. Any 5DigitLed functions.
    //  4. Any NVRAM function.
    //  5. Any RTC function.(GetTime(),SetTime(),GetDate(),SetDate())
}

void UserInit(void)
{
    /*
    In this function, user CAN:
    1. initialize user's program.
    2. set time interval for calling UserCount().
    3. set initial value of I/O or variables for UserLoopFun().
    4. set initial value of I/O or variables for another functions.
    5. change the default TCP PORT 10000/9999/502 to others value. [after vcom3004.lib]
       Syntax:
        Port10000=newport_10000;  for calling UserCmd       (user.c)
        Port9999=newport_9999;    for calling VcomCmd7000   (v7000.c)
        PortUser=newport_User;    for calling VcomCmdUser   (user.c)    [after vcom3005.lib]
        
        Default port value:
        Port10000=10000;
        Port9999=9999;
        Port502=502;
        PortUser=0;
        If the port value is 0, Xserver will not 
        listen that port. That means the port will 
        be disable.
        
    Please refer to demo9 & demo11 for example code
    */  

    //InitLib();    // InitModbus() already includes InitLib();.    
    
    //======= Begin Modbus Kernel =======
    int iRet;
    
    iRet=InitModbus(iMemory_DI,iMemory_DO,iMemory_AI,iMemory_AO);
    if(iRet!=0)
    {
        // Initial Modbus library error.
    }
    else
    {
        // Initial Modbus library ok.
    }
    //======= End Modbus Kernel =======
    
    ModbusTCP_Init(0,"192.168.255.100",502,1500,8000);
    ModbusTCP_Init(1,"192.168.255.101",502,1500,8000);
    ModbusTCP_Init(2,"192.168.255.102",502,1500,8000);	
}

void UserLoopFun(void)
{
    int i, iRet;
    
	//======= Begin of Modbus Kernel =======
    if(mtModbusPort[iScanCOMPort].EnableMode==_ModbusRTU_Slave)
	    CheckModbusRTURequest(iScanCOMPort);		// Is any request from Modbus/RTU Master ?
	    
	if(mtModbusPort[iScanCOMPort].EnableMode==_ModbusASCII_Slave)
	    CheckModbusASCIIRequest(iScanCOMPort);		// Is any request from Modbus/ASCII Master ?
	    
	if(mtModbusPort[iScanCOMPort].EnableMode==_ModbusRTU_Gateway)
	{
		SendModbusRequest(iScanCOMPort);		// Passes request to modbus slave device.
		CheckResponseTimeout(iScanCOMPort);		// If response timeout, sets iModbusAction
												// to IDLE status.
		CheckModbusResponse(iScanCOMPort);		// Is any response from modbus slave device?
		SendModbusResponse(iScanCOMPort);		// Passes response to Modbus/RTU Master.
	}
    iScanCOMPort++;
	if(iScanCOMPort>iTotalCOMPort)
		iScanCOMPort=1;
	//======= End of Modbus Kernel =======
	
	if((GetTimeTicks()-lStart_TimeTick[0])>500 || (iSendflag[0]==1))    //Do ethernet communication every 500 ms.
    {
        lStart_TimeTick[0]=GetTimeTicks();
        
        iRet=ModbusTCP_Master2Slave(0,1,2,0,0,2,4000);
            //Modbus/TCP slave (0) (IP=192.168.255.100)
            //NetID=1
            //Function Code = 2 = Read DI
            //beginning index of register of 7186E is 0
            //beginning index of register of Modub/TCP slave device is 0
            //I/O channel = 2
            //Timeout=4000 ms		
		
		if(iRet==0)
		{
			iSendflag[0]=0;
			printCom1("Modbus TCP read DI success ");
			for(i=0;i<2;i++)
            {
                printCom1("DI[%02X]=%X ",i,iMemory_DI[i]);
            }
			printCom1("\n\r");
		}
		else if(iRet<0)
		{
			iSendflag[0]=0;
			printCom1("Modbus TCP DI transaction error code = %d\n\r",iRet);
		}
		else
		{
			iSendflag[0]=1;
			printCom1("Wait for DI transaction response \n\r");
		}
	}
	
    if((GetTimeTicks()-lStart_TimeTick[1])>500 || (iSendflag[1]==1))    //Do ethernet communication every 500 ms.
    {
		lStart_TimeTick[1]=GetTimeTicks();
		
        iRet=ModbusTCP_Master2Slave(1,1,4,2,0,5,4000);
             //Modbus/TCP slave (1) (IP=192.168.255.101)
             //NetID=1
             //Function Code = 4 = Read AI
             //beginning index of register of 7186E is 2,
             //beginning index of register of Modub/TCP slave device is 0
             //I/O channel = 5
             //Timeout=4000 ms
        if(iRet==0)
		{
			iSendflag[1]=0;
			printCom1("Modbus TCP read AI success ");
			for(i=0;i<5;i++)
            {
                printCom1("AI[%02X]=%04X ",2+i,iMemory_AI[2+i]);
            }
			printCom1("\n\r");
		}
		else if(iRet<0)
		{
			iSendflag[1]=0;
			printCom1("Modbus TCP AI transaction error code = %d\n\r",iRet);
		}
		else
		{
			iSendflag[1]=1;
			printCom1("Wait for AI transaction response \n\r");
		}
	}
    
	if((GetTimeTicks()-lStart_TimeTick[2])>500 || (iSendflag[2]==1))    //Do ethernet communication every 500 ms.
    {
		lStart_TimeTick[2]=GetTimeTicks();
        iMemory_DO[0]=1;
        iMemory_DO[1]=0;
        iMemory_DO[2]=1;
        iMemory_DO[3]=0;
        iMemory_DO[4]=1;
        iRet=ModbusTCP_Master2Slave(2,1,15,0,0,5,4000);
             //Modbus/TCP slave (2) (IP=192.168.255.102)
             //NetID=1
             //Function Code = 15 = Write DO
             //beginning index of register of 7186E is 0,
             //beginning index of register of Modub/RTU slave device is 0
             //I/O channel = 5
             //Timeout=4000 ms
        if(iRet==0)
		{
			iSendflag[2]=0;
			printCom1("Modbus TCP write DO success\n\r");
		}
		else if(iRet<0)
		{
			iSendflag[2]=0;
			printCom1("Modbus TCP DO transaction error code = %d\n\r",iRet);
		}
		else
		{
			iSendflag[2]=1;
			printCom1("Wait for DO transaction response \n\r");
		}
    }
}


int UserCmd(unsigned char *Cmd,unsigned char *Response)
{
	sprintf(Response,"%s",Cmd);
	return 1;		// return ok
}

int VcomUserBinaryCmd(TCPREADDATA *p)
{
 /* VXCOMM.EXE 2.6.12(09/04/2001) or later will support this function.

        TCP PORT 10000, command 23 will call this function.
        user can get the following message:
        p->ReadUartChar : the buffer store the command data(include "23")
        p->Length : the command data length(include the two byte "23")
        p->Socket : the socket number that receive the command, that is when the user function want
                                return message to the client, just use the socket to send data.
                                use:  VcomSendSocket(p->Socket,pdata,datalength);
 */
    VcomSendSocket(p->Socket,"User-defined command(23)",24);    // return 24 bytes.
    return 1;   /* any value will be accept */
}

void PortUserStart(int skt)
{
    /* XS8_3200.Lib Version 3.2.00 (20,Apr,2004) 
       or later version supports this function.
    
    When a TCP/IP client connects to the 7188E/8000E TCP port 10000, 
    the Xserver calls the function once.
    
    You can use function VcomSendSocket to send a message to the client 
    when a connection is established.
    For example:
        VcomSendSocket(skt,"Connection is established.",26); //return 26 bytes.

    skt: socket number assigned to the TCP/IP client.
    */
    
    skt=skt; //do nothing
}

int VcomCmdUser(TCPREADDATA *p)  
{ 
    /*
    VCOM3005 (Feb,22,2002) or later will call this function for PortUser.
    
    When packets received by TCP PORT PortUser(user defined) 
    of 7188E/8000E, Xserver will call this function.
    user can get the following message:
    p->ReadUartChar : the buffer store the command data.
                      Maximum length of p->ReadUartChar is 32767 bytes.
    p->Length : the command data length.
    p->Socket : the socket number that receive the command, that is when the user function wants 
                return message to the client, just use the socket to send data.
                usage:  VcomSendSocket(p->Socket,pdata,datalength);
    */
  
    /* here just send back the command to the client. */
    VcomSendSocket(p->Socket,p->ReadUartChar,p->Length);
    return 1;   /* any value will be accept */
}

void Modbus_Request_Event(char* CommandData,int* CommandLength)
{   
    /*
    Modbus_Request_Event is supported since version 1.6.8 [2007,03,13]. 
    
    char* CommandData: For Modbus/TCP, it includes 6 leading bytes. (needful) 
                       For Modbus/RTU, it includes 6 leading bytes. (needless) 
                       
    int* CommandLength: For Modbus/TCP, it includes 6 leading bytes. 
                        For Modbus/RTU, it includes 6 leading bytes.                      
    */
    /* Example code */
    //int i;    
    //printCom1("FC:%2d  StartAddress:%3d  IOCount:%4d\n\r",iModbusRequest_Fun, iModbusRequest_Addr,iModbusRequest_IOCount);
    //printCom1("Modbus Request\n\r    In==>");
	//for(i=0;i<*CommandLength;i++)
    //    printCom1("[%02X] ",CommandData[i]&0xFF);
}    

void Modbus_Response_Event(char* ResponseData,int* ResponseLength)
{
    /*
    char* ResponseData: For Modbus/TCP, it includes 6 leading bytes. 
                        For Modbus/RTU, it doesn't include 6 leading bytes
                       
    int* CommandLength: For Modbus/TCP, it includes 6 leading bytes. 
                        For Modbus/RTU, it doesn't include 6 leading bytes 
    */
    //If you want to change the content of the ResponseData, 
    //you have to do 2 steps for Modbus/TCP or Modbus/RTU.
    
    //Step1: Change content (Note:you must know the modbus protocol well)
    //ResponseData[6]=0x19;
    //ResponseData[7]=0x75;
    //ResponseData[8]=0x04;
    //ResponseData[9]=0x01;
    
    //Step2: Update data length
    //*ResponseLength=10;
    //int i;
    //printCom1("\n\r    Out==>");
	//for(i=0;i<*ResponseLength;i++)
    //    printCom1("[%02X] ",ResponseData[i]&0xFF);
    //printCom1("\n\r");  
}