1，下位機中微控制器控制的232晶片，在上電後會自動傳送FF  FE  FC   00  01   03等隨機通訊資料給電腦串列埠 ，如果不處理好，在上電時就會出現資料異常或通訊錯誤

2，vb程式設計時儘量不要使定時器和串列埠中斷會同時發生的情況出現

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

Vb中對串列埠的操作無非就是

設定串列埠屬性，讀取串列埠屬性，讀取串列埠資料，傳送資料

流程為：設定埠號—設定通訊模式，串列傳輸速率，閥值等---清空緩衝區資料----開啟串列埠

下麵一一介紹

讀取，設定串列埠屬性

設定串列埠：

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

接收函式

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

On Error GoTo err

Select Case MSComm1.CommEvent

   Case comEvReceive

  Instring = MSComm1.Input

End Select

err:

End Sub

（2）   接收資料的方法（重要）

大於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