VB6.0 怎么用串口接收一组十六进制数据

特别简单，设置并打开串口后 Dim a() As Byte a = Mscomm1.Input 就可以了。

CommPort 设置并返回通讯端口号。Settings 以字符串的形式设置并返回波特率、奇偶校验、数据位、停止位。PortOpen 设置并返回通讯端口的状态。也可以打开和关闭端口。Input 从接收缓冲区返回和删除字符。Output 向传输缓冲区写一个字符串。触发事件 OnComm 多看 msdn 祝你顺利 ...

If Mid(strData, 3, 2) = "1E" Then Shape1.FillColor = vbRed ElseIf Mid(strData, 3, 2) = "2E" Then Shape1.FillColor = vbGreen End If End If strData = ""End If End Select End Sub Public Function jieshou() '接收数据处理为16进制字符 Dim i As Integer For i = ...

MSComm1.CommPort = 1 'MSComm1.Settings = "9600,n,8,1"MSComm1.PortOpen = True End Sub

MSComm1.InputMode = comInputModeBinary '采用二进制传输 MSComm1.InBufferCount = 0 '清空接受缓冲区 MSComm1.OutBufferCount = 0 '清空传输缓冲区 MSComm1.RThreshold = 1 '产生MSComm事件 MSComm1.InBufferSize = 1024 MSComm1.PortOpen = True End Sub Private Sub MSComm1_OnComm() '接收数据 ...

MSComm(intMsCommIndex).InputLen = 0 '--使用Input属性时在接收缓冲区读取的字符数，0为读取整个接收缓冲区内容 MSComm(intMsCommIndex).InputMode = comInputModeBinary '--Input属性取的数据是二进制数据 If Not MSComm(intMsCommIndex).PortOpen Then '--打开串口 MSComm(intMsCommIndex).PortOpe...

'设置接收数据模式为二进制模式 .InputLen=1 '设置一次从接收缓冲区读取字节数为1 .Sthreshold=1 '设置一次从发送缓冲区读取字节数为1 .PortOpen=True '打开通信口 '其他属性设置省略 （2）下面是响应Mycomm_OnComm事件的处理程序，对数据库采集的处理程序采用MSComm事件驱动方式。Private Sub MyComm_...

串口获取数据的话，首先要初始化串口，这个你首先要知道你的传口设备的一个参数（彼特率等）初始化后，那么使用API也可以VB里面的函数也可以，直接就可以获取到串口的数据，有些设备是有指令的，必须要先去一个指令才会给你发数据，这个都要先了解要处理的设备。或者设备后，在可以将获得数据当作数据源...

1、首先看控件区有无串口控件，表明串口控件并未被启用，选择工程→部件→Micosoft comm Control6.0选项，点击应用，即可添加串口控件。2、绘制两个text控件用于存储串口需要收发的数据。一个button控件用于发送指令，添加串口控件。3、编写程序： Private Sub Command1_Click() MSComm1.Output = Text2...

Hex 函数 返回代表十六进制数值的 String。语法 Hex(number)