одна ТОЧЕЧНАЯ графика

[Akella]

И снова ЗДОРОВА жители форума, ВЕЧЕР, настроение ОТЛИЧНОЕ, вот у меня такой вопрос :
Надо расположить N-ное (заданное) количество точек (3 ~ 60) расположить по кругу на равном расстоянии от центра , и что бы они

могли менять это расстояние и поворачивалься относительно центра?
написал:

Код: Выделить всё

Private Sub Form_Load()

Dim CenterX, CenterY As Integer
Dim tr As Integer
Dim sX, sY As Integer

'pic- Picturebox
pic.autoredraw=true
Dim i2 As Long
CenterX = Pic.ScaleWidth \ 2
CenterY = Pic.ScaleHeight \ 2
tr = (2 * 3.14 * 30) \ 180

Pic.Line (0, CenterY)-(Pic.ScaleWidth, CenterY)
Pic.Line (CenterX, 0)-(CenterX, Pic.ScaleHeight)
Pic.DrawWidth = 3
For i = 1 To 20
'sY = Cos(360 / (i + 1)) ' + 360 / (i + 1)
'sX = Sin(360 / (i + 1)) '+ 360 / (i + 1)
i2 = ((360 * (i)) / 2 * 3.14) '- 1.57  '* Step)
'i2 = (2 * 3.14 * (360 / i)) / 360
x1 = Sin(i2)
y1 = Cos(i2)

c = 30

t(i).x1 = CenterX + i
t(i).y1 = CenterY + i
Pic.PSet ((CenterX + x1 * c), (CenterY + y1 * c))  '(t(i).x1 + sX, t(i).y1 + sY)
Next
Pic.Refresh
End Sub

но они распологаются НЕРАВНОМЕРНО, ПОМОГИТЕ.

[GSerg]

Код: Выделить всё

Option Explicit

Private Sub Poly(ByVal numVerts As Long, ByVal sizeFactor As Long, Optional ByVal rotateGrad As Long = 0)
  Dim i As Long, tmp As Double, curgr As Double
 
  tmp = 2 * 3.1415926536 / numVerts
  curgr = -tmp + rotateGrad * 3.1415926536 / 180
  For i = 1 To numVerts
    curgr = curgr + tmp
    Me.PSet (Cos(curgr) * sizeFactor + sizeFactor, Sin(curgr) * sizeFactor + sizeFactor), vbRed
  Next
End Sub

Private Sub Form_Load()
  Me.ScaleMode = vbPixels
  Me.Width = Me.ScaleX(460, vbPixels, vbTwips)
  Me.Height = Me.ScaleX(500, vbPixels, vbTwips)
  Me.DrawWidth = 5
End Sub

Private Sub Timer1_Timer()
  Static rot As Long
  rot = rot + 1
  Me.Cls
  Poly 15, 200, rot
End Sub

[Faust]

У-у-у, как всё запущенно... Можешь вот так попробовать, авось попустит

Код: Выделить всё


Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Const 2pi=6.283185307179586476925286766559
Const n As Byte=7 'число вершин
Dim x(0 to n-1) As Double, y(0 to n-1) As Double 'вообще-то без этого массива можно обойтись, но в целях повышения быстродействия...
Dim R As Double, Alpha As Double 'R - расстояние от точки до центра, Alpha - фаза поворота
Dim ca As Double, sa As Double, t as Double
Dim xc As Integer, yc As Integer 'координаты центра
For i=0 to n-1
x(i)=Cos(2pi*i/n)
y(i)=Sin(2pi*i/n)
Next i
'Теперича отрисовка:
R=Rnd*100
xc=CInt(Me.ScaleWidth/2)
yc=CInt(Me.ScaleHeight/2)
t=timeGetTime/1000
Do
Alpha=timeGetTime/1000 'угловая скорость 1 рад/с
ca=Cos(alpha)
sa=Sin(alpha)
Me.Cls 'ну, здесь по желанию - я бы просто поточечно затирал
For i=0 to n-1
Me.PSet (xc+ca*x(i)-sa*y(i),yc+ca*y(i)+sa*x(i))
Next i
DoEvents
Loop Until Alpha-t>10000

ЗЫ. Знал, знал что зря стараюсь...

[ANDLL]

Уверен, что ты его не проверял... У тебя syntax error во 2 строке.

[kirrun]

Он пробел забыл между Byte и =

[ANDLL]

А это тут причем?

[kirrun]

Ну там написано as Byte=

А он не понимает что это такое "Byte="

[SHURUP]

kirrun, вообще-то ВБ на константу 2pi ругается, ибо ее имя с цифры начинается … А вот с пробелом - проблема надуманная…

[kirrun]

ну мб мб...

[Faust]

kirrun, вообще-то ВБ на константу 2pi ругается, ибо ее имя с цифры начинается … А вот с пробелом - проблема надуманная…

[Akella]

Круто, спасибо