资源大小： 34KB
发布时间： 2008-12-17
文件格式： rar
下载次数： 4
分享到：

下载地址：

下载地址1
（本站为飞网专业下载站，域名：down.cfei.net）

资源简介：

万花规演示程序,随机产生不同的色采的万花规VB6.0源代码,Randomize r = 240 * (Rnd()) R1 = 250 s = r * Rnd() For t = 1 To 10000 a1 = t * 3.1415926 / 180 a2 = (R1 / r) * a1 xb = (-(R1 - r) * Cos(a1) - s * Cos(a2 - a1) + 320) * 4 yb = ((R1 - r) * Sin(a1) - s * Sin(a2 - a1) + 280) * 4 Picture1.ForeColor = RGB(255 * Rnd(), 0, 255) Picture1.PSet (xb, yb) Next t Randomize r = 240 * (Rnd()) R1 = 250 s = r * Rnd() For t = 1 To 10000 a1 = t * 3.1415926 / 180 a2 = (R1 / r) * a1 xb = (-(R1 - r) * Cos(a1) - s * Cos(a2 - a1) + 800) * 4 yb = ((R1 - r) * Sin(a1) - s * Sin(a2 - a1) + 280) * 4 Picture1.ForeColor = RGB(255, 0, 255 * Rnd()) Picture1.PSet (xb, yb) Next t


飞网下载站，免费下载共享资料，内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。