VB串口通訊與開關(guān)量的檢測與輸出

1、VB串口通訊與開關(guān)量的檢測與輸出    VB串口通訊與開關(guān)量的檢測與輸出摘要：本文介紹了以VB和計算機串口在一個小型配料工程中的應(yīng)用為例。詳盡的闡述了串口在配料系統(tǒng)中的應(yīng)用方法。特別在串口通訊中的開關(guān)量的檢測和輸出要點。極大限度的降低了系統(tǒng)硬件所占工程中的成本。引言：在一般的配料工程中，要一臺上位機對配料過程中所產(chǎn)生的一系列數(shù)據(jù)進行保存和統(tǒng)計，往往需要檢測來自現(xiàn)場的一些開關(guān)信號。在應(yīng)用工程中，在一般的上位機與稱量儀表的通訊過程中，一般只用了3個引腳（TXD ，RXD ，GND），而還有6個腳（CD，DSR，CTS，RI，DTR，RTS

2、）沒有用到,而這些沒有用到的引腳就正好可用于檢測和輸出開關(guān)量。下面我將介紹基于VB6.0的平臺做的一個小項目。工程概況：該項目是廣州科密集團公司用于一種新型耗材的配方研制所用的一個的自動配方管理軟件。由于實驗場所環(huán)境所限制，要求計算機不放在現(xiàn)場（不要求設(shè)立專人去操作計算機），只要求操作工人每稱量按一下秤臺旁邊的一個按鈕就可以存儲當前每物料種類和其相應(yīng)的重量，使管理系統(tǒng)以這個實驗數(shù)據(jù)為依據(jù)，進行整理和加工。最后得出一些綜合分析結(jié)果，為以后的正式生產(chǎn)提出配方工藝上的要求。因此系統(tǒng)本身就要求負責實時采集儀表的數(shù)據(jù)；實時采集開關(guān)量（按鈕和轉(zhuǎn)換開關(guān)的狀態(tài)）；實時的提醒操作員當些次配料是否有效果（根據(jù)配方

3、來看是否報警也就是開關(guān)量的輸出）；還有存儲當前當種物料的配料量，配方的管理，用戶日后的數(shù)據(jù)查詢和分析工作等。根據(jù)這種要求，我們可以選擇一種RAD工具來作為開發(fā)平臺。硬件配置：兩套計量設(shè)備（包含兩臺定點輸出儀表）一臺計算機（工控機）軟件：本實例采用Microsoft公司的Visual Basic 6.0作為開發(fā)平臺。Visual Basic是一種具有可視圖形界面的、快速開發(fā)工具，同時它也較流行的開發(fā)工具。它可以利用Mscomm控件來完成對串口的控制和開關(guān)量的采用以及開關(guān)量的輸出。先介紹一下這九個引腳所代表的意義：RXD表示接收數(shù)據(jù)TXD表示發(fā)送數(shù)據(jù)GND表示接地注：

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

5、trol 6.0控件。1 控件屬性設(shè)置介紹： Commport：設(shè)置或返回端口號。就是指 通訊的端口號， 用COMM1就設(shè)為1， 用COMM2就設(shè)為2， 但MSComm控件的最大值是16， 在本項目中同 時用了兩個口， 因為需要和兩臺儀表進行通訊（常用計算機有兩個串口， 如果串口不 夠用的話， 可以買串口卡）。 Settings：設(shè)置并返回波特率、奇偶校驗、數(shù)據(jù)位、停止位 。參數(shù)格式為："BBBB,P,D,S"。例如“9600

6、， E， 7， 2”；在RS232中雙方必須完全一樣， 彼此才能順利的通信。否則的話將不 能正確的接收到來自對方的信號。 Handshaking：設(shè)置并返回硬件握手協(xié)議；（設(shè)為無） InBufferSize：設(shè)置并返回接收緩沖區(qū)的字節(jié)數(shù)； OutBufferCount：返回在傳輸緩沖區(qū)中等待的字符數(shù)。也可以用它來清除傳輸緩沖區(qū)； DTREnable：確定在通訊時是否使 Data Terminal Ready (DTR) 線有效（設(shè)為有效）。 RT

7、SEnable：確定在通訊時是否使 Request To Send (RTS) 線有效（設(shè)為有效）。 CommEvent：返回最近的通訊事件或錯誤。當發(fā)生錯誤或事件會產(chǎn)生OnComm事件。 InputMode：設(shè)置或返回Input 屬性取回的數(shù)據(jù)的類型。它有兩個參數(shù)， 0 表示以文字形式取回， 1表示以二進制形式取回。（設(shè)為0） Rthreshold：設(shè)置并返回的要接收的字符數(shù)。 Sthreshold：設(shè)置并返回傳輸緩沖區(qū)中允許的最小字符數(shù) InputLe

8、n：設(shè)置并返回 Input 屬性從接收緩沖區(qū)讀取的字符數(shù)。2 采集儀表當前數(shù)據(jù)提醒：要和儀表通訊，在參數(shù)（Comports、Settings）設(shè)置上必須相互吻合。先要打開對象MSComm1.PortOpen = TrueMSComm2.PortOpen = TruePrivate Sub MSComm1_OnComm () If MSComm1.CommEvent = comEvReceive Then  / 收到R

9、threshold # of      TxtReceive.Text = MSComm1.Input     /將采集到的信息賦予到文本框 found1 = InStr(TxtReceive.Text, "+")     /以下數(shù)行是對所采集到的數(shù)據(jù)進行處理加工，最終得到我們想要的格式的數(shù)據(jù)。   

10、0; If found1 > 0 Then     For i = 1 To leng Step 1            Strin1 = Mid(TxtReceive.Text, found1 + 1, 3)  

11、0;         Strin2 = Mid(TxtReceive.Text, found1 + 4, 3)            Format(Val(strin2), "000")        Next 

12、;idisplay1.Caption = Format(Val(strin1), "#0") + "." + Format(Val(strin2), "00") End IfEnd If/本項目中,也就是需要兩個計量儀表的的當前數(shù)據(jù))3 開關(guān)狀態(tài)的采集 /檢測四個引腳的工作狀態(tài)（就是判斷現(xiàn)場的開關(guān)狀態(tài)和按鈕狀態(tài)）在具體的應(yīng)用過程中，要添加一個TIMER控件用于循環(huán)的檢測這幾個輸入引腳的電位的高低。 

13、;Private Sub Timer1_Timer() If MSComm1.CDHolding Then msgbox "CD is switch in! " /檢測CD腳的電位          /消息處理過程 If MSComm1.CTSHolding Then msgbox "CTS

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

15、/消息處理過程  If MSComm1.CommEvent=comEvRing Then msgbox "RI is switch in!"/檢測CTS腳的電位            /消息處理過程End Sub4 兩個開關(guān)量的輸出       /就是控制兩個引腳的電位，5 驅(qū)動的微型繼電器工作如果操作員在具體的配料過程中，出現(xiàn)錯誤（超出了配方所要求物料品種的誤差范圍），軟件會將DTR或者是RTS引腳上的電位抬高，驅(qū)動微型繼電器來控制現(xiàn)場的報警裝置。用報警來提示操作人員，本次配料不符合要求，需要添加或是減少份量。這樣可以實時