【文件属性】:
文件名称:usb控制继电器板软件+驱动+源代码
文件大小:4KB
文件格式:RAR
更新时间:2015-06-04 03:09:37
继电器
usb控制继电器板软件+驱动+源代码
Public Function tx_read_frame(leixing As Byte, data1 As Byte, data2 As Byte, data3 As Byte, data4 As Byte)
Static Byteout(0 To 7) As Byte, i As Byte '向外发送
Dim sum As Integer
Byteout(0) = &H55; Byteout(1) = 1
Byteout(2) = leixing
Byteout(3) = data1
Byteout(4) = data2
Byteout(5) = data3
Byteout(6) = data4
sum = 0
For i = 0 To 6 Step 1
sum = sum + Byteout(i)
Next
Byteout(7) = sum Mod 256
main_form.MSComm1.InBufferCount = 0
main_form.MSComm1.Output = Byteout
End Function
【文件预览】:
标准1
----Module1.bas(587B)
----Form1.frm(8KB)
----工程1.vbp(825B)
----Form1.frx(1KB)
----MSSCCPRJ.SCC(190B)
----工程1.vbw(87B)
网友评论
- 骗分的,都没的连接程序
- 可以使用,但是第一次连接是有问题。
- 不错的程序.