社区
VB基础类
帖子详情
一个vb程序怎样使它每隔5分钟运行一次?
hkdavis
2000-06-28 12:18:00
程序名为vbrun.exe
如何使个VB程序在系统中从9:00开始每隔5分钟运行一次;到17:00结束(50fen)
1系统配置?(50)
2程序如何设计,原代码?(100)
...全文
704
16
打赏
收藏
一个vb程序怎样使它每隔5分钟运行一次?
程序名为vbrun.exe 如何使个VB程序在系统中从9:00开始每隔5分钟运行一次;到17:00结束(50fen) 1系统配置?(50) 2程序如何设计,原代码?(100)
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
16 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
jienao
2000-06-28
打赏
举报
回复
我想可能只有象很多的杀毒软件那样,必须先运行程序,然后用定时器触发某功能的运行。
hkdavis
2000-06-28
打赏
举报
回复
xiexiem ge wei!
mingtian gei fen
jianhuacai
2000-06-28
打赏
举报
回复
不如装上WIN2000用TASK 连程序都不用便
cherami
2000-06-28
打赏
举报
回复
Timer有个属性是定义它的时间间隔的,程序中的timer1.inteval = 60000
即是设置那个间隔的大小的。单位是毫秒。如果你认真的分析一下程序你就应该能知道那两个值是什么意思了。sgnt是Timer的累计时间值,而sngOldTime是当计时到5分钟的时候记录Timer的值,为下一次计算计时间隔做准备。看看那个计算式。我想你能看懂的。
Un1
2000-06-28
打赏
举报
回复
timer返回从0点到现在得秒数的单精度值。程序的意思是每隔大约一秒检测一次从午夜到现在的秒数,如果在上午9点和下午5点之间且和前次进入的时间间隔大于或等于5分种时就call function.
hkdavis
2000-06-28
打赏
举报
回复
vb里timer的值怎么为53813.45 什么意思? 能否给我谈谈timer值的意义?
hkdavis
2000-06-28
打赏
举报
回复
您好:这个我知道,
我是问
上面定义的 sngt,sngoldtime是什么意思?且为单精度我更不懂了,还有上面的sngoldtime总为0,sngt为53108.47这是什么意义?
sngt = Timer
sngOldTime=sngt呢?
Wonny
2000-06-28
打赏
举报
回复
时间变量!源程序都给出了,自己想想不就行了?
cherami
2000-06-28
打赏
举报
回复
你可以查看MSDN,里面有例子。Timer是VB里的一个控件,你可以设置他的时间间隔,但有最大值,好象是1000毫秒,即1秒,你自己查查看吧。
hkdavis
2000-06-28
打赏
举报
回复
我调试时基本正确,请解释一下:
上面定义的 sngt,sngoldtime是什么意思?
sngt = Timer
sngOldTime=sngt
是什么意思?
Un1
2000-06-28
打赏
举报
回复
怎么提交有问题!
Un1
2000-06-28
打赏
举报
回复
'例如:
'注意!程序未经调试!
private sub Form_Load
timer1.inteval = 60000
end sub
private sub Timer1_Timer
static sngOldTime as Single
dim sngt as Single
sngt = Timer
if sngt>=9*3600! then
if sngt<17*3600! then
If abs(sngt-sngOldTime)>=5 then
sngOldTime=sngt
call function1
end if
end if
end if
end sub
private function function1()
....
end function
Un1
2000-06-28
打赏
举报
回复
'例如:
'注意!程序未经调试!
private sub Form_Load
timer1.inteval = 60000
end sub
private sub Timer1_Timer
static sngOldTime as Single
dim sngt as Single
sngt = Timer
if sngt>=9*3600 then
if sngt<17*3600 then
If abs(sngt-sngOldTime)>=5 then
sngOldTime=sngt
call function1
end if
end if
end if
end sub
private function function1()
....
end function
hkdavis
2000-06-28
打赏
举报
回复
这个我知道,能不能说一些关键的有用的有价值的代码?
Un1
2000-06-28
打赏
举报
回复
private sub Form_Load
end sub
hkdavis
2000-06-28
打赏
举报
回复
正是如此,我是初学者。我想学习如何触发定时器事件。
比如每隔5分钟触发一个函数function1,如何写愿代码?
而且控制在17:00结束程序。
请给原代码,你自己想一些名称吧。
我主要目的是想学习如何到一定时间触发一个事件的原代码如何写?谢谢!
Vb
定时提醒软件-
每隔
指定时间弹出提示发出提示音.rar
为保护眼睛而专业编写的
Vb
定时提醒软件-
每隔
指定时间弹出提示发出提示音,写本软件的初衷是
一个
护眼软件,当面对电脑至设定的小时后,即会触发
程序
弹出提示,或发出警报音,可自定义休息时间结束时(工作时的声音提示...
vb
.net设计的:自动
运行
任务计划
每隔
一个
时间段就自动
运行
选择的
程序
。可以只
运行
一次
或者多次。 用到的知识点: 正则表达式,时间的比较,两个Timer互调。启动windows时自动
运行
本
程序
的设置(修改注册表..CurrentVersion\Run),Process打开新...
VB
试题.doc
13.计时器控件通过定期激活Timer事件,使得Timer控件 可以
每隔
一个
时间段 就执行
一次
Timer事件中的代码。 14.要获得滚动条的当前位置,可以访问通过 Value 属性来实现。 15.关闭正在
运行
的
VB
窗口将自动触发的事件...
VB
A时间间隔重复执行
程序
举例 Sub fslk() '本
程序
在每天的12点
运行
yourproc过程" Application.OnTime _ EarliestTime:=TimeValue("12:00:00"), _ Procedure:="YourProc" End Sub '被调用
程序
Sub yourpc() Cells.(1, 2).Value = 4423 End ...
网络连通监测工具(附
VB
6源码0
本人经常关闭显示器让主机开着下载一些高清电影、游戏之类的大文件,但是郁闷的是校园网不太稳定,偶尔会掉线,一掉线可能电脑白白开了几个小时都不知道,于是就写了这个小工具,
每隔
20
分钟
ping
一次
百度,如果不通的...
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章