Рисование в VB
Формулировка задачи:
Необходимо в бэйсике нарисовать множество пучков зелёных отрезков, выходящих из разных точек, обведённые окружностями красного цвета
Решение задачи: «Рисование в VB»
textual
Листинг программы
Option Explicit Private Sub Form_Load() Dim i As Single, j As Single, x As Single, y As Single, ScaleHW As Integer Dim r As Integer, k As Integer, n As Integer, c As Integer Me.Width = Me.Height: Me.ScaleMode = 3: Me.AutoRedraw = True Me.DrawWidth = 3 Randomize ScaleHW = 1000 'шкала Me.Scale (0, 0)-(ScaleHW, ScaleHW) r = ScaleHW / 15 'радиус окружностей k = 10 'количество пучков и окружностей n = 16 'количество отрезков в пучке For i = 1 To k x = Rnd * (ScaleHW - r * 2) + r: y = Rnd * (ScaleHW - r * 2) + r Me.DrawWidth = 2 For j = 0 To n Step 6.28 / n Me.Line (x, y)-(x + Sin(j) * r, y + Cos(j) * r), vbGreen Next j Me.DrawWidth = 3 Me.Circle (x, y), r, vbRed Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д