modtime.bas

来自「Agilent 34401数字万用表用VB写的通讯源码」· BAS 代码 · 共 23 行

Attribute VB_Name = "modTime"
Option Explicit

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

Public Sub StartTimer()
    lngStartTime = timeGetTime()
End Sub

Public Function EndTimer() As Double
    EndTimer = timeGetTime() - lngStartTime
End Function

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