rotate shapes... look at enclosed [resolved]

[MXAlPhA]

Ok... in the enclosed project, i have three shapes. How can i make it so that the shapes would like turn around in a circle, shape1 would slowly move into shape2's position, shape2 to shape3 and so forth. A sort of tween, does anyone know how i would be able to accomplish this?

Thx in advance!

[cyborg]

add a timer, set the interval to 10, then add this code:

Option Explicit
Const Pi As Double = 3.14159265358979
Dim Angle As Single
Dim CW As Boolean
 
Private Sub Command1_Click()
If Timer1.Enabled = True And CW = True Then
    Timer1.Enabled = False
ElseIf Timer1.Enabled = False Then
    Timer1.Enabled = True
End If
CW = True
End Sub
 
Private Sub Command2_Click()
If Timer1.Enabled = True And CW = False Then
    Timer1.Enabled = False
ElseIf Timer1.Enabled = False Then
    Timer1.Enabled = True
End If
CW = False
End Sub
 
Private Sub Timer1_Timer()
Dim CenterX As Single
Dim CenterY As Single
Dim TempAngle As Single
CenterX = Me.ScaleWidth / 2
CenterY = Me.ScaleHeight / 2
Angle = Angle + 2
If Angle > 360 Then Angle = Angle - 360
 
If CW = True Then
    TempAngle = Angle
Else
    TempAngle = 360 - Angle
End If
 
Shape1.Left = CenterX + Sin(TempAngle * (Pi / 180)) * 1000
Shape1.Top = CenterY + Cos(TempAngle * (Pi / 180)) * 1000
 
Shape2.Left = CenterX + Sin((TempAngle + 120) * (Pi / 180)) * 1000
Shape2.Top = CenterY + Cos((TempAngle + 120) * (Pi / 180)) * 1000
 
Shape3.Left = CenterX + Sin((TempAngle + 240) * (Pi / 180)) * 1000
Shape3.Top = CenterY + Cos((TempAngle + 240) * (Pi / 180)) * 1000
 
End Sub

[MXAlPhA]

That's amazing!!! thx... we just learned about sin and cosine in my math class a couple of days ago!! REFERENCE TRIANGLES!!! AHHH!!

[cyborg]

heheh

[MXAlPhA]

one question... i understand how the code works, just wondering what grade or whe were you learning in school when you learned this? I'm in my last year of required mathematics in my school, and well, we just barely covered half of the math you have in your code.


Basically, i want to know if this is something that i should be able to do with computers at my mathematics level or something that is in a higher level math course.


From your open source code, i can see you're MUCH more ahead of me in math.

And your pong game, was it developed using any directx or opengl api's? or just like plain vb?