引言

　　在一般的配料工程中，要一臺上位機對配料過程中所產生的一系列數據進行保存和統計，往往需要檢測來自現場的一些開關信號。在應用工程中，在一般的上位機與稱量儀表的通訊過程中，一般只用了3個引腳（TXD ，RXD ，GND），而還有6個腳（CD，DSR，CTS，RI，DTR，RTS）沒有用到,而這些沒有用到的引腳就正好可用于檢測和輸出開關量。

　　下面我將介紹基于VB6.0的平臺做的一個小項目。

　　工程概況：該項目是廣州科密集團公司用于一種新型耗材的配方研制所用的一個的自動配方管理軟件。由于實驗場所環境所限制，要求計算機不放在現場（不要求設立專人去操作計算機），只要求操作工人每稱量按一下秤臺旁邊的一個按鈕就可以存儲當前每物料種類和其相應的重量，使管理系統以這個實驗數據為依據，進行整理和加工。最后得出一些綜合分析結果，為以后的正式生產提出配方工藝上的要求。因此系統本身就要求負責實時采集儀表的數據；實時采集開關量（按鈕和轉換開關的狀態）；實時的提醒操作員當些次配料是否有效果（根據配方來看是否報警也就是開關量的輸出）；還有存儲當前當種物料的配料量，配方的管理，用戶日后的數據查詢和分析工作等。
根據這種要求，我們可以選擇一種RAD工具來作為開發平臺。
　　
　　硬件配置：兩套計量設備（包含兩臺定點輸出儀表）一臺計算機（工控機）
　　軟件：本實例采用Microsoft公司的Visual Basic 6.0作為開發平臺。Visual Basic是一種具有可視圖形界面的、快速開發工具，同時它也較流行的開發工具。它可以利用Mscomm控件來完成對串口的控制和開關量的采用以及開關量的輸出。

　　先介紹一下這九個引腳所代表的意義：
　　RXD表示接收數據
　　TXD表示發送數據
　　GND表示接地
　　注：（連接計算機和通訊儀表的接地端，開關量的輸入的公共端就用儀表的電源）
　　CD表示調制解調器通知通計算機有載波被檢測到
　　DTR表示計算機通知調制解調器可以進行傳輸
　　DSR表示調制解調器通知計算機準備就序
　　RI表示調制解調器通知計算機有電話打來
　　CTS表示調制解調器通知計算機可送出數據
　　RTS表示計算機要求調制解調器將數據發出
　　根據這些引腳的意義，我們將調制解調器當成其它的外部設備， CD、DSR、RTS、RI可以用于開關量的輸入引腳。RTS和DTR可用于開關量的輸出。
　　具體方法如下：
　　在工程中，添加部件Microsoft Comm Control 6.0控件。

1． 控件屬性設置介紹：
　　Commport：設置或返回端口號。就是指 通訊的端口號， 用COMM1就設為1， 用COMM2就設為2， 但MSComm控件的最大值是16， 在本項目中同 時用了兩個口， 因為需要和兩臺儀表進行通訊（常用計算機有兩個串口， 如果串口不 夠用的話， 可以買串口卡）。
　　Settings：設置并返回波特率、奇偶校驗、數據位、停止位 。參數格式為："BBBB,P,D,S"。例如“9600， E， 7， 2”；在RS232中雙方必須完全一樣， 彼此才能順利的通信。否則的話將不 能正確的接收到來自對方的信號。
　　Handshaking：設置并返回硬件握手協議；（設為無）
　　InBufferSize：設置并返回接收緩沖區的字節數；
　　OutBufferCount：返回在傳輸緩沖區中等待的字符數。也可以用它來清除傳輸緩沖區；
　　DTREnable：確定在通訊時是否使 Data Terminal Ready (DTR) 線有效（設為有效）。
　　RTSEnable：確定在通訊時是否使 Request To Send (RTS) 線有效（設為有效）。
　　CommEvent：返回最近的通訊事件或錯誤。當發生錯誤或事件會產生OnComm事件。
　　InputMode：設置或返回Input 屬性取回的數據的類型。它有兩個參數， 0 表示以文字形式取回， 1表示以二進制形式取回。（設為0）
　　Rthreshold：設置并返回的要接收的字符數。
　　Sthreshold：設置并返回傳輸緩沖區中允許的最小字符數
　　InputLen：設置并返回 Input 屬性從接收緩沖區讀取的字符數。
2． 采集儀表當前數據
　　提醒：要和儀表通訊，在參數（Comports、Settings）設置上必須相互吻合。
　　先要打開對象
　　MSComm1.PortOpen = True
　　MSComm2.PortOpen = True

　　Private Sub MSComm1_OnComm ()
 　　If MSComm1.CommEvent = comEvReceive Then  // 收到Rthreshold # of
      　TxtReceive.Text = MSComm1.Input     //將采集到的信息賦予到文本框
 　　found1 = InStr(TxtReceive.Text, "+")     //以下數行是對所采集到的數據進行處理加工，最終　　得到我們想要的格式的數據。
　　 …  …… 
　　If found1 > 0 Then
     　　For i = 1 To leng Step 1
            　　Strin1 = Mid(TxtReceive.Text, found1 + 1, 3)
            　　Strin2 = Mid(TxtReceive.Text, found1 + 4, 3)
            　　Format(Val(strin2), "000")
        　　Next i
　　display1.Caption = Format(Val(strin1), "###0") + "." + Format(Val(strin2), "00")
 　　End If
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　End If
　　//本項目中,也就是需要兩個計量儀表的的當前數據)
 

3． 開關狀態的采集

        //檢測四個引腳的工作狀態（就是判斷現場的開關狀態和按鈕狀態）
　　在具體的應用過程中，要添加一個TIMER控件用于循環的檢測這幾個輸入引腳的電位的高低。
 
　　Private Sub Timer1_Timer()
　　 If MSComm1.CDHolding Then msgbox "CD is switch in! " //檢測CD腳的電位
　　… … … …       //消息處理過程
　　 If MSComm1.CTSHolding Then msgbox "CTS is switch in! "//檢測CTS腳的電位
　　… … … …       //消息處理過程

　　  If MSComm1.DSRHolding Then msgbox "DSR is switch in! "//檢測CTS腳的電位
　　… … … …       //消息處理過程

　　  If MSComm1.CommEvent=comEvRing Then msgbox "RI is switch in!"//檢測CTS腳的電位
　　 … … … …       //消息處理過程

　　End Sub

4． 兩個開關量的輸出     
　　 //就是控制兩個引腳的電位，
5． 驅動的微型繼電器工作
　　如果操作員在具體的配料過程中，出現錯誤（超出了配方所要求物料品種的誤差范圍），軟件會將　　DTR或者是RTS引腳上的電位抬高，驅動微型繼電器來控制現場的報警裝置。用報警來提示操作人員，本次配料不符合要求，需要添加或是減少份量。這樣可以實時的糾正不必要了操作失誤。

　　MSComm1.RTSEnable = True //抬高電位 使微型繼電器動作接通報警器
　　MSComm1.DTREnable = True

總結

        在本應用工程已在現場運行快一年時間，實踐證明采用這種用串口來作開關量的檢測和輸出方式作有限開關量輸入輸出是可行的，也是可靠。因此在類似這種小型應用項目中，采用這種串口來作開關量的檢測和輸出做法，即滿足了用戶要求，又為用戶提供了更多的選擇，同時控制了工程的成本。