引言
在一般的配料工程中,要一臺上位機對配料過程中所產生的一系列數(shù)據(jù)進行保存和統(tǒng)計,往往需要檢測來自現(xiàn)場的一些開關信號。在應用工程中,在一般的上位機與稱量儀表的通訊過程中,一般只用了3個引腳(TXD ,RXD ,GND),而還有6個腳(CD,DSR,CTS,RI,DTR,RTS)沒有用到,而這些沒有用到的引腳就正好可用于檢測和輸出開關量。
下面我將介紹基于VB6.0的平臺做的一個小項目。
工程概況:該項目是廣州科密集團公司用于一種新型耗材的配方研制所用的一個的自動配方管理軟件。由于實驗場所環(huán)境所限制,要求計算機不放在現(xiàn)場(不要求設立專人去操作計算機),只要求操作工人每稱量按一下秤臺旁邊的一個按鈕就可以存儲當前每物料種類和其相應的重量,使管理系統(tǒng)以這個實驗數(shù)據(jù)為依據(jù),進行整理和加工。最后得出一些綜合分析結果,為以后的正式生產提出配方工藝上的要求。因此系統(tǒng)本身就要求負責實時采集儀表的數(shù)據(jù);實時采集開關量(按鈕和轉換開關的狀態(tài));實時的提醒操作員當些次配料是否有效果(根據(jù)配方來看是否報警也就是開關量的輸出);還有存儲當前當種物料的配料量,配方的管理,用戶日后的數(shù)據(jù)查詢和分析工作等。
根據(jù)這種要求,我們可以選擇一種RAD工具來作為開發(fā)平臺。
硬件配置:兩套計量設備(包含兩臺定點輸出儀表)一臺計算機(工控機)
軟件:本實例采用Microsoft公司的Visual Basic 6.0作為開發(fā)平臺。Visual Basic是一種具有可視圖形界面的、快速開發(fā)工具,同時它也較流行的開發(fā)工具。它可以利用Mscomm控件來完成對串口的控制和開關量的采用以及開關量的輸出。
先介紹一下這九個引腳所代表的意義:
RXD表示接收數(shù)據(jù)
TXD表示發(fā)送數(shù)據(jù)
GND表示接地
注:(連接計算機和通訊儀表的接地端,開關量的輸入的公共端就用儀表的電源)
CD表示調制解調器通知通計算機有載波被檢測到
DTR表示計算機通知調制解調器可以進行傳輸
DSR表示調制解調器通知計算機準備就序
RI表示調制解調器通知計算機有電話打來
CTS表示調制解調器通知計算機可送出數(shù)據(jù)
RTS表示計算機要求調制解調器將數(shù)據(jù)發(fā)出
根據(jù)這些引腳的意義,我們將調制解調器當成其它的外部設備, CD、DSR、RTS、RI可以用于開關量的輸入引腳。RTS和DTR可用于開關量的輸出。
具體方法如下:
在工程中,添加部件Microsoft Comm Control 6.0控件。
1. 控件屬性設置介紹:
Commport:設置或返回端口號。就是指 通訊的端口號, 用COMM1就設為1, 用COMM2就設為2, 但MSComm控件的最大值是16, 在本項目中同 時用了兩個口, 因為需要和兩臺儀表進行通訊(常用計算機有兩個串口, 如果串口不 夠用的話, 可以買串口卡)。
Settings:設置并返回波特率、奇偶校驗、數(shù)據(jù)位、停止位 。參數(shù)格式為:"BBBB,P,D,S"。例如“9600, E, 7, 2”;在RS232中雙方必須完全一樣, 彼此才能順利的通信。否則的話將不 能正確的接收到來自對方的信號。
Handshaking:設置并返回硬件握手協(xié)議;(設為無)
InBufferSize:設置并返回接收緩沖區(qū)的字節(jié)數(shù);
OutBufferCount:返回在傳輸緩沖區(qū)中等待的字符數(shù)。也可以用它來清除傳輸緩沖區(qū);
DTREnable:確定在通訊時是否使 Data Terminal Ready (DTR) 線有效(設為有效)。
RTSEnable:確定在通訊時是否使 Request To Send (RTS) 線有效(設為有效)。
CommEvent:返回最近的通訊事件或錯誤。當發(fā)生錯誤或事件會產生OnComm事件。
InputMode:設置或返回Input 屬性取回的數(shù)據(jù)的類型。它有兩個參數(shù), 0 表示以文字形式取回, 1表示以二進制形式取回。(設為0)
Rthreshold:設置并返回的要接收的字符數(shù)。
Sthreshold:設置并返回傳輸緩沖區(qū)中允許的最小字符數(shù)
InputLen:設置并返回 Input 屬性從接收緩沖區(qū)讀取的字符數(shù)。
2. 采集儀表當前數(shù)據(jù)
提醒:要和儀表通訊,在參數(shù)(Comports、Settings)設置上必須相互吻合。
先要打開對象
MSComm1.PortOpen = True
MSComm2.PortOpen = True
Private Sub MSComm1_OnComm ()#p#分頁標題#e#
If MSComm1.CommEvent = comEvReceive Then // 收到Rthreshold # of
TxtReceive.Text = MSComm1.Input //將采集到的信息賦予到文本框
found1 = InStr(TxtReceive.Text, "+") //以下數(shù)行是對所采集到的數(shù)據(jù)進行處理加工,最終 得到我們想要的格式的數(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
//本項目中,也就是需要兩個計量儀表的的當前數(shù)據(jù))
3. 開關狀態(tài)的采集
//檢測四個引腳的工作狀態(tài)(就是判斷現(xiàn)場的開關狀態(tài)和按鈕狀態(tài))
在具體的應用過程中,要添加一個TIMER控件用于循環(huán)的檢測這幾個輸入引腳的電位的高低。
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. 驅動的微型繼電器工作
如果操作員在具體的配料過程中,出現(xiàn)錯誤(超出了配方所要求物料品種的誤差范圍),軟件會將 DTR或者是RTS引腳上的電位抬高,驅動微型繼電器來控制現(xiàn)場的報警裝置。用報警來提示操作人員,本次配料不符合要求,需要添加或是減少份量。這樣可以實時的糾正不必要了操作失誤。
MSComm1.RTSEnable = True //抬高電位 使微型繼電器動作接通報警器
MSComm1.DTREnable = True
總結
在本應用工程已在現(xiàn)場運行快一年時間,實踐證明采用這種用串口來作開關量的檢測和輸出方式作有限開關量輸入輸出是可行的,也是可靠。因此在類似這種小型應用項目中,采用這種串口來作開關量的檢測和輸出做法,即滿足了用戶要求,又為用戶提供了更多的選擇,同時控制了工程的成本。#p#分頁標題#e#
轉載請注明出處。