Графика в циклах

Давайте посмотрим конечный результат
Программа Графика в циклах

Оказывается для получения всех этих картинок нужно знать всего три вещи
Графические операторы – рисование линии, окружности, точки
Нужно уметь работать с датчиком случайных чисел
(а это Rnd)
Нужно знать некоторые особенности работы с цветом
А далее фантазируя, вы можете получить сколько угодно вариаций этих картинок

Итак, пункт 1
Повторим (мы уже это знаем – ура!)

А теперь немного нового – о том, как рисовать закрашенные окружности

Важно!
Не нарушайте порядок следования операторов

А теперь пункт 2 – повторим работу с датчиком случайных чисел Ура! Это мы уже «проходили»

Датчик случайных чисел запускается оператором Randomize, а программа
Randomize
For i= 1 to 50
R=Rnd*1000
Form1.Circle(0,0), R, vbYellow
Next
выведет на форму 50 окружностей, центры которых находятся в точке (0,0), а радиусы выбираются случайным образом в диапазоне от 0 до 1000 пикселей

Остаётся пункт 3 –
особенности работы с цветом

Для задания цвета используется функция RGB(r, g, b), аргументами которой являются три числа r, g, b в диапазоне от 0 до 255, каждое из которых определяет интенсивность красной Red, зелёной Green и синей Blue составляющих цвета.

Например, нарисовать точку разных цветов на форме
Pset(x,y), RGB(255,0,0) – точка красного цвета
Pset(x,y), RGB(0,255,0) - точка зелёного цвета
Pset(x,y), RGB(0,0,255) – точка синего цвета
функция RGB цвет
RGB(0,0,0) черный
RGB(255,255,255) белый
Теперь вместо цвета нужно писать функцию RGB(4,70,255) - например

Остальные цвета формируются наложением цветов и оттенков цветов

И это всё, что нужно знать для получения самых разных картинок

Для уверенности рассмотрим пример программы, рисующей 50 окружностей красного цвета с радиусом 1000 пикселей в случайно выбранном месте экрана:
Dim x As Integer, y As Integer
Randomize
For i=1 to 50
x= Rnd*12000
y=Rnd*8000
Circle (x,y), 1000, RGB(255, 0, 0)
Next i
Напишем ту же программу для случая окружностей не красного, а случайно выбранного цвета:
Dim x As Integer, y As Integer
Dim r As Integer, g As Integer, b As Integer
Randomize
For i=1 to 50
x= Rnd*12000
y=Rnd*8000
r=255*Rnd: g=255*Rnd: b=255*Rnd
Circle ( x,y), 1000, RGB (r, g, b)
Next i

Начало координат находится в верхнем левом углу формы
Форма, на которой рисуем

Высоту и ширину формы в пикселях (точках) можно задавать с помощью свойств Height и Wight в окне свойств формы (Form1) или оператором присваивания
Form1.Height=3000
Form1.Width=5000

Примерный вид формы
Линии
окружности
очистить
Оператор очистки экрана Form1. Cls

НАПОМИНАНИЕ!
Не забудьте задать типы переменных в начале программы с помощью оператора DIM (DIMENSION)