module1.bas

MODBUS串口调试工具源代码

Attribute VB_Name = "Module1"
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public lTime_1 As Long, lTime_2 As Long
Public lTime_Min As Long, lTime_Max As Long
Public lTime_Start As Long, lTime_Stop As Long

Public ReceBuff() As Byte

Public yx_state As Long

Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)