開發真空測量與控制系統
VC++下用MSComm控件實現PG500真空計與PC機的通訊

0、引言

　　上海玉川真空有限技術公司推出的PG500+DM100AC真空計產品是可以和PC機、PLC、單片機系統、組態軟件--組態王等上位機進行通訊的。本文建立PG500真空計與PC機的通訊，可以實現真空計的壓力值顯示、遠程操作、狀態控制、數據處理等功能。本文介紹了在基于對話框的MFC應用程序中應用MSComm控件編程實現PG500真空計串口與PC機串口的控制代碼，并加入了測量數據的數據庫處理（如將真空計壓力數值記錄在Excel表格中等）。

1、硬件連接

　　PG500真空計的通訊接口為RS-485串行接口，而PC機上為RS-232-C串口，所以事前準備好了RS-485與RS-232-C的轉換器，連接方式如右圖

2、軟件代碼

　　這里總結一下用MSComm控件進行串口編程的基本步驟：

• 在建立的工程中插入MSComm控件
• 添加MSComm控件ID的控制變量或對象
• 對串口進行初始化，設置MSComm控件的屬性
• 添加串口事件的消息處理函數OnComm()函數，在函數中根據應用需要，編寫數據  處理代碼
• 編寫串口發送等其他代碼
• 關閉串口

2.1、創建工程并添加MSComm控件

　　建立首先打開VC 6.0，建立一個基于對話框的MFC應用程序：PG500。在對話框中創建通信控件，若Control工具欄中缺少該控件，可通過菜單Project --> Add to Project --> Components and Control插入即可，再將該控件從工具箱中拉到對話框中。此時，你只需要關心控件提供的對 Windows 通訊驅動程序的 API 函數的接口。換句話說，只需要設置和監視MSComm控件的屬性和事件。

2.2、初始化串口：設置MSComm控件的屬性

　　在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();//先預讀緩沖區以清除殘留數據

2.3、添加串口事件消息處理函數

　　MSComm控件一般用事件驅動方式來從串口接收數據，也就是消息處理，當串口有時間發生時，程序調用消息函數來處理數據。

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

2.4、發送數據

　　為發送按鈕添加一個單擊響應函數，添加如下代碼

　　void CDM100Dlg::OnCheckCycleSend1() //向PG500配置的DM100顯示屏1通道循環發送數據

{
 // 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真空計的遠程設置、壓力顯示、狀態控制、數據處理等過程。

　　注：以上代碼為PG500真空計與PC機通訊的主干代碼，另有大部分函數原型由于文字限制在本文中未寫出。 真空測量軟件開發可聯系仇小姐，電話：021-61526449，分機號8002