Изменить цвет объекта на случайный - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д