Рисование в 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

Оцени полезность:

14   голосов , оценка 4.286 из 5
Похожие ответы