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

-.z**联合大学?软件设计根底〔VB〕?课程设计报告设计名称：简单的屏幕保护程序姓名：郭昊鑫学号：3专业班级：10级冶金工程二班学院：冶金与能源学院设计时间：2011年6月10日——7月10日设计地点：学校机房四楼成绩：指导教师评语：成绩：指导教师签字：年月日-.z目录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.要求：对系统进展功能需求分析设计合理的数据构造和系统框架界面设计美观、清楚、合理编程简练，程序功能齐全，能正确运行具有一定的创新性说明书、流程图要清楚课题完成后必须按要求提交课程设计报告任务：2.根本要求：①要求用VisualBasic对象的思想来完成程序的设计。②欲完成此设计题目，要求熟练使用和掌握Timer控件的属性和方法以及窗体调用的方法和根本属性。③要求在程序中能够运用构造化程序设计的选择构造，并熟练使用相关的语句以及全局变量的定义3．课程设计说明书〔1〕功能描述简单的屏幕保护程序：主界面充满屏幕，背景为一*画〔其他画也可〕，在窗体上插入图片，图片会以从上到下或者从下到上等六种方式展开。当单击鼠标或键盘时则退出屏保。〔2〕模块构造图根据功能分析，建立系统的体系构造，即将整个系统分解成假设干子模块，用框图表示各功能模块之间的接口关系〔如下列图〕。代码如下：form1作用：“进入应用程序〞。所用控件：6个标签，1个时钟。详细内容：属性较特殊的需要说明。代码如下：PrivateDeclareFunctionSetPi*elLib"gdi32"(ByValhdcAsLong,ByVal*AsLong,ByValyAsLong,ByValcrcolorAsLong)AsLongPrivateDeclareFunctionGetPi*elLib"gdi32"(ByValhdcAsLong,ByVal*AsLong,ByValyAsLong)AsLongDimmovemodeAsIntegerDimpicmodeAsIntegerPrivateSubform_keypress(keyasciiAsInteger)EndEndSubPrivateSubForm_Load()Randomizemovemode=Int(Rnd*6)Randomizepicmode=Int(Rnd*4)Fori=0To3Picture1(i).Visible=FalsePicture1(i).ScaleMode=3Ne*tiEndSubSubmove1()'从左往右展开m*=Picture1(picmode).ScaleWidthmy=Picture1(picmode).ScaleHeightFor*=0Tom*Fory=0Tomya=GetPi*el(Picture1(picmode).hdc,*,y)b=SetPi*el(Me.hdc,*,y,a)Ne*tyDoEventsNe*t*delay1000EndSubSubmove2()'从上往下展开m*=Picture1(picmode).ScaleWidthmy=Picture1(picmode).ScaleHeightFory=0TomyFor*=0Tom*a=GetPi*el(Picture1(picmode).hdc,*,y)b=SetPi*el(Me.hdc,*,y,a)Ne*t*DoEventsNe*tydelay1000EndSubSubmove3()'从右往左展开m*=Picture1(picmode).ScaleWidthmy=Picture1(picmode).ScaleHeightFor*=m*To0Step-1Fory=myTo0Step-1a=GetPi*el(Picture1(picmode).hdc,*,y)b=SetPi*el(Me.hdc,*,y,a)Ne*tyDoEventsNe*t*delay1000EndSubSubmove4()'从下往上展开m*=Picture1(picmode).ScaleWidthmy=Picture1(picmode).ScaleHeightFory=myTo0Step-1For*=m*To0Step-1a=GetPi*el(Picture1(picmode).hdc,*,y)b=SetPi*el(Me.hdc,*,y,a)Ne*t*DoEventsNe*tydelay1000EndSubSubmove5()'从中间往上下展开m*=Picture1(picmode).ScaleWidthmy=Picture1(picmode).ScaleHeightFory=0Tomy/2For*=0Tom*a=GetPi*el(Picture1(picmode).hdc,*,my/2-y)b=SetPi*el(Me.hdc,*,my/2-y,a)a=GetPi*el(Picture1(picmode).hdc,*,my/2+y)b=SetPi*el(Me.hdc,*,my/2+y,a)Ne*t*DoEventsNe*tydelay1000EndSubSubmove6()'从中间往左右展开m*=Picture1(picmode).ScaleWidthmy=Picture1(picmode).ScaleHeightFor*=0Tom*/2Fory=0Tomya=GetPi*el(Picture1(picmode).hdc,m*/2-*,y)b=SetPi*el(Me.hdc,m*/2-*,y,a)a=GetPi*el(Picture1(picmode).hdc,m*/2+*,y)b=SetPi*el(Me.hdc,m*/2+*,y,a)Ne*tyDoEventsNe*t*delay1000EndSubPrivateSubtimer1_timer()Me.RefreshSelectCasemovemodeCase0move1Case1move2Case2move3Case3move4Case4move5Case5move6EndSelectEndSubSubdelay(dtimeAsInteger)Fori=0TodtimeDoEventsNe*tiRandomizemovemode=Int(Rnd*6)Randomizepicmode=Int(Rnd*4)EndSub4．课程设计成果(1)简单屏幕保护程序(2)实现简单的屏幕保护程序从右往左展开(3)实现简单的屏幕保护程序从中间往上下展开〔4〕实现简单的屏幕保护程序从中间往左右展开5.设计问题的缺乏和改良方案缺乏之处：图片选取偶尔不适宜2.有些功能运行时偶尔出问题。改良方案：3.空余时间多看一些这方面得书籍，以此弥补缺乏之处。6.课程设计心得在本次的课程设计中，使我加深了对VisualBasic的了解。针对学校所开设的可视化VisualBasic这一课程有了更进一步的稳固。在这一周的时间内，通过做“简单的屏幕保护程序〞的课程设计，我加深了对VB的认识，充分的将课本知识进展梳理、整合、融会贯穿之后应用到了实际的工作需要中。以实现学以致用，学有所用。同时也增加了我对VB的兴趣，激起了学习的热情。当然，由于学艺不精，在课程设计的过程也碰到的一些问题。其中，不乏一些简单的根底性的错误，如经常选错模块或语句的固定搭配书写错误，使程序无法运行，但通过这次专业性的练习，相信在以后会有所减少。而关键性问题经常出现在一些函数的使用上，由于对一些函数调用的正确使用不够熟悉，往往也会造成程序无法运行，出现错误。书本知识固然重要，但我们更要学会将书本知识应用到实际的工作中。实践中才会发现错误，也才能改良，才能到达学习的最终目的。这些就是我在这个设计中所得到的体会。总之一句话，通过这次课程设计的制作，我受益匪浅！！7.参考文献[1]V