listbox 无法显示正常接收到的数据。
[code=VB][/code]Dim data, data1 As Variant '串口初始化
Private Sub Command2_Click()
List1.Clear 'list1清空
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 1 ' 设置通信端口号为COM1
MSComm1.Settings = "9600,n,8,1" ' 设置串口1参数
MSComm1.InputMode = comInputModeBinary ' 接收二进制数据
MSComm1.InputLen = 0 '读取缓冲区全部数据
MSComm1.RThreshold = 1 '当缓冲区数据到达1时产生oncomm事件
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True ' 打开通信端口1
End Sub
Private Sub Command1_Click()
MSComm1.OutBufferCount = 0 '清除发送缓冲区
MSComm1.Output = "#018" + vbCr
End Sub
Private Sub mscomm1_OnComm()
Dim Recive As String
If MSComm1.CommEvent = 2 Then
Recive = MSComm1.Input
For i = 1 To Len(Recive)
List1.AddItem Right("00" & Hex(Asc(Mid(Recive, i, 1))), 2) & " "
Next i
End If
End Sub
接收到的数据是3F31623F......
而监测到的数据是3E303100......
[解决办法]
Option ExplicitDim data, data1 As Variant '串口初始化Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Command2_Click() List1.Clear 'list1清空End SubPrivate Sub Form_Load() MSComm1.CommPort = 1 ' 设置通信端口号为COM1 MSComm1.Settings = "9600,n,8,1" ' 设置串口1参数 MSComm1.InputMode = comInputModeBinary '接收二进制数据 MSComm1.InputLen = 1 '每个Input只读取缓冲区中一个数据 MSComm1.RThreshold = 1 '当缓冲区数据到达1时产生oncomm事件 If MSComm1.PortOpen = True Then MSComm1.PortOpen = False If MSComm1.PortOpen = False Then MSComm1.PortOpen = True ' 打开通信端口1End SubPrivate Sub Command1_Click() MSComm1.OutBufferCount = 0 '清除发送缓冲区 MSComm1.Output = "#018" + vbCr Sleep 20 '发送命令后等待20ms，以便等待下位机数据返回（根据实际情况，可以取消）End SubPrivate Sub mscomm1_OnComm() Dim Recive As Variant Dim strP As String If MSComm1.CommEvent = 2 Then Sleep 20 '继续等待20ms，以便等待下位机数据返回（根据实际情况，可以取消） MSComm1.RThreshold = 0 '设置此值为0，避免后续接收到的数据继续触发不必要的OnComm事件 Do Recive = MSComm1.Input If Not IsNull(Recive) Then strP = Right("00" & Hex(Recive(0)), 2) List1.AddItem strP End If Loop Until MSComm1.InBufferCount = 0 End IfEnd Sub