Рисование по траектории окружностей-помогите

[Harg]

Здраствуйте! Помогите пожалуйста написать код Рисование по траектории окружностей (методом ) одинакового размера. Сколько не пытался Сircle -не получается!

[GSerg]

По всей видимости, автор считает, что вопрос понятен...

[Harg]

Нужно разработать проект, выполняющий рисование по траектории окружностей (методом) одинакового размера 50 000 раз в одном потоке и в нескольких потоках, на нескольких экземплярах формы, порождающихся в проекте.

[Хакер]

Нда, вопрос сформулирован по просто на ура.

Видимо речь идёт об этом:

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

Sub My_DrawCircle(byval sRadius as single, byval sXCenter as single, byval sYCenter as single, optional byval sStep As single = 0.1)
dim i as single
canv.CurrentX = sXCenter + sRadius
canv.CurrentY = sYCenter

for i = 0 to TWO_PI Step sStep
  canv.Line -(sXCenter + sRadius * Cos(i), sYCenter + sRadius * Sin(i))
next i


константу TWO_PI сам объявишь.

[Viper]

Телепатия в этот раз не сработала. Автор запульнул этот же вопрос на соседний форум (vbnet.ru), где и выяснилось, что ему надо нарисовать одинаковые окружности вдоль некой траектории. Правда по какой траектории автор молчит...

А вот что касается потока сознания о потоках формах и 50000.... это что-то за гранью понимания

[Хакер]

жаль не увидел я 3-ий пост: постил когда - не было его. <материт висящий форум >