module2.bas

来自「这是一个GPIB源程序代码,里面有硬件相对应的代码」· BAS 代码 · 共 22 行

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