Изменить цвет объекта на случайный - VB

Узнай цену своей работы

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

Использование генератора случайных чисел (ГСЧ): смена цвета объекта формы и изменения направления «луча». ================================================ нужно нарисовать круг чтобы он хаотично менял свой цвет и чтобы из него выходили разноцветные лучи. (примечание, чтобы лучи не выходили за рамки shape)

Решение задачи: «Изменить цвет объекта на случайный»

textual
Листинг программы
Dim scal As Integer
    Sub Form_Load()
        Randomize
        scal = 10
        Picture1.Scale (-scal, scal)-(scal, -scal)
        Picture1.FillStyle = 0
        Picture1.DrawWidth = 2
        Picture1.BorderStyle = 0
        Timer1.Interval = 300
        Timer1.Enabled = True
    End Sub
Private Sub Timer1_Timer()
 Dim i As Integer, zvet As Long
       zvet = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
       Picture1.Cls
       Picture1.FillColor = zvet
       Picture1.ForeColor = zvet
       Picture1.Circle (0, 0), scal / 2
       For i = 1 To 50 ' количество лучей
         Picture1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
         Picture1.Line (0, 0)-(2 * scal * Rnd - scal, 2 * scal * Rnd - scal)
       Next i
End Sub

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

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