VB各种图形设计报告.doc

VB各种图形设计二一 届 土木 分院专 业 土木工程 学 号 20100110 学生姓名 申沛东 指导教师 刘 丹 完成日期 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各种图形设计一朵花两朵花一圆环十圆环十长方体十正方体清屏退出四 系统实现现在已经完成了程序各个功能模块的创建，现在可以进行系统的实现了开始Private Sub Timer1_Timer()Form1.HideForm2.ShowTimer1.Enabled = FalseEnd Sub一朵花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 = 3 + 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 = 3 + 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十长方体Private Sub Command6_Click()P.ClsDim x%, y%, r%, i%P.DrawWidth = 3Randomizex = Rnd * 6000: y = Rnd * 6000: r = Rnd * 500P.DrawMode = 14P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 5, y)P.Line (x, y)-(x, y + r * 2)P.Line (x + r * 5, y)-(x + r * 5, y + r * 2)P.Line (x, y + r * 2)-(x + r * 5, y + r * 2)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 * 5, y - r * 3)P.Line (x + r * 5, y)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 5, y - r * 3)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3 + r * 2)P.Line (x + r * 5, y + r * 2)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3 + r * 2)x = Rnd * 6000: y = Rnd * 6000: r = Rnd * 500P.DrawMode = 14P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 5, y)P.Line (x, y)-(x, y + r * 2)P.Line (x + r * 5, y)-(x + r * 5, y + r * 2)P.Line (x, y + r * 2)-(x + r * 5, y + r * 2)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 * 5, y - r * 3)P.Line (x + r * 5, y)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 5, y - r * 3)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3 + r * 2)P.Line (x + r * 5, y + r * 2)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3 + r * 2)x = Rnd * 6000: y = Rnd * 6000: r = Rnd * 500P.DrawMode = 14P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 5, y)P.Line (x, y)-(x, y + r * 2)P.Line (x + r * 5, y)-(x + r * 5, y + r * 2)P.Line (x, y + r * 2)-(x + r * 5, y + r * 2)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 * 5, y - r * 3)P.Line (x + r * 5, y)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 5, y - r * 3)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3 + r * 2)P.Line (x + r * 5, y + r * 2)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3 + r * 2)x = Rnd * 6000: y = Rnd * 6000: r = Rnd * 500P.DrawMode = 14P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 5, y)P.Line (x, y)-(x, y + r * 2)P.Line (x + r * 5, y)-(x + r * 5, y + r * 2)P.Line (x, y + r * 2)-(x + r * 5, y + r * 2)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 * 5, y - r * 3)P.Line (x + r * 5, y)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 5, y - r * 3)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3 + r * 2)P.Line (x + r * 5, y + r * 2)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3 + r * 2)x = Rnd * 6000: y = Rnd * 6000: r = Rnd * 500P.DrawMode = 14P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 5, y)P.Line (x, y)-(x, y + r * 2)P.Line (x + r * 5, y)-(x + r * 5, y + r * 2)P.Line (x, y + r * 2)-(x + r * 5, y + r * 2)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 * 5, y - r * 3)P.Line (x + r * 5, y)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 5, y - r * 3)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3 + r * 2)P.Line (x + r * 5, y + r * 2)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3 + r * 2)x = Rnd * 6000: y = Rnd * 6000: r = Rnd * 500P.DrawMode = 14P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 5, y)P.Line (x, y)-(x, y + r * 2)P.Line (x + r * 5, y)-(x + r * 5, y + r * 2)P.Line (x, y + r * 2)-(x + r * 5, y + r * 2)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 * 5, y - r * 3)P.Line (x + r * 5, y)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 5, y - r * 3)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3 + r * 2)P.Line (x + r * 5, y + r * 2)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3 + r * 2)x = Rnd * 6000: y = Rnd * 6000: r = Rnd * 500P.DrawMode = 14P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 5, y)P.Line (x, y)-(x, y + r * 2)P.Line (x + r * 5, y)-(x + r * 5, y + r * 2)P.Line (x, y + r * 2)-(x + r * 5, y + r * 2)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 * 5, y - r * 3)P.Line (x + r * 5, y)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3)P.Line (x + r * 1.5 * 1.7 + r * 5, y - r * 3)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3 + r * 2)P.Line (x + r * 5, y + r * 2)-(x + r * 1.5 * 1.7 + r * 5, y - r * 3 + r * 2)x = Rnd * 6000: y = Rnd * 6000: r = Rnd * 500P.DrawMode = 14P.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)P.Line (x, y)-(x + r * 5, y)P.Line (x,