机房管理系统课程设计报告书.doc

2012-2013第2学期 软件设计基础-VB课程设计报告设计名称： 机房管理系统 姓 名： 学 号： 专业班级： 学 院： 设计时间： 设计地点： 指导教师评语：教师评定：自评成绩： 指导教师签字： 年 月 日软件设计基础-VB课程设计报告 第 18 页，共 18 页目 录1.课程设计目的2.课程设计任务与要求3.课程设计说明书4.课程设计成果5.程序调试过程6.设计问题的不足和改进方案7.课程设计心得8.附录9.参考文献1课程设计目的软件设计基础-VB课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖VB的知识点，又接近工程实际需要。目的是通过课程设计的综合训练，培养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形式，帮助学生系统掌握VB这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。2课程设计任务与要求：要求：本次课程设计利用软件设计基础-VB课程中所学到的编程知识和编程技巧，完成具有一定难度和工作量的程序设计题目，帮助学生掌握编程、调试的基本技能，独立完成所布置的任务。要求：1、对系统进行功能需求分析2、设计合理的数据结构和系统框架3、界面设计美观、清楚、合理4、编程简练，程序功能齐全，能正确运行5、具有一定的创新性6、说明书、流程图要清楚7、课题完成后必须按要求提交课程设计报告任务：将自己选择题目的任务要求简单填写在此处。 设计一个具有80台电脑的机房管理系统，可以安排学生上机，在学生下机后可以从按学生学号或按计算机号两种角度查询学生的使用的计算机号、开始时刻、结束时刻、使用时间等信息并把它们记录下来。如：3课程设计说明书功能描述 安排具有10为学号的学生使用180台计算机中的某一台，主界面上显示此学生当前的上机信息，并在其下机后把使用记录保存下来，可以从学生的学生号和计算机号的两个角度调出。概要设计主要写模块说明，模块结构图，系统流程图（例N-S流程图）（五号，宋体）模块结构图： 根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系。Form1一部分显示80台计算机的使用情况另一部分分别有1. text窗口用来输入学生的学号2. 某台计算机的状态和使用信息3. command1按学生学号查询指令4. command2按计算机号查询指令5. command3程序退出指令Form2可以按学号查询某位同学上机的机号、开始时间、结束时间、和使用时间。Form3可以针对某台计算机查询它使用者的学号、开始时刻、结束时刻、和使用时间。 详细设计 总体流程图：各功能模块流程图：2按学生学号查询学生学号的text的输入框某位学生使用计算机的机器号、开始时间、结束时间、使用时间等信息显示显示180台计算机的使用情况、学生学号text输入框、按学号查询和按计算机号查询的两个command命令按钮1按计算机号查询计算机号的text的输入框某台特定的计算机的使用者的学号、开始时刻、结束时刻、使用时间。 代码实现详细说明各功能模块的实现过程，所用到的算法、技巧等（附上代码）。如：本系统总共10个窗体：form1form10详细如下：form1首页作用：“进入应用程序”。所用控件：5个标签，4个时钟。设计思路：用时钟控制label1、2,3,4的运动。单击label1,2,5和命令选择器可进入后面窗体，label3.无链接窗体，无label4 。详细内容：属性较特殊的需要说明。代码如下： 本程序共涉及3个窗体1个模块，各部分详细如下模块里定义了全局的数据类型和变量：Public Zd As Integer 指定的计算机的号Public Jq(80) As Boolean 计算机是否被使用Public Xh(80) As String 计算机使用者的学号Public Ks(80) As String 开始时间Public Js(80) As String 结束时间Public Sj(80) As String 使用时间Public Cx As Integer 查询种类Form 1 （1） .所涉及的80台计算机的显示情况Private Sub Form_Load()For i = 1 To 80Jq(i) = TrueLabel1(i).Caption = Format(i, 00)NextEnd Sub（2） .用于完成指定计算机 Private Sub Text1_KeyPress(KeyAscii As Integer)jl = TrueIf KeyAscii = 13 ThenFor i = 1 To 80 If Xh(i) = Text1.Text Then Zd = i Call Xj jl = False End IfNext If jl = True Then Form2.Show Form1.Hide End IfEnd IfEnd Sub（3）.计算上机时间并显示Sub Kssj()Jq(Zd) = FalsePicture1(Zd).Picture = LoadPicture(App.Path & false.jpg)Xh(Zd) = Text1.TextKs(Zd) = Year(Now) & - & Format(Month(Now), 00) & - & Format(Day(Now), 00) & Chr(13) & TimeLabel4.Caption = Xh(Zd)Label9.Caption = Format(Zd, 00)Label10.Caption = Ks(Zd)Label11.Caption = (开始上机)Label12.Caption = (开始上机)Form2指定对应学号所使用的计算机 代码如下：Dim i As IntegerPrivate Sub Command1_Click()Zd = List1.List(List1.ListIndex)Call Form1.KssjForm1.ShowUnload Form2End SubPrivate Sub Command2_Click()Form1.ShowUnload Form2End SubPrivate Sub Form_Activate()List1.ClearFor i = 1 To 80If Jq(i) = True ThenList1.AddItem Format(i, 00)End IfNextEnd SubForm3.（1）用于针对学生学号和计算机号两种方式对上机情况进行查询。在list中输出数据的格式编排比较特殊， 所用代码：If Cx = 1 Then For i = 1 To n If a(i) = Text1.Text Then List1.AddItem b(i) & Space(6) & a(i) & Space(6) & c(i) & Space(1) & d(i) & Space(6) & e(i) & Space(1) & f(i) & Space(6) & g(i) zsj = zsj + Val(g(i) End If（2） 对数据进行存储设计：lon = LenB(Label4.Caption & Label9.Caption & Label10.Caption & Label11.Caption & Label12.Caption)n = FileLen(App.Path & bc1.dat) / lonOpen App.Path & bc1.dat For Random As #1 Len = lonPut #1, n + 1, Label4.Caption & Label9.Caption & Label10.Caption & Label11.Caption & Label12.CaptionClose #14课程设计成果运行结果（可用屏幕抓图的方法说明）（五号，宋体）(多页)机房控制界面主窗口可以为不同学生指定上机可以按照学号和计算机号查询上机的主要情况5.程序调试过程写出程序调试步骤，及遇到的问题。（1） .进行对完成指定计算机的调试 。 问题是缺少变量 用boolean变量控制计算机的使用情况 若boolean的属性为true 则计算机处于闲置状态，若为false 则计算机为使用状态。（2）.对计算机使用的时间计算的调试。 问题处于对时间的计算。通过查阅相关资料采取Ks(Zd) = Year(Now) & - & Format(Month(Now), 00) & - & Format(Day(Now), 00) & Chr(13) & Time等算法。（3）.对计算机号按同种格式输出的 。 问题是计算机号无法按照同种格式显示，采用format函数进行控制（4）.对已使用过的计算机数据的保存。定义了n代表文件个数，lon计算文件长度。并创建了一个记事本记录信息。（5）.对未知字符串个数的调试。 运用了redim的方法对变量进行重新定义。（6）.进行按学号查询&按计算机号查询时数据的调用调试。 Open App.Path & bc1.dat For Random As #1 Len = 108 For i = 1 To n Get #1, i, xx(i) a(i) = Mid(xx(i), 1, 10) b(i) = Mid(xx(i), 11, 2) c(i) = Mid(xx(i), 13, 10) d(i) = Mid(xx(i), 23, 9) e(i) = Mid(xx(i), 32, 10) f(i) = Mid(xx(i), 42, 9) g(i) = Mid(xx(i), 51, 4)6.设计问题的不足和改进方案不足：界面不够美观，关键处没有设置提示信息。部分代码冗长不够精炼。基本函数有待增加。改进方案：对界面颜色，背景图片进行调整，关键步骤设计提示信息。争取采用更精炼的代码进行编写。7.课程设计心得让我学会独立地运用时间处理学习与生活的能力，