您的位置：程序门 -> vb -> 基础类

看不懂的代码

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

看不懂的代码

发表于：2007-01-30 13:49:44 楼主

dim snow（1000, 2), amounty as integer

private sub form_load（)
form1.show
doevents
randomize: amounty = 325
for j = 1 to amounty
snow（j, 0) = int（rnd * form1.width)
snow（j, 1) = int（rnd * form1.height)
snow（j, 2) = 10 + （rnd * 20)
next j

do while not （doevents = 0)
for ls = 1 to 10
for i = 1 to amounty
oldx = snow（i, 0): oldy = snow（i, 1): snow（i, 1) = snow（i, 1) + snow（i, 2)
if snow（i, 1) > form1.height then snow（i, 1) = 0: snow（i, 2) = 5 + （rnd * 30): snow（i, 0) = int（rnd * form1.width): oldx = 0: oldy = 0
coloury = 8 * （snow（i, 2) - 10): coloury = 60 + coloury: pset （oldx, oldy), qbcolor（0): pset （snow（i, 0), snow（i, 1)), rgb（coloury, coloury, coloury)
next i
next ls
label1.refresh
loop
end
end sub

private sub timer1_timer（)

end sub

private sub form_mousedown（button as integer, shift as integer, x as single, y as single)
end
end sub

望高手说说意思..越详细越好..谢谢

发表于：2007-01-30 14:12:331楼得分:0

模拟下雪
snow（j, 0) x轴坐标
snow（j, 1) y轴坐标
snow（j, 2) 下降高度

*****************************************************************************
欢迎使用csdn论坛专用阅读器 : csdn reader（附全部源代码)

最新版本：20070127

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

发表于：2007-01-30 14:42:102楼得分:0

上面你说的那个我懂..我是这段不懂吖!!

do while not （doevents = 0)
for ls = 1 to 10
for i = 1 to amounty
oldx = snow（i, 0): oldy = snow（i, 1): snow（i, 1) = snow（i, 1) + snow（i, 2)
if snow（i, 1) > form1.height then snow（i, 1) = 0: snow（i, 2) = 5 + （rnd * 30): snow（i, 0) = int（rnd * form1.width): oldx = 0: oldy = 0
coloury = 8 * （snow（i, 2) - 10): coloury = 60 + coloury: pset （oldx, oldy), qbcolor（0): pset （snow（i, 0), snow（i, 1)), rgb（coloury, coloury, coloury)

其他资讯