這是我3年前的一個例子，最近翻出來回憶一下。

串口是計算機上一種非常通用設備通信的協議。大多數計算機包含兩個基于RS232的串口，現在配電腦好像只有一個。串口同時也是儀器儀表設備通用的通信協議；很多GPIB兼容的設備也帶有RS-232口。同時，串口通信協議也可以用于獲取遠程采集設備的數據。串口通信在工控領域用途很廣。

串口通信的概念非常簡單，串口按位(bit)發送和接收字節。盡管比按字節(byte)的并行通信慢，但是串口可以在使用一根線發送數據的同時用另一根線接收數據。它很簡單并且能夠實現遠距離通信。比如IEEE488定義并行通行狀態時，規定設備線總常不得超過20米，并且任意兩個設備間的長度不得超過2米；而對于串口而言，長度可達1200米。

典型地，串口用于ASCII碼字符的傳輸。通信使用3根線完成：(1)地線，(2)發送，(3)接收。由于串口通信是異步的，端口能夠在一根線上發送數據同時在另一根線上接收數據。其他線用于握手，但是不是必須的。串口通信最重要的參數是波特率、數據位、停止位和奇偶校驗。對于兩個進行通行的端口，這些參數必須匹配：

a，波特率：這是一個衡量通信速度的參數。它表示每秒鐘傳送的bit的個數。例如300波特表示每秒鐘發送300個bit。當我們提到時鐘周期時，我們就是指波特率例如如果協議需要4800波特率，那么時鐘是4800Hz。這意味著串口通信在數據線上的采樣率為4800Hz。通常電話線的vb.net教程波特率為14400，28800和36600。波特率可以遠遠大于這些值，但是波特率和距離成反比。高波特率常常用于放置的很近的儀器間的通信，典型的例子就是GPIB設備的通信。

b，數據位：這是衡量通信中實際數據位的參數。當計算機發送一個信息包，實際的數據不會是8位的，標準的值是5、7和8位。如何設置取決于你想傳送的信息。比如，標準的ASCII碼是0～127(7位)。擴展的ASCII碼是0～255(8位)。如果數據使用簡單的文本(標準 ASCII碼)，那么每個數據包使用7位數據。每個包是指一個字節，包括開始/停止位，數據位和奇偶校驗位。由于實際數據位取決于通信協議的選取，術語“包”指任何通信的情況。

c，停止位：用于表示單個包的最后一位。典型的值為1，1.5和2位。由于數據是在傳輸線上定時的，并且每一個設備有其自己的時鐘，很可能在通信中兩臺設備間出現了小小的不同步。因此停止位不僅僅是表示傳輸的結束，并且提供計算機校正時鐘同步的機會。適用于停止位的位數越多，不同時鐘同步的容忍程度越大，但是數據傳輸率同時也越慢。

d，奇偶校驗位：在串口通信中一種簡單的檢錯方式。有四種檢錯方式：偶、奇、高和低。當然沒有校驗位也是可以的。對于偶和奇校驗的情況，串口會設置校驗位(數據位后面的一位)，用一個值確保傳輸的數據有偶個或者奇個邏輯高位。例如，如果數據是011，那么對于偶校驗，校驗位為0，保證邏輯高的位數是偶數個。如果是奇校驗，校驗位位1，這樣就有3個邏輯高位。高位和低位不真正的檢查數據，簡單置位邏輯高或者邏輯低校驗。這樣使得接收設備能夠知道一個位的狀態，有機會判斷是否有噪聲干擾了通信或者是否傳輸和接收數據是否不同步。

串口通信還有一個參數是單工、半雙工和雙工。

如果在通信過程的任意時刻，信息只能由一方A傳到另一方B，則稱為單工。

如果在任意時刻，信息既可由A傳到B，又能由B傳A，但只能由一個方向上的傳輸存在，稱為半雙工傳輸。

如果在任意時刻，線路上存在A到B和B到A的雙向信號傳輸，則稱為全雙工。

電話線就是二線全雙工信道。 由于采用了回波抵消技術，雙向的傳輸信號不致混淆不清。雙工信道有時也將收、發信道分開，采用分離的線路或頻帶傳輸相反方向的信號，如回線傳輸。

在調試時可以用串口助手和windows的超級終端，不要帶電插拔串口，容易燒毀。

在VB.NET中提供了IO.Ports類，是我們的編程變得很簡單，下面是我的例子：

Form1.vb

Imports System.IO.PortsPublic Class Form1Dim WithEvents RS232 As SerialPortDelegate Sub SetTextCallback(ByVal InputString As String) ? ? ? ‘聲明一個代理Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadFor Each sp As String In SerialPort.GetPortNames()cmbCom.Items.Add(sp)NextcmbCom.Sorted = TruecmbCom.SelectedIndex = 0End SubPrivate Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.ClickDim mBaudRate As IntegerDim mParity As IO.Ports.ParityDim mDataBit As IntegerDim mStopBit As IO.Ports.StopBitsDim mPortName As StringmPortName = cmbCom.SelectedItem.ToStringmBaudRate = 9600mParity = Parity.NonemDataBit = 8mStopBit = StopBits.OneRS232 = New IO.Ports.SerialPort(mPortName, mBaudRate, mParity, mDataBit, mStopBit)If Not RS232.IsOpen ThenRS232.Open()btnSend.Enabled = TrueRS232.ReceivedBytesThreshold = 1 ? ? ? ?’設置引發事件的門限值ElseMsgBox(“通訊端口打開錯誤！”, MsgBoxStyle.Critical)End IfEnd SubPrivate Sub RS232_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles RS232.DataReceivedDim InByte() As Byte, ReadCount As Integer, strRead As StringIf RS232.BytesToRead <= 0 Then Exit SubReDim InByte(RS232.BytesToRead – 1)ReadCount = RS232.Read(InByte, 0, RS232.BytesToRead)strRead = “”If ReadCount = 0 ThenExit SubElseFor Each bData As Byte In InBytestrRead += bData.ToString & vbCrLf ? ? ‘若有數據則加到接收文本框DisplayText(strRead)NextEnd IfEnd Sub‘*************************************************‘代理子程序‘處理上述通信端口的接收事件‘由于欲將數據顯示到接收文本框中，因此必須檢查‘是否由另外得Thread所調用的，若是，則必須先‘建立代理對象‘Invoke用于在擁有控件基礎窗口控制代碼的線程上‘運行代理‘*************************************************Private Sub DisplayText(ByVal comData As String)‘如果調用txtReceive的另外的線程，返回trueIf Me.txtReceive.InvokeRequired Then‘利用代理類型建立對象，并指定代理的函數Dim d As New SetTextCallback(AddressOf

總結

以上是生活随笔為你收集整理的串口通信实例vb.net serialport的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。