| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 414 人关注过本帖
标题:新手疑问求解答
只看楼主 加入收藏
libingchao
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2020-11-5
结帖率:0
收藏
已结贴  问题点数:20 回复次数:7 
新手疑问求解答
[图片]
我编写了这样一段计时器程序。
在运行过程中发现这段程序砸死winxp和win10下运行正常。但是在win7系统下,计时器与秒表掐的时间有差距,而且是时间越长,累计的差距越大。想请问高手是不是系统设置问题,该如何设置。
搜索更多相关主题的帖子: 运行 系统 计时器 时间 疑问 
2020-11-05 20:49
yuma
Rank: 10Rank: 10Rank: 10
来 自:银河系
等 级:青峰侠
威 望:3
帖 子:1271
专家分:1850
注 册:2009-12-22
收藏
得分:7 
发一下你的代码,大家看一下才知道原因。

心生万象,万象皆程序!   敲敲代码更健康!   
2020-11-05 21:42
libingchao
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2020-11-5
收藏
得分:0 
图片没发上去啊。。。。
代码是这样:
dim time as single

private sub command1_click()
timer1.enableed=true
time=0
end sub

private sub timer1_timer()
time=time+1
label1.caption=time\2
if csng(label1.caption)=csng(text1.text) then
timer1.enabled=false
end if
end sub

2020-11-06 11:41
libingchao
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2020-11-5
收藏
得分:0 
回复 2楼 yuma
dim time as single

private sub command1_click()
timer1.enableed=true
time=0
end sub

private sub timer1_timer()
time=time+1
label1.caption=time\2
if csng(label1.caption)=csng(text1.text) then
timer1.enabled=false
end if
end sub
代码是这样 同样的代码 分别在xp win7 win10运行 win7的计时会出问题
大神帮我看看把
2020-11-06 11:43
cwa9958
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:13
帖 子:104
专家分:570
注 册:2006-6-25
收藏
得分:7 
timer控件做定时,是不准的。
还有time是一个系统函数,不要做变量。
2020-11-06 15:08
libingchao
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2020-11-5
收藏
得分:0 
回复 5楼 cwa9958
请问大神 有没有什么很准的做定时器的方法?
2020-11-06 21:28
cwa9958
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:13
帖 子:104
专家分:570
注 册:2006-6-25
收藏
得分:0 
一般时间都是取用电脑的系统时间。
timer函数是获得从0点开始到现在的时间,精确到0.001秒。但是有一个缺点,过了0点就会重新计算,只能短时间使用。
电脑的开机时间,只能精确到秒。


[此贴子已经被作者于2020-11-7 08:56编辑过]

2020-11-07 08:54
wufuzhang
Rank: 9Rank: 9Rank: 9
来 自:广州
等 级:贵宾
威 望:21
帖 子:205
专家分:1341
注 册:2017-8-9
收藏
得分:7 
mmTimer.dll
毫秒级定时器,精度很高。
附件: 游客没有浏览附件的权限,请 登录注册

不经历千百遍的调试,怎能体会成功时那一刹那的喜悦。
2020-11-09 09:24
快速回复:新手疑问求解答
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.067415 second(s), 8 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved