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

1、VB串口通訊與開關(guān)量的檢測(cè)與輸出    VB串口通訊與開關(guān)量的檢測(cè)與輸出摘要：本文介紹了以VB和計(jì)算機(jī)串口在一個(gè)小型配料工程中的應(yīng)用為例。詳盡的闡述了串口在配料系統(tǒng)中的應(yīng)用方法。特別在串口通訊中的開關(guān)量的檢測(cè)和輸出要點(diǎn)。極大限度的降低了系統(tǒng)硬件所占工程中的成本。引言：在一般的配料工程中，要一臺(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ī)與稱量?jī)x表的通訊過程中，一般只用了3個(gè)引腳（TXD ，RXD ，GND），而還有6個(gè)腳（CD，DSR，CTS，RI，DTR，RTS

2、）沒有用到,而這些沒有用到的引腳就正好可用于檢測(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ù)配方

3、來看是否報(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表示接地注：

4、（連接計(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 Con

5、trol 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

6、， 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è)為有效）。 RT

7、SEnable：確定在通訊時(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ù) InputLe

8、n：設(shè)置并返回 Input 屬性從接收緩沖區(qū)讀取的字符數(shù)。2 采集儀表當(dāng)前數(shù)據(jù)提醒：要和儀表通訊，在參數(shù)（Comports、Settings）設(shè)置上必須相互吻合。先要打開對(duì)象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ù)行是對(duì)所采集到的數(shù)據(jù)進(jìn)行處理加工，最終得到我們想要的格式的數(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/本項(xiàng)目中,也就是需要兩個(gè)計(jì)量?jī)x表的的當(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è)輸入引腳的電位的高低。 

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

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

15、/消息處理過程  If MSComm1.CommEvent=comEvRing Then msgbox "RI is switch in!"/檢測(cè)CTS腳的電位            /消息處理過程End Sub4 兩個(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í)