简介:关于等于计时器方面的的相关大学硕士和相关本科毕业论文以及相关等于计时器论文开题报告范文和职称论文写作参考文献资料下载。
宋修宪1,魏秀启1 ,李强1 ,王义峰2
(1. 92724 部队, 青岛266109;2. 91206 部队,青岛266109)
摘 要:利用VB 的Timer 控件及TextBox 控件制作一个简易实用的任意的倒计时器.
关键词: VB;倒计时器;代码;编写
1.引言
计时器的编写程序会经常看到,但倒计时器,特别是可以任意设置的倒计时器却并不多见.下面就利用VB 的Timer 控件及TextBox 控件这些最常见的控件编写一个简易实用的任意倒计时器.
2.程序设计
2.1 界面设计
如图1 所示新建一个标准exe 工程,在窗口上建立3 个 Textbox 控件(Text1、Text2、Text3), 建立2 个Label 控件(Label1、Label2),一个命令Commandbutton 控件Command1, 1 个timer 控件Timer1.此外,还可以再加上几个装饰辅助的 Label 控件.
2.2 程序原理
在Text1 的文本框里输入数字(秒数),通过Text1 的 Change 事件,把秒数换算成分、秒,自动填入Text2 (分) 和 Text3 (秒) 的文本框中.点击Command1 命令按钮(倒计时),Timer1 的Timer 事件开始,定义显示Label1 的Caption 时间格式,并开始倒计时如图2.
2.3 代码
&,apos, 变量声明
Dim Minute_Int As Integer
Dim Second_Int As Integer
Dim S_Str As String
Dim M_Str As String
Dim Time_Str As String
Dim a As String
Dim b As String
&,apos, Text1 的Change (变化) 事件,转换成分、秒
Private Sub Text1_Change ()
text3.Text 等于 Val (Text1.Text) Mod 60
text2.Text 等于 ( Val ( Text1.Text) - ( Val ( Text1.Text)
Mod 60)) / 60
If Val (text3.Text) &,lt, 10 Then
text3.Text 等于 &,quot, 0&,quot, &, text3
End If
If Val (text2.Text) &,lt, 10 Then
text2.Text 等于 &,quot, 0&,quot, &, text2
End If
End Sub
&,apos, 防止输入非数字格式
Private Sub Text1_KeyPress (KeyAscii As Integer)
If (Chr (KeyAscii) &,gt, &,quot, 9&,quot, Or Chr (KeyAscii) &,lt, &,quot, 0&,quot,)
Then
KeyAscii 等于 0
Label2.Caption 等于 &,quot, 非法修改!请正确输入数字时间!!&,quot,
Else
Label2.Caption 等于 &,quot, 倒计时秒数设置&,quot,
End If
End Sub
&,apos, 点击倒计时按钮,为Timer1 赋值,分为a,秒为b,倒
&,apos, 计时间隔为1 秒(Timer1.Interval 等于 1000)
Private Sub Command1_Click ()
If Text1.Text 等于 &,quot,&,quot, Then
Text1.Text 等于 &,quot, 59&,quot,
End If
a 等于 text2.Text
b 等于 text3.Text
Timer1.Enabled 等于 True
Hour_Int 等于 0
Minute_Int 等于 a
Second_Int 等于 b
Timer1.Interval 等于 1000
End Sub
&,apos, 倒计时
Sub Timer1_Timer ()
&,apos, 显示剩余时间
S_Str 等于 IIf (Second_Int &,lt, 10, &,quot, 0&,quot, &, Second_Int, &,quot,&,quot,
&, Second_Int)
M_Str 等于 IIf (Minute_Int &,lt, 10, &,quot, 0&,quot, &, Minute_Int, &,quot,&,quot,
&, Minute_Int)
Time_Str 等于 M_Str &, &,quot, :&,quot, &, S_Str &,apos, 定义显示格式
Label1.Caption 等于 Time_Str
Second_Int 等于 Second_Int-1 &,apos, 设置60 进制
If Second_Int 等于 -1 And Minute_Int &,gt, 0 Then
Minute_Int 等于 Minute_Int - 1
Second_Int 等于 59
End If
If Minute_Int 等于 0 And Hour_Int &,gt, 0 Then
Hour_Int 等于 Hour_Int - 1
Minute_Int 等于 59
End If
End Sub
&,apos, 定义时间到提醒
Private Sub Label1_Change ()
If Label1.Caption 等于 &,quot, 00:00&,quot, Then
Label1.Caption 等于 &,quot, 时间到!&,quot,
Timer1.Enabled 等于 False
End If
End Sub
&,apos, 给程序一个初始值,即默认倒计时时间.(59 秒)
Private Sub Form_Load ()
Text1.Text 等于 &,quot, 59&,quot,
text2.Text 等于 &,quot, 0&,quot,
text3.Text 等于 &,quot, 59&,quot,
End Sub
3.结语
这个程序通过改进还可以在此基础上加上小时和毫秒,也可以通过不设置秒数,直接设置分钟、小时来进行设置,就成为了真正意义上的任意倒计时器.但如果在Timer 事件里,将“– 1”,改为“+1”,再把分和秒的进位关系修改一下,就又成了一个任意设置的计时器了.
参考文献
[1] 刘瑞新,汪远征. Visual Basic 程序设计教程. 北京:机械工业出版社,2000.
作者简介
宋修宪,男(1971-),中级职称、主要研究方向:电脑编程、
多媒体应用.
魏秀启,初级职称.
计时器:【小熙解说】奥特曼格斗进化3 迪迦奥特曼s级十大据点看我计时器闪光!
李强,初级职称.
王义峰,中级职称.
总结:关于免费等于计时器论文范文在这里免费下载与阅读,为您的等于计时器相关论文写作提供资料。
计时器引用文献:
[1] 热门变频器论文题目 变频器论文题目哪个好
[2] 音乐播放器论文题目范文 音乐播放器论文题目哪个好
[3] 经典变频器论文参考文献 变频器期刊参考文献哪里找