(VB)课程设计报告——程序管理系统修改5【荐】.docVIP

(VB)课程设计报告——程序管理系统修改5【荐】.doc

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
(VB)课程设计报告——程序管理系统修改5【荐】.doc

华 北 科 技 学 院 课程设计说明书 (面向对象程序设计(VB)) 班级: 信管B08-1 姓名: 陈秋苗 设计题目: 程序管理系统 设计时间:__2010-3-1_____至___2010-3-12____ 指导教师:______刘士杰___________________ 评 语:________________________________ _________________________________________ _________________________________________ _________________________________________ _________________________________________ 评阅成绩:__ __评阅教师:__ ___ 一、设计目的: 1、掌握面向对象的程序设计思路。 2、掌握SQL Server相关知识。 3、掌握VB.NET中的一些常用组件的运用。 4、掌握VB.NET中SQL组件或对象的运用。 5、掌握常用类的应用并自己设计类。 6、综合运用所学VB.NET知识编写小型数据库应用程序。 二、设计要求: 系统分为应用程序和休闲游戏两部分,休闲游戏由俄罗斯方块和寻宝游戏组成.其中俄罗斯方块能进行上下左右操作,寻宝游戏有时间限制,且都可以开启背景音乐. 三 . 总体设计模块图 四.模块具体功能说明: (1)文本文档模块介绍 是运用多文档界面来实现文字文本处理程序,通过工具栏、菜单来对文字进行粘贴、复制等处理。 (2)画板模块介绍 通过控件数组的操作,来实现画圆、画矩形等操作。运用Commondialog 控件插入图片从而对图片进行拉伸的处理。 (3)PPT模块介绍 运用Timer控件来实现图片的自动播放。选择插入按钮,可以添加新的图片,选择插入文本,可以在图片上插入文字。其功能如同PPT。 (4)图片浏览器模块介绍 是一个简单的图片浏览程序。主要运用文件来实现对图片的浏览功能。 (5)俄罗斯方块 主要运用Shape控件来实现方块,通过对上下左右键的操作来玩游戏。可以开启和关闭背景音乐。可以选择不同的级别来展现您的实力。 (6)寻宝小游戏 是将去年的小游戏进行了,一些改动。运用Timer进行倒计时,对游戏的时间进行控制。添加了背景音乐,使游戏更加刺激。 五.详细设计 运行主程序进入主界面,通过下拉式菜单来选择执行的程序。 此图是文本文件的窗体。点击新建按钮添加新的窗体。 此图是图片浏览器的窗体。在左边的文件列表,单击要查看的图片。 右边ImageBox中将显示出该图片。 此图是PPT的界面,可实现自动播放,插入文本,添加图片等功能。 此图是画板程序的窗体。可设置笔触大小,插入文字。 。 此图俄罗斯方块的界面。可选择不同的游戏级别来展现您的实力。 该图为寻宝小游戏的窗体。倒计时显示游戏剩下的时间。 六.程序的主要代码: 主界面程序: Private Sub Duo_Click() MDIForm1.Show End Sub Private Sub Els_Click() 俄罗斯方块.Show End Sub Private Sub Idraw_Click() 画板.Show End Sub Private Sub IScan_Click() 图片浏览器.Show End Sub Private Sub IXunbao_Click() xunbao.Show End Sub Private Sub Timer1_Timer() Label3.Caption = Year(Date) Label5.Caption = Month(Date) Label7.Caption = Day(Date) Label9.Caption = Format(Now, hh:mm:ss ) End Sub Private Sub TIPP_Click() PPT.Show End Sub PPT部分代码 Dim k%, l%, g%, v% Private Sub Form_Load() k = 4 l = 0 Label3.Visible = False End Sub Private Sub Image1_Click(Index As Integer) Image2.Picture = Image1(Index).Picture Label3.Visible = True

文档评论(0)

wulf + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档