modbus.bas

利用MODBUS与EMA智慧型电表通讯

Attribute VB_Name = "Module1"
Function CRC16(Data() As Byte, no As Integer, CRC16Lo As Byte, CRC16Hi As Byte) As String
    
      Dim CL As Byte, CH As Byte                '