基于VB的RS-485串口通信方法基于VB的RS-485串口通信辦法

引言

在工業(yè)控制領(lǐng)域，工控機(jī)經(jīng)常需要與智能儀器或其它設(shè)備通過(guò)串口進(jìn)行通信。串口通信方便易行，應(yīng)用廣泛。VisualBasic〔簡(jiǎn)稱VB〕是Windows系統(tǒng)開(kāi)發(fā)的主要語(yǔ)言之一，以其高效、簡(jiǎn)單易學(xué)及功能強(qiáng)大的特點(diǎn)被廣闊程序設(shè)計(jì)人員所青睞。VB支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，具有結(jié)構(gòu)化的事件驅(qū)動(dòng)編程模式并可以使用功能強(qiáng)大的控件。

一、串口通信規(guī)范

串行接口〔SerialInterface〕是指數(shù)據(jù)按位順序傳送，其特點(diǎn)是通信線路簡(jiǎn)單，只要一對(duì)傳輸線就可以實(shí)現(xiàn)雙向通信，并可以利用線，從而降低了本錢(qián)，適用于遠(yuǎn)距離通信，但傳送速度較慢。串行接口按電氣規(guī)范及協(xié)議來(lái)分包括RS-232-C、RS-422、RS485等。

RS-232也稱規(guī)范串口，最常用的一種串行通訊接口。RS-232是為點(diǎn)對(duì)點(diǎn)〔即只用一對(duì)收、發(fā)設(shè)備〕通訊而設(shè)計(jì)的，適合本地設(shè)備之間的通信。其傳送距離最大為約15米，最高速率為20kb/s。RS-422規(guī)范是一系列的規(guī)定采用4線，全雙工，差分傳輸，多點(diǎn)通信的數(shù)據(jù)傳輸協(xié)議。RS-422支持點(diǎn)對(duì)多的雙向通信，其最大傳輸距離為1219米，最大傳輸速率為10Mb/s。在100kb/s速率下列，才可能到達(dá)最大傳輸距離。只有在很短的距離下才能獲得最高速率傳輸。一般100米長(zhǎng)的雙絞線上所能獲得的最大傳輸速率僅為1Mb/s。

RS-485是從RS-422根底上開(kāi)展而來(lái)的，所以RS-485許多電氣規(guī)定與RS-422相仿。RS-485可以采用二線與四線方式，二線制可實(shí)現(xiàn)真正的多點(diǎn)雙向通信，而采用四線連接時(shí)，能實(shí)現(xiàn)點(diǎn)對(duì)多的通信，它比RS-422有改良，無(wú)論四線還是二線連接方式總線上可多接到32個(gè)設(shè)備。RS-485與RS-422一樣，其最大傳輸距離約為1219米，最大傳輸速率為10Mb/s，但只有在很短的距離下才能獲得最高速率傳輸。PC機(jī)默認(rèn)的串口是RS-232規(guī)范，但RS-485總線接口具有網(wǎng)絡(luò)連接方便、抗干擾性能好、傳輸距離遠(yuǎn)等優(yōu)點(diǎn)，它彌補(bǔ)了RS-232通訊距離短，不能進(jìn)行多臺(tái)設(shè)備同時(shí)互聯(lián)的缺點(diǎn)。

二、MSComm控件介紹

MSComm控件通過(guò)串行端口發(fā)送和接收數(shù)據(jù)，為應(yīng)用程序提供串行通訊功能。使用MSComm控件時(shí)，程序員不必花時(shí)間去了解復(fù)雜的API函數(shù)，而且多個(gè)平臺(tái)均可使用。MicrosoftCommunicationsControl〔下列簡(jiǎn)稱MSComm〕是Microsoft公司提供的用于實(shí)現(xiàn)Windows下串行通信的ActiveX控件。它提供了兩種實(shí)現(xiàn)串口通信的辦法：事件驅(qū)動(dòng)辦法和查詢法。

VB中的MSComm控件提供了功能完善的串口數(shù)據(jù)的發(fā)送和接收功能。Mscomm控件通信功能的具體實(shí)現(xiàn)，實(shí)際上是調(diào)用了API函數(shù)。對(duì)于VB程序開(kāi)發(fā)者只需知道Mscomm控件的屬性和用法即可以實(shí)現(xiàn)串口的操作。Mscomm控件的主要屬性和用法如下表1。

三、VB中使用MSComm控件實(shí)現(xiàn)串口通信的過(guò)程

在項(xiàng)目應(yīng)用編程過(guò)程中，使用工控機(jī)作為上位機(jī)，通過(guò)串口對(duì)自己的下位機(jī)進(jìn)行控制。在控制界面中首先插入Mscomm控件，其名稱可以通過(guò)它的屬性進(jìn)行設(shè)置，如不設(shè)置默認(rèn)為Mscomm1。編程代碼如下：

〔1〕串口初始化

MSComm1.CommPort=COM1‘采用COM1端口

MSComm1.Settings=“9600，n，8，1〞‘對(duì)串口通信設(shè)置

MSComm1.InputMode=1‘采用二進(jìn)傳輸

MSComm1.InBufferCount=0‘清空接受緩沖區(qū)

MSComm1.OutBufferCount=0‘清空傳輸緩沖區(qū)

MSComm1.RThreshold=9‘接收緩沖區(qū)收到9字符都會(huì)使控件產(chǎn)生OnComm事件

MSComm1.InBufferSize=InBufferSize‘接收緩沖區(qū)默認(rèn)為1024個(gè)字節(jié)MSComm1.OutBufferSize=OutBufferSize‘發(fā)送緩沖區(qū)默認(rèn)為512個(gè)字節(jié)

MSComm1.PortOpen=True‘翻開(kāi)端口

〔2〕串口發(fā)送數(shù)據(jù)

Dimsend_data〔0to1〕AsByte

MSComm1.RTSEnable=True

MSComm1.DTREnable=True

send_data〔0〕=&HA1

send_data〔1〕=&HB1

MSComm1.Output=send_data

MSComm1.OutBufferCount=0

〔3〕串口接收數(shù)據(jù)

Dimdd〔100〕AsByte

DimbufferAsVariant

PrivateSubMSComm1_OnComm〔〕

SelectCaseMSComm1.CommEvent

Case2

MSComm1.InputLen=9‘一次從接收緩沖區(qū)讀取的字節(jié)數(shù)

buffer=MSComm1.Input

fori=0ToUBound〔buffer〕

dd〔i〕=buffer〔i〕

nexti

……對(duì)所收到的數(shù)據(jù)處理成所需的數(shù)據(jù)類型

EndSelect

MSComm1.InBufferCount=0

EndSub

〔4〕關(guān)閉串口

MSComm1.PortOpen=False‘關(guān)閉通信口

在程序設(shè)計(jì)過(guò)程中，將上述程序代碼添加到設(shè)計(jì)好的程序界面中就可以實(shí)現(xiàn)串口通信，可以用定時(shí)器或線程對(duì)串口的收發(fā)數(shù)據(jù)進(jìn)行靈活控制。在控制系統(tǒng)設(shè)計(jì)中，一般上位機(jī)〔工控機(jī)〕串口默認(rèn)只有RS-232口，要實(shí)現(xiàn)RS-485串口通信，需要在硬件電路的連接中使用〞RS-232轉(zhuǎn)RS-4