7,763
社区成员
发帖
与我相关
我的任务
分享
With MSComm1
On Error Resume Next
If 通信端口 = 0 Then
For i = 1 To 8
'i = 1
.CommPort = i
.PortOpen = True
If Err.Number = 0 Then
读取 = "DD2C"
Call 转换.校检(读取)
buf(0) = &HAA
buf(1) = &HD1
buf(2) = &H22
buf(3) = Val("&h" & 校检1)
buf(4) = Val("&h" & 校检2)
buf(5) = &HBB
MSComm1.Output = buf
End If
If Err.Number = 0 Then MSComm1.PortOpen = False
Next
End With