| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 966 人关注过本帖
标题:[求助]vb中延时的大麻烦怎么办
只看楼主 加入收藏
lala
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-2-18
收藏
 问题点数:0 回复次数:8 
[求助]vb中延时的大麻烦怎么办

就是在我的程序设计的是1800次的循环中有描点 pset,之后再延时1s,但这样程序的图线并不是连续的画出,而且老死住
Private Sub Command1_Click()
Dim i As Long
For i = 0 To 1800
Call Sleep(10000)
picvalue.PSet (i, 100)
Next i
End Sub

谁可以指教一下,不胜感激

搜索更多相关主题的帖子: 延时 麻烦 
2006-02-18 10:39
lala
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-2-18
收藏
得分:0 
谁只道啊?
2006-02-18 10:54
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

你Sleep(10000)是10秒,不是一秒

或者可以用DoEvents来处理,请看代码:

Option Explicit

Private Sub Form_Load()
Debug.Print "等待3秒..."
Delay 3
Debug.Print "OK"
End Sub

Private Sub Delay(intTime As Integer)
Dim dtStartTime As Date
dtStartTime = Now

Do While DateDiff("s", dtStartTime, Now) < intTime
DoEvents
Loop
End Sub

[此贴子已经被作者于2006-2-18 11:08:57编辑过]


天津网站建设 http://www./
2006-02-18 11:07
lala
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-2-18
收藏
得分:0 

关键是在一个循环中总要调用一秒的延时怎么办??

2006-02-18 11:11
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 

为什么要停1秒?


快上课了……
2006-02-18 12:57
辉少
Rank: 1
等 级:新手上路
威 望:2
帖 子:147
专家分:7
注 册:2005-8-25
收藏
得分:0 

不如用timer 循环好了,再加上累加器,完美无缺啊


辉少QQ:469781880 博客:http:///bbs/boke.asp?25189.index.html
2006-02-19 10:52
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
收藏
得分:0 
有个内置函数叫:Timer。Print Timer,会显示一个两位小数的值,它表示从当天00:00开始到当前时间所经过的时间,单位是秒
所以,griefforyou的函数:delay也可以写成:
Private Sub Delay(ByVal i As Integer)
Dim start As Single
start = Timer
Do While Timer < start + i
DoEvents
Loop
End Sub
效果应该是一样的

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-02-19 13:17
dwdeng
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-2-20
收藏
得分:0 
griefforyou 牛,赞成griefforyou
2006-02-20 10:46
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
收藏
得分:0 
还想补充一下,griefforyou的函数的适用情况是时间间隔必须为整数秒,否则不适用,比如想停顿0.1秒是完不成的
我写的函数可以精确到0.01秒,不过,由于这个函数是获得从当天0:00起,当前时间所经过的秒数,所以这个函数在使用时不能跨0:00,否则会出现负值,而griefforyou的函数是可以跨0:00的

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2006-02-20 18:52
快速回复:[求助]vb中延时的大麻烦怎么办
数据加载中...
 
   



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

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