Поделить окружность на 360 делений - Visual Basic .NET
Формулировка задачи:
Имеется окружность
Необходимо нанести черточки (деления) по всей длине окружности - кол-во 360
Как это сделать?
Решение задачи: «Поделить окружность на 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д