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 | 決定在通訊過程中是否使資料終端機狀態線有效。取值為： |
| EOFEnable | 獲得或設置是否搜索EOF字元。取值為： |
| Handshaking | 獲得或設置軟體的握手協定。取值為： |
| InBufferSize | 獲得或設置接收緩衝區的大小，以位元組數為單位。 |
| Index | 在物件陣列中的編號 |
| InputLen | 獲得或設置輸入屬性從接收緩衝區讀出的字元數。 |
| InputMode | 獲得或設置輸入屬性檢索的資料類型。取值為： |
| Left | 距離容器左邊框的距離 |
| NullDiscard | 決定是否將空字串從埠傳送到接收緩衝區。取值為： |
| OutBufferSize | 獲得或設置傳輸緩衝區中的字元數 |
| ParityReplace | 獲得或設置當出現奇偶校驗錯誤時，用來替換資料流程中無效字元的字元。 |
| RThreshold | 獲得或設置要接受的字元數。 |
| RTSEnable | 決定能否使行有效。取值為： |
| 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))
??? Next
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，編程細節（技巧） |
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來處理
用提示來監控程式運行的狀態
規範：代碼規範，注釋規範，文檔規範，軟件發佈協議等
?
?
?
?
?
6，死機問題 |
1，中斷嵌套
2，死循環
3，硬體問題
4，緩衝區耗盡（接收緩衝區的數據如果一直纍計將逐漸耗盡內存，所以盡可能快的讀取串口發來的數據）
專注的力量--專注於嵌入式軟件開發
轉載請注明出處
如有錯誤的地方歡迎指正
wenzerzhang@gmail.com
轉載自：http://blog.csdn.net/liang890319/article/details/7088387
總結
以上是生活随笔為你收集整理的VB 串口编程 开发心得的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 工作按钮（216）:点击按钮报错--bu
- 下一篇： 工作228:小程序学习2开始布局页面2