MSCOMM控件在VB中發(fā)送十六進(jìn)制數(shù)據(jù)的方法轉(zhuǎn).doc

MSCOMM控件在VB中發(fā)送十六進(jìn)制數(shù)據(jù)的方法一、初始化配置Private Sub Form_Load() - With MSComm1 If .PortOpen = True Then .PortOpen = False End If .CommPort = 4 使用COM1 .Settings = BaudRate & ,n,8,1 設(shè)置通信口參數(shù) .InBufferSize = 1024 設(shè)置MSComm1接收緩沖區(qū)為1024字節(jié) .OutBufferSize = 1024 設(shè)置MSComm1發(fā)送緩沖區(qū)為1024字節(jié) .InputMode = comInputModeBinary 設(shè)置接收數(shù)據(jù)模式為二進(jìn)制形式- .InputLen = 0 設(shè)置Input 一次從接收緩沖讀取全部字節(jié)數(shù) .SThreshold = 0 設(shè)置發(fā)送完所有產(chǎn)生OnComm事件 .InBufferCount = 0 清除接收緩沖區(qū) .OutBufferCount = 0 清除發(fā)送緩沖區(qū) .RThreshold = 1 設(shè)置接收一個(gè)字節(jié)產(chǎn)生OnComm事件 .RTSEnable = True- If Not .PortOpen Then 判斷通信口是否打開(kāi) On Error Resume Next .PortOpen = True 打開(kāi)通信口 If Err Then 錯(cuò)誤處理 MsgBox 串口被占用或此串口不存在！通信無(wú)效！, 16, 錯(cuò)誤提示 Exit Sub End If End If End With End Sub注意：數(shù)據(jù)收發(fā)模式為 .InputMode = comInputModeBinary 設(shè)置接收數(shù)據(jù)模式為二進(jìn)制形式二、發(fā)送一個(gè)字節(jié)的16進(jìn)制數(shù)據(jù)Dim aa(0) As Byteaa(0) = &HAAMSComm1.Output = aa三、接收數(shù)據(jù)（事件方式）Private Sub MSComm1_OnComm() On Error Resume Next Dim inData As String 串口接收的數(shù)據(jù) Dim InByte() As Byte 定義一個(gè)二進(jìn)制指針?lè)沤邮盏降臄?shù)據(jù) Dim inByte1() As Byte Select Case MSComm1.CommEvent 選擇事件 Case comEvReceive 接收到字符 TimeNum = 4 -賦值計(jì)時(shí)常量 InByte = MSComm1.Input 數(shù)據(jù)轉(zhuǎn)移到指針 Serial_Rece_Fg = True Dim j As Long For j = 0 To UBound(InByte) 循環(huán)到指針上標(biāo) If InByte(j) = 13 Then inData = inData & vbCr Lf Else inData = inData & Chr(InByte(j) -ascii碼顯示處理 End If Next j Txt_Rcv.SelText = inData 將剛收到的字符串顯示出來(lái) inData = Txt_Rcv.SelStart = Len(Txt_Rcv.Text) 光標(biāo)置后 Case comEventRxOver -接收緩沖區(qū)滿(mǎn)的處理 MSComm1.InBufferCount = 0 Msg