/*
MTDemo05: Be a Modbus/TCP master to connect 
          to one Modbus/TCP slave device.
    
    Compiler: BC++ 3.1
    Compile mode: large
    Project: user.c
    		v7000.c
        	..\LIB\7186EL.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
    7186E can controll Modbus/TCP slave devices through the ethernet.
    Please refer to MBTCP_7E.h for more information.
        
    Hardware: 7186EX + Modbus/TCP slave device
    
    Refer 7186e\TCP\Doc\[Big5|Eng|Gb2312]\Vxcomm.htm 
          7186e\TCP\Xserver\Xserver.htm
          7186e\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\7186e.h"
#include "..\lib\vxcomm.h"
#include "..\Lib\MBTCP.h"	// Modbus/TCP Head file for I-7186E

int iScanCOMPort=1;	// of Modbus Kernel
int iSendflag;
int iModbusTCP_Process[8]={0,0,0,0,0,0,0,0};

//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);
}

unsigned long lStart_TimeTick;  //To record when the 7186E/8000E do 
                                //Ethernet communication. 
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)>500 || (iSendflag==1))    //Do ethernet communication every 500 ms.
    {
        lStart_TimeTick=GetTimeTicks();
        switch(iModbusTCP_Process[0])
        {
            case 0:
                iRet=ModbusTCP_Master2Slave(0,1,2,0,0,5,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 = 5
                    //Timeout=4000 ms
                
				if(iRet==0)
				{
					iSendflag=0;
					printCom1("Modbus TCP read DI success ");
					for(i=0;i<5;i++)
					{
						printCom1("DI[%02X]=%X ",i,iMemory_DI[i]);
					}
					printCom1("\n\r");
					iModbusTCP_Process[0]=1; //Change to process 1.
				}
				else if(iRet<0)
				{
					iSendflag=0;
					printCom1("Modbus TCP DI transaction error code = %d\n\r",iRet);
					iModbusTCP_Process[0]=1; //Change to process 1.
				}
				else
				{
					iSendflag=1;
					printCom1("Wait for DI transaction response \n\r");
				}				
                break;
                
            case 1:
                iMemory_DO[0]=1;
                iMemory_DO[1]=0;
                iMemory_DO[2]=1;
                iMemory_DO[3]=0;
                iMemory_DO[4]=1;
                iRet=ModbusTCP_Master2Slave(0,1,15,0,0,5,4000);
                     //Modbus/TCP slave (0) (IP=192.168.255.100)
                     //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=0;
					printCom1("Modbus TCP write DO success \n\r");
					iModbusTCP_Process[0]=2; //Change to process 2.
				}
				else if(iRet<0)
				{
					iSendflag=0;
					printCom1("Modbus TCP DO transaction error code = %d\n\r",iRet);
					iModbusTCP_Process[0]=2; //Change to process 2.
				}
				else
				{
					iSendflag=1;
					printCom1("Wait for DO transaction response \n\r");
				}
                break;
                               
            case 2:
                iRet=ModbusTCP_Master2Slave(0,1,4,0,0,2,4000);
                    //Modbus/TCP slave (0) (IP=192.168.255.100)
                    //NetID=1
                    //Function Code = 4 = Read AI
                    //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;
					printCom1("Modbus TCP read AI success ");
					for(i=0;i<2;i++)
                    {
                        printCom1("AI[%02X]=%04X ",i,iMemory_AI[i]);
                    }
					printCom1("\n\r");
					iModbusTCP_Process[0]=3; //Change to process 3.
				}
				else if(iRet<0)
				{
					iSendflag=0;
					printCom1("Modbus TCP AI transaction error code = %d\n\r",iRet);
					iModbusTCP_Process[0]=3; //Change to process 3.
				}
				else
				{
					iSendflag=1;
					printCom1("Wait for AI transaction response \n\r");
				}				
                break;
                
            case 3:
                iMemory_AO[0]=0x0000;
                iMemory_AO[1]=0x1111;
                iMemory_AO[2]=0x2222;
                iMemory_AO[3]=0x3333;
                iMemory_AO[4]=0x4444;
                iRet=ModbusTCP_Master2Slave(0,1,16,0,0,5,4000);
                     //Modbus/TCP slave (0) (IP=192.168.255.100)
                     //NetID=1
                     //Function Code = 16 = Write AO
                     //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=0;
					printCom1("Modbus TCP write AO success \n\r");
					iModbusTCP_Process[0]=0; //Change to process 0.
				}
				else if(iRet<0)
				{
					iSendflag=0;
					printCom1("Modbus TCP AO transaction error code = %d\n\r",iRet);
					iModbusTCP_Process[0]=0; //Change to process 0.
				}
				else
				{
					iSendflag=1;
					printCom1("Wait for AO transaction response \n\r");
				}
                break;
                 
			default:
                iModbusTCP_Process[0]=0; //Change to process 0.
                break;     
        }                  
    }    
}


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 7186E/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 7186E/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");  
}