一個基于API的VB.net串口通訊類

的串口通訊支持總是讓人覺得有所不足 在使用VB 的MsComm ocx時 很多人都會在的開發(fā)中覺得很困擾 這里講述的串口通訊類使用native代碼 并且它是通API調(diào)用實現(xiàn)的 你會發(fā)現(xiàn)的串口通訊就是這么簡單 在說明如何使用這個類前 需要說明的是 本類只是一個的串口通訊演示 你可能需要根據(jù)你的情況修改后使用 另外 本類的目的是通過例子教會你在無需ocx控件和第三方組件的支持下用開發(fā)串口通訊程序 所有并沒有完善的異常錯誤處理 1 初始化并打開串口創(chuàng)建一個CRs 類的實例 并在調(diào)用Open方法前設置好串口通訊參數(shù) 例 Dim moRS as New Rs ()With moRs Port = //　Uses BaudRate = 　 //　波特率 DataBit = 　 //　 data bits StopBit = Rs DataStopBit StopBit_ //　停止位 Parity = Rs DataParity Parity_None //　無奇偶校驗 Timeout = 　 //超時時間 msEnd With // 初始化并打開串口moRS Open () // 串口打開后 你可以隨意地控制DTR/RTSmoRS Dtr = TruemoRS Rts = True為了處理異常情況 建議你使用Try Catch 2 發(fā)送數(shù)據(jù)本類為Rx和Tx準備了兩個緩沖區(qū)(buffer) 發(fā)送數(shù)據(jù)時 只需要設置TxData屬性為你需要發(fā)送的數(shù)據(jù) 然后調(diào)用Tx方法就可以了 例如 moRS TxData = txtTx TextmoRS Tx() 接收數(shù)據(jù)先調(diào)用Rx方法（參數(shù)為您需要從串口讀取的字節(jié)數(shù)） 然后讀取RxData屬性 例如 moRS Rx( )　 // 從串口通訊緩沖區(qū)里讀取 字節(jié)Dim sRead as String=moRs RxData需要注意的是 當本類無法用串口讀取到所需的字節(jié)數(shù) 程序線程在超時異常發(fā)生前是鎖死的 超時時間通過Timout屬性設置 如果你沒有指明需要讀取的字節(jié)數(shù) 本類默認使用 字節(jié)來讀取緩沖區(qū)里的數(shù)據(jù) 版本信息 Project History st Public release Beta ( / / )Rev ( ) Added ResetDev SetBreak and ClearBreak to the EscapeCommFunction constants Added the overloaded Open routine Added the modem status routines properties and enum If a read times out it now returns a EndOfStreamException (instead of a simple Exception) Compiled with VS Net finalRev ( )Added Async supportRev ( )Minor bugs fixedRev a ( / / )Fixed BuildCommmDCB problemRev ( / / )Fixed problem with ASCII Encoding truncating th bitRev ( / / )Added IDisposable / Finalize implementationRev ( / / )Fixed problem on DCB fields InitializationRev ( / / )Added XON/XOFF supportRev ( / / )Added support to port number greater than Rev ( / / )Added CommEvent to detect ining chars/events(!)Updated both Tx/Rx method from Non Ovelapped to Overlapped modeRemoved unused Async methods and other stuff Rev ( / / )Fixed incorrect character handling when using EnableEvents()Rev ( / / )Fixed some bugs reported by usersRev ( / / )Removed AutoReset of internal buffers and added PurgeBuffer() methodRev ( / / )Update internal stuff now using Win Exception instead of GetLastError+FormatMessage APIsRev ( / / )Added IsPortAvailable() function (thanks to Tom Lafleur for the hint)Revised some API declarationFixed some problems with Win /Me OS (thanks to Alex Komissarov for the feedback)Rev ( / / )Fixed bug introduced on rev (sorry for that )Rev ( / / )Added SetBreak/ClearBreak methods for sending break signal over the line Rev ( / / )Fixed incorrect field on MCONFIG Structure Rev ( / / )Fixed bug causing troubles accessing already in use ports (folks thanks for the feedback!)Rev ( / / )Fixed bug on DTR property (thanks to Charles Olivier Théroux)Rev ( / / )CommEvent is no more raised on a secondary thread (please note that this is valid only if event handler is not associated with a static method)pEventsWatcher now uses a background threadRev ( / / )Fixed EscapeCommFunction declarationFixed incorrect Pariti enum entryRev ( / / )Fixed memory leak causing random program termination without any message Thanks to Ralf Gedrat for testing this scenario Rev ( / / )Fixed bug DisableEvents not working bug (Thanks to Jean Bédard) lishixinzhi/Article/program/net/201311/11852

創(chuàng)新互聯(lián)服務項目包括珠山網(wǎng)站建設、珠山網(wǎng)站制作、珠山網(wǎng)頁制作以及珠山網(wǎng)絡營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關系等，向廣大中小型企業(yè)、政府機構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，珠山網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟效益。目前，我們服務的客戶以成都為中心已經(jīng)輻射到珠山省份的部分城市，未來相信會繼續(xù)擴大服務區(qū)域并繼續(xù)獲得客戶的支持與信任！

VB.NET串口通訊怎么發(fā)送和接收十六進制？

串口通信最終都是用二進制傳輸?shù)?，你用代碼把二進制轉(zhuǎn)化成十六進制就可以了。不需要額外設置。

VB與VB.NET串口及以太網(wǎng)通迅

關于串口通訊的問題：

很明顯，你還不知道（不會、不習慣）使用事件驅(qū)動的方式接收數(shù)據(jù)。

建議你仔細看看串口組件（無論VB6還是VB.net）的OnComm事件，你的問題很容易解決。

關于以太網(wǎng)通訊：

在TCP通訊中端口確實可以重用，你百度一下“TCP端口重用”能查到很多示例。

但絕大多數(shù)情況下不推薦端口重用，而應該采取服務器端建立連接池的方法。

或者，干脆不用TCP，用UDP解決也可以。