开发真空测量与控制系统
开发真空测量与控制系统
VC++下用MSComm控件实现PG500真空计与PC机的通讯
0、引言
杭州玉川抽进口重力作用局限技术工艺总部开售的PG500+DM100AC抽进口重力作用计商品是就能够和PC机、PLC、单支机体统、组态軟件--组态王等串口通信参与通信的。这篇文章组建PG500抽进口重力作用计与PC机的通信，就能够达成抽进口重力作用计的负荷值体现、远距离的操作、的状态操控、数据统计源信息解决等模块。这篇文章解绍了在对于交谈框的MFC利用APP中利用MSComm控件程序编程达成PG500抽进口重力作用计串口与PC机串口的操控源代码，并参加了測量数据统计源信息的数据统计源信息库解决（如将抽进口重力作用计负荷结果记录查询在Excel电子表格一般）。1、硬件连接
PG500涡流计的网络通讯数据音频接口为RS-485串行数据音频接口，而PC机子为RS-232-C串口，任何预先预备行了RS-485与RS-232-C的换为器，接连原则如右图
2、软件代码
那里小结一番用MSComm控件采取串口程序语言的大多工作步骤：- 在建立的工程中插入MSComm控件
- 添加MSComm控件ID的控制变量或对象
- 对串口进行初始化，设置MSComm控件的属性
- 添加串口事件的消息处理函数OnComm()函数，在函数中根据应用需要，编写数据 处理代码
- 编写串口发送等其他代码
- 关闭串口
在CPG500Dlg::OnInitDialog()函数中写入对串口的初始化语句:
//串口初始化
m_DM100Comm.SetCommPort(1);//选择COM1
m_DM100Comm.SetInputMode(1);//输入方式为二进制方式
m_DM100Comm.SetInBufferSize(1024);//设置输入缓冲区大小
m_DM100Comm.SetOutBufferSize(512);//设置输出缓冲区大小
m_DM100Comm.SetSettings("9600,n,8,1");//波特率9600无检验位，8个数据位，1个停止位
if (!m_DM100Comm.GetPortOpen())//如果串口没有打开则打开
m_DM100Comm.SetPortOpen(TRUE);//打开串口
else
AfxMessageBox("串口已打开或不存在");
m_DM100Comm.SetRThreshold(1);//接收缓冲区有1个及1个以上字符时，将引发接收数据的OnComm事件
m_DM100Comm.SetInputLen(0);//设置当前接收区数据长度为0,表示全部读
m_DM100Comm.GetInput();//先预读缓冲区以清除残留数据
void CDM100Dlg::OnComm()
{
// TODO: Add your control notification handler code here
VARIANT m_input;
COleVariant nyVar;
char* str;
if(m_DM100Comm.GetCommEvent()==2)//事件值为2表示接收缓冲区
{
int l = m_DM100Comm.GetInBufferCount();
if(l > 0)
{
nyVar.Attach(m_DM100Comm.GetInput());//读缓冲区
m_input=nyVar;//VARIANT型变量转换为ColeSafeArray型变量
str = (char*)(unsigned char*)m_input.parray->pvData;//字符型
}
str[l]='\0';
if(str[0]==':')
{
m_zstrtmp=_T("");
}
m_zstrtmp+=(const char*)str;
if(str[l-1]==0x0D)
{
if (m_bShowData)//已发送数据
{
m_strtmp=m_zstrtmp;
m_strfinal=GetShowMode();//显示压力值的单位以及压力数据显示方式
if (m_strtmp.Mid(3,2)=="1D")//
{
m_nCount1++;
m_strRecv1=m_strfinal;
if (m_bExcelSave)//存入Excel表格的数据
{
m_time=m_time.GetCurrentTime();
m_SampleArray.Add(m_time.Format("%H:%M:%S"));
m_SampleArray.Add(m_strRecv1);
}
UpdateData(FALSE);
}
else if (m_strtmp.Mid(3,2)=="2D")
m_strRecv2=m_strfinal;
else if (m_strtmp.Mid(3,2)=="1R")
m_strExpo1=m_strfinal;
else if (m_strtmp.Mid(3,2)=="2R")
m_strExpo2=m_strfinal;
else if (m_strtmp.Mid(3,2)=="3R")
m_strExpo3=m_strfinal;
UpdateData(FALSE);
}
m_zstrtmp.Empty();
}
}
}
{
// TODO: Add your control notification handler code here
if (m_bAutoSend2)
{
m_ctrlCycleSend2.SetCheck(0);
KillTimer(2);
}
if (m_ctrlCycleSend1.GetCheck())
{
m_bAutoSend1=TRUE;
((CButton*)GetDlgItem(IDC_BTN_PORT_OPEN))->EnableWindow(FALSE);
SetTimer(1,m_nCycleTime1,NULL);
}
else
{
m_bAutoSend1=FALSE;
((CButton*)GetDlgItem(IDC_BTN_PORT_OPEN))->EnableWindow();
KillTimer(1);
}
}
void CDM100Dlg::OnCheckCycleSend2() //向PG500配置的DM100显示屏2通道循环发送数据
{
// TODO: Add your control notification handler code here
if (m_bAutoSend1)
{
m_ctrlCycleSend1.SetCheck(0);
KillTimer(1);
}
if (m_ctrlCycleSend2.GetCheck())
{
m_bAutoSend2=TRUE;
((CButton*)GetDlgItem(IDC_BTN_PORT_OPEN))->EnableWindow(FALSE);
SetTimer(2,m_nCycleTime2,NULL);
}
else
{
m_bAutoSend2=FALSE;
((CButton*)GetDlgItem(IDC_BTN_PORT_OPEN))->EnableWindow();
KillTimer(2);
}
}
定时器消息处理函数代码如下：
void CDM100Dlg::OnTimer(UINT nIDEvent)
{
// TODO: Add your message handler code here and/or call default
switch (nIDEvent)
{
case 1:
OnBtnShow1();//1通道发送一次数据
break;
case 2:
OnBtnShow2();//2通道发送一次数据
break;
case 3:
SetWindowText(m_strCaption.Mid(0,13+m_ncaption));
if(m_ncaption<(m_strCaption.GetLength()+1))
m_ncaption++;
else
m_ncaption=0;
break;
default:
break;
}
CDialog::OnTimer(nIDEvent);
}
3、结束语
使用以上代码可以通过PC机实现PG500真空计的远程设置、压力显示、状态控制、数据处理等过程。
