vb倒计时程序设计代码(vb2010倒计时程序)
VB倒计时代码
dim
s
as
long
private
sub
cmdset_click()
timer1.enabled
=
false
s
=
inputbox("请输入倒计时秒数:",
"设置倒计时秒数",
5)
label1
=
"倒计时:
"
s
"秒"
cmdstop.tag
=
s
cmdstart.tag
=
cmdstart.caption
=
"启动时间"
cmdstart.enabled
=
s
cmdstop.enabled
=
s
end
sub
private
sub
cmdstart_click()
if
cmdstart.tag
=
then
timer1.enabled
=
true
cmdstart.caption
=
"暂停时间"
cmdstart.tag
=
1
else
timer1.enabled
=
false
cmdstart.caption
=
"启动时间"
cmdstart.tag
=
end
if
end
sub
private
sub
cmdstop_click()
cmdstart.tag
=
cmdstart.caption
=
"启动时间"
timer1.enabled
=
false
s
=
cmdstop.tag
label1
=
"倒计时:
"
s
"秒"
end
sub
private
sub
timer1_timer()
s
=
s
-
1
label1
=
"倒计时:
"
s
"秒"
if
s
=
then
timer1.enabled
=
false
cmdstart.caption
=
"启动时间"
cmdstart.tabindex
=
end
if
cmdstart.enabled
=
s
cmdstop.enabled
=
s
end
sub
VB倒计时怎么做
1、首先,建立一个工程,并在窗口中添加三个命令按钮,caption分别改为“设置倒计时”、“启动倒计时”、“继续”,将窗体Form1的caption属性改为“倒计时”,再添加一个计时器控件,并且添加一个文本框,将界面设置成如下图所示。
2、将文本框的Text里的属性清空干净,再把字体Font的属性调整成为小四,方便接下来的观察,一定记得把背景色属性Backcolor调为浅黄色。
3、接下来,双击“设置倒计时”命令这个按钮,就会进入到代码编辑窗口,输入如图所示代码:
4、接着双击“启动倒计时”命令这个按钮,接下来会进入代码编辑窗口,再输入如下图所示代码:
5、再接着双击“计时器”控件,然后进入代码编辑窗口,输入如图所示代码:
6、在代码编辑窗口的通用段进行这三个变量的定义:Dim h As Integer, m As Integer, s As Integer '分别存储这三个量时、分、秒,如下图所示。
7、最后再双击窗体,然后就会进入代码编辑器,在?Form_Load事件中写入代码,代码如下图红框所示:
8、接着关闭代码窗口,按一下F5运行程序,再单击“设置倒计时”这个命令按钮,这时候就会弹出一个输入对话框,一定要记得此时输入分钟数,数字为1,然后确定,如图所示:
9、最后一定要单击“启动倒计时”这个命令按钮,然后文本框就会显示倒计时时间,并会不断地变动,这个时候你就可以看见时间在变动,这就是实现了倒计时功能,如图所示:
扩展资料:
使用VB倒计时设置计时参数5X60=300秒,然后设置定时器1S中断.当计时器为0就是5分钟,将计时器参数显示在文本框中就可以了。这个题目需要使用计时器控件,所以计时器的控件的Timer事件以及Enable属性、Interval属性需要熟知。
vb 设计一个“倒计时”程序。
vb里面有一个datediff函数,可以用来计算两个日期之间相差多少秒,然后把这个结果除以(24*60*60)的结果就是还有多少天,余数除以60*60的结果就是还有多少小时,然后余数再除以60就是分,剩下的余数就是秒