Picture1に二つの円

質問

今、あせってます
pictureboxに動く円と円を書き込みたい
のですが動く円はできました。
ですが1度に二つの円を記入できずに
困ってます。
picture1.cls
picture1.cirecre(12000,200),200

回答No.5

taisuke555

最終的にこの円がどのような図形になるのかによっても変わってきますが、

単純に固定された円と動く円だけなら

Private x As Long
Private y As Long
Private sx As Integer
Private sy As Integer

Private Sub Form_Load()
　　Picture1.AutoRedraw = True
　　Picture1.Circle (1000, 1000), 200
　　Picture1.AutoRedraw = False

　　sx = 1: sy = 1
　　x = 0: y = 0
End Sub

Private Sub Timer1_Timer()
　　If (x + sx * 100 > Picture1.Width - 200) Then
　　　　sx = -1
　　ElseIf (x + sx * 100 < 200) Then
　　　　sx = 1
　　End If
　　If (y + sy * 100 >= Picture1.Height - 200) Then
　　　　sy = -1
　　ElseIf (y + sy * 100 < 200) Then
　　　　sy = 1
　　End If
　　x = x + sx * 100
　　y = y + sy * 100

　　Picture1.Cls
　　Picture1.Circle (x, y), 200
End Sub

こんな方法でもできると思います。
（跳ね返りが微妙にずれてますがその辺は質問と関係無い所なのでご容赦を）
（固定の円はAutoRedraw=Trueで動く円はAutoRedraw=Falseで線画する。）

複雑な線画や絵（ビットマップなど）を動かすようなら
API関数のBitBltを使用するようになるのではないでしょうか？

２つとも動く円なのでしょうか？（２つの円を１度に動かせないと言う事？）

回答No.4

imogasi

#3です。＃３は素っ気無いので
円の周りを円が回るようにして見ました。
タイマーのインタバルを５００ぐらいで。
Private Sub Timer1_Timer()
Static i
i = i + 5
Picture1.Cls
blt2 i
End Sub
Private Sub blt2(i)
pai = 3.141592
R1 = 800
R2 = 500
r = R1 + R2
a = 3000
b = 2000
Picture1.Circle (a, b), R1
s = i * pai / 180
PX = a + r * Cos(s)
PY = b + r * Sin(s)
Picture1.Circle (PX, PY), R2, RGB(0, 255, 255)
End Sub

回答No.3

imogasi

下記を実行して見てください。Timerコントロールを貼りつける。Timerのインタバルは１０００（１秒）でやりました。１つの円が動きましたが、こんなことで良いのやら、お遊びで自信なし。
Private Sub blt(i)
Picture1.Circle (1600, 10 * 20 + 500), 500
Picture1.Circle (600, i * 20 + 500), 500, RGB(0, 255, 255)
End Sub

Private Sub Timer1_Timer()
Static i
i = i + 10
Picture1.Cls
blt i
End Sub

回答No.2

tak2003

昔ブロック崩しやインベーダーゲームを作ってました。
その時のアルゴリズムはXの位置を消して、増加率を加算してキャラを表示する方法を取ってました。
CLSは簡単ですけど画面がちらついて見にくいし、他の表示もしないといけないので処理が重くなります。
移動する物だけ消して→移動して→表示するを繰り返した方が良いと思います。

回答No.1

paspas

二つの円がかけないのは、動く円を描画するときにCLSで消しているからでしょうか？
　動く円を消す際、背景色で同一場所に円を描くようにすると、画面を消さなくてすむので、複数の円を描けるのではないでしょうか。