引言

　　在一般的配料工程中，要一臺(tái)上位機(jī)對(duì)配料過程中所產(chǎn)生的一系列數(shù)據(jù)進(jìn)行保存和統(tǒng)計(jì)，往往需要檢測(cè)來自現(xiàn)場(chǎng)的一些開關(guān)信號(hào)。在應(yīng)用工程中，在一般的上位機(jī)與稱量儀表的通訊過程中，一般只用了3個(gè)引腳（TXD ，RXD ，GND），而還有6個(gè)腳（CD，DSR，CTS，RI，DTR，RTS）沒有用到,而這些沒有用到的引腳就正好可用于檢測(cè)和輸出開關(guān)量。

　　下面我將介紹基于VB6.0的平臺(tái)做的一個(gè)小項(xiàng)目。

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

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

1． 控件屬性設(shè)置介紹：
　　Commport：設(shè)置或返回端口號(hào)。就是指 通訊的端口號(hào)， 用COMM1就設(shè)為1， 用COMM2就設(shè)為2， 但MSComm控件的最大值是16， 在本項(xiàng)目中同 時(shí)用了兩個(gè)口， 因?yàn)樾枰蛢膳_(tái)儀表進(jìn)行通訊（常用計(jì)算機(jī)有兩個(gè)串口， 如果串口不 夠用的話， 可以買串口卡）。
　　Settings：設(shè)置并返回波特率、奇偶校驗(yàn)、數(shù)據(jù)位、停止位 。參數(shù)格式為："BBBB,P,D,S"。例如“9600， E， 7， 2”；在RS232中雙方必須完全一樣， 彼此才能順利的通信。否則的話將不 能正確的接收到來自對(duì)方的信號(hào)。
　　Handshaking：設(shè)置并返回硬件握手協(xié)議；（設(shè)為無）
　　InBufferSize：設(shè)置并返回接收緩沖區(qū)的字節(jié)數(shù)；
　　OutBufferCount：返回在傳輸緩沖區(qū)中等待的字符數(shù)。也可以用它來清除傳輸緩沖區(qū)；
　　DTREnable：確定在通訊時(shí)是否使 Data Terminal Ready (DTR) 線有效（設(shè)為有效）。
　　RTSEnable：確定在通訊時(shí)是否使 Request To Send (RTS) 線有效（設(shè)為有效）。
　　CommEvent：返回最近的通訊事件或錯(cuò)誤。當(dāng)發(fā)生錯(cuò)誤或事件會(huì)產(chǎn)生OnComm事件。
　　InputMode：設(shè)置或返回Input 屬性取回的數(shù)據(jù)的類型。它有兩個(gè)參數(shù)， 0 表示以文字形式取回， 1表示以二進(jìn)制形式取回。（設(shè)為0）
　　Rthreshold：設(shè)置并返回的要接收的字符數(shù)。
　　Sthreshold：設(shè)置并返回傳輸緩沖區(qū)中允許的最小字符數(shù)
　　InputLen：設(shè)置并返回 Input 屬性從接收緩沖區(qū)讀取的字符數(shù)。
2． 采集儀表當(dāng)前數(shù)據(jù)
　　提醒：要和儀表通訊，在參數(shù)（Comports、Settings）設(shè)置上必須相互吻合。
　　先要打開對(duì)象
　　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, "+")     //以下數(shù)行是對(duì)所采集到的數(shù)據(jù)進(jìn)行處理加工，最終　　得到我們想要的格式的數(shù)據(jù)。
　　 …  …… 
　　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
　　//本項(xiàng)目中,也就是需要兩個(gè)計(jì)量儀表的的當(dāng)前數(shù)據(jù))
 

3． 開關(guān)狀態(tài)的采集

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

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

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

　　End Sub

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

　　MSComm1.RTSEnable = True //抬高電位 使微型繼電器動(dòng)作接通報(bào)警器
　　MSComm1.DTREnable = True

總結(jié)

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