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

河北联合大学 《软件设计基础（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.要求： 对系统进行功能需求分析 设计合理的数据结构和系统框架 界面设计美观、清楚、合理 编程简练，程序功能齐全，能正确运行 具有一定的创新性 说明书、流程图要清楚 课题完成后必须按要求提交课程设计报告 任务： 2.基本要求： ①要求用思想来完成程序的设计。 （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 Long Private Declare Function GetPixel Lib gdi32 (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Dim movemode As Integer Dim picmode As Integer Private Sub form_keypress(keyascii As Integer) End End Sub Private Sub Form_Load() Randomize movemode = Int(Rnd * 6) Randomize picmode = Int(Rnd * 4) For i = 0 To 3 Picture1(i).Visible = False Picture1(i).ScaleMode = 3 Next i End Sub Sub move1() 从左往右展开 mx = Picture1(picmode).ScaleWidth my = Picture1(picmode).ScaleHeight For x = 0 To mx For y = 0 To my a = GetPixel(Picture1(picmode).hdc, x, y) b = SetPixel(Me.hdc, x, y, a) Next y DoEvents Next x delay 1000 E