最新VB课程设计报告.doc

石家庄铁道学院课程设计Visual basic课程设计报告书VB 各种图形设计单 位 华夏学院 分院(系)专 业 信息工程 学 号 102256101XX学生姓名 指导教师 完成日期 2011 年 6 月 7 日 目录 一、概 述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.HideForm2.ShowTimer1.Enabled = FalseEnd Sub时钟的时间设计为2秒。（2）主界面相关代码：一朵花：Private Sub Command1_Click()P.ClsDim r%, x%, y%P.FillColor = QBColor(Rnd * 15)P.FillStyle = 0r = Rnd * 500P.DrawWidth = 1x = Rnd * 5415: y = Rnd * 4000P.Circle (x - 1.5 * r, y - 1.5 * r), 1.6 * rP.Circle (x - 1.5 * r, y + 1.5 * r), 1.6 * rP.Circle (x + 1.5 * r, y - 1.5 * r), 1.6 * rP.Circle (x + 1.5 * r, y + 1.5 * r), 1.6 * rP.FillColor = QBColor(Rnd * 10)P.Circle (x, y), rEnd Sub十朵花：Private Sub Command2_Click()P.ClsDim r%, y%, x%, a%, b%, c%, d%, e%, f%, g%, h%, i%, j%r = Rnd * 500P.DrawWidth = 1x = 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 * 300P.FillStyle = 0P.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 = QBColor(Rnd * 10)P.Circle (x + a, y + b), r + nP.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * r, y - 1.5 * r), 1.6 * rP.Circle (x - 1.5 * r, y + 1.5 * r), 1.6 * rP.Circle (x + 1.5 * r, y - 1.5 * r), 1.6 * rP.Circle (x + 1.5 * r, y + 1.5 * r), 1.6 * rP.FillColor = QBColor(Rnd * 10)P.Circle (x, y), rP.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * (r + t) - c, y - 1.5 * (r + t) + b), 1.6 * (r + t)P.Circle (x - 1.5 * (r + t) - c, y + 1.5 * (r + t) + b), 1.6 * (r + t)P.Circle (x + 1.5 * (r + t) - c, y - 1.5 * (r + t) + b), 1.6 * (r + t)P.Circle (x + 1.5 * (r + t) - c, y + 1.5 * (r + t) + b), 1.6 * (r + t)P.Circle (x - c, y + b), r + tP.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * (r + n + t) + c, y - 1.5 * (r + n + t), 1.6 * (r + n + t)P.Circle (x - 1.5 * (r + n + t) + c, y + 1.5 * (r + n + t), 1.6 * (r + n + t)P.Circle (x + 1.5 * (r + n + t) + c, y - 1.5 * (r + n + t), 1.6 * (r + n + t)P.Circle (x + 1.5 * (r + n + t) + c, y + 1.5 * (r + n + t), 1.6 * (r + n + t)P.Circle (x + c, y), r + n + tP.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * r + b, y - 1.5 * r + a), 1.6 * rP.Circle (x - 1.5 * r + b, y + 1.5 * r + a), 1.6 * rP.Circle (x + 1.5 * r + b, y - 1.5 * r + a), 1.6 * rP.Circle (x + 1.5 * r + b, y + 1.5 * r + a), 1.6 * rP.Circle (x + b, y + a), rP.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * (r + n) + d, y - 1.5 * (r + n) + e), 1.6 * (r + n)P.Circle (x - 1.5 * (r + n) + d, y + 1.5 * (r + n) + e), 1.6 * (r + n)P.Circle (x + 1.5 * (r + n) + d, y - 1.5 * (r + n) + e), 1.6 * (r + n)P.Circle (x + 1.5 * (r + n) + d, y + 1.5 * (r + n) + e), 1.6 * (r + n)P.FillColor = QBColor(Rnd * 10)P.Circle (x + d, y + e), r + nP.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * (r + t) - f, y - 1.5 * (r + t) + d), 1.6 * (r + t)P.Circle (x - 1.5 * (r + t) - f, y + 1.5 * (r + t) + d), 1.6 * (r + t)P.Circle (x + 1.5 * (r + t) - f, y - 1.5 * (r + t) + d), 1.6 * (r + t)P.Circle (x + 1.5 * (r + t) - f, y + 1.5 * (r + t) + d), 1.6 * (r + t)P.Circle (x - f, y + d), r + tP.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * (r + n + t) + d, y - 1.5 * (r + n + t), 1.6 * (r + n + t)P.Circle (x - 1.5 * (r + n + t) + d, y + 1.5 * (r + n + t), 1.6 * (r + n + t)P.Circle (x + 1.5 * (r + n + t) + d, y - 1.5 * (r + n + t), 1.6 * (r + n + t)P.Circle (x + 1.5 * (r + n + t) + d, y + 1.5 * (r + n + t), 1.6 * (r + n + t)P.Circle (x + d, y), r + n + tP.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * r + d, y - 1.5 * r + a), 1.6 * rP.Circle (x - 1.5 * r + d, y + 1.5 * r + a), 1.6 * rP.Circle (x + 1.5 * r + d, y - 1.5 * r + a), 1.6 * rP.Circle (x + 1.5 * r + d, y + 1.5 * r + a), 1.6 * rP.Circle (x + d, y + a), rP.FillStyle = 0P.FillColor = QBColor(Rnd * 15)P.Circle (x - 1.5 * (r + n) + a, y - 1.5 * (r + n) + e), 1.6 * (r + n)P.Circle (x - 1.5 * (r + n) + a, y + 1.5 * (r + n) + e), 1.6 * (r + n)P.Circle (x + 1.5 * (r + n) + a, y - 1.5 * (r + n) + e), 1.6 * (r + n)P.Circle (x + 1.5 * (r + n) + a, y + 1.5 * (r + n) + e), 1.6 * (r + n)P.FillColor = QBColor(Rnd * 10)P.Circle (x + a, y + e), r + nEnd Sub一圆环：Private Sub Command3_Click()P.ClsP.FillStyle = 0P.FillColor = &H80000005Dim r%, x%, y%r = Rnd * 2000P.DrawWidth = 1 + 0.001 * rx = Int(Rnd * 4000): y = Int(Rnd * 4000)P.Circle (x, y), r, QBColor(Rnd * 15)End Sub十圆环：Private Sub Command4_Click()P.ClsDim i%, j%, k%, l%, m%, n%, o%, q%, r%, x%, y%r = Rnd * 1500P.DrawWidth = 1 + 0.001 * rx = Int(Rnd * 4000): y = Int(Rnd * 4000): i = Rnd * 3000: j = Rnd * 3000: k = Rnd * 3000: l = Rnd * 3000: m = Rnd * 3000: n = Rnd * 3000: o = Rnd * 3000: q = Rnd * 3000: z = Rnd * 3000:P.Circle (x, y), rP.Circle (x + i, y + j), Rnd * 1 * r, QBColor(Rnd * 15)P.Circle (x + j, y + k), Rnd * 1.1 * r, QBColor(Rnd * 15)P.Circle (x + k, y + l), Rnd * 1.2 * r, QBColor(Rnd * 15)P.Circle (x + l, y + m), Rnd * 1.3 * r, QBColor(Rnd * 15)P.Circle (x + m, y + n), Rnd * 1.4 * r, QBColor(Rnd * 15)P.Circle (x + n, y + o), Rnd * 1.5 * r, QBColor(Rnd * 15)P.Circle (x + o, y + P), Rnd * 1.6 * r, QBColor(Rnd * 15)P.Circle (x + P, y + z), Rnd * 1.7 * r, QBColor(Rnd * 15)P.Circle (x + z, y + i), Rnd * 1.8 * r, QBColor(Rnd * 15)End Sub十正方体：Private Sub Command5_Click()P.ClsDim x As Integer, y As Integer, r As Integer, l As IntegerP.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 6, y)P.Line (x, y)-(x, y + r * 6)P.Line (x + r * 6, y)-(x + r * 6, y + r * 6)P.Line (x, y + r * 6)-(x + r * 6, y + r * 6)P.Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P.Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 6, y)P.Line (x, y)-(x, y + r * 6)P.Line (x + r * 6, y)-(x + r * 6, y + r * 6)P.Line (x, y + r * 6)-(x + r * 6, y + r * 6)P.Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P.Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 6, y)P.Line (x, y)-(x, y + r * 6)P.Line (x + r * 6, y)-(x + r * 6, y + r * 6)P.Line (x, y + r * 6)-(x + r * 6, y + r * 6)P.Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P.Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 6, y)P.Line (x, y)-(x, y + r * 6)P.Line (x + r * 6, y)-(x + r * 6, y + r * 6)P.Line (x, y + r * 6)-(x + r * 6, y + r * 6)P.Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P.Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 6, y)P.Line (x, y)-(x, y + r * 6)P.Line (x + r * 6, y)-(x + r * 6, y + r * 6)P.Line (x, y + r * 6)-(x + r * 6, y + r * 6)P.Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P.Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 6, y)P.Line (x, y)-(x, y + r * 6)P.Line (x + r * 6, y)-(x + r * 6, y + r * 6)P.Line (x, y + r * 6)-(x + r * 6, y + r * 6)P.Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P.Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 6, y)P.Line (x, y)-(x, y + r * 6)P.Line (x + r * 6, y)-(x + r * 6, y + r * 6)P.Line (x, y + r * 6)-(x + r * 6, y + r * 6)P.Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P.Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 6, y)P.Line (x, y)-(x, y + r * 6)P.Line (x + r * 6, y)-(x + r * 6, y + r * 6)P.Line (x, y + r * 6)-(x + r * 6, y + r * 6)P.Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P.Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 6, y)P.Line (x, y)-(x, y + r * 6)P.Line (x + r * 6, y)-(x + r * 6, y + r * 6)P.Line (x, y + r * 6)-(x + r * 6, y + r * 6)P.Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P.Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.DrawWidth = 3x = Rnd * 4000: y = Rnd * 4000: r = Rnd * 500P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 6, y)P.Line (x, y)-(x, y + r * 6)P.Line (x + r * 6, y)-(x + r * 6, y + r * 6)P.Line (x, y + r * 6)-(x + r * 6, y + r * 6)P.Line (x, y)-(x + r * 1.5 * 1.7, y - r * 3)P.Line (x + r * 1.5 * 1.7, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 6, y)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 6, y - r * 3)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)P.Line (x + r * 6, y + r * 6)-(x + r * 1.5 * 1.7 + r * 6, y - r * 3 + r * 6)End Sub(3)结束界面五总结通过几周对的学习，使我增加了对课程的了解首先了解到的特点，是在原来的asic语言