VB课程设计说明书--程序管理系统

《VB课程设计说明书--程序管理系统》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、16华北科技学院课程设计说明书（面向对象程序设计(VB)）班级:信管B08-1姓名:陈秋苗设计题目：程序管理系统设计时间:__2010-3-1_____至___2010-3-12____指导教师:______刘士杰___________________评语:______________________________________________________________________________________________________________________________________________

2、______________________________________________________评阅成绩:＿＿＿＿评阅教师:＿＿＿＿＿1616《面向对象程序设计(VB)》课程设计实验报告开课实验室：基础实验室2010年3月12日实验题目程序管理系统1.实验目的1，巩固和加深对面向对象程序设计(VB)理论知识的理解，进一步掌握编程技巧和方法，能融会贯通所学知识，提高编程和调试程序的水平，从而培养理论与实践相结合的能力，独立操作与综合应用知识的能力。　　2，运用多窗体将所有作业连接起来，作业中包括VB基本的操作，数组的应用，过较

3、全面的把所学东西反映到实践中。2.实验设备及环境PC兼容机、Windows操作系统、VB软件等。3.功能模块简介和系统结构图系统结构图程序管理系统应用程序休闲娱乐文本文档画板PPT图片浏览器俄罗斯方块寻宝小游戏功能模块具体简介如下：(1)文本文档模块介绍是运用多文档界面来实现文字文本处理程序，通过工具栏、菜单来对文字进行粘贴、复制等处理。(2)画板模块介绍通过控件数组的操作，来实现画圆、画矩形等操作。运用Commondialog1616控件插入图片从而对图片进行拉伸的处理。(3)PPT模块介绍运用Timer控件来实现图片的自动播放。选择

4、插入按钮，可以添加新的图片，选择插入文本，可以在图片上插入文字。其功能如同PPT。(4)图片浏览器模块介绍是一个简单的图片浏览程序。主要运用文件来实现对图片的浏览功能。(5)俄罗斯方块主要运用Shape控件来实现方块，通过对上下左右键的操作来玩游戏。可以开启和关闭背景音乐。可以选择不同的级别来展现您的实力。(6)寻宝小游戏是将去年的小游戏进行了，一些改动。运用Timer进行倒计时，对游戏的时间进行控制。添加了背景音乐，使游戏更加刺激。4.系统的主要界面设计及运行说明：运行主程序进入主界面，通过下拉式菜单来选择执行的程序。1616此图是文

5、本文件的窗体。点击新建按钮添加新的窗体。此图是图片浏览器的窗体。在左边的文件列表，单击要查看的图片。右边ImageBox中将显示出该图片。1616此图是PPT的界面，可实现自动播放，插入文本，添加图片等功能。此图是画板程序的窗体。可设置笔触大小，插入文字。。1616此图俄罗斯方块的界面。可选择不同的游戏级别来展现您的实力。该图为寻宝小游戏的窗体。倒计时显示游戏剩下的时间。5.程序的主要代码：主界面程序：PrivateSubDuo_Click()MDIForm1.ShowEndSubPrivateSubEls_Click()俄罗斯方块.S

6、how1616EndSubPrivateSubIdraw_Click()画板.ShowEndSubPrivateSubIScan_Click()图片浏览器.ShowEndSubPrivateSubIXunbao_Click()xunbao.ShowEndSubPrivateSubTimer1_Timer()Label3.Caption=Year(Date)Label5.Caption=Month(Date)Label7.Caption=Day(Date)Label9.Caption=Format(Now,"hh:mm:ss")EndSu

7、bPrivateSubTIPP_Click()PPT.ShowEndSubPPT部分代码Dimk%,l%,g%,v%PrivateSubForm_Load()k=4l=0Label3.Visible=FalseEndSubPrivateSubImage1_Click(IndexAsInteger)Image2.Picture=Image1(Index).PictureLabel3.Visible=Truev=Image1(Index).IndexLabel3.Caption=Label2(v).CaptionIfg=1Theni=Inp

8、utBox$("请输入文字！","输入框")Ifi=""ThenExitSubElseLabel3.Caption=iLabel2(v).Caption=Label3.CaptionEndIfg=0EndI