Modbus串口编程.doc

char lstr,hstr=stri;if(hstr= )i+;continue;i+;if(i=len)break;lstr=stri;hexdata=ConvertHexChar(hstr);lowhexdata=ConvertHexChar(lstr);if(hexdata=16)|(lowhexdata=16)break;elsehexdata=hexdata*16+lowhexdata;i+;senddatahexdatalen=(char)hexdata;hexdatalen+;senddata.SetSize(hexdatalen);return hexdatalen;char CModbusDlg:ConvertHexChar(char ch)if(ch=0)&(ch=A)&(ch=a)&(ch=f)return ch-a+10;else return (-1);然后接在（3）的后面写/发送数据 CString str=12 FA;CByteArray hexdata;int len=String2Hex(str,hexdata); /len用于计算发送了多少个十六进制数m_MSComm.SetOutput(COleVariant)hexdata); /发送十六进制数据Sleep(1000);（5）接收数据：在MFC的类向导中，为MSComm控件添加一个成员函数OnOnCommMscomm1()，然后编辑代码：void CModbusDlg:OnOnCommMscomm1()/ TODO: Add your control notification handler code here/接收数据VARIANT variant_inp; COleSafeArray safearray_inp; LONG len,k; BYTE rxdata2048; /设置BYTE数组CString strtemp,str; BYTE bt;int resEvent;resEvent=m_MSComm.GetCommEvent();if(resEvent=2)variant_inp=m_MSComm.GetInput(); /读缓冲区safearray_inp=variant_inp; /VARIANT型转为ColeSafeArray型len=safearray_inp.GetOneDimSize(); /得到有效数据长度for(k=0;klen;k+)safearray_inp.GetElement(&k,rxdata+k); /转为BYTE数组for(k=0;kAdd To Project-Components and Controls-Registered Activex Controls”,然后选择控件：Microsoft Communications Control,version 6.0插入到当前的工程中。这样就将类 CMSComm 的相关文件 mscomm.cpp 和 mscomm.h 一并加入到了工程中。再将控件对话中的 MSComm 控件拖至你的应用对话框中，用MFC类向导给其添加变量m_MSComm。（3）串口初始化：在CModbusDlg:OnInitDialog()函数中/ TODO: Add extra initialization hereif(m_MSComm.GetPortOpen() /如果串口是打开的，则先关闭串口m_MSComm.SetPortOpen(FALSE);m_MSComm.SetCommPort(4); /选择COM4m_MSComm.SetInBufferSize(1024); /接收缓冲区m_MSComm.SetOutBufferSize(1024); /发送缓冲区m_MSComm.SetInputLen(0);/设置当前接收区长度为0，表示全部读取m_MSComm.SetInputMode(1);/以二进制方式读写数据m_MSComm.SetRThreshold(1);/接收缓冲区有1个及1个以上字符时，将引发接收数据的OnComm事件m_MSComm.SetSettings(9600,n,8,1);/波特率9600，无校验位,8个数据位，1个停止位if(!m_MSComm.GetPortOpen()/如果串口没有打开则打开m_MSComm.SetPortOpen(TRUE);/打开串口elsem_MSComm.SetOutBufferCount(0);AfxMessageBox(Open The Serial Port 1 Failurre!);（4）发送数据：首先，在Modbus协议中，要求以十六进制发送数据，因此需要在ClassView中为CModbusDlg类添加以下两个PUBLIC成员函数，并编辑代码如下：int CModbusDlg:String2Hex(CString str, CByteArray &senddata)int hexdata,lowhexdata;int hexdatalen=0;int len=str.GetLength();senddata.SetSize(len/2);for(int i=0;ilen;)Modbus协议下的接收程序：void CModbusDlg:OnOnCommMscomm1()/ TODO: Add your control notification handler code hereVARIANT variant_inp;COleSafeArray safearray_inp;LONG len,k;BYTE rxdata2048; /设置BYTE数组CString strtemp,str;BYTE bt;char tempBuf200;if(m_MSComm.GetCommEvent()=2)/监听到串口有数据传来variant_inp=m_MSComm.GetInput(); /读缓冲区safearray_inp=variant_inp; /VARIANT型转为ColeSafeArray型len=safearray_inp.GetOneDimSize(); /得到有效数据长度for(k=0;klen;k+)safearray_inp.GetElement(&k,rxdata+k); /转为BYTE数组for(k=0;klen;k+) /将数组转为CString型变量bt=*(char*)(rxdata+k); /字节型strtemp.Format(%02X ,bt); /十六进制显示switch(recvNum)case 0: /接收第1个字节recvStr=strtemp;recvNum+;break;case 1:recvStr+=strtemp;recvNum+;break;case 2:sscanf(strtemp,%d,&recvDataLen);recvStr+=strtemp;recvNum+;break;default:recvStr+=strtemp;if(recvNum=recvDataLen+4)/已经接收完一帧数据MessageBox(recvStr);recvNum=0;recvStr=;elserecvNum+;break; / switch END / for循环END /if END函数中有几个全局变量：在.c