[
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False  ‘关闭通讯串口
End If
End Sub
5.2 读VW函数
Function ppird(readaddress As String)  ‘读VW的地址，例如：1000

Dim i As Integer, temp As Integer
Dim sendbyte(32) As Byte
sendbyte(0) = &H68
sendbyte(1) = &H1B
sendbyte(2) = &H1B
sendbyte(3) = &H68
sendbyte(4) = &H2
sendbyte(5) = &H0
sendbyte(6) = &H6C
sendbyte(7) = &H32
sendbyte(8) = &H1
sendbyte(9) = &H0
sendbyte(10) = &H0
sendbyte(11) = &H0
sendbyte(12) = &H0
sendbyte(13) = &H0
sendbyte(14) = &HE
sendbyte(15) = &H0
sendbyte(16) = &H0
sendbyte(17) = &H4
sendbyte(18) = &H1
sendbyte(19) = &H12
sendbyte(20) = &HA
sendbyte(21) = &H10
sendbyte(22) = &H4
sendbyte(23) = &H0
sendbyte(24) = &H1
sendbyte(25) = &H0
sendbyte(26) = &H1
sendbyte(27) = &H84
sendbyte(28) = &H0
sendbyte(29) = (readaddress * 8) \ 256  ‘计算读高位地址
sendbyte(30) = (readaddress * 8) Mod 256 ‘计算读低位地址
sendbyte(31) = &H0
sendbyte(32) = &H16
For i = 4 To 30
    temp = temp + sendbyte(i)
Next
sendbyte(31) = temp Mod 256    ‘计算校验码

[本文共有 4 页，当前是第 2 页] <<上一页 下一页>>

]