Кризис
<<  Цикл и графика Время кризиса  >>
Графика в циклах
Графика в циклах
Давайте посмотрим конечный результат
Давайте посмотрим конечный результат
А далее фантазируя, вы можете получить сколько угодно вариаций этих
А далее фантазируя, вы можете получить сколько угодно вариаций этих
Итак, пункт 1 Повторим (мы уже это знаем – ура
Итак, пункт 1 Повторим (мы уже это знаем – ура
А теперь немного нового – о том, как рисовать закрашенные окружности
А теперь немного нового – о том, как рисовать закрашенные окружности
Fillstyle = 0 form1
Fillstyle = 0 form1
А теперь пункт 2 – повторим работу с датчиком случайных чисел Ура
А теперь пункт 2 – повторим работу с датчиком случайных чисел Ура
Датчик случайных чисел запускается оператором Randomize, а программа
Датчик случайных чисел запускается оператором Randomize, а программа
Остаётся пункт 3 – особенности работы с цветом
Остаётся пункт 3 – особенности работы с цветом
Для задания цвета используется функция RGB(r, g, b), аргументами
Для задания цвета используется функция RGB(r, g, b), аргументами
Например, нарисовать точку разных цветов на форме Pset(x,y), RGB(255,0
Например, нарисовать точку разных цветов на форме Pset(x,y), RGB(255,0
Остальные цвета формируются наложением цветов и оттенков цветов
Остальные цвета формируются наложением цветов и оттенков цветов
И это всё, что нужно знать для получения самых разных картинок
И это всё, что нужно знать для получения самых разных картинок
Для уверенности рассмотрим пример программы, рисующей 50 окружностей
Для уверенности рассмотрим пример программы, рисующей 50 окружностей
Начало координат находится в верхнем левом углу формы
Начало координат находится в верхнем левом углу формы
Высоту и ширину формы в пикселях (точках) можно задавать с помощью
Высоту и ширину формы в пикселях (точках) можно задавать с помощью
Примерный вид формы
Примерный вид формы
Напоминание
Напоминание
Домашнее задание
Домашнее задание

Презентация на тему: «Графика в циклах». Автор: Надя. Файл: «Графика в циклах.ppt». Размер zip-архива: 1535 КБ.

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

содержание презентации «Графика в циклах.ppt»
СлайдТекст
1 Графика в циклах

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

Циклические алгоритмы

For … … Next

2 Давайте посмотрим конечный результат

Давайте посмотрим конечный результат

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

3 А далее фантазируя, вы можете получить сколько угодно вариаций этих

А далее фантазируя, вы можете получить сколько угодно вариаций этих

картинок

Оказывается для получения всех этих картинок нужно знать всего три вещи

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

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

Итак, пункт 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 – радиус окружности

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

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

6 Fillstyle = 0 form1

Fillstyle = 0 form1

Fillcolor = c form1.Circle(x1,y1),r,с

Нарисовать на форме окружность цвета с и закрасить её цветом с Fill Style – способ закрашивания Fill Color – заполнить цветом

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

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

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

Это мы уже «проходили»

8 Датчик случайных чисел запускается оператором Randomize, а программа

Датчик случайных чисел запускается оператором Randomize, а программа

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

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

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

10 Для задания цвета используется функция RGB(r, g, b), аргументами

Для задания цвета используется функция RGB(r, g, b), аргументами

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

11 Например, нарисовать точку разных цветов на форме Pset(x,y), RGB(255,0

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

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

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

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

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

14 Для уверенности рассмотрим пример программы, рисующей 50 окружностей

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

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

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

Форма, на которой рисуем

16 Высоту и ширину формы в пикселях (точках) можно задавать с помощью

Высоту и ширину формы в пикселях (точках) можно задавать с помощью

свойств Height и Wight в окне свойств формы (Form1) или оператором присваивания Form1.Height=3000 Form1.Width=5000

17 Примерный вид формы

Примерный вид формы

Оператор очистки экрана Form1. Cls

Очистить

Линии

Окружности

18 Напоминание

Напоминание

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

19 Домашнее задание

Домашнее задание

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

«Графика в циклах»
http://900igr.net/prezentacija/ekonomika/grafika-v-tsiklakh-221236.html
cсылка на страницу

Кризис

11 презентаций о кризисе
Урок

Экономика

125 тем
Слайды