最新VB课程设计报告.docVIP

PAGE 1 PAGE 1 石家庄铁道学院课程设计 V Visual basic课程设计报告书 VB 各种图形设计 单 位 华夏学院 分院(系) 专 业 信息工程 学 号 102256101XX 学生姓名 指导教师 完成日期 2011 年 6 月 7 日 目录 TOC \o 1-1 \h \z \u 一、概 述 2 二、功能需求分析 2 三、系统设计 2 四、技术实现及使用说明 3 五、总结 7 六、参考文献 8 一 . 概述 VB 图形设计是一个通过利用坐标系统和按钮，使图形框里显示出不同颜色和不同位置的图形。 二、功能需求分析 （1）运行程序后，由导入界面等待3秒后进入程序，出现主要按钮。 （2）出现按钮：一朵花，十朵花，一圆环，十圆环，十正方形等等。 （3）通过分别单击这些按钮，可以在图形框里面分别显示不同位置，不同颜色的与按钮相符合的图案。 （4）当需要清除当前图形框里面的图形可以单击“清除”按钮。 （5）而且同一按钮的当多次单击后，也可以出现不同位置，不同颜色的同种图形，这是通过随即函数来实现的，但需要规定图形的半径等的大小限制条件，以免图形无法显示在图形框中。 （6）整个程序结束后，要退出只需单击“结束”按钮，则进入结束界面。 三、系统设计 针对于VB各种图形设计系统所要完成的各种功能，这里将介绍一下实现它们的设计思想： （1）欢迎界面 主要是为了介绍制作人信息和一些对程序的简单概括。此界面当运行后2秒自己进入下个窗体。 （2）主界面 这个界面是本次课程设计的核心部分，里面包括了对于VB 各种图形设计的按钮和连接按钮，可以展示通过单击来实现对于图形的变化情况。 （3）结束界面 当然作为一个完成的程序，有了好的开始和系统的程序，必须要做一个作为结束的界面。 四、技术实现及使用说明 （1）欢迎界面 相关代码为： Private Sub Timer1_Timer() Form1.Hide Form2.Show Timer1.Enabled = False End Sub 时钟的时间设计为2秒。 （2）主界面 相关代码： 一朵花：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 * (r + n) P.Circle (x + 1.5 * (r + n) + a, y + 1.5 * (r + n) + b), 1.6 * (r + n) P.FillColor = QB