VB中发送十六进制数据的方法.

1、MSCOMM 控件在 VB 中发送十六进制数据的方法一、初始化配置Private Sub Form_Load(-With MSComm1If .PortOpen = True Then.PortOpen = FalseEnd If.CommPort = 4 使用 COM1.Settings = BaudRate & ,n,8,1 设置通信口参数.InBufferSize = 1024 设置 MSComm1 接收缓冲区为 1024 字节.OutBufferSize = 1024 设置 MSComm1 发送缓冲区为 1024 字节.InputMode = comInputModeBinary 设置

2、接收数据模式为二进制形式-.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 串口被占用或此串口不存在!

3、通信无效 ! , 16, 错误提示 Exit SubEnd IfEnd IfEnd WithEnd Sub注意 :数据收发模式为.InputMode = comInputModeBinary 设置接收数据模式为二进制形式 二、发送一个字节的16 进制数据Dim aa(0 As Byteaa(0 = &HAAMSComm1.Output = aa三、接收数据 (事件方式Private Sub MSComm1_OnComm(On Error Resume NextDim inData As String 串口接收的数据Dim InByte( As Byte 定义一个二进制指针放接收到的数据Dim

4、inByte1( AsByteSelect Case MSComm1.CommEvent选择事件Case comEvReceive接收到字符TimeNum = 4 - 赋值计时常量InByte = MSComm1.Input 数据转移到指针 Serial_Rece_Fg = TrueDim j As LongFor j = 0 To UBound(InByte 循环到指针上标If InByte(j = 13 TheninData = inData & vbCr LfElseinData = inData & Chr(InByte(j -ascii 码显示处理 End IfNext jTxt_Rcv.SelText = inData 将刚收到的字符串显示出来inData = Txt_Rcv.SelStart = Len(Txt_Rcv.Text 光标置后Case comEventRxOver - 接收缓冲区满