Программа Графика в циклах

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

Итак, пункт 1 Повторим (мы уже это знаем – ура!) Form1.Line(x1,y1)-(x2,y2),vbGreenнарисовать зелёную линию на форме, где (x1,y1) и (х2,y2) – координаты начала и конца отрезка Form1.Line(x1,y1)-(x2,y2),vbBlue,Bнарисовать синий прямоугольник на форме, где (x1,y1) и (х2,y2) – координаты двух диагональных углов прямоугольника Form1.Line(x1,y1)-(x2,y2),vbRed,BFнарисовать красный закрашенный прямоугольник на форме, BF – от англ. Box Full Form1.Pset(x1,y1),vbRedНарисовать точку на форме, где х1,у1- координаты точки Form1.Circle(x1,y1),R,vbYellowНарисовать окружность на форме, где х1,у1 - координаты центра окружности, R – радиус окружности

Нарисовать на форме окружность цвета с и закрасить её цветом с Fill Style – способ закрашивания Fill Color – заполнить цветом FillStyle = 0 Form1.FillColor = c Form1.Circle(x1,y1),R,С Важно! Не нарушайте порядок следования операторов

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

Для задания цвета используется функция 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

Начало координат находится в верхнем левом углу формы Форма, на которой рисуем 0 Х У Х1 У1 (Х1,У1) Wight Height 0 Х У Х1 У1 (Х1,У1) Wight Height

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

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

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

Домашнее задание Используя оператор цикла For…Next и оператор рисования линии Form1.Line(x1,y1)-(x2,y2),vbBlue напишите программу, рисующую разноцветный косой параллельный дождик