您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

急 ,请帮忙修改一下小程序好吗?谢谢!

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

急 ,请帮忙修改一下小程序好吗?谢谢!

发表于：2007-09-02 17:22:05 楼主

这是个小球沿着正弦线运动的程序, 那么怎么改才可以让小球运动到窗体的右边界之后再次从左边界开始运动呢 ?
private sub form_load（)
scale （0, 1)-（360, -1)fillstyle = 0
fillcolor = vbred
end sub

private sub timer1_timer（)
static x%
dim y!, i!

cls: x = x + 10
y = 0.9 * sin（x * 3.14159465 / 180)
circle （x, y), 8, vbred
end sub
这是个小球沿着正弦线运动的程序, 那么怎么改才可以让小球运动到窗体的右边界之后再次从左边界开始运动呢 ?

发表于：2007-09-02 18:09:391楼得分:0

private sub timer1_timer（)
static x%
dim y as single

'cls:
x = x + 1

y = 0.9 * sin（x * 3.14159465 / 180)

circle （x, y), 8, vbred

if x > = me.width / screen.twipsperpixelx then
me.cls
x = 0
end if

end sub

发表于：2007-09-02 18:17:212楼得分:0

private sub timer1_timer（)
static x%
dim y!, i!

cls: x = x + 10
y = 0.9 * sin（x * 3.14159465 / 180)
circle （x, y), 8, vbred
if x> =360 then x=0
end sub

发表于：2007-09-02 21:05:233楼得分:0

谢谢 zhou5208134 !真是太感谢了

下一篇：ado如何取得存储过程中最后一步的返回结果？
上一篇：问个弱弱的问题，佳能lbp3300要是上网的话，得怎么弄啊。

其他资讯