社区
VB基础类
帖子详情
一个vb程序怎样使它每隔5分钟运行一次?
hkdavis
2000-06-28 12:18:00
程序名为vbrun.exe
如何使个VB程序在系统中从9:00开始每隔5分钟运行一次;到17:00结束(50fen)
1系统配置?(50)
2程序如何设计,原代码?(100)
...全文
709
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打开新
程序
、强制结束进程。
程序
和界面说明:http://blog.csdn.net/linjimu/archive/2008/10/06/3023532.aspx
VB
试题.doc
VB
试题.doc 一、 填空题 1.VB中若要产生一消息框,可用__msgbox__函数来实现。 2.常量是指在
程序
运行
过程中, 其值不能改变 的量。 3.整数类型数据分别包括整型和 长整型 数据。 4、在VB集成开发环境中,
运行
应用
程序
的方法有三种:一是_单击“
运行
”菜单下的启动_;二是_单击工具栏上的启动按钮;三是_按F5键 。 5、在VB中若要让某对对象获取焦点,则可通过__ Setfocus_方法来实现。 6.列表框(ListBox控件)显示 项目列表 ,用户可从中选择
一个
或多个项目。 7.框架(Frame控件)可以用来 对其它控件 进行分组,以便于用户识别,主要用于为单选按钮分组。 8、在VB中,用来描述对象外部特征的量称之为对象的_属性__。 9、为使某窗口中的命令按钮“取消(C)”具有如下特性:按“Alt+C”键或按 “ESC” 键,均可代替用鼠标单击该按钮的操作,应设置该按钮的Caption属性值为_取消(&C)___,并且设置其_ Cancel__属性值为__ True__。 10、在过程内用_ Static__声明的变量为静态变量,在执行
一个
过程结束时,过程中所用到的 Static变量的值会保留,下次再调用此过程时,变量的初值是上次调用结束时被保留的值。 11、在模块文件中的声明部分用Global或__ Dim__关键字声明的变量为全局变量。 12、在模块文件中的声明部分用__ Dim__或__ Private__定义的变量为模块级变量。 13.计时器控件通过定期激活Timer事件,使得Timer控件 可以
每隔
一个
时间段 就执行
一次
Timer事件中的代码。 14.要获得滚动条的当前位置,可以访问通过 Value 属性来实现。 15.关闭正在
运行
的
VB
窗口将自动触发的事件是 Unload 。 二、选择题 1.工程文件的扩展名是( B )。 A.
vb
g B.
vb
p C.
vb
w D.
vb
l 2.在以下窗体中没有采用的控件是( B )。 A.文本框 B 垂直滚动条 C.框架 D 命令按钮 3.滚动条控件(如图所示)的Largechange属性所设置的是( A ) A. 单击滚动条和滚动箭头之间的区域时,滚动条控件Value属性值的改变量 B. 滚动条中滚动块的最大移动位置 C. 滚动条中滚动块的最大移动范围 D. 滚动条控件无该属性 4、用于从字符串左边截取字符的函数是( A ) A、Ltrim( ) B、Trim( ) C、Left( ) D、Instr( ) 5、可获得当前系统日期的函数是( A )
VB
A时间间隔重复执行
程序
关于
VB
A Application.OnTime用法 application.ontime |举报 |字号 订阅 Application.OnTime可实现定时执行
vb
a
程序
。在
vb
.net中可定时执行windows
程序
。 下面介绍定时执行
vb
a
程序
过程: 1.Application.OnTime参数 Application.OnTime(EarliestTime,Procedure as String,[LatestTime],[Schedule]) EarliestTime调用
程序
的时间 Procedure调用
程序
的
程序
名,类型String LatestTime
程序
执行的结束时间,可选,默认不停调用 Schedule默认True:预定新的调用过程,False非预定调用新的过程 2.举例 Sub fslk() '本
程序
在每天的12点
运行
yourproc过程" Application.OnTime _ EarliestTime:=TimeValue("12:00:00"), _ Procedure:="YourProc" End Sub '被调用
程序
Sub yourpc() Cells.(1, 2).Value = 4423 End Sub 3.循环调用
程序
自身,并设置调用时间举例 Option Explicit '公共变量说明 Dim endtime As String Sub oneminute() '主
程序
endtime = Now + TimeValue("00:01:00") Call updateself End Sub Sub updateself() '被调用
程序
Sheet1.Cells(4, 3).Value = Format(Now(), "hh:mm:ss") Application.OnTime Now + TimeValue("00:00:01"), "updateself", endtime, True End Sub 此例子在单元格C4读秒持续显示,显示时间长度1
分钟
http://wenku.baidu.com/link?url=vgi6RL7p_2TqF7B-okY4Z-6glN-wjRcMw9UzBjf7yZrLLPztBNAdllM5u__bwkKxgyGdELCy1Lsz7PVYJxBkEPybO64LFAKxMtn9JeKoUTG
网络连通监测工具(附
VB
6源码0
本人经常关闭显示器让主机开着下载一些高清电影、游戏之类的大文件,但是郁闷的是校园网不太稳定,偶尔会掉线,一掉线可能电脑白白开了几个小时都不知道,于是就写了这个小工具,
每隔
20
分钟
ping
一次
百度,如果不通的话,就会打开事先设置好的音乐播放器播放音乐,这样听见音响有音乐就知道可能掉线了。 这是
一个
zip压缩包,里面有源码、安装
程序
和cab文件,据我测试把cab文件解压后直接
运行
里面的“网络连通监测工具.exe”就可以了。 本人刚学习
VB
,第
一个
作品,望高手不要嘲笑。
VB基础类
7,763
社区成员
197,605
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章