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 inputtestDim guanji As Boolean 定义各变量Private Sub Command1_Click() 设置按钮立即关机（lijiguanj）Call guanjiminglingEnd SubPrivate Sub Command3_Click()End 设置 退出（Command3）按钮End SubPrivate Sub Command5_Click()MsgBox (作者:0711212020李昂07测控2班)End Sub 关于（Command5）按钮 显示作者Private Sub Form_Load() 设置 初始各按钮属性Command4.Enabled = FalseCommand2.Enabled = Falseqvxiaoguanji.Enabled = Falsechongzhi.Enabled = FalseEnd SubPrivate Sub Timer1_Timer()Me.Label3.Caption = Time()End Sub 时钟控件（Timer1）控制刷新 当前时间Private Sub Label3_Click()Me.Label3.Caption = Time() 此段显示当前时间（Label3）End SubPrivate Sub timeflies()If Label5.Left 0 And Label5.Left = Form1.Width - Label5.Width Then Label5.Left = Label5.Left + 3Else Label5.Left = 2 设计时光匆匆，请珍惜（Label5）字体动画效果End IfEnd SubPrivate Sub Timer2_Timer()Call timefliesEnd Sub 时钟控件（Timer2）控制时光匆匆，请珍惜运动Private Sub Command6_Click() 设置 定时关机（Command6） 功能guanji = TrueCommand4.Enabled = TrueCommand2.Enabled = Trueqvxiaoguanji.Enabled = Truechongzhi.Enabled = TrueCall shuruEnd SubPrivate 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 SubPrivate Sub Command2_Click() 重设关机时间按钮(Command2)guanji = Trueinputtest = Call shuruCommand6.Enabled = FalseEnd SubPrivate Sub Command4_Click() 设置 取消关机（Command4）按钮guanji = FalseCommand4.Enabled = FalseCommand2.Enabled = Falseqvxiaoguanji.Enabled = Falsechongzhi.Enabled = FalseMe.Label4 = 等待输入End SubPrivate Function panduan() If inputtest = Label3 And guanji Then 设置 “判断（panduan）”功能 Call guanjimingling End IfEnd FunctionPrivate Sub Timer3_Timer() 时间控件Timer3来 启动判断函数 判断时间到否Call panduanEnd SubPrivate Sub guanjimingling()Shell (C:/windows/system32/shutdown.exe -s)End Sub 定义 关机命令（guanjimingling）功能编辑菜单Private Sub tuichu_Click()End 设置菜单退出（tuichu）End SubPrivate Sub about_Click()MsgBox (作者:0711212020李昂07测控2班) 设置菜单关于（about）End SubPrivate Sub chongzhi_Click() 设置菜单重置（chongzhi）guanji = Trueinputtest = Call shurudingshiguanji.Enabled = FalseEnd SubPrivate Sub lijiguanji_Click() 设置菜单立即关机（lijiguanj）Call guanjiminglingEnd SubPrivate Sub dingshiguanji_Click()guanji = TrueCommand4.Enabled = TrueCommand2.Enabled = True 设置菜单定时关机（dingshiguanji）qvxiaoguanji.Enabled = Truechongzhi.Enab