(VB)课程设计报告——程序管理系统修改5

《(VB)课程设计报告——程序管理系统修改5》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、华北科技学院课程设计说明书(面向对象程序设计(VB))班级：信管B08-1姓名:设计题目：程序管理系统设计时间:2010-3-1至2010-3-12指导教师:一刘士杰评语:一、设计目的：1、掌握面向对象的程序设计思路。2、掌握SQLServer相关知识。3、掌握VB.NET中的一些常用组件的运用。4、掌握VB.NET中SQL组件或对象的运用。5、掌握常用类的应用并自己设计类。6、综合运用所学VB.NET知识编写小型数据库应用程序。二、设计要求：系统分为应用程序和休闲游戏两部分，休闲游戏由俄罗斯方块和寻宝游戏组

2、成.其中俄罗斯方块能进行上下左右操作，寻宝游戏有时间限制，且都可以开启背景音乐.三•总体设计模块图四•模块具体功能说明：(1)文本文档模块介绍是运用多文档界面来实现文字文本处理程序，通过工具栏、菜单来对文字进行粘贴、复制等处理。(2)画板模块介绍通过控件数组的操作，来实现画圆、画矩形等操作。运用Commondialog控件插入图片从而对图片进行拉伸的处理。(3)PPT模块介绍运用Timer控件来实现图片的自动播放。选择插入按钮，可以添加新的图片，选择插入文本，可以在图片上插入文字。其功能如同PPT。(4)图片

3、浏览器模块介绍是一个简单的图片浏览程序。主要运用文件来实现对图片的浏览功能。(5)俄罗斯方块主要运用Shape控件來实现方块，通过对上下左右键的操作来玩游戏。可以开启和关闭背景音乐。可以选择不同的级别来展现您的实力。(6)寻宝小游戏是将去年的小游戏进行了，一些改动。运用Timer进行倒计时，对游戏的时间进行控制。添加了背景音乐，使游戏更加刺激。五•详细设计运行主程序进入主界面，通过下拉式菜单来选择执行的程序。□回冈©文本文件此图是文木文件的窗体。点击新建按钮添加新的窗体。此图是图片浏览器的窗体。在左边的文件列

4、表，单击要查看的图片。右边ImageBox中将显示出该图片。此图是PPT的界而，可实现自动播放，插入文本，添加图片等功能。此图是画板程序的窗体。可设置笔触大小，插入文字。番For・l[□回区1、音乐级别ifr此图俄罗斯方块的界面。可选择不同的游戏级别来展现您的实力。该图为寻宝小游戏的窗体。倒计时显示游戏剩下的时间。六•程序的主要代码：主界面程序：PrivateSubDuo_Click()MDIForml.ShowEndSubPrivateSubEls_Click()俄罗斯方块.ShowEndSubPrivat

5、eSubIdraw_Click()画板.ShowEndSubPrivateSubIScan_Click()图片浏览器.ShowEndSubPrivateSubIXunbao_Click()xunbao.ShowEndSubPrivateSubTimerl_Timer()LabeB.Caption=Year(Date)Label5.Caption=Month(Date)Label7.Caption=D町(Date)Label9.Caption=Format(Now,nhh:mm:ssM)EndSubPrivat

6、eSubTIPP_Click()PPT.ShowEndSubPPT部分代码Dimk%,I%,g%,v%PrivateSubForm_Load()k=41=0Label3.Visible=FalseEndSubPrivateSubImagel_Click(IndexAsInteger)Image2.Picture=Imagel(Index).PictureLabeB.Visible=Truev=Imagel(Index).IndexLabeB.Caption=Label2(v).CaptionIfg=1Then

7、i=InputBox$(HiW输入文字「「输入框“)Ifi=ThenExitSubElseLabeB.Caption=iLabel2(v).Caption=LabeI3.CaptionEndIfg=0EndIfEndSubPrivateSubImage3_Click()n=MsgBox(n是否开启背景音乐？H,vbYesNo)Ifn=vbYesThenTimerl.Enabled=Truep=sndPlaySound(HC:DocumentsandSettingsstu桌面WindovvsXp启动",

8、&H9)ElseTimerl.Enabled=TrueEndIfEndSubPrivateSubImage4_Click()Timerl.Enabled=Falsep=sndPlaySoundC*",1)EndSubPrivateSubImage5_Click()g=1EndSubPrivateSubImage6_Click()k=k+1Picture2.Height=Picture2.Height