16,555
社区成员
发帖
与我相关
我的任务
分享
Dim strSend(7) As Byte
strSend(0) = &H1
strSend(1) = &H6
strSend(2) = &H4
strSend(3) = &HE
strSend(4) = &H0
strSend(5) = &H5
strSend(6) = &H29
strSend(7) = &H3A
SerialPort1.Write(strSend, 0, 8)