简单的的屏幕保护程序设计报告.docx
- 文档编号:18461704
- 上传时间:2023-08-18
- 格式:DOCX
- 页数:8
- 大小:18.60KB
简单的的屏幕保护程序设计报告.docx
《简单的的屏幕保护程序设计报告.docx》由会员分享,可在线阅读,更多相关《简单的的屏幕保护程序设计报告.docx(8页珍藏版)》请在冰点文库上搜索。
简单的的屏幕保护程序设计报告
河北联合大学
《软件设计基础(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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 简单 屏幕保护程序 设计 报告