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

MSCOMM控件在VB中发送十六进制数据的方法 [ 2006-4-13 16:39:28 | By: MCUBLOG ] 0 0 00 推 荐 一、初始化配置 Private Sub Form_Load() With MSComm1 If .PortOpen = True Then .PortOpen = False End If .CommPort = 4 使用COM1 .Settings = BaudRate ,n,8,1 设置通信口参数 .InBufferSize = 1024 设置MSComm1接收缓冲区为1024字节 .OutBufferSize = 1024 设置MSComm1发送缓冲区为1024字节 .InputMode = comInputModeBinary 设置接收数据模式为二进制形式 .InputLen = 0 设置Input 一次从接收缓冲读取全部字节数 .SThreshold = 0 设置发送完所有产生OnComm事件 .InBufferCount = 0 清除接收缓冲区 .OutBufferCount = 0 清除发送缓冲区 .RThreshold = 1 设置接收一个字节产生OnComm事件 .RTSEnable = True If Not .PortOpen Then 判断通信口是否打开 On Error Resume Next .PortOpen = True 打开通信口 If Err Then 错误处理 MsgBox 串口被占用或此串口不存在！通信无效！, 16, 错误提示 Exit Sub End If End If End With End Sub 注意：数据收发模式为 .InputMode = comInputModeBinary 设置接收数据模式为二进制形式 二、发送一个字节的16进制数据 Dim aa(0) As Byte aa(0) = HAA MSComm1.Output = aa 三、接收数据（事件方式） Private Sub MSComm1_OnComm() On Error Resume Next Dim inData As String 串口接收的数据 Dim InByte() As Byte 定义一个二进制指针放接收到的数据 Dim inByte1() As Byte Select Case MSComm1.CommEvent 选择事件 Case comEvReceive 接收到字符 TimeNum = 4 赋值计时常量 InByte = MSComm1.Input 数据转移到指针 Serial_Rece_Fg = True Dim j As Long For j = 0 To UBound(InByte) 循环到指针上标 If InByte(j) = 13 Then inData = inData vbCr Lf Else inData = in