引言
在一般的配料工程中,要一臺(tái)上位機(jī)對(duì)配料過(guò)程中所產(chǎn)生的一系列數(shù)據(jù)進(jìn)行保存和統(tǒng)計(jì),往往需要檢測(cè)來(lái)自現(xiàn)場(chǎng)的一些開(kāi)關(guān)信號(hào)。在應(yīng)用工程中,在一般的上位機(jī)與稱(chēng)量?jī)x表的通訊過(guò)程中,一般只用了3個(gè)引腳(TXD ,RXD ,GND),而還有6個(gè)腳(CD,DSR,CTS,RI,DTR,RTS)沒(méi)有用到,而這些沒(méi)有用到的引腳就正好可用于檢測(cè)和輸出開(kāi)關(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è)立專(zhuān)人去操作計(jì)算機(jī)),只要求操作工人每稱(chēng)量按一下秤臺(tái)旁邊的一個(gè)按鈕就可以存儲(chǔ)當(dāng)前每物料種類(lèi)和其相應(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í)采集開(kāi)關(guān)量(按鈕和轉(zhuǎn)換開(kāi)關(guān)的狀態(tài));實(shí)時(shí)的提醒操作員當(dāng)些次配料是否有效果(根據(jù)配方來(lái)看是否報(bào)警也就是開(kāi)關(guān)量的輸出);還有存儲(chǔ)當(dāng)前當(dāng)種物料的配料量,配方的管理,用戶日后的數(shù)據(jù)查詢和分析工作等。
根據(jù)這種要求,我們可以選擇一種RAD工具來(lái)作為開(kāi)發(fā)平臺(tái)。
硬件配置:兩套計(jì)量設(shè)備(包含兩臺(tái)定點(diǎn)輸出儀表)一臺(tái)計(jì)算機(jī)(工控機(jī))
軟件:本實(shí)例采用Microsoft公司的Visual Basic 6.0作為開(kāi)發(fā)平臺(tái)。Visual Basic是一種具有可視圖形界面的、快速開(kāi)發(fā)工具,同時(shí)它也較流行的開(kāi)發(fā)工具。它可以利用Mscomm控件來(lái)完成對(duì)串口的控制和開(kāi)關(guān)量的采用以及開(kāi)關(guān)量的輸出。
先介紹一下這九個(gè)引腳所代表的意義:
RXD表示接收數(shù)據(jù)
TXD表示發(fā)送數(shù)據(jù)
GND表示接地
注:(連接計(jì)算機(jī)和通訊儀表的接地端,開(kāi)關(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ī)有電話打來(lái)
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可以用于開(kāi)關(guān)量的輸入引腳。RTS和DTR可用于開(kāi)關(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è)串口, 如果串口不 夠用的話, 可以買(mǎi)串口卡)。
Settings:設(shè)置并返回波特率、奇偶校驗(yàn)、數(shù)據(jù)位、停止位 。參數(shù)格式為:"BBBB,P,D,S"。例如“9600, E, 7, 2”;在RS232中雙方必須完全一樣, 彼此才能順利的通信。否則的話將不 能正確的接收到來(lái)自對(duì)方的信號(hào)。
Handshaking:設(shè)置并返回硬件握手協(xié)議;(設(shè)為無(wú))
InBufferSize:設(shè)置并返回接收緩沖區(qū)的字節(jié)數(shù);
OutBufferCount:返回在傳輸緩沖區(qū)中等待的字符數(shù)。也可以用它來(lái)清除傳輸緩沖區(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ù)的類(lèi)型。它有兩個(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è)置上必須相互吻合。
先要打開(kāi)對(duì)象
MSComm1.PortOpen = True
MSComm2.PortOpen = True
Private Sub MSComm1_OnComm ()#p#分頁(yè)標(biāo)題#e#
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ì)量?jī)x表的的當(dāng)前數(shù)據(jù))
3. 開(kāi)關(guān)狀態(tài)的采集
//檢測(cè)四個(gè)引腳的工作狀態(tài)(就是判斷現(xiàn)場(chǎng)的開(kāi)關(guān)狀態(tài)和按鈕狀態(tài))
在具體的應(yīng)用過(guò)程中,要添加一個(gè)TIMER控件用于循環(huán)的檢測(cè)這幾個(gè)輸入引腳的電位的高低。
Private Sub Timer1_Timer()
If MSComm1.CDHolding Then msgbox "CD is switch in! " //檢測(cè)CD腳的電位
… … … … //消息處理過(guò)程
If MSComm1.CTSHolding Then msgbox "CTS is switch in! "//檢測(cè)CTS腳的電位
… … … … //消息處理過(guò)程
If MSComm1.DSRHolding Then msgbox "DSR is switch in! "//檢測(cè)CTS腳的電位
… … … … //消息處理過(guò)程
If MSComm1.CommEvent=comEvRing Then msgbox "RI is switch in!"//檢測(cè)CTS腳的電位
… … … … //消息處理過(guò)程
End Sub
4. 兩個(gè)開(kāi)關(guān)量的輸出
//就是控制兩個(gè)引腳的電位,
5. 驅(qū)動(dòng)的微型繼電器工作
如果操作員在具體的配料過(guò)程中,出現(xiàn)錯(cuò)誤(超出了配方所要求物料品種的誤差范圍),軟件會(huì)將 DTR或者是RTS引腳上的電位抬高,驅(qū)動(dòng)微型繼電器來(lái)控制現(xiàn)場(chǎng)的報(bào)警裝置。用報(bào)警來(lái)提示操作人員,本次配料不符合要求,需要添加或是減少份量。這樣可以實(shí)時(shí)的糾正不必要了操作失誤。
MSComm1.RTSEnable = True //抬高電位 使微型繼電器動(dòng)作接通報(bào)警器
MSComm1.DTREnable = True
總結(jié)
在本應(yīng)用工程已在現(xiàn)場(chǎng)運(yùn)行快一年時(shí)間,實(shí)踐證明采用這種用串口來(lái)作開(kāi)關(guān)量的檢測(cè)和輸出方式作有限開(kāi)關(guān)量輸入輸出是可行的,也是可靠。因此在類(lèi)似這種小型應(yīng)用項(xiàng)目中,采用這種串口來(lái)作開(kāi)關(guān)量的檢測(cè)和輸出做法,即滿足了用戶要求,又為用戶提供了更多的選擇,同時(shí)控制了工程的成本。#p#分頁(yè)標(biāo)題#e#
轉(zhuǎn)載請(qǐng)注明出處。