# Re: 或者用....

Posted by 阿雨 on July 27, 1999 at 23:25:36:

In Reply to: 是这样的，本人要在隔1us向PRINTPORT 输出数据，不知该如何控制1us posted by Hanting on July 27, 1999 at 15:04:07:

本段文章取自王国荣网站的技巧集http://www.kj.com.tw

可以改用 Windows API 的 timeGetTime 函数， 此一函数会传回 Windows 开机以来所经过的时间，时间单位是 1/1000 秒， 举例来说， 开机经过 2 分钟， 则传回值等于 2*60*1000， timeGetTime 的优点是时间可以精确到 1/1000 秒， 所以可以用来解决上述的问题，细节如下：

1. API 的宣告：

Private Declare Function timeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long

注：如果以上的宣告放在「一般模组」底下， 应将 Declare 之前的 Private 保留字去掉。

2. 程式范例：

Dim tm1 As Long
Do
tm1 = timeGetTime
While timeGetTime - tm1 < 5 ' 等于 5/1000 = 0.005 秒
DoEvents
Wend
...做某一件工作
Loop

Follow Ups: