module2.bas

LDO在线测试程序

Attribute VB_Name = "Module2"
Option Explicit

Private Declare Function timeGetTime Lib "winmm.dll" () As Long '调用API
Public lngStartTime As Long   'time in msec

Public Function StartTimer() '开始时间
    lngStartTime = timeGetTime()
End Function

Public Function EndTimer() As Double '结束时间
    EndTimer = timeGetTime() - lngStartTime
End Function

Public Function delay(msdelay As Long) '延时时间
   ' creates delay in ms
   Dim temp As Double
   StartTimer
   Do Until EndTimer > (msdelay)
   Loop
End Function