VBMODBUS实现源码VIP专享VIP免费

Option Explicit Public bln_busy As Boolean Public bln_success As Boolean Public bln_readword As Boolean Public Declare Function timeGetTime Lib "winmm.dll" () As Long Public Sub tran_modbus_order(ByVal byt_slv_id As Byte, ByVal byt_func As Byte, ByVal addr As Long, byt_data() As Byte) Dim trans_byte() As Byte Dim i As Integer Dim j As Integer Dim k As Integer Dim Index As Integer Dim CRC() As Byte Dim temp As Integer Dim lenth As Integer Dim lenth1 As Integer Select Case byt_func Case 1 ReDim trans_byte(7) As Byte trans_byte(0) = byt_slv_id trans_byte(1) = 1 trans_byte(2) = (addr - 1) \ 256 trans_byte(3) = (addr - 1) Mod 256 trans_byte(4) = 0 trans_byte(5) = byt_data(0) CRC = CRC16(trans_byte) trans_byte(6) = CRC(0) trans_byte(7) = CRC(1) Case 3 ReDim trans_byte(7) As Byte trans_byte(0) = byt_slv_id trans_byte(1) = 3 trans_byte(2) = (addr - 1) \ 256 trans_byte(3) = (addr - 1) Mod 256 trans_byte(4) = 0 trans_byte(5) = byt_data(0) CRC = CRC16(trans_byte) trans_byte(6) = CRC(0) trans_byte(7) = CRC(1) Case 6 ReDim trans_by te(7) As By te trans_by te(0) = by t_slv _id trans_by te(1) = 6 trans_by te(2) = (addr - 1) \ 256 trans_by te(3) = (addr - 1) Mod 256 trans_by te(4) = by t_data(0) trans_by te(5) = by t_data(1) CRC = CRC16(trans_by te) trans_by te(6) = CRC(0) trans_by te(7) = CRC(1) Case 15 lenth = UBou nd(by t_data) + 1 lenth1 = (lenth - 1) \ 8 + 1 ReDim trans_by te(8 + lenth1) trans_by te(0) = by t_slv _id trans_by te(1) = &HF trans_by te(2) = (addr - 1) \ 256 trans_by te(3) = (addr - 1) Mod 256 trans_by te(4) = 0 trans_by te(5) = lenth trans_by te(6) = lenth1 k = 0 Index = 7 temp = 0 For i = 1 To lenth temp = temp + by t_data(i - 1) * (2 ^ k) If (i Mod 8 = 0...