一个vb程序怎样使它每隔5分钟运行一次？

[hkdavis]

程序名为vbrun.exe
如何使个VB程序在系统中从9：00开始每隔5分钟运行一次；到17：00结束（50fen）
1系统配置？(50)
2程序如何设计，原代码?(100)

[hkdavis]

正是如此，我是初学者。我想学习如何触发定时器事件。
比如每隔5分钟触发一个函数function1，如何写愿代码？
而且控制在17:00结束程序。
请给原代码，你自己想一些名称吧。
我主要目的是想学习如何到一定时间触发一个事件的原代码如何写？谢谢！

[Un1]

private sub Form_Load

end sub

[hkdavis]

这个我知道，能不能说一些关键的有用的有价值的代码？

[Un1]

'例如：

'注意!程序未经调试！

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]

'例如：

'注意!程序未经调试！

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]

怎么提交有问题！

[hkdavis]

我调试时基本正确，请解释一下：
上面定义的 sngt,sngoldtime是什么意思？
sngt = Timer
sngOldTime=sngt
是什么意思？

[cherami]

你可以查看MSDN，里面有例子。Timer是VB里的一个控件，你可以设置他的时间间隔，但有最大值，好象是1000毫秒，即1秒，你自己查查看吧。

[Wonny]

时间变量！源程序都给出了，自己想想不就行了？

[hkdavis]

您好：这个我知道，
我是问
上面定义的 sngt,sngoldtime是什么意思？且为单精度我更不懂了，还有上面的sngoldtime总为0,sngt为53108.47这是什么意义？
sngt = Timer
sngOldTime=sngt呢？

[hkdavis]

vb里timer的值怎么为53813.45 什么意思？ 能否给我谈谈timer值的意义？

[Un1]

timer返回从0点到现在得秒数的单精度值。程序的意思是每隔大约一秒检测一次从午夜到现在的秒数，如果在上午9点和下午5点之间且和前次进入的时间间隔大于或等于5分种时就call function.

[cherami]

Timer有个属性是定义它的时间间隔的，程序中的timer1.inteval = 60000
即是设置那个间隔的大小的。单位是毫秒。如果你认真的分析一下程序你就应该能知道那两个值是什么意思了。sgnt是Timer的累计时间值，而sngOldTime是当计时到5分钟的时候记录Timer的值，为下一次计算计时间隔做准备。看看那个计算式。我想你能看懂的。

[jianhuacai]

不如装上WIN2000用TASK 连程序都不用便

[hkdavis]

xiexiem ge wei!
mingtian gei fen

[jienao]

我想可能只有象很多的杀毒软件那样，必须先运行程序，然后用定时器触发某功能的运行。