文件名称：万花规演示程序,随机产生不同的色采的万花规VB6.0源代码,Randomize
文件大小：34KB
文件格式：RAR
更新时间：2012-01-07 11:51:12
万花规演示程序,随机产生不同的色采的万花规VB6.0源代码,Randomize
万花规演示程序,随机产生不同的色采的万花规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
【文件预览】：
VB081217-万花规演示程序
----工程1.exe(20KB)
----新建 文本文档.txt(805B)
----工程1.vbp(715B)
----form1.frm(4KB)
----MSSCCPRJ.SCC(190B)
----效果图.bmp(281KB)
----工程1.vbw(52B)