vb定时关机系统论文.doc

《VB语言设计》课程论文
定时关机系统
一、 引言：
当前，计算机的许多程序可以在无人值守的情况下完成，如杀毒、下载、挂游戏……当这些程序完成后需要关机，如果有个自动关机程序就方便很多，节省时间和精力。而WINDOWS系统并没有自带定时关机功能。于是我设计编写了个定时关机程序解决这个问题。本程序可以设置关机时间来控制电脑定时关机。本程序从实际出发，界面明了，操作简单，程序小巧方便，有很强的使用价值。

二、界面设计
下图展示了程序的界面及功能 可以用按钮或菜单来实现操作

图（1）运行界面 图（2）编辑界面及菜单选项

图（3）输入提示框 图（4）错误提示 图（5）作者框

如上图所示用到6个command button ；5个label控件、3个time控件、7个菜单控件、一个FORM窗口、一个frame控件。 详见下表：

6个Command控件 修改Caption、tabindex；5个Label控件caption属性

3个time控件 修改interval属性 ； 7个菜单控件 修改 名称 标题 快捷键
1个frame控件 修改了caption属性；

1个Form窗口 修改了caption、icon、Maxbutton属性
三、 代码设计
课内知识：
command button知识点： 设置caption；按钮Enabled=ture/false.；
label控件知识点 ： caption属性；结合time控件产生运动效果
time控件知识点 ： 激发事件interval单位（毫秒）；
编辑菜单控件知识点 ： 主菜单；子菜单；名称；标题；快捷键；
from知识点 ： ICON图标； Maxbutton属性；
系统自带函数知识点 ：Command_Click()； MsgBox； Timer_Timer() ；菜单_Click()；InputBox（）；Form_Load()……
自定义函数定义与调用（子函数）：panduan()； timeflies()；guanjimingling()；

课外拓展知识点：
系统关机命令 ； IsDate的判断；VB生成exe.； 制作生成ICON图标
使用ICON ； 使用VB和step factory7.0打包安装程序
技巧：
使用复制粘贴可以减少许多输入；使用me.也可以方便输入； 编程逻辑思路一定要清晰,可以先做个程序图。
四、 综合调试
调试过程中会出现很多错误，根据错误提示一点点修改，主要有以下几个疑难问题：
问题1 ：各个控件间的Ture/False的相互逻辑关系要理清楚。
问题2 ：From属性中ICON图标，很多图标VB6.0并不识别。
解决方法：我上网搜索了相关问题，查看技术论坛，搜索了个制作ICON图标的软件，自己截图制作了个图标。
问题3：这个程序是否可以在没有VB6.0的计算机上运行？在没有VB的电脑上图标显示不出来？这样才更有实用价值。
解决办法：我上网搜索了相关问题和资料，查看技术论坛，得知vb可以生成.exe文件。可以采用打包的办法，把程序运行所需的文件都打包起来，于是我搜到并学会用Setup Factory 7.0打包安装程序。
五、 结束语
本文详细阐明了“VB定时关机程序”工作原理和程序结构， 文章第二部分各控件属性图片是我在Excel编辑后截图生成。详细程序码可参考附录。
VB语言是可视化高级语言，功能强大，对于我们初学者可以用来做些简单实用的小程序。做这个程序，我受益匪浅。我意外的掌握了Setup Factory 7.0简单操作方法。做程序培养了我对VB的兴趣；加深了对VB语言的了解；锻炼了查找利用资源的能力；提高了论文的写作水平；激发了求知欲。程序虽小，五脏俱全。完成一个程序要有清晰的逻辑思维和扎实的程序语言基础，仅仅靠课堂上所学的知识是很难完成的，我们需要通过各种途径搜集相关资料，如从图书馆、互联网获取相关资料信息，学会搜集利用可利用的资源。只有通过认真的学习、研究、探索，把知识转化为自己的东西，才能去熟练的运用，进而用知识创造出实用的价值。
附录：
Dim inputtest
Dim guanji As Boolean '定义各变量

Private Sub Command1_Click() '设置按钮"立即关机（lijiguanj）"
Call guanjimingling
End Sub

Private Sub Command3_Click()
End '设置 "退出（Command3）"按钮
End Sub

Private Sub Command5_Click()
MsgBox ("作者:0711212020李昂07测控2班")
End Sub '"关于（Command5）"按钮 显示作者

Private Sub Form_Load() '设置 "初始各按钮属性"
Command4.Enabled = False
Command2.Enabled = False
qvxiaoguanji.Enabled = False
chongzhi.Enabled = False
End Sub

Private Sub Timer1_Timer()
Me.Label3.Caption = Time()
End Sub '时钟控件（Timer1）控制刷新 "当前时间"

Private Sub Label3_Click()
Me.Label3.Caption = Time() '此段显示当前时间（Label3）
End Sub

Private Sub timeflies()
If Label5.Left > 0 And Label5.Left <= Form1.Width - Label5.Width Then
Label5.Left = Label5.Left + 3
Else
Label5.Left = 2 '设计"时光匆匆，请珍惜（Label5）字体动画效果
End If
End Sub

Private Sub Timer2_Timer()
Call timeflies
End Sub '时钟控件（Timer2）控制"时光匆匆，请珍惜"运动

Private Sub Command6_Click() '设置 "定时关机（Command6）" 功能
guanji = True
Command4.Enabled = True
Command2.Enabled = True
qvxiaoguanji.Enabled = True
chongzhi.Enabled = True
Call shuru
End Sub

Private Sub shuru()
inputtest = InputBox("请输入关机时间,如(00:00:00)", "定时程序")
If inputtest = "" Then
MsgBox ("您的输入为空,请重新输入！") '定义"输入（shuru）"函数功能
Me.Label4 = "等待输入"
inputtest = InputBox("请输入时间,如(00:00:00)", "定时程序")
End If
If Not IsDate(inputtest) Then
MsgBox ("您输入的格式不正确请重新输入！")
Me.Label4 = "等待输入"
End If '判断输入的是否可转换成time格式
Label4 = inputtest '显示出所输入关机的时间(Label4)
End Sub

Private Sub Command2_Click() '重设关机时间按钮(Command2)
guanji = True
inputtest = ""
Call shuru
Command6.Enabled = False
End Sub

Private Sub Command4_Click() '设置 "取消关机（Command4）"按钮guanji = False
Command4.Enabled = False
Command2.Enabled = False
qvxiaoguanji.Enabled = False
chongzhi.Enabled = False
Me.Label4 = "等待输入"
End Sub

Private Function panduan()
If inputtest = Label3 And guanji Then '设置 “判断（panduan）”功能
Call guanjimingling
End If
End Function
Private Sub Timer3_Timer() '时间控件Timer3来 启动"判断"函数 判断时间到否
Call panduan
End Sub

Private Sub guanjimingling()
Shell ("C:/windows/system32/shutdown.exe -s")
End Sub '定义 关机命令（guanjimingling）功能

'编辑菜单
Private Sub tuichu_Click()
End '设置菜单"退出（tuichu）"
End Sub

Private Sub about_Click()
MsgBox ("作者:0711212020李昂07测控2班") ' 设置菜单"关于（about）"
End Sub
Private Sub chongzhi_Click() '设置菜单"重置（chongzhi）"
guanji = True
inputtest = ""
Call shuru
dingshiguanji.Enabled = False
End Sub
Private Sub lijiguanji_Click() '设置菜单"立即关机（lijiguanj）"
Call guanjimingling
End Sub
Private Sub dingshiguanji_Click()
guanji = True
Command4.Enabled = True
Command2.Enabled = True '设置菜单"定时关机（dingshiguanji）"
qvxiaoguanji.Enabled = True
chongzhi.Enabled = True
Call shuru
End Sub

Private Sub qvxiaoguanji_Click() '设置菜单"取消关机（qvxiaoguanji）"
guanji = False
Command4.Enabled = False
Command2.Enabled = False
qvxiao.Enabled = False
chongzhi.Enabled = False
Me.Label4 = "等待输入"
End Sub