Поделить окружность на 360 делений - Visual Basic .NET

  1. Имеется окружностьvb.net1 g.DrawEllipse(pen1, 5, 5, PictureBox1.Width - 10, PictureBox1.Height - 10)Необходимо нанести черточки (деления) по всей длине окружности - кол-во 360 Как это сделать?


textual

Код:

        Dim BM As New Bitmap(PictureBox1.Width, PictureBox1.Height)
        Dim G As Graphics = Graphics.FromImage(BM)
        G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        G.DrawEllipse(New Pen(Color.Blue, 2), 5, 5, PictureBox1.Width - 10, PictureBox1.Height - 10)
 
        Dim Center As Point = New Point(PictureBox1.Width / 2, PictureBox1.Height / 2)
        Dim Pt As Point
        For I As Double = 0 To Math.PI * 2 Step Math.PI / 180
            Pt = New Point(CInt(Math.Sin(I) * Center.X) + Center.X, CInt(Math.Cos(I) * Center.Y) + Center.Y)
            G.DrawLine(Pens.Red, CInt(Math.Sin(I) * (Center.X - 10)) + Center.X, CInt(Math.Cos(I) * (Center.Y - 10)) + Center.Y, Pt.X, Pt.Y)
        Next
        PictureBox1.Image = BM


Похожие ответы
  1. Подскажите, как построить правильный n- угольник вписанный в окружность ?

  1. Здравствуйте! Подскажите как нарисовать единичную окружность. В ВБ6 через метод scale размечался ПБ а в ВБ 2010 этот метод работает по другому.

  1. Всем привет! Такая задачка: На форме два пикчербокса с рисунками. Необходимо при нажатии на пикчербокс мышкой в определённом месте нарисовать окружность, т.е. сначала проверить правильное место выбрано (или маленькая область) или нет и, если правильно, то нарисовать окружность в этом месте (точнее в двух пикчерах сразу в одном месте). Наверное, надо как-то проверить координаты в этом пикчере (???). На пикчере будет 10 разных окружностей в разных местах. Кто-нибудь такое делал??? На форуме не нашел такой вопрос. Подскажите плиз!!!