王松基于vb的串口通訊及其軟件實(shí)現(xiàn)-資料下載頁(yè)
2025-07-24 17:13本頁(yè)面
【正文】 r過(guò)程中添加如下代碼: = COMMUNICATE:WAIT 1 + Chr(13) + Chr(10) = MEASURE:NORMAL:VALUE? + Chr(13) + Chr(10) 上述語(yǔ)句是將讀取指令發(fā)送到串口輸出緩沖區(qū)(注意每個(gè)命令字符串后都要加上回車(chē)和換行符Chr(13) + Chr(10)),再由系統(tǒng)將其自動(dòng)發(fā)送給通過(guò)RS232通信線(xiàn)與計(jì)算機(jī)端口連接的WT230數(shù)字功率計(jì),功率計(jì)在接收到命令字符串后,經(jīng)過(guò)自身的單片機(jī)處理,就自動(dòng)地把它測(cè)到的電壓、電流、功率數(shù)據(jù)以固定的格式和字符形式通過(guò)RS232通信線(xiàn)傳回至計(jì)算機(jī),計(jì)算機(jī)程序從輸入緩沖區(qū)讀取這些字符數(shù)據(jù)并利用VB字符處理函數(shù)(如Val,InStr)進(jìn)行處理就得到了所要的數(shù)據(jù),下面是具體的程序代碼。 Dim bytinput() as byte ‘注意要將bytinput定義為不定長(zhǎng)數(shù)組 Dim strtem As String Dim i as Integer bytinput = ‘將輸入緩沖區(qū)數(shù)據(jù)讀入給字節(jié)型數(shù)組bytinput For i = 0 To UBound(bytinput) strtem = strtem + Chr(bytinput(i)) ‘字節(jié)數(shù)組中的ASCII碼值轉(zhuǎn)換成相應(yīng) Next 的字符 得到的strtem字符就形象的展示了電流、電壓和功率值。對(duì)于WT230而言,它的數(shù)據(jù)結(jié)構(gòu)是這樣的,每個(gè)數(shù)據(jù)之間由逗號(hào)字符“,”隔開(kāi),每個(gè)數(shù)據(jù)以用科學(xué)計(jì)數(shù)法表示,且每個(gè)數(shù)據(jù)以字符“E”分為前半部分和后半部分,前半部分為具體的數(shù)據(jù)(整數(shù)形式),后半部分為此數(shù)據(jù)的指數(shù),指數(shù)的底為10。例如得到strtem的值為“23423E2,00241E3,05645E2” V, A, W。 6結(jié)論 串口通訊的硬件投資少,軟件編程簡(jiǎn)單,在低速少量數(shù)據(jù)傳輸方面的應(yīng)用極其廣泛的應(yīng)用。本文詳細(xì)介紹了串口通訊的基本內(nèi)容及其具體實(shí)現(xiàn)方式,讀者可以根據(jù)具體情況進(jìn)行選擇。以上代碼是實(shí)現(xiàn)串口通信的核心部分,經(jīng)過(guò)筆者在多個(gè)數(shù)據(jù)采集系統(tǒng)開(kāi)發(fā)中的應(yīng)用,具有較強(qiáng)的實(shí)用價(jià)值。 參考文獻(xiàn) 1 [M].北京:國(guó)防工業(yè)出版社,2002 2 Basic串口通信技術(shù)與典型實(shí)例[M].北京:清華大學(xué)出版社,2006 3 [美] Microsoft公司著、 Visual Basic 控件參考手冊(cè)[M],1999 4 API參考大全[M].電子工業(yè)出版社,2000 5 MOXA Library Programming Guide,1998 6 Basic :中國(guó)青年出版社,2000河南機(jī)電高等專(zhuān)科學(xué)?！兑苿?dòng)通信終端設(shè)備與維護(hù)》大作業(yè) 系 別： 電子通信工程系 專(zhuān) 業(yè)： 通信網(wǎng)絡(luò)與設(shè)備 班 級(jí)： 通網(wǎng)091 學(xué) 號(hào)： 090412131 姓 名： 王松 2011年12月
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1