VB 串口编程开发心得_vb串口机制-CSDN博客

接触vb的串口控件也有一段时间了

经常被它弄得晕头转向

最重要的是死机死机死机

其實關鍵在於寫好接收函數

现将自己的经验写下来供大家参考

1,使用串口

（1）臺式機自帶串口

（2）USB-------- RS232(RS485)

（3）PCI ----RS232

適合一般對串口數需求小的通信

適合筆記本使用或串口不夠用外擴

適合工控使用（現正在使用的8口串口）

2,注意事項：上電，中斷，協議

1，下位機中單片機控制的232晶片，在上電後會自動發送FF FE FC 00 01 03等隨機通信數據給電腦串口，如果不處理好，在上電時就會出現數據異常或通信錯誤

2，vb編程時儘量不要使定時器和串口中斷會同時發生的情況出現

3，通信中儘量使用協議，自定義的協議或標準協議，例如接收超時的規定

3，編程

Vb中對串口的操作無非就是

設置串口屬性，讀取串口屬性，讀取串口數據，發送數據

流程為：設置埠號—設置通信模式，串列傳輸速率，閥值等---清空緩衝區數據----打開串口

下麵一一介紹

讀取，設置串口屬性

屬性	說明
(Name)	MSComm控制項的名稱
(自定義)	打開屬性頁
CommPort	獲得或設置通訊埠號
DTREnable	決定在通訊過程中是否使資料終端機狀態線有效。取值為： True False
EOFEnable	獲得或設置是否搜索EOF字元。取值為： True False
Handshaking	獲得或設置軟體的握手協定。取值為： 0 comNone 1 comXOnXoff 2 comRTS 3 comRTSXOnXOff
InBufferSize	獲得或設置接收緩衝區的大小，以位元組數為單位。
Index	在物件陣列中的編號
InputLen	獲得或設置輸入屬性從接收緩衝區讀出的字元數。
InputMode	獲得或設置輸入屬性檢索的資料類型。取值為： 0 comInputModeText 1 comInputModeBinary
Left	距離容器左邊框的距離
NullDiscard	決定是否將空字串從埠傳送到接收緩衝區。取值為： True False
OutBufferSize	獲得或設置傳輸緩衝區中的字元數
ParityReplace	獲得或設置當出現奇偶校驗錯誤時，用來替換資料流程中無效字元的字元。
RThreshold	獲得或設置要接受的字元數。
RTSEnable	決定能否使行有效。取值為： True False
Settings	獲得或設置串列傳輸速率、奇偶校驗、資料位元和停止位元參數。
SThreshold	獲得或設置傳輸中所能允許的最小字元數
Tag	存儲程式所需的附加資料
Top	距容器頂部邊界的距離

設置串口：

PrivateFunction com1_init(com_no As Byte)

OnError GoTo err

IfMSComm1.PortOpen = True Then MSComm1.PortOpen = False

MSComm1.CommPort= com_no

IfMSComm1.PortOpen = False Then

MSComm1.Settings ="9600,n,8,1"

MSComm1.RThreshold = 1 '******核心語句，去掉則無法觸發，來一個字節數據就中斷

'MSComm1.SThreshold = 1 '發送緩衝區中允許的最小字元數觸發

MSComm1.OutBufferSize = 10 ‘發送緩衝區大小字節

MSComm1.InBufferSize = 10 ‘發送緩衝區大小字節

MSComm1.InputLen = 1 '每次從緩衝區讀取數據的字節數

MSComm1.InputMode =comInputModeBinary '二進制模式

'MSComm1.InputMode =comInputModeText ‘文本模式

MSComm1.InBufferCount = 0 '清空接收緩衝區數據

MSComm1.PortOpen = True '打開串口

EndIf

ExitFunction

err:

MsgBox"串口打開失敗"

EndFunction

接收，發送數據

（1）兩種模式下的數據收發

1------------------------------二進制模式:以二進制模式收發，比如發送0XFE 注：發送時使用數組發送

MSComm1.InputMode= comInputModeBinary '二進制模式

發送數據函數

Dim cc(0) As Byte

cc(0) = mydata

MSComm1.Output = cc

接收數據函數（接收一個字節的數據，也就是說來的數只有8位）

MSComm1.InputLen= 1 每次从缓冲区讀出來1個數（8位為一個，也可以自己定義接收多個）

Private Sub MSComm1_OnComm()

Dim Instring As Byte

On Error GoTo err

Select Case MSComm3.CommEvent

CasecomEvReceive

DimInByte, i As Integer

InByte = MSComm3.Input

Fori = 0 To UBound(InByte)

Instring = Instring & (InByte(i))

End Select

End Sub

接收函數（一次接收多個字節的這樣寫）

MSComm1.InputLen= 0 每次从缓冲区讀出來所有數據

Dim counter As Byte

counter = MSComm1.InBufferCount

If counter > 0 Then

DimReceiveArr() As Byte

Dimj, Instring As Integer

ReceiveArr = MSComm1.Input ‘把得到的數據放在一個數組中

Forj = 0 To (counter - 1)

Instring = ReceiveArr(j) ‘循環查看得到的每一個數

IfVal(Instring) = 1 Then Text1.Text = Text1.Text + "ok "

Nextj

Else

End If

2------------------------文本模式：發送和接收的都是ascii形式的字串，比如我可以發送’S’給output

'MSComm1.InputMode= comInputModeText ‘文本模式

MSComm1.InputLen= 0 每次接收緩衝區的所有字符串

發送函數dim outstring as string MSComm1.Input= outstring

接收函數

Private Sub MSComm1_OnComm()

Dim Instring ‘也可以定義成string類型

On Error GoTo err

Select Case MSComm1.CommEvent

Case comEvReceive

Instring = MSComm1.Input

End Select

err:

End Sub

（2）接收數據的方法（重要）

1中斷

2查詢（1）

3查詢（2）

4中斷+查詢

MSComm1.RThreshold =n

來n個數馬上產生中斷

MSComm1.RThreshold = 0

關閉中斷觸發

MSComm1.RThreshold = 0

關閉中斷觸發

MSComm1.RThreshold = n

來n個數馬上產生中斷

在中斷函數中讀取接收到的數據

Private Sub MSComm1_OnComm()

你的代碼

End Sub

使用定時器，每隔10ms或其他時間段，就查詢是否接收到數據了，沒有則退出，有則讀取數據

Dim counter As Byte

counter = MSComm1.InBufferCount

適合超時檢測用

先發送

延時

檢測是否接收到了

Dim counter As Byte

counter = MSComm1.InBufferCount

在中斷發生時，在中斷函數中，延時或使用其他方法進行查詢

4，特殊通信

大於255的數，小數，modbus通信，回車換行

大於255的數

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias"RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length AsLong)

Private Sub Form_Load()

MSComm1.Settings = "9600,n,8,1"

MSComm1.PortOpen = True

Text1 = 256

End Sub

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1)

Dim buffer(1) As Byte

CopyMemory buffer(0), a, 2 '獲得Byte陣列，低位元組在前，高位元組在後

MSComm1.Output = buffer

End Sub

小數

用多位數據來表示

modbus通信

起始位停止位奇數偶數校驗都可以設置

Crc程式代碼

Dim CRC_HiByte As Byte,CRC_LowByte As Byte

Private FunctionCRC16(ByRef cmdstring() As Byte, ByVal j As Integer)

Dim data As Integer

Dim I As Integer

Addressreg_crc = &HFFFF

For I = 0 To j

Addressreg_crc = Addressreg_crcXor cmdstring(I)

For j = 0 To 7

data = Addressreg_crcAnd &H1

If data Then

Addressreg_crc= Int(Addressreg_crc / 2)

Addressreg_crc= Addressreg_crc And &H7FFF

Addressreg_crc= Addressreg_crc Xor &HA001

Else

Addressreg_crc= Addressreg_crc / 2

Addressreg_crc= Addressreg_crc And &H7FFF

End If

Next j

Next I

If Addressreg_crc < 0 Then

Addressreg_crc = Addressreg_crc -&HFFFF0000

End If

CRC_HiByte = Addressreg_crc And&HFF

CRC_LowByte = (Addressreg_crc And&HFF00) / &H100

End Function

Private SubCommand1_Click()

Dim mydat(2) As Byte

mydat(0) = &H1

mydat(1) = &HF0

Call CRC16(mydat(), 2)

Text1.Text =Hex(CRC_HiByte)

Text2.Text =Hex(CRC_LowByte)

MsgBox " changok!!"

End Sub

回車換行

回車vbcr

回車換行vbcrlf

5，編程細節（技巧）

检测可用的端口

Dim i,j As Integer
j = 1
For i = 1 To 16
MSComm1.CommPort = i
On Error Resume Next
MSComm1.PortOpen = True
If err.Number = 0 Then
Text1.Text = Text1.Text & "COM" & i & vbCr & vbLf
j = j + 1 'this port i can be use
MSComm1.PortOpen = False
Else
MSComm1.PortOpen = False
End If
Next i
Text1.Text = "總共發現" & j - 1 & "個串口:" & vbCr & vbLf & Text1.Text

串口數據一旦讀出來後緩衝區數據就沒有了

DimInstring Instring = MSComm1.Input

接收緩衝區的長度值一旦讀取也會變成0

Dim counter As Byte counter = MSComm1.InBufferCount

錯誤，提示，規範

錯誤用gotoerr來處理

用提示來監控程式運行的狀態

規範：代碼規範，注釋規範，文檔規範，軟件發佈協議等