简单的的屏幕保护程序设计报告.doc

河北联合大学 软件设计基础（VB）课程设计报告设计名称： 简单的屏幕保护程序 姓 名： 郭昊鑫 学 号： 201006010223 专业班级： 10级冶金工程二班 学 院： 冶金与能源学院 设计时间： 2011年6月10日7月10日 设计地点： 学校机房四楼 成绩：指导教师评语： 指导教师签字： 年 月 日软件设计基础（VB）课程设计报告 第 11 页，共 11 页目 录1.课程设计目的(3)2.课程设计任务与要求(3)3.课程设计说明书(4)4.课程设计成果(9)5. 程序调试过程(10)6. 设计问题的不足和改进方案(11)7. 课程设计心得(11)5. 附录(10)5. 参考文献(10)1课程设计目的软件设计基础（VB）课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖VB的知识点，又接近工程实际需要。目的是通过课程设计的综合训练，培养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形式，帮助学生系统掌握VB这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。2课程设计任务与要求：要求：本次课程设计利用软件设计基础（VB）课程中所学到的编程知识和编程技巧，完成具有一定难度和工作量的程序设计题目，帮助学生掌握编程、调试的基本技能，独立完成所布置的任务。1.要求：（1) 对系统进行功能需求分析（2) 设计合理的数据结构和系统框架（3) 界面设计美观、清楚、合理（4) 编程简练，程序功能齐全，能正确运行（5) 具有一定的创新性（6) 说明书、流程图要清楚（7) 课题完成后必须按要求提交课程设计报告（8) 任务：2.基本要求：要求用Visual Basic对象的思想来完成程序的设计。欲完成此设计题目，要求熟练使用和掌握Timer控件的属性和方法以及窗体调用的方法和基本属性。要求在程序中能够运用结构化程序设计的选择结构，并熟练使用相关的语句以及全局变量的定义3课程设计说明书（1）功能描述简单的屏幕保护程序：主界面充满屏幕，背景为一张画（其他画也可），在窗体上插入图片，图片会以从上到下或者从下到上等六种方式展开。当单击鼠标或键盘时则退出屏保。（2）模块结构图根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系（如下图）。代码如下：form1作用：“进入应用程序”。所用控件：6个标签，1个时钟。详细内容：属性较特殊的需要说明。代码如下：Private Declare Function SetPixel Lib gdi32 (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crcolor As Long) As LongPrivate Declare Function GetPixel Lib gdi32 (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As LongDim movemode As IntegerDim picmode As IntegerPrivate Sub form_keypress(keyascii As Integer)EndEnd SubPrivate Sub Form_Load()Randomizemovemode = Int(Rnd * 6)Randomizepicmode = Int(Rnd * 4)For i = 0 To 3Picture1(i).Visible = FalsePicture1(i).ScaleMode = 3Next iEnd SubSub move1()从左往右展开mx = Picture1(picmode).ScaleWidthmy = Picture1(picmode).ScaleHeightFor x = 0 To mxFor y = 0 To mya = GetPixel(Picture1(picmode).hdc, x, y)b = SetPixel(Me.hdc, x, y, a)Next yDoEventsNext xdelay 1000End SubSub move2()从上往下展开mx = Picture1(picmode).ScaleWidthmy = Picture1(picmode).ScaleHeightFor y = 0 To myFor x = 0 To mxa = GetPixel(Picture1(picmode).hdc, x, y)b = SetPixel(Me.hdc, x, y, a)Next xDoEventsNext ydelay 1000End SubSub move3()从右往左展开mx = Picture1(picmode).ScaleWidthmy = Picture1(picmode).ScaleHeightFor x = mx To 0 Step -1For y = my To 0 Step -1a = GetPixel(Picture1(picmode).hdc, x, y)b = SetPixel(Me.hdc, x, y, a)Next yDoEventsNext xdelay 1000End SubSub move4()从下往上展开mx = Picture1(picmode).ScaleWidthmy = Picture1(picmode).ScaleHeightFor y = my To 0 Step -1For x = mx To 0 Step -1a = GetPixel(Picture1(picmode).hdc, x, y)b = SetPixel(Me.hdc, x, y, a)Next xDoEventsNext ydelay 1000End SubSub move5()从中间往上下展开mx = Picture1(picmode).ScaleWidthmy = Picture1(picmode).ScaleHeightFor y = 0 To my / 2For x = 0 To mxa = GetPixel(Picture1(picmode).hdc, x, my / 2 - y)b = SetPixel(Me.hdc, x, my / 2 - y, a)a = GetPixel(Picture1(picmode).hdc, x, my / 2 + y)b = SetPixel(Me.hdc, x, my / 2 + y, a)Next xDoEventsNext ydelay 1000End SubSub move6()从中间往左右展开mx = Picture1(picmode).ScaleWidthmy = Picture1(picmode).ScaleHeightFor x = 0 To mx / 2For y = 0 To mya = GetPixel(Picture1(picmode).hdc, mx / 2 - x, y)b = SetPixel(Me.hdc, mx / 2 - x, y, a)a = GetPixel(Picture1(picmode).hdc, mx / 2 + x, y)b = SetPixel(Me.hdc, mx / 2 + x, y, a)Next yDoEventsNext xdelay 1000End SubPrivate Sub timer1_timer()Me.RefreshSelect Case movemodeCase 0move1Case 1move2Case 2move3Case 3move4Case 4move5Case 5move6End SelectEnd SubSub delay(dtime As Integer)For i = 0 To dtimeDoEventsNext iRandomizemovemode = Int(Rnd * 6)Randomizepicmode = Int(Rnd * 4)End Sub4课程设计成果(1)简单屏幕保护程序 (2)实现简单的屏幕保护程序从右往左展开 (3)实现简单的屏幕保护程序从中间往上下展开（4）实现简单的屏幕保护程序从中间往左右展开5.设计问题的不足和改进方案不足之处：1 图片选取偶尔不合适2. 有些功能运行时偶尔出问题。 改进方案： 3.空余时间多看一些这方面得书籍，以此弥补不足之处。6.课程设计心得 在本次的课程设计中，使我加深了对VisualBasic的了解。针对学校所开设的可视化VisualBasic这一课程有了更进一步的巩固。 在这一周的时间内，通过做“简单的屏幕保护程序”的课程设计，我加深了对VB的认识，充分的将课本知识进行梳理、整合、融会贯通之后应用到了实际的工作需要中。以实现学以致用，学有所用。同时也增加了我对VB的兴趣，激起了学习的热情。当然，由于学艺不精，在课程设计的过程也碰到的一些问题。其中，不乏一些简单的基础性的错误，如经常选错模块或语句的固定搭配书写错误，使程序无法运行，但通过这次专业性的练习，相信在以后会有所减少。而关键性问题经常出现在一些函数的使用上，由于对一些函数调用的正确使用不够熟悉，往往也会造成程序无法运行，出现错误。书本知识固然重要，但我们更要学会将书本知识应用到实际的工作中。实践中才会发现错误，也才能改进，才能达到学习的最终目的。这些就是我在这个设计中所得到的体会。总之一句话，通过这次课程设计的制作，我受益匪浅！7.参考文献1Visual Basic 程