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

1、MSCOMM牛在VB中發(fā)送十六進制數(shù)據(jù)的方法 轉(zhuǎn)一、初始化配置Private Sub Form_Load()With MSCommlIf .P ortOpe n = True The n.PortOpe n = FalseEnd If.CommPort = 4.Setti ngs = BaudRate & ,n ,8,1 .In BufferSize = 1024.OutBufferSize = 1024使用COM1設(shè)置通信口參數(shù)設(shè)置MSComm1 接收緩沖區(qū)為1024字節(jié)設(shè)置MSComm1 發(fā)送緩沖區(qū)為1024字節(jié)n putMode = comln putModeB inary設(shè)置接收數(shù)據(jù)模

2、式為二進制形式n putLe n = 0.SThreshold = 0.In BufferCou nt = 0.OutBufferCou nt = 0設(shè)置In put 一次從接收緩沖讀取全部字節(jié)數(shù)設(shè)置發(fā)送完所有產(chǎn)生 On Comm 事件清除接收緩沖區(qū)清除發(fā)送緩沖區(qū).RThreshold = 1設(shè)置接收一個字節(jié)產(chǎn)生 On Comm 事件判斷通信口是否打開.RTSE nable = TrueIf Not P ortOpen The nOn Error Resume NextP ortOpe n = True打開通信口If Err Then錯誤處理MsgBox 串口被占用或此串口不存在！通信無效！,

3、 16,Exit SubEnd IfEnd IfEnd WithEnd Sub注意：數(shù)據(jù)收發(fā)模式為n putMode = comln putModeB inary設(shè)置接收數(shù)據(jù)模式為二進制形式、發(fā)送一個字節(jié)的16進制數(shù)據(jù)Dim aa(0) As Byteaa(0) = &HAAMSComm1.Output = aa三、接收數(shù)據(jù)(事件方式)Private Sub MSComml _On Comm()On Error Resume NextDim in Data As String 串 口接收的數(shù)據(jù)Dim In Byte() As Byte 定義一個二進制指針放接收到的數(shù)據(jù)選擇事件Dim in By

4、te1() As ByteSelect Case MSComm1.CommEve nt Case comEvReceive 接收到字符TimeNum = 4 賦值計時常量In Byte = MSComm1.I nput數(shù)據(jù)轉(zhuǎn)移到指針Serial_Rece_Fg = TrueDim j As LongFor j = 0 To UBou nd(l nByte)循環(huán)到指針上標If In Byte(j) = 13 The nin Data = in Data & vbCr LfElsein Data = in Data & Chr(I nByte(j) asciiEnd If碼顯示處理Next jTxt_Rcv.SelText = in Data 將剛收到的字符串顯示出來 in Data =Txt_Rcv.SelStart = Len (Txt_Rcv.Text)光標置后Case comEve ntRxOver 接收緩沖區(qū)