usb控制继电器板软件+驱动+源代码PublicFunctiontx_read_frame(leixingAsByte,data1AsByte,data2AsByte,data3AsByte,data4AsByte)StaticByteout(0To7)AsByte,iAsByte'向外发送DimsumAsIntegerByteout(0)=&H55;Byteout(1)=1Byteout(2)=leixingByteout(3)=data1Byteout(4)=data2Byteout(5)=data3Byteout(6)=data4sum=0Fori=0To6Step1sum=sum+Byteout(i)NextByteout(7)=sumMod256main_form.MSComm1.InBufferCount=0main_form.MSComm1.Output=ByteoutEndFunction
2025/1/15 10:04:27
4KB
继电器
1