电气电子毕业设计93青岛大学windows定时关机程序设计
收藏
资源目录
压缩包内文档预览：
编号：517244
类型：共享资源
大小：130.59KB
格式：RAR
上传时间：2015-11-12
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
3.6
积分
- 关 键 词：
-
毕业设计论文
- 资源描述：
-
电气电子毕业设计93青岛大学windows定时关机程序设计,毕业设计论文
- 内容简介：
-
青岛大学软件技术学院 课 程 设 计 题目名称 Windows 定时关机程序 姓 名 王书念 专 业 软件技术 班 级 06 级软件技术 202 班 指导教师 崔树娟 二 00 七 年 七 月 十九 日 nts 1 课程设计任务书 课程设计的目的 本课程设计是 VB.NET 程序设计课程的具体应用和实践，是计算机软件的专业课知识的综合应用，其重点在于将理论知识应 用于一个具体的软件项目开发。通过查阅相关资料、了解国内外软件项目发展、系统需求分析、系统总体和详细设计、系统实现和运行、系统测试和维护等过程复习和巩固该课程相关的理论专业知识，锻炼和提高学生综合应用和动手实践能力。 课程设计的基本要求 1、 复习巩固 VB.NET 语言的基本语法知识； 2、 掌握面向对象的程序设计基本思路和方法； 3、 了解软件项目开发（软件工程）的基本过程； 4、 锻炼提高动手实践和综合分析、解决实际问题的能力。 课程设计进度 1） 设计构思，搜集资料 2 天 2） 程序界面设计和编写代码 3 天 3） 程 序测试修改，使程序完备 2 天 4） 初步完成设计报告 3 天 5） 经老师指导完善设计报告 1 天 nts 2 目录 一 前言 3 1.1 程序概述 3 1.2 系统相关原理 3 二 程序总体设计 4 2.1 基本简介 4 2.2 运行环境与系统结构 4 2.3 程序应该具备的基本功能 4 三 程序详细设计及运行 5 四 设计总结 13 五 谢辞 14 六 参考文献 14 nts 3 一 前言 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 或 False 2） Interval。设置时间间隔值。 Interval 的值介于 1-65535 之间，每单位为 1ms 计时器只有一个 Tick 事件，若启用 Timer 控件，则每个 Interval 间隔就会引发一次 Tick 事件。 注意： Timer 控件在程序运行时是永远不可见的。 nts 4 二 程序总体设计 2.1 基本简介 利用 VB.NET 中的 Timer 控件实现 Windows 定时自动关机、重启和注销功能。 可计划在预定时间关机，重启，注销 ；实现多重 自定义功能。 2.2 运行环境与系统结构 本程序 系统界面简洁清爽大方 ， 用户操作简单，占用资源极少 ，故只要系统能流畅运行Windows 操作系统便可支持本软件。 2.3 程序应该具备的基本功能 Windows 系统关闭计算机、重新启动及注销功能并能定时或倒计时执行该动作。 nts 5 三 程序详细设计及运行 设计界面如下图所示 主要控件及其属性，如下表所示 控件名称 属性 属性值 Command1 Text 执行 Command2 Text 预设 Command3 Text 取消 Command4 Text 重置 Check1 Text 倒计时执行操作 Check2 Text 定时执行操作 Check3 Text 定时报警 Combo1 Sorted True TabStop False Frame1 Modifiers Public Label1 Text 希望计算机如何操作 Label2 Text 结束会话，关闭 Windows，以便安全关闭 电源。 Label3_0 Text 小时 Label3_1 Text 分钟 Label3_2 Text 秒 Label4 Text 预设方法设置： nts 6 程序总体结构如下图所示 程序运行基本模式图解 程序初始化 选择动作 关机 重新启动 注销 马上执行 设定时间 选择模式 倒计时执行 定时执行 定时报警 nts 7 图 3 程序运行初始界面 代码为： Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load Frame1.Visible = False 隐藏 Frame1，时间模式设置界面 Label2.Text = Label2 内容为空，选择 Combo1 选项后再显示 Combo1.Items.Add(关机 ) Combo1.Items.Add(重新启动 ) Combo1.Items.Add(注销 ) 动态添加 Combo1 选项 counter = 0 Timer1.Enabled = False End Sub 程序运行后首先看到的是初始界面，此时 Frame1 以及其中的内容都被隐藏，下拉框（ Combobox）控件有了选项但没有选择其中的任何一个，所以相应的 Label2 显示为空 ，点击下拉箭头后显示的界面如下图所示 此时 Label2 内容为空 nts 8 通过选择 Combobox 中的选项执行关机、重新启动或者注销操作，选择后如图 4 所示 图 4 各个动作界面（注意 Label2 的变化） 实现方法代码： Private Sub Combo1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Combo1.SelectedIndexChanged Combo1.BackColor = System.Drawing.ColorTranslator.FromOle(&H800000) Combo1.ForeColor = System.Drawing.ColorTranslator.FromOle(&HFFFFFF) Select Case Combo1.SelectedIndex Case 0 Label2.Text = 结束会话，关闭 Windows，以便安全关闭电源。 Case 1 Label2.Text = 结束会话，关闭 Windows，然后重新启动。 Case 2 Label2.Text = 结束会话，用户重新登陆。 End Select End Sub 此时单击“执行”按钮就可以立即执行关机、重新启动或注销操作 单击“预设”按钮进入“预设方法设置”界面，如下图所示（以关机操作为例） nts 9 若不选择动作直接单击“预设”按钮则会弹出 MsgBox 提示选择操作类型，如下图所示 “预设”按钮以上方法实现代码： Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command2.Click Dim str_Renamed As String If Combo1.Text = Then str_Renamed = CStr(MsgBox(请选择操作类型！ , 0, 错误 ) Exit Sub End If Frame1.Visible = True Command2.Enabled = False End Sub nts 10 选中“倒计时操作”，设定好时间后的界面如下图所示 此时点击“执行”按钮， Windows 将会在 4 小时 3 分钟 2 秒后退出系统并关闭计算机。 若选中“定时执行操作”， Label3_0 的 Text 属性值变为“点”，如下图所示 此时点击“执行”按钮， Windows 将会在系统时间的 4 点 3 分 2 秒退出系统并关闭计算机。 由于设计上的失误，“倒 计时执行操作”和“定时执行操作”只能选中一个 ！ 在选择 定时 或 倒计时 两种操作时若同时选中“定时报警”，在还有 5 分钟就执行操作时会弹出MsgBox 提示是否继续操作，届时根据自己意愿继续选择操作即可。 实现方法代码为： If Check3.CheckState = 1 Then If n 300 Then If n - counter = 300 Then rtn = SetWindowPos(Me.Handle.ToInt32, -1, 0, 0, 0, 0, 3) ch = CStr(MsgBox(还有分钟就要关机，是否继续执行？ , 48 + MsgBoxStyle.YesNo, 提醒 ) If ch = CStr(MsgBoxResult.No) Then Timer1.Enabled = False nts 11 rtn = SetWindowPos(Me.Handle.ToInt32, -2, 0, 0, 0, 0, 3) counter = 0 Exit Sub Else MsgBox(请做好数据保存，就要关机了！ , 48, 提醒 ) End If End If End If End If 附 ： 程序中 Timer 控件的实现方法代码： Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick counter = counter + 1 If Check1.CheckState = 1 Then If CDbl(Text1.Text) 0 And Text3.Text = 60 Then Text2.Text = CStr(CDbl(Text2.Text) - CDbl(1) End If If CDbl(Text3.Text) 0 Then Text2.Text = 60 End If If Text3.Text = 0 And Text2.Text 300 Then If n - counter = 300 Then rtn = SetWindowPos(Me.Handle.ToInt32, -1, 0, 0, 0, 0, 3) ch = CStr(MsgBox(还有分钟就要关机，是否继续执行？ , 48 + MsgBoxStyle.YesNo, 提醒 ) If ch = CStr(MsgBoxResult.No) Then Timer1.Enabled = False rtn = SetWindowPos(Me.Handle.ToInt32, -2, 0, 0, 0, 0, 3) counter = 0 nts 12 Exit Sub Else MsgBox(请做好数据保存，就要关机了！ , 48, 提醒 ) End If End If End If End If If (n - counter) = 0 Then Select Case Combo1.SelectedIndex Case 0 shutdown1() Case 1 reboot1() Case 2 logoff1() End Select End If End Sub nts 13 四 设计总结 在设计的过程中遇到了许多问题，为了解决问题查阅了很多资料，并及时向老师请教，与同 学探讨，设计中还发现了以前被自己忽略的细节问题。 进行设计的时候，应该会分析问题，并且编程时要有一定的技巧，要灵活的去设计界面，以及一些控件的属性的用法。 在本程序的开发过程中，由于时间的仓促和知识经验有限，做的程序不是太完整，有一些地方或许有些缺陷有待于进一步的完善，并且可能不能完全满足用户的需求。尽管本程序存在着很多不足，但其仍具有功能全面、界面美观、程序运行速度快、系统稳定、操作方便、效率高、安全性好等优点。 通过崔老师带领我们进行的为期两周的课程设计，我明白了许多道理，做任何事情之前都要有个总体规划 ，不能盲目的想当然去做，那样只会浪费时间与精力，并且收获也很少。做的过程中也要不断总结与改进，更要注重同学间的相互学习与配合才会有更大的收获，否则进步很少。，我了解到了做为一名将来的软件工程师，应该具有严密谨慎，刻苦耐劳的精神。我了解到了，当你全身心的投入到软件编程中时，你就能够成为真正的程序员，拥有无限灵感的编程师。我深刻的了解到了，其实每个人都很有天赋的，只是这些天赋需要你在努力中去发现去运用。没有付出是绝对没有收获的，一个非常简单的道理，在毕业设计中更是非常明显，在需求分析中遇到的困难不是太多，而在后 期的编码与实现由于自己的专业知识掌握的不够扎实，遇到一些问题，通过查阅书籍询问老师和其他同学一一解决掉。 伴随着课程设计的完成，专科期间的学习就这样完成了一半，感觉自己学的东西实在太少太少，掌握的更是少。可是我并不遗憾，毕竟自己对这些语言有了一个初步的了解，俗话说“万事开头难”，原本的我根本不敢想象自己能够完成这次课程设计，可结果呢，我完成了，其实通过这些我发现只要有毅力，肯
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号