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

Формулировка задачи:

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

Код к задаче: «Поделить окружность на 360 делений - Visual Basic .NET»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 4.067 из 5


СДЕЛАЙТЕ РЕПОСТ