VC上位机MFC利用串口控件发送接收数据程序代码

1、打开VC + 6.0，建立一个基于对话框的 MFC应用程序菜单中依次选择 Project -> Add To Project -> Components and Controlsrosoft Visual C + + - TestCom.rc - IDD_TESTCOM_DIALDG (Dialog)Insert Proiect Build Layout Tools Window HdpSet Active ProjectAdd To ProiectEJependencies.1 classutDlg2ommIat iaIExSettings.Alt+F7Export Makefi

2、le.Data Conne 亡 ，Insert Proied: into Works口方cm”，卜 CreateGraphfstrMusiclU New Folder.Com&onents and Car,trols,_j Visual C+ Components双击文件名):Path to co ntrol:在弹出的 Components and Controls Gallery窗口中双击 RegisteredActiveX Con trols 文件夹Choose a component to insert into your project: 查找范Gallerym;Registe

3、red AdiveX Controls选中 Microsoft Communications Control,version 6.0，点击 Insert 添力卩控件，如下图在这里如果没有找到 Microsoft Communications Control,version 6.0 么办？如果没有，说明这个控件还没有注册。那么需要先注册此控件，方法如下:开始-> 运行中输入 regsvr32 mscomm32.ocx点击确定注册Add Member FunctionMember function name：OKCancelMessage: OnCoinm Object ID： IDC_MS

4、C0MM2添加控件后会弹出一个确认框Microsoft Visual 匚+卜迢二IInsert 由£ cumponent?点击“确定”再点击"OK"，控件就添加成功了Con.®Aa a bl a u lx 國& 丽 $ m O-'噪 團张 S日把此控件拖入界面中，利用 MFC ClassWizard添加成员变量（我在这里用的 变量名是m_msCor可变），如图然后在控件的属性里进行一些必要的配置:CommPor设置串口号InputMode设置为1-Binary，表示以二进制方式检取数据RThreshold设置为1,表示每当串口接收缓冲区中

5、有多于或等于 1个字符时 将引发一个接收数据的On Com事件其它的用默认值。也可以在OnlnitDialog()函数中用代码设置，如下：m_msCom.SetCommPort(1); / 指定串口号为1(视实际情况而定)if (m_msCom.GetPortOpe n()m_msCom.SetPortOpe n(FALSE);m_msCom.Setl nputMode(1); 1 :表示以二进制方式检取数据 m_msCom.SetRThreshold(1);/参数1表示每当串口接收缓冲区中有多于或等于1个字符时将引发一个接 收数据的On Com事件设置好以后，要在程序的开始打开串口，不然是没

6、发使用的。在On I ni tDialog 中加入以下代码：m_msCom.SetPortOpen(TRUE); / 打开串口m_msCom.Getlnput();先预读缓冲区以清除残留数据OK在你需要的地方可以随时发送串口数据了，很简单：m_msCom.SetOutput(COIeVariant(TXData); / 发送数据 TXData接收串口数据：首先要添加串口事件消息处理函数，双击控件，弹出添加成员函数对话框， 我们用默认的函数名OnOnCommMscom这里也可以更改函数名。这个函数是用来处理串口消息事件的，如每当串口接收到数据(正如我们前面设置的RThreshold，每当串口接收

7、缓冲区中有多于或等于1个字符时将引发一 个接收数据的On Com事件)，就会产生一个串口接收数据缓冲区中有字符的消息 事件，刚才添加的函数就会执行，我们在 OnOn CommMscoi函数!加入相应的处理 代码就能实现自已想要的功能了。在该函数中加入如下代码以接收数据：/ TODO: Add your con trol no tificati on han dler code hereif (m_msCom.GetCommEvent(= = 2)/事件值为2表示接收缓冲区内有字符Sleep(100);VARIANT rec_data;int data_le n;char cData1024;rec_data = m_msCom.Getl nput(); / 读取缓冲区data_le n = rec_data.parray->rgsabo un d->cEleme nts;memcpy(cData,(char *)rec_da