VB 串口编程 开发心得

接触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))

    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,編程細節(技巧

检测可用的端口
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來處理

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

規範:代碼規範,注釋規範,文檔規範,軟件發佈協議等

 

 

 

 

 

6,死機問題



1,中斷嵌套

2,死循環

3,硬體問題

4,緩衝區耗盡(接收緩衝區的數據如果一直纍計將逐漸耗盡內存,所以盡可能快的讀取串口發來的數據)




專注的力量--專注於嵌入式軟件開發

轉載請注明出處


如有錯誤的地方歡迎指正

wenzerzhang@gmail.com

转载自:http://blog.csdn.net/liang890319/article/details/7088387

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值