請問??

[zellshin (柑仔)]

我們老師要我們做一個Y=SIN(X)的圖形
而且要用一顆球沿著線Y=SIN(X)跑
我的程式如下
這是球沿著線跑的COM

Private Sub Command2_Click()
Timer1.Enabled = True

For i = 3 To 10 Step 0.0005
j = 80 * (Sin(i)) + 200
Picture1.Circle (300 * i + 750, 15 * j + 100), 50

Next i

End Sub
我的能沿著線跑可是會變成一條黑黑的線
就是說前面出來的圓不會消失
後面又陸續有新的圓出來
這該怎麼辦
有辦法能清除掉已經出現過的圓嗎
或是我的程式需要修改呢???

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 203.64.238.178
推 neplayer:畫之前先把畫面清除
推 zellshin:可是這樣之前的Y=SIN(X)就會被清掉了
推 fumizuki:要把圓消掉就在同樣的位置畫圓
推 zellshin:可以寫給我看嗎~我試很久是不出來
推 fumizuki:circle (x,y), radius, color
推 fumizuki:color=backcolor
推 fumizuki:x和y 上面照抄...但i和j都要減1
推 zellshin:我是初學者~...所以我看不懂@@..<(_ _)>
推 zellshin:可以回文給我看嗎M(_ _)M麻煩你了
> -------------------------------------------------------------------------- <

作者: fumizuki (小獅) 看板: Visual_Basic
標題: Re: 請問??
時間: Thu May  5 21:45:18 2005

Picture1.Circle (300 * (i - 1) + 750, 15 * (j - 1) + 100), 50, Picture1.BackColor
加一行這個...

--
VB 程式設計   倉木麻衣       PTT 星爺板     行列輸入法
======================================================
Visual_Basic  MaiKuraki      Stephen        Array

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 210.58.156.43
推 zellshin:多謝阿~~不過不用減1啦<(_ _)>
推 zellshin:真是太感謝你了~我想了好久說>"<