网页
资讯
视频
图片
知道
文库
贴吧
地图
采购
进入贴吧
全吧搜索
吧内搜索
搜贴
搜人
进吧
搜标签
日
一
二
三
四
五
六
签到排名:今日本吧第
个签到,
本吧因你更精彩,明天继续来努力!
本吧签到人数:0
一键签到
成为超级会员,使用一键签到
一键签到
本月漏签
0
次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行
补签
。
连续签到:
天 累计签到:
天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
09月08日
漏签
0
天
vbs吧
关注:
18,273
贴子:
104,625
看贴
图片
吧主推荐
游戏
3
回复贴,共
1
页
<<返回vbs吧
>0< 加载中...
Timer函数和WScript.Sleep的精确度是15.625毫秒
只看楼主
收藏
回复
nefu_20061617
铁杆吧友
8
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
用Timer函数获取的时间差都是0.015625的整数倍,所以Timer函数的精确度是六十四分之一秒。
测试代码:
t0 = Timer
For i = 1 To 3
WScript.Sleep 1 '把1改成14结果不变
Next
MsgBox Timer - t0
8888888888q1
知名人士
10
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
哈,这个测试好,我以前想做个计时器,结果发现用Wsript.Sleep和Timer都达不到毫秒级的精度,就想测试他们的精度,结果想不出方法来。厉害^_^!
PopEye
意见领袖
14
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
LZ的钻研精神值得学习,赞一个!
For I = 1 To 100
dtmInit = Timer
WScript.Sleep I
dtmNow = Timer
If dtmNow - dtmInit > dtmDiff Then
dtmDiff = dtmNow - dtmInit
str = str & I & vbTab & dtmDiff & vbCrLf & vbCrLf
End If
Next
WScript.Echo str
Teletypes
铁杆吧友
8
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
登录百度账号
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示