VB各种图形设计报告.docVIP

VB各种图形设计 二○一○ 届 土木 分院 专 业 土木工程 学 号 学生姓名 申沛东 指导教师 刘 丹 完成日期 2010年7月 日 摘 要 我们经常要处理一些图形的问题，用vb处理图形的问题可以使问题简单化，只要设定好程序后，可以反复的输出所需的图形。避免了重复操作。 本系统的主要功能及任务是： 单击界面上不同按钮，产生不同颜色及位置的图形。 论文首先介绍了系统开发涉及的相关技术，主要讲解了vb系统内关于绘图的函数。其次，介绍了随机颜色，位置的实现形式。最后，作了详细描述，主要采用图片与代码结合的方式详细地叙述了系统功能的实现。 关键词：VB各种图形设计，按钮，随机，颜色，位置 目 录 一．选题的意义 选择该题目的原因 二．系统功能简介 1 系统概述 2 系统的运行环境 三．系统设计 总体结构设计 四．系统实现 系统各部分详细情况 五.总结 1 遇到及解决的问题 2 心得体会 六.参考文献 一 选题的意义 1.选该题的原因 首先，我认识到重复绘制图形，浪费了许多人力和物力，在信息时代这种传统的方法必然被计算机为基础的信息管理所取代。我选择这个题目，希望可以在信息绘制方面有所提高。 从另一方面来说，我感觉这个题目和我在学校所学的知识密切相关，我也比较熟悉该系统，更容易学到对于我vb语言学习有用的知识。 二．系统功能简介 1.系统概述 单击界面上不同按钮，产生不同颜色及位置的图形。 2.系统的运行环境 系统使用环境 操作系统：windows xp/2000/me/98 系统支持： visual basic 6.0及以上版本 系统开发环境 操作系统：windows xp/2000/me/98 系统支持： visual basic 6.0 三 系统设计 总体结构设计 对上述各项功能进行集中、分块，按照结构化层序设计的要求，得到如下所示的系统功能功能模块图。 VB各种图形设计 VB各种图形设计 一朵花 两朵花 一圆环 十圆环 十长方体 十正方体 清屏 退出 四 系统实现 现在已经完成了程序各个功能模块的创建，现在可以进行系统的实现了 开始 Private Sub Timer1_Timer() Form1.Hide Form2.Show Timer1.Enabled = False End Sub 一朵花 Private Sub Command1_Click() P.Cls Dim r%, x%, y% P.FillColor = QBColor(Rnd * 15) P.FillStyle = 0 r = Rnd * 500 P.DrawWidth = 1 x = Rnd * 5415: y = Rnd * 4000 P.Circle (x - 1.5 * r, y - 1.5 * r), 1.6 * r P.Circle (x - 1.5 * r, y + 1.5 * r), 1.6 * r P.Circle (x + 1.5 * r, y - 1.5 * r), 1.6 * r P.Circle (x + 1.5 * r, y + 1.5 * r), 1.6 * r P.FillColor = QBColor(Rnd * 10) P.Circle (x, y), r End Sub 十朵花 Private Sub Command2_Click() P.Cls Dim r%, y%, x%, a%, b%, c%, d%, e%, f%, g%, h%, i%, j% r = Rnd * 500 P.DrawWidth = 1 x = Rnd * 5000: y = Rnd * 4000: a = Rnd * 3000: b = Rnd * 3000: c = Rnd * 4000: d = Rnd * 4000: e = Rnd * 4000: f = Rnd * 4000: n = Rnd * 300: t = Rnd * 300 P.FillStyle = 0 P.FillColor = QBColor(Rnd * 15) P.Circle (x - 1.5 * (r + n) + a, y - 1.5 * (r + n) + b), 1.6 * (r + n) P.Circle (x - 1.5 * (r + n) + a, y + 1.5 * (r + n) + b), 1.6 * (r + n) P.Circle (x + 1.5 * (r + n) + a, y - 1.5 * (r + n) + b), 1.6 * (