• Home
 · 
• Math/Dates
 · 
• To display any item at positions around a circle

To display any item at positions around a circle

To display any item at positions around a circle

API Declarations


Dim originX as single,originY as single
Dim angle as single, radius as single
Dim x as single,y as single



Rate To display any item at positions around a circle

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

  angle = angle + pi / 180 '1 degree rotation per interval
  If angle > 2* pi then angle = angle - 2 * pi
  x = radius * cos(angle) + originX
  y = radius * sin(angle) + originY
  object.left = x
  object.top = y
End Sub