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

《简单的的屏幕保护程序设计报告》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、河北联合大学《软件设计基础（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)《软件设计基础

2、（VB）》课程设计报告第11页，共11页1．课程设计目的《软件设计基础（VB）》课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用的要求，使课程设计既覆盖VB的知识点，又接近工程实际需要。目的是通过课程设计的综合训练，培养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形式，帮助学生系统掌握VB这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。2．课程设计任务与要求：要求：本次课程设计利用《软件设计基础（VB）》课程中所学到的编程知识和编程技巧，完成具有一定难度和工作量的程序设计题目，帮助学生掌握编程、

3、调试的基本技能，独立完成所布置的任务。1.要求：（1)对系统进行功能需求分析（2)设计合理的数据结构和系统框架（3)界面设计美观、清楚、合理（4)编程简练，程序功能齐全，能正确运行（5)具有一定的创新性（6)说明书、流程图要清楚（7)课题完成后必须按要求提交课程设计报告（8)任务：2.基本要求：①要求用VisualBasic对象的思想来完成程序的设计。②欲完成此设计题目，要求熟练使用和掌握Timer控件的属性和方法以及窗体调用的方法和基本属性。③要求在程序中能够运用结构化程序设计的选择结构，并熟练使用相关的语句以及全局变量的定义《软件设计基础（VB）》课

4、程设计报告第11页，共11页3．课程设计说明书（1）功能描述简单的屏幕保护程序：主界面充满屏幕，背景为一张画（其他画也可），在窗体上插入图片，图片会以从上到下或者从下到上等六种方式展开。当单击鼠标或键盘时则退出屏保。（2）模块结构图根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系（如下图）。代码如下：form1作用：“进入应用程序”。所用控件：6个标签，1个时钟。详细内容：属性较特殊的需要说明。代码如下：PrivateDeclareFunctionSetPixelLib"gdi32"(ByValhdcAs

5、Long,ByValxAsLong,ByValyAsLong,ByValcrcolorAsLong)AsLongPrivateDeclareFunctionGetPixelLib"gdi32"(ByValhdcAsLong,ByValxAsLong,ByValyAsLong)AsLongDimmovemodeAsIntegerDimpicmodeAsIntegerPrivateSubform_keypress(keyasciiAsInteger)EndEndSubPrivateSubForm_Load()《软件设计基础（VB）》课程设计报告第11页，共1

6、1页Randomizemovemode=Int(Rnd*6)Randomizepicmode=Int(Rnd*4)Fori=0To3Picture1(i).Visible=FalsePicture1(i).ScaleMode=3NextiEndSubSubmove1()'从左往右展开mx=Picture1(picmode).ScaleWidthmy=Picture1(picmode).ScaleHeightForx=0TomxFory=0Tomya=GetPixel(Picture1(picmode).hdc,x,y)b=SetPixel(Me.hdc,

7、x,y,a)NextyDoEventsNextxdelay1000EndSubSubmove2()'从上往下展开mx=Picture1(picmode).ScaleWidthmy=Picture1(picmode).ScaleHeightFory=0TomyForx=0Tomxa=GetPixel(Picture1(picmode).hdc,x,y)b=SetPixel(Me.hdc,x,y,a)Nextx《软件设计基础（VB）》课程设计报告第11页，共11页DoEventsNextydelay1000EndSubSubmove3()'从右往左展开mx=

8、Picture1(picmode).ScaleWidthmy=Picture1(