movimento

[harshinovos 0]

Por Favor.

preciso de uma ajuda..

estou tentando fazer um objeto dar uma volta na tela, (tp 360º) nao precisa ser tao preciso..

e nao estou conseguindo..

 

como faço para que isto aconteça??

 

 

obrigado a atençao

[scorpio 7]

x=0
y=0
r=89
yc=500
xc=350

for i=0 to 360
x=xc + (r*cos(i*3.14/180));
y=yc + (r*sin(i*3.14/180));
objeto.left = x
objeto.top=y
next

tenta fazer desse jeito

[Claudio Neto 3]

x=0
y=0
r=89
yc=500
xc=350

for i=0 to 360
x=xc + (r*cos(i*3.14/180));
y=yc + (r*sin(i*3.14/180));
objeto.left = x
objeto.top=y
next

tenta fazer desse jeito

Tentei fazer, o meu não deu certo não... O Objeto muda um pouco de lugar, mas nem chega perto de fazer uma circunferência...

 

x=0
y=0
r=89
yc=500
xc=350

for i=0 to 360
x=xc + (r*cos(i*3.14/180));
y=yc + (r*sin(i*3.14/180));
objeto.left = x
objeto.top=y
next

tenta fazer desse jeito

Tentei fazer, o meu não deu certo não... O Objeto muda um pouco de lugar, mas nem chega perto de fazer uma circunferência...

[harshinovos 0]

Nao deu certo..

tem como você colocar uma fotos para ver como se faz passo a passo =D

[scorpio 7]

Dim x, y, r, yc, xc, i

Private Sub Timer1_Timer()
i = i + 1
x = xc + (r * Cos(i * 3.14 / 180))
y = yc + (r * Sin(i * 3.14 / 180))
Command1.Left = x
Command1.Top = y
End Sub

Private Sub Command1_Click()
i = 1
x = 0
y = 0
r = 300
yc = 500
xc = 350
Timer1.Enabled = True

End Sub

agora funciona

poe um timer...

 

r - raio da circunferencia

xc, yc = posição inicial

flw vlw!