module1.bas

rs485 資料傳輸及excel建立產生表單

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 AA As String
Public A1 As String, A2 As String, A3 As String, A4 As String, A5 As String
Public A6 As String, A7 As String, A8 As String, A9 As String, A10 As String
Public A11 As String, A12 As String, A13 As String, A14 As String, A15 As String
Public A16 As String, A17 As String, A18 As String, A19 As String, A20 As String
Public A21 As String, A22 As String



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