MSCOMM控件在VB中发送十六进制数据的方法转

1、MSCOMM牛在VB中发送十六进制数据的方法 转一、初始化配置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设置通信口参数设置MSComm1 接收缓冲区为1024字节设置MSComm1 发送缓冲区为1024字节n putMode = comln putModeB inary设置接收数据模

2、式为二进制形式n putLe n = 0.SThreshold = 0.In BufferCou nt = 0.OutBufferCou nt = 0设置In put 一次从接收缓冲读取全部字节数设置发送完所有产生 On Comm 事件清除接收缓冲区清除发送缓冲区.RThreshold = 1设置接收一个字节产生 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注意：数据收发模式为n putMode = comln putModeB inary设置接收数据模式为二进制形式、发送一个字节的16进制数据Dim aa(0) As Byteaa(0) = &HAAMSComm1.Output = aa三、接收数据(事件方式)Private Sub MSComml _On Comm()On Error Resume NextDim in Data As String 串 口接收的数据Dim In Byte() As Byte 定义一个二进制指针放接收到的数据选择事件Dim in By

4、te1() As ByteSelect Case MSComm1.CommEve nt Case comEvReceive 接收到字符TimeNum = 4 赋值计时常量In Byte = MSComm1.I nput数据转移到指针Serial_Rece_Fg = TrueDim j As LongFor j = 0 To UBou nd(l nByte)循环到指针上标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 接收缓冲区