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

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

《简单的的屏幕保护程序设计报告.docx》由会员分享，可在线阅读，更多相关《简单的的屏幕保护程序设计报告.docx（10页珍藏版）》请在冰豆网上搜索。

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

河北联合大学

《软件设计基础（VB）》

课程设计报告

设计名称：

简单的屏幕保护程序

姓名：

郭昊鑫

学号：

201006010223

专业班级：

10级冶金工程二班

学院：

冶金与能源学院

设计时间：

2011年6月10日——7月10日

设计地点：

学校机房四楼

成绩：

指导教师评语：

指导教师签字：

年月日

目录

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.基本要求：

①要求用VisualBasic对象的思想来完成程序的设计。

②欲完成此设计题目，要求熟练使用和掌握Timer控件的属性和方法以及窗体调用的方法和基本属性。

③要求在程序中能够运用结构化程序设计的选择结构，并熟练使用相关的语句以及全局变量的定义

3．课程设计说明书

（1）功能描述

简单的屏幕保护程序：

主界面充满屏幕，背景为一张画（其他画也可），在窗体上插入图片，图片会以从上到下或者从下到上等六种方式展开。

当单击鼠标或键盘时则退出屏保。

（2）模块结构图

根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功能模块之间的接口关系（如下图）。

代码如下：

form1

作用：

“进入应用程序”。

所用控件：

6个标签，1个时钟。

详细内容：

属性较特殊的需要说明。

代码如下：

PrivateDeclareFunctionSetPixelLib"gdi32"（ByValhdcAsLong,ByValxAsLong,ByValyAsLong,ByValcrcolorAsLong）AsLong

PrivateDeclareFunctionGetPixelLib"gdi32"（ByValhdcAsLong,ByValxAsLong,ByValyAsLong）AsLong

DimmovemodeAsInteger

DimpicmodeAsInteger

PrivateSubform_keypress（keyasciiAsInteger）

End

EndSub

PrivateSubForm_Load（）

Randomize

movemode=Int（Rnd*6）

Randomize

picmode=Int（Rnd*4）

Fori=0To3

Picture1（i）.Visible=False

Picture1（i）.ScaleMode=3

Nexti

EndSub

Submove1（）

'从左往右展开

mx=Picture1（picmode）.ScaleWidth

my=Picture1（picmode）.ScaleHeight

Forx=0Tomx

Fory=0Tomy

a=GetPixel（Picture1（picmode）.hdc,x,y）

b=SetPixel（Me.hdc,x,y,a）

Nexty

DoEvents

Nextx

delay1000

EndSub

Submove2（）

'从上往下展开

mx=Picture1（picmode）.ScaleWidth

my=Picture1（picmode）.ScaleHeight

Fory=0Tomy

Forx=0Tomx

a=GetPixel（Picture1（picmode）.hdc,x,y）

b=SetPixel（Me.hdc,x,y,a）

Nextx

DoEvents

Nexty

delay1000

EndSub

Submove3（）

'从右往左展开

mx=Picture1（picmode）.ScaleWidth

my=Picture1（picmode）.ScaleHeight

Forx=mxTo0Step-1

Fory=myTo0Step-1

a=GetPixel（Picture1（picmode）.hdc,x,y）

b=SetPixel（Me.hdc,x,y,a）

Nexty

DoEvents

Nextx

delay1000

EndSub

Submove4（）

'从下往上展开

mx=Picture1（picmode）.ScaleWidth

my=Picture1（picmode）.ScaleHeight

Fory=myTo0Step-1

Forx=mxTo0Step-1

a=GetPixel（Picture1（picmode）.hdc,x,y）

b=SetPixel（Me.hdc,x,y,a）

Nextx

DoEvents

Nexty

delay1000

EndSub

Submove5（）

'从中间往上下展开

mx=Picture1（picmode）.ScaleWidth

my=Picture1（picmode）.ScaleHeight

Fory=0Tomy/2

Forx=0Tomx

a=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）

Nextx

DoEvents

Nexty

delay1000

EndSub

Submove6（）

'从中间往左右展开

mx=Picture1（picmode）.ScaleWidth

my=Picture1（picmode）.ScaleHeight

Forx=0Tomx/2

Fory=0Tomy

a=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）

Nexty

DoEvents

Nextx

delay1000

EndSub

PrivateSubtimer1_timer（）

Me.Refresh

SelectCasemovemode

Case0

move1

Case1

move2

Case2

move3

Case3

move4

Case4

move5

Case5

move6

EndSelect

EndSub

Subdelay（dtimeAsInteger）

Fori=0Todtime

DoEvents

Nexti

Randomize

movemode=Int（Rnd*6）

Randomize

picmode=Int（Rnd*4）

EndSub

4．课程设计成果

（1）简单屏幕保护程序

（2）实现简单的屏幕保护程序从右往左展开

（3）实现简单的屏幕保护程序从中间往上下展开

（4）实现简单的屏幕保护程序从中间往左右展开

5.设计问题的不足和改进方案

不足之处：

1．图片选取偶尔不合适

2.有些功能运行时偶尔出问题。

改进方案：

3.空余时间多看一些这方面得书籍，以此弥补不足之处。

6.课程设计心得

在本次的课程设计中，使我加深了对VisualBasic的了解。

针对学校所开设的可视化VisualBasic这一课程有了更进一步的巩固。

在这一周的时间内，通过做“简单的屏幕保护程序”的课程设计，我加深了对VB的认识，充分的将课本知识进行梳理、整合、融会贯通之后应用到了实际的工作需要中。

以实现学以致用，学有所用。

同时也增加了我对VB的兴趣，激起了学习的热情。

当然，由于学艺不精，在课程设计的过程也碰到的一些问题。

其中，不乏一些简单的基础性的错误，如经常选错模块或语句的固定搭配书写错误，使程序无法运行，但通过这次专业性的练习，相信在以后会有所减少。

而关键性问题经常出现在一些函数的使用上，由于对一些函数调用的正确使用不够熟悉，往往也会造成程序无法运行，出现错误。

书本知识固然重要，但我们更要学会将书本知识应用到实际的工作中。

实践中才会发现错误，也才能改进，才能达到学习的最终目的。

这些就是我在这个设计中所得到的体会。

总之一句话，通过这次课程设计的制作，我受益匪浅！

！

7.参考文献

[1]VisualBasic程序设计教程，吴凤翔，中国林业出版社，2002-11

[2]VisualBasic程序设计教程，龚沛增，清华大学出版社，2004

[3]VisualBASIC程序设计，谭浩强，清华大学出版社，2000

[4]VisualBasic6.0程序设计，刘新民，清华大学出版社，2004

[5]VisualBasic程序设计教程，罗朝盛，人民邮电出版社，2005

[6]VisualBasic程序设计教程，刘炳文，许蔓舒清华大学出版社，2000