'

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

Понравилась презентация – покажи это...





Слайд 0

Циклические алгоритмы Графика в циклах For … … Next


Слайд 1

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


Слайд 2

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


Слайд 3

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


Слайд 4

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


Слайд 5

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


Слайд 6

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


Слайд 7

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


Слайд 8

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


Слайд 9

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


Слайд 10

Например, нарисовать точку разных цветов на форме 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) - например


Слайд 11

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


Слайд 12

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


Слайд 13

Для уверенности рассмотрим пример программы, рисующей 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


Слайд 14

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


Слайд 15

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


Слайд 16

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


Слайд 17

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


Слайд 18

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


×

HTML:





Ссылка: