《VB.NET程序设计》课程设计Windows定时关机程序设计.doc

青岛大学软件技术学院课 程 设 计题目名称 Windows定时关机程序 姓 名 专 业 软件技术 班 级 06级软件技术202班指导教师 二00七 年 七 月 十九 日 课程设计任务书 课程设计的目的本课程设计是VB.NET程序设计课程的具体应用和实践，是计算机软件的专业课知识的综合应用，其重点在于将理论知识应用于一个具体的软件项目开发。通过查阅相关资料、了解国内外软件项目发展、系统需求分析、系统总体和详细设计、系统实现和运行、系统测试和维护等过程复习和巩固该课程相关的理论专业知识，锻炼和提高学生综合应用和动手实践能力。课程设计的基本要求1、 复习巩固VB.NET语言的基本语法知识；2、 掌握面向对象的程序设计基本思路和方法；3、 了解软件项目开发（软件工程）的基本过程；4、 锻炼提高动手实践和综合分析、解决实际问题的能力。课程设计进度1）设计构思，搜集资料 2天2）程序界面设计和编写代码 3天3）程序测试修改，使程序完备 2天4）初步完成设计报告 3天5）经老师指导完善设计报告 1天目录一 前言31.1程序概述31.2系统相关原理3二 程序总体设计42.1基本简介42.2运行环境与系统结构42.3程序应该具备的基本功能4三 程序详细设计及运行5四 设计总结13五 谢辞14六 参考文献14一 前言1.1程序概述研究目的以及预期结果：利用VB.NET中的Timer控件实现Windows定时自动关机、重启和注销功能。可计划在预定时间关机，重启，注销；实现多重自定义功能。1.2系统相关原理Visual Basic.NET（以下简称VB.NET）概述微软公司发布的VB.NET是在Visual Basic 6.0（以下简称VB6.0）基础上的一次重大飞跃。VB.NET是针对Microsoft.NET框架，对Visual Basic进行重塑之后的结果。VB.NET比VB6.0更易用，功能更强大。VB.NET中加入了过去只有C+语言才能实现的某些系统资源的访问能力，最重要的是VB.NET完全支持面向对象技术（OOP）。VB.NET中的Timer控件简介Timer控件可以被称作为计时器控件或时钟控件，它的作用是按照标准时间间隔引发计时器事件。计时器控件在工具箱中的图标如下图所示。计时器控件计时器控件的常用属性有：1） Enabled。设置计时器控件是否可用，可选值为True或False2） Interval。设置时间间隔值。Interval的值介于1-65535之间，每单位为1ms计时器只有一个Tick事件，若启用Timer控件，则每个Interval间隔就会引发一次Tick事件。注意：Timer控件在程序运行时是永远不可见的。二 程序总体设计2.1基本简介利用VB.NET中的Timer控件实现Windows定时自动关机、重启和注销功能。可计划在预定时间关机，重启，注销；实现多重自定义功能。2.2运行环境与系统结构本程序系统界面简洁清爽大方，用户操作简单，占用资源极少，故只要系统能流畅运行Windows操作系统便可支持本软件。2.3程序应该具备的基本功能Windows系统关闭计算机、重新启动及注销功能并能定时或倒计时执行该动作。三 程序详细设计及运行设计界面如下图所示主要控件及其属性，如下表所示控件名称属性属性值Command1Text执行Command2Text预设Command3Text取消Command4Text重置Check1Text倒计时执行操作Check2Text定时执行操作Check3Text定时报警Combo1SortedTrueTabStopFalseFrame1ModifiersPublicLabel1Text希望计算机如何操作Label2Text结束会话，关闭Windows，以便安全关闭电源。Label3_0Text小时Label3_1Text分钟Label3_2Text秒Label4Text预设方法设置：程序总体结构如下图所示程序初始化选择动作注销重新启动关机马上执行设定时间选择模式定时执行倒计时执行定时报警程序运行基本模式图解图3程序运行初始界面此时Label2内容为空代码为：Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.LoadFrame1.Visible = False 隐藏Frame1，时间模式设置界面Label2.Text = "" Label2内容为空，选择Combo1选项后再显示Combo1.Items.Add("关机")Combo1.Items.Add("重新启动")Combo1.Items.Add("注销") 动态添加Combo1选项counter = 0Timer1.Enabled = FalseEnd Sub程序运行后首先看到的是初始界面，此时Frame1以及其中的内容都被隐藏，下拉框（Combobox）控件有了选项但没有选择其中的任何一个，所以相应的Label2显示为空，点击下拉箭头后显示的界面如下图所示通过选择Combobox中的选项执行关机、重新启动或者注销操作，选择后如图4所示图4各个动作界面（注意Label2的变化） 实现方法代码：Private Sub Combo1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo1.SelectedIndexChangedCombo1.BackColor = System.Drawing.ColorTranslator.FromOle(&H800000)Combo1.ForeColor = System.Drawing.ColorTranslator.FromOle(&HFFFFFF)Select Case Combo1.SelectedIndexCase 0Label2.Text = "结束会话，关闭Windows，以便安全关闭电源。"Case 1Label2.Text = "结束会话，关闭Windows，然后重新启动。"Case 2Label2.Text = "结束会话，用户重新登陆。"End SelectEnd Sub此时单击“执行”按钮就可以立即执行关机、重新启动或注销操作单击“预设”按钮进入“预设方法设置”界面，如下图所示（以关机操作为例）若不选择动作直接单击“预设”按钮则会弹出MsgBox提示选择操作类型，如下图所示“预设”按钮以上方法实现代码：Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click Dim str_Renamed As StringIf Combo1.Text = "" Thenstr_Renamed = CStr(MsgBox("请选择操作类型！", 0, "错误")Exit SubEnd IfFrame1.Visible = TrueCommand2.Enabled = FalseEnd Sub选中“倒计时操作”，设定好时间后的界面如下图所示此时点击“执行”按钮，Windows将会在4小时3分钟2秒后退出系统并关闭计算机。若选中“定时执行操作”，Label3_0的Text属性值变为“点”，如下图所示此时点击“执行”按钮，Windows将会在系统时间的4点3分2秒退出系统并关闭计算机。由于设计上的失误，“倒计时执行操作”和“定时执行操作”只能选中一个！在选择定时或倒计时两种操作时若同时选中“定时报警”，在还有5分钟就执行操作时会弹出MsgBox提示是否继续操作，届时根据自己意愿继续选择操作即可。实现方法代码为：If Check3.CheckState = 1 ThenIf n > 300 ThenIf n - counter = 300 Thenrtn = SetWindowPos(Me.Handle.ToInt32, -1, 0, 0, 0, 0, 3)ch = CStr(MsgBox("还有分钟就要关机，是否继续执行？", 48 + MsgBoxStyle.YesNo, "提醒")If ch = CStr(MsgBoxResult.No) ThenTimer1.Enabled = Falsertn = SetWindowPos(Me.Handle.ToInt32, -2, 0, 0, 0, 0, 3)counter = 0Exit SubElseMsgBox("请做好数据保存，就要关机了！", 48, "提醒")End IfEnd IfEnd IfEnd If附：程序中Timer控件的实现方法代码：Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tickcounter = counter + 1If Check1.CheckState = 1 ThenIf CDbl(Text1.Text) <> 0 And Text2.Text = "60" ThenText1.Text = CStr(CDbl(Text1.Text) - CDbl("1")End IfIf CDbl(Text2.Text) <> 0 And Text3.Text = "60" ThenText2.Text = CStr(CDbl(Text2.Text) - CDbl("1")End IfIf CDbl(Text3.Text) <> 0 ThenText3.Text = CStr(CDbl(Text3.Text) - CDbl("1")End IfIf Text2.Text = "0" And Text1.Text <> "0" ThenText2.Text = "60"End IfIf Text3.Text = "0" And Text2.Text <> "0" ThenText3.Text = "60"End IfEnd IfDim ch As StringDim rtn As ObjectIf Check3.CheckState = 1 ThenIf n > 300 ThenIf n - counter = 300 Thenrtn = SetWindowPos(Me.Handle.ToInt32, -1, 0, 0, 0, 0, 3)ch = CStr(MsgBox("还有分钟就要关机，是否继续执行？", 48 + MsgBoxStyle.YesNo, "提醒")If ch = CStr(MsgBoxResult.No) ThenTimer1.Enabled = Falsertn = SetWindowPos(Me.Handle.ToInt32, -2, 0, 0, 0, 0, 3)counter = 0Exit SubElseMsgBox("请做好数据保存，就要关机了！", 48, "提醒")End IfEnd IfEnd IfEnd IfIf (n - counter) = 0 ThenSelect Case Combo1.SelectedIndexCase 0shutdown1()Case 1reboot1()Case 2logoff1()End SelectEnd IfEnd Sub四 设计总结在设计的过程中遇到了许多问题，为了解决问题查阅了很多资料，并及时向老师请教，与同学探讨，设计中还发现了以前被自己忽略的细节问题。进行设计的时候，应该会分析问题，并且编程时要有一定的技巧，要灵活的去设计界面，以及一些控件的属性的用法。在本程序的开发过程中，由于时间的仓促和知识经验有限，做的程序不是太完整，有一些地方或许有些缺陷有待于进一步的完善，并且可能不能完全满足用户的需求。尽管本程序存在着很多不足，但其仍具有功能全面、界面美观、程序运行速度快、系统稳定、操作方便、效率高、安全性好等优点。通过崔老师带领我们进行的为期两周的课程设计，我明白了许多道理，做任何事情之前都要有个总体规划，不能盲目的想当然去做，那样只会浪费时间与精力，并且收获也很少。做的过程中也要不断总结与改进，更要注重同学间的相互学习与配合才会有更大的收获，否则进步很少。，我了解到了做为一名将来的软件工程师，应该具有严密谨慎，刻苦耐劳的精神。我了解到了，当你全身心的投入到软件编程中时，你就能够成为真正的程序员，拥有无限灵感的编程师。我深刻的了解到了，其实每个人都很有天赋的，只是这些天赋需要你在努力中去发现去运用。没有付出是绝对没有收获的，一个非常简单的道理，在毕业设计中更是非常明显，在需求分析中遇到的困难不是太多，而在后期的编码与实现由于自己的专业知识掌握的不够扎实，遇到一些问题，通过查阅书籍询问老师和其他同学一一解决掉。伴随着课程设计的完成，专科期间的学习就这样完成了一半，感觉自己学的东西实在太少太少，掌握的更是少。可是我并不遗憾，毕竟自己对这些语言有了一个初步的了解，俗话说“万事开头难”，原本的我根本不敢想象自己能够完成这次课程设计，可结果呢，我完成了，其实通过这些我发现只要有毅力，肯钻研，没有事可以难到聪明的人类的。我深知以后会更苦，但我不会畏惧，我会在这些基础上去进一步探讨这些编程语言的，进一步去完善自己。五 谢辞在论文即将完成之际，回顾紧张但又充实的学习和开发过程，本人在此向所有关心我的老师以及帮助我的同学们致以最真诚的感谢。论文完成的前提是崔树娟老师给予我细心的关怀与指导,在这里表示衷心的感谢。崔老师认真负责的工作态度、严谨的治学风格,使我深受启发,她的精心指导和教诲使我受益匪浅.崔老师让我了解到了，作为将来的编程师所应具备的优良品质。为将来的生活和就业打下坚实的基础。感谢崔老师！同时，在系统开发过程中，同学也给了我不少帮助，我很荣幸能够这次课程设计。在此我要衷心的感谢我最最亲爱同学们，今后我们的人生道路更长更远，相信大家都会有美好的明天，努力吧!六 参考文献1）包锦阳. 大专生毕业论文(设计)写作指导.浙江大学出版社, 2004年6月2）田更. Visual Basic.NET程序设计.机械工业出版社，2006年12月3）微软公司. 基于VB.NET的Windows应用程序设计.高等教育出版社，2004年4）石志国. Visual Basic.NET实用案例教程.清华大学出版社，2003年指导教师评语 评语： 成绩： 指导教师 年 月 日审核意见 签章 年 月 日备 注