《《VB.NET程序设计》课程设计Windows定时关机程序设计》由会员分享，可在线阅读，更多相关《《VB.NET程序设计》课程设计Windows定时关机程序设计（17页珍藏版）》请在金锄头文库上搜索。
1、青岛大学软件技术学院课 程 设 计题目名称 Windows定时关机程序 姓 名 专 业 软件技术 班 级 06级软件技术202班指导教师 二00七 年 七 月 十九 日 课程设计任务书 课程设计的目的本课程设计是VB.NET程序设计课程的具体应用和实践，是计算机软件的专业课知识的综合应用，其重点在于将理论知识应用于一个具体的软件项目开发。通过查阅相关资料、了解国内外软件项目发展、系统需求分析、系统总体和详细设计、系统实现和运行、系统测试和维护等过程复习和巩固该课程相关的理论专业知识，锻炼和提高学生综合应用和动手实践能力。课程设计的基本要求1、 复习巩固VB.NET语言的基本语法知识；2、 掌握
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控件实现Window
3、s定时自动关机、重启和注销功能。可计划在预定时间关机，重启，注销；实现多重自定义功能。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控件可以被称作为计时器
4、控件或时钟控件，它的作用是按照标准时间间隔引发计时器事件。计时器控件在工具箱中的图标如下图所示。计时器控件计时器控件的常用属性有：1） Enabled。设置计时器控件是否可用，可选值为True或False2） Interval。设置时间间隔值。Interval的值介于1-65535之间，每单位为1ms计时器只有一个Tick事件，若启用Timer控件，则每个Interval间隔就会引发一次Tick事件。注意：Timer控件在程序运行时是永远不可见的。二 程序总体设计2.1基本简介利用VB.NET中的Timer控件实现Windows定时自动关机、重启和注销功能。可计划在预定时间关机，重启，注销；实
5、现多重自定义功能。2.2运行环境与系统结构本程序系统界面简洁清爽大方，用户操作简单，占用资源极少，故只要系统能流畅运行Windows操作系统便可支持本软件。2.3程序应该具备的基本功能Windows系统关闭计算机、重新启动及注销功能并能定时或倒计时执行该动作。三 程序详细设计及运行设计界面如下图所示主要控件及其属性，如下表所示控件名称属性属性值Command1Text执行Command2Text预设Command3Text取消Command4Text重置Check1Text倒计时执行操作Check2Text定时执行操作Check3Text定时报警Combo1SortedTrueTabStopF
6、alseFrame1ModifiersPublicLabel1Text希望计算机如何操作Label2Text结束会话，关闭Windows，以便安全关闭电源。Label3_0Text小时Label3_1Text分钟Label3_2Text秒Label4Text预设方法设置：程序总体结构如下图所示程序初始化选择动作注销重新启动关机马上执行设定时间选择模式定时执行倒计时执行定时报警程序运行基本模式图解图3程序运行初始界面此时Label2内容为空代码为：Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs
7、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）控件有了选项但没有选择其中的任何一
8、个，所以相应的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.ColorTranslato
9、r.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此时单击“执行”按钮就可以立即执行关机、重新启动或注销操作单击“预设”按钮进入“预设方法设置”
10、界面，如下图所示（以关机操作为例）若不选择动作直接单击“预设”按钮则会弹出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 IfFra
11、me1.Visible = TrueCommand2.Enabled = FalseEnd Sub选中“倒计时操作”，设定好时间后的界面如下图所示此时点击“执行”按钮，Windows将会在4小时3分钟2秒后退出系统并关闭计算机。若选中“定时执行操作”，Label3_0的Text属性值变为“点”，如下图所示此时点击“执行”按钮，Windows将会在系统时间的4点3分2秒退出系统并关闭计算机。由于设计上的失误，“倒计时执行操作”和“定时执行操作”只能选中一个！在选择定时或倒计时两种操作时若同时选中“定时报警”，在还有5分钟就执行操作时会弹出MsgBox提示是否继续操作，届时根据自己意愿继续选择操作
12、即可。实现方法代码为：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,
13、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 Then
