Компьютерная графика в визуальном программировании

11. Для завершения работы приложения необходимо нажать кнопку «ФИНИШ» (или значок «закрыть» на форме) или выполнить команду Run/End.

2. Анимация графических изображений

Анимация - это имитация движения, производимая быстрым отображением на экране серии связанных между собой изображений. Настоящая анимация требует программного перемещения объектов, и часто использует также изменение размера или формы изображения. Если в последовательные моменты изменять координаты графических объектов на экране, то объекты будут «перемешаться» по экрану.

Пример 7. Мечущаяся точка. Составить программу для построения движения точки. Точка движется за счёт изменения её координат и отражается от сторон экрана под углом 45 градусов (рис. 1.7).

Решение. Работа выполняется в следующей последовательности:

1. Запустить Visual Basic с помощью меню Window/Пуск / Программы. В окне New Project выбрать Стандартный.EXE вкладки New (новый) и кликнуть по кнопке «Открыть».

2. На экране появится новый проект и форма Project1 - Form1 (Form), содержание которой нужно заполнить необходимыми компонентами, с помощью которых можно будет выполнить необходимые вычисления.

3. Для создания приложения необходимо использовать следующие объекты управления:

- для выполнения функций вычисления необходима одна кнопка Command1. Это будет «Старт». Вторая кнопка Command2 выполняет функцию завершения работы приложения - кнопка «Финиш»;

- для вывода графика движения точки можно использовать окно рисунка PictureBox1.

4. Теперь следует все указанные выше компоненты вынести на форму. Для этого на панели стандартных элементов находим значок одного из компонент, активизируем его и «переносим» на форму: рисуем условный прямоугольник в том месте формы, где будет предположительно находиться этот элемент, учитывая при этом его размеры.

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

5. Далее изменяем свойства объектов, используя страницу свойств Properties. Для изменения свойств элементов следует активизировать элемент - выделить его на форме. Далее для выделенного элемента в окне свойств можно вносить изменения: для Command1 изменить свойство Caption = `Старт `, для Command2 - свойство Caption = `Финиш `.

Заготовку формы для примера 7 с измененными свойствами смотрите на рис. 2.1.

Рис. 2.1. Мечущаяся точка. Заготовка формы для примера 7 с измененными свойствами и результат работы приложения

6. Для создания программного кода в проводнике проекта или в меню View выбрать команду Code.

В окне Project1 - Form1 (Code) выбрать в списке General название кнопки 1 и кликнуть по ней. В результате появится заготовка записи программного кода для Command1 с инициированием для нее события Click. В начале программы в операторе Dim переменные x, y, dx, dy, n, i имеют числовой тип Integer. Здесь x, y - координаты точки; dx, dy - приращения координат; n - счетчик шагов; i - счетчик цикла замедления; x =-20, y=-10 начальные координаты.

Аналогичные действия выполняем в отношении кнопки 2. Для Command2 будет выполняться одно действие - закрыть приложение. Это выполняет команда End.

7. Программный код для примера 7 будет иметь вид:

Option Explicit

Private Sub Command1_Click()

Dim x, y, dx, dy, n, i As Integer

Picture1. Scale (-2000, 2500) - (2000, -2500)

x = -20: y = -10

n = 1

dx = 1: dy = 1

While n < 50000

If x = -2000 Or x = 2000 Then dx = - dx

If y = -2500 Or y = 2500 Then dy = - dy

Picture1. DrawWidth = 20

Picture1.PSet (x, y), vbRed

For i = 1 To 10000: Next

Picture1. Cls

x = x + dx: y = y + dy

n = n + 1

Wend

End Sub

Private Sub Command2_Click()

End

8. Для сохранения проекта надо выполнить команду меню File (файл) > Save Project As (Сохранить проект как). В диалоговом окне Save File As (Сохранить файл как) выбрать название диска, на котором должна быть создана папка для хранения файлов нового проекта. Далее для сохранения формы, следует набрать имя файла в поле ввода File Name (Имя файла), например Primer7, и нажать клавишу «Enter». Форма Form1 будет сохранена в файле с расширением Primer7.frm.

9. После сохранения формы следует сохранить проект. В Visual Basic это происходит автоматически, после чего должно появиться диалоговое окно Save Project As - Сохранить проект. Следует набрать то же имя Primer6 и нажать клавишу «Enter». Файл проекта будет сохранен с расширением Primer7.vbp.

10. Теперь запустить проект на выполнение. Выбираем команду Run > Start или Shift+F5. После чего нажать кнопку «Старт». В окне рисунка появляется движущая точка.

11. Для завершения работы приложения необходимо нажать кнопку «ФИНИШ» (или значок «закрыть» на форме) или выполнить команду Run/End.

В качестве примера рассмотрим перемещение окружности по форме из правого верхнего угла в нижний левый угол.

Пример 8. Шарик. Рассчитать движение окружности с возрастающим диаметром, скатывающейся по наклонной линии и изобразить графически.

Решение. Работа выполняется в следующей последовательности:

1. Запустить Visual Basic с помощью меню Window/Пуск / Программы. В окне New Project выбрать Стандартный.EXE вкладки New (новый) и кликнуть по кнопке «Открыть».

2. На экране появится новый проект и форма Project1 - Form1 (Form), содержание которой нужно заполнить необходимыми компонентами, с помощью которых можно будет выполнить необходимые действия.

3. Для создания приложения необходимо использовать следующие объекты управления:

- для завершения работы приложения необходима одна кнопка Command1. Это будет кнопка «Финиш»;

- для вывода рисунка можно использовать окно рисунка PictureBox1.

4. Теперь следует все указанные выше компоненты вынести на форму. Для этого на панели стандартных элементов находим значок одного из компонент, активизируем его и «переносим» на форму: рисуем условный прямоугольник в том месте формы, где будет предположительно находиться этот элемент, учитывая при этом его размеры.

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

5. Далее изменяем свойства объектов, используя страницу свойств Properties. Для изменения свойств элементов следует активизировать элемент - выделить его на форме. Далее для выделенного элемента в окне свойств можно вносить изменения:

Command1	Caption = `Финиш`

Заготовку формы для примера 8 с измененными свойствами и результат работы приложения смотрите на рис. 1.8.

6. Для создания программного кода в проводнике проекта или в меню View выбрать команду Code.

В окне Project1 - Form1 (Code) выбрать в списке General название кнопки 1 и кликнуть по ней. В результате появится заготовка записи программного кода для Command1 с инициированием для нее события Click. Для Command1 будет выполняться одно действие - закрыть приложение. Это выполняет команда End.

Аналогичные действия выполняем в отношении других объектов управления.



Рис. 2.2. Шарик. Заготовка формы для примера 8 с измененными свойствами и результат работы приложения

7. Программный код для примера 8 будет иметь вид:

Private Sub Picture1_Click()

Dim v As Single

Picture1. Scale (-120, 180) - (120, -180)

For v = 0 To 20 Step 0.001

Picture1. Cls

Picture1. DrawWidth = 8

Picture1. Circle (100 - 10 * v, 100 - 10 * v), (6 + v), vbBlue

Picture1. Line (-110, -180) - (130, 120), vbBlue

Next v

End Sub

Private Sub Command1_Click()

End

End Sub

8. Для сохранения проекта надо выполнить команду меню File (файл) > Save Project As (Сохранить проект как). В диалоговом окне Save File As (Сохранить файл как) выбрать название диска, на котором должна быть создана папка для хранения файлов нового проекта. Далее для сохранения формы, следует набрать имя файла в поле ввода File Name (Имя файла), например Primer8, и нажать клавишу «Enter». Форма Form1 будет сохранена в файле с расширением Primer8.frm.

9. После сохранения формы следует сохранить проект. В Visual Basic это происходит автоматически, после чего должно появиться диалоговое окно Save Project As - Сохранить проект. Следует набрать то же имя Primer8 и нажать клавишу «Enter». Файл проекта будет сохранен с расширением Primer8.vbp.

10. Теперь запустить проект на выполнение. Выбираем команду Run > Start или Shift+F5. После запуска приложения на форме последовательно рисуются окружности.

11. Для завершения работы приложения необходимо нажать кнопку «ФИНИШ» (или значок «закрыть» на форме) или выполнить команду Run/End.

По такому же принципу можно строить более сложную анимацию (например, движение предметов на экране). В отличие от приведенной картинки движущейся окружности, при движении предметов в каждый момент должно показываться только текущее положение предмета.

Мигающие изображения

Допустим, что в компьютерной демонстрации нужно обратить внимание на какую-либо точку графического образа. В этом случае точку рисуют мигающей. Для этого меняют с определенной частотой ее цвет.

Пример 9. Мигающие изображения. Составить программу, которая позволяет изменить начертание и цвет геометрической фигуры, типа квадрат, овал, круг, используя стандартный элемент управления «фигура» - Shape.

Решение. Работа выполняется в следующей последовательности:

1. Запустить Visual Basic с помощью меню Window/Пуск / Программы. В окне New Project выбрать Стандартный.EXE вкладки New (новый) и кликнуть по кнопке «Открыть».

2. На экране появится новый проект и форма Project1 - Form1 (Form), содержание которой нужно заполнить необходимыми компонентами, с помощью которых можно будет выполнить необходимые действия.

3. Для создания приложения необходимо использовать следующие объекты управления:

- для завершения работы приложения необходима одна кнопка Command1. Это будет кнопка «Финиш»;

- для вывода графика движения точки можно использовать окно рисунка PictureBox1.

4. Теперь следует все указанные выше компоненты вынести на форму. Для этого на панели стандартных элементов находим значок одного из компонент, активизируем его и «переносим» на форму: рисуем условный прямоугольник в том месте формы, где будет предположительно находиться этот элемент, учитывая при этом его размеры.

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

5. Далее изменяем свойства объектов, используя страницу свойств Properties. Для изменения свойств элементов следует активизировать элемент - выделить его на форме. Далее для выделенного элемента в окне свойств можно вносить изменения:

Command1	Caption = `Финиш`

Заготовку формы для примера 9 с измененными свойствами и результат работы приложения смотрите на рис. 1.9.

6. Для создания программного кода в проводнике проекта или в меню View выбрать команду Code.

В окне Project1 - Form1 (Code) выбрать в списке General название кнопки 1 и кликнуть по ней. В результате появится заготовка записи программного кода для Command1 с инициированием для нее события Click. Для Command1 будет выполняться одно действие - закрыть приложение. Это выполняет команда End.

Аналогичные действия выполняем в отношении других объектов управления.

7. Программный код для примера 9 будет иметь вид:

Private Sub Picture1_Click()

Picture1. Scale (-20, 15) - (20, -15)

For i = 1 To 5 Step 1

For j = 1 To 10 Step 0.01

Beep

Next j

Picture1. DrawWidth = 30

Picture1.PSet (-15, -10), vbRed

Picture1.PSet (15, -10), vbRed

Picture1.PSet (15, 10), vbRed

Picture1.PSet (-15, 10), vbRed

Picture1. DrawWidth = 60

Picture1.PSet (0, 0), vbYellow

For j = 1 To 10 Step 0.01

Beep

Next j

Picture1. DrawWidth = 30

Picture1.PSet (-15, -10), vbYellow

Picture1.PSet (15, -10), vbYellow

Picture1.PSet (15, 10), vbYellow

Picture1.PSet (-15, 10), vbYellow

Picture1. DrawWidth = 60

Picture1.PSet (0, 0), vbRed

Next i

End Sub

Private Sub Command1_Click()

End

End Sub

Рис. 2.3. Мигающие изображения. Заготовка формы для примера 9 с измененными свойствами и результат работы приложения

8. Для сохранения проекта надо выполнить команду меню File (файл) > Save Project As (Сохранить проект как). В диалоговом окне Save File As (Сохранить файл как) выбрать название диска, на котором должна быть создана папка для хранения файлов нового проекта. Далее для сохранения формы, следует набрать имя файла в поле ввода File Name (Имя файла), например Primer9, и нажать клавишу «Enter». Форма Form1 будет сохранена в файле с расширением Primer9.frm.

9. После сохранения формы следует сохранить проект. В Visual Basic это происходит автоматически, после чего должно появиться диалоговое окно Save Project As - Сохранить проект. Следует набрать то же имя Primer9 и нажать клавишу «Enter». Файл проекта будет сохранен с расширением Primer9.vbp.

10. Теперь запустить проект на выполнение. Выбираем команду Run > Start или Shift+F5. При запуске программы на экране появляются четыре «точки» в углах квадрата, окрашенные в красный цвет, и пятая «точка» жёлтого цвета вдвое большего размера в центре экрана. В этой программе красный и жёлтые цвета меняются определенной частотой. В результате получаются красные мигающие точки.

11. Для завершения работы приложения необходимо нажать кнопку «ФИНИШ» (или значок «закрыть» на форме) или выполнить команду Run/End.

Звуковые сигналы

Мигание точки можно сопроводить звуковыми сигналами. Для этого используют оператор BEEP стандартной частоты и длительности.

Пример 10. Стрелочные часы. Составить программу для построения стрелочных часов (рис. 1.10).

Решение. Работа выполняется в следующей последовательности:

1. Запустить Visual Basic с помощью меню Window/Пуск / Программы. В окне New Project выбрать Стандартный.EXE вкладки New (новый) и кликнуть по кнопке «Открыть».

2. На экране появится новый проект и форма Project1 - Form1 (Form), содержание которой нужно заполнить необходимыми компонентами, с помощью которых можно будет выполнить необходимые вычисления. Для создания приложения необходимо использовать следующие объекты управления.

3. Для выполнения функций вычисления необходима одна кнопка Timer. Вторая кнопка Command1 выполняет функцию завершения работы приложения - кнопка «Финиш».

4. Теперь следует все указанные выше компоненты вынести на форму. Для этого на панели стандартных элементов находим значок одного из компонент, активизируем его и «переносим» на форму: рисуем условный прямоугольник в том месте формы, где будет предположительно находиться этот элемент, учитывая при этом его размеры.

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

5. Далее изменяем свойства объектов, используя страницу свойств Properties. Для изменения свойств элементов следует активизировать элемент - выделить его на форме. Далее для выделенного элемента в окне свойств можно вносить изменения: для Command1 изменить свойство Caption = `Финиш `.

Заготовку формы для примера 10 с измененными свойствами смотрите на рис. 1.10.

6. Для создания программного кода в проводнике проекта или в меню View выбрать команду Code.

В окне Project1 - Form1 (Code) выбрать в списке General название кнопки 2 и кликнуть по ней. В результате появится заготовка записи программного кода для Command1 с инициированием для нее события Click. Для Command1 будет выполняться одно действие - закрыть приложение. Это выполняет команда End.

7. Программный код для примера 10 будет иметь вид:

Option Explicit

Const r = 150

Const grad = 0.0174532

Dim x0, y0, hr, mn, sc As Integer

Private Sub Form_Initialize()

Form1. Height = (Form1. Height - Form1. ScaleHeight) + _

(r + 5) * 2 * Screen. TwipsPerPixelY

Form1. Width = (Form1. Width - Form1. ScaleWidth) + _

(r + 5) * 2 * Screen. TwipsPerPixelX

x0 = r + 75: y0 = r + 75

hr = 90 - Hour(Time) * 30 - (Minute(Time) / 12) * 6

mn = 90 - Minute(Time) * 6

sc = 90 - Second(Time) * 6

Timer1. Interval = 1000

Timer1. Enabled = True

Form1. ScaleMode = 3

Form1. BackColor = vbYellow

End Sub

Sub strelka (x0, y0, a, s As Integer)

Dim x1, y1 As Integer

x1 = Round (x0 + s * Cos (a * grad))

y1 = Round (y0 - s * Sin (a * grad))

Line (x0, y0) - (x1, y1)

End Sub

Sub Strelki()

Form1. DrawWidth = 3

Form1. ForeColor = Form1. BackColor

Call strelka (x0, y0, hr, r - 50)

Call strelka (x0, y0, mn, r - 20)

Call strelka (x0, y0, sc, r - 8)

hr = 90 - Hour(Time) * 30 - (Minute(Time) / 12) * 6

mn = 90 - Minute(Time) * 6

sc = 90 - Second(Time) * 6

Form1. DrawWidth = 4

Form1. ForeColor = RGB (0, 0, 0)

Call strelka (x0, y0, hr, r - 50)

Form1. DrawWidth = 3

Call strelka (x0, y0, mn, r - 20)

Form1. DrawWidth = 1

Form1. ForeColor = RGB (200, 0, 0)

Call strelka (x0, y0, sc, r - 8): Beep

PSet (175, 270), vbYellow

Print «Visual Basic»

End Sub

Private Sub Form_Paint()

Dim x1, y1, a, h As Integer

a = 0

h = 3

While a < 360

x1 = Round (x0 + r * Cos (a * grad))

y1 = Round (y0 - r * Sin (a * grad))

If a Mod 30 = 0 Then

Line (x1, y1) - (x1 + 5, y1 + 5), vbBlue, BF

CurrentX = x0 + Round((r + 20) * Cos (2 * a * 3.14 / 360)) - 7

CurrentY = y0 + Round((r + 20) * Sin (2 * a * 3.14 / 360)) - 7

ForeColor = vbBlue

FontSize = 11

Print h

h = h + 1

If h = 13 Then h = 1

Else

Line (x1, y1) - (x1 + 2, y1 + 2), vbBlue, BF

End If

a = a + 6

Wend

Call Strelki

End Sub

Private Sub Timer1_Timer()

Call Strelki

End Sub

Private Sub Command1_Click()

End

End Sub

8. Для сохранения проекта надо выполнить команду меню File (файл) > Save Project As (Сохранить проект как). В диалоговом окне Save File As (Сохранить файл как) выбрать название диска, на котором должна быть создана папка для хранения файлов нового проекта. Далее для сохранения формы, следует набрать имя файла в поле ввода File Name (Имя файла), например Primer10, и нажать клавишу «Enter». Форма Form1 будет сохранена в файле с расширением Primer10.frm.

9. После сохранения формы следует сохранить проект. В Visual Basic это происходит автоматически, после чего должно появиться диалоговое окно Save Project As - Сохранить проект. Следует набрать то же имя Primer10 и нажать клавишу «Enter». Файл проекта будет сохранен с расширением Primer10.vbp.

10. Теперь запустить проект на выполнение. Выбираем команду Run > Start или Shift+F5. После чего появляются стрелочные часы.

11. Для завершения работы приложения необходимо нажать кнопку «ФИНИШ» (или значок «закрыть» на форме) или выполнить команду Run/End.



Рис. 2.4. Стрелочные часы. Заготовка формы для примера 10 с измененными свойствами и результат работы приложения

анимационный график компьютерный программирование

Заключение

Данные методические указания предназначены для самостоятельной работы студентов, имеющих начальные знания по программированию на языке Visual Basic. Для получения начальных знаний ниже прилагается дополнительная литература.

В этой работе были рассмотрены решения конкретных типовых задач:

1) принципы формирования изображений на экране;

2) графические методы;

3) построение графиков функций;

4) анимация графических изображений;

5) мигающие изображения;

6) звуковые сигналы.

Результатом работы явились десять примеров, реализующие построение геометрических фигур, задание цвета изображения, поворот и движение изображений, построение графиков функций, анимация графических изображений с использованием звуковых сигналов.

Литература

С.В. Симонович и др. Информатика. Базовый курс. Санкт-Петербург: Издательский дом Питер. 2002, - 640 с.

А.В. Могилев, Н.И. Пак, Е.К. Хеннер. Информатика. - 3-е изд., перераб. и доп. - М.: Издательский центр «Академия», 2004, - 848 с.

М.Д. Князева. Программирование на Visual Basic 6. Учеб. Пособие. - М.: КУДИЦ-ОБРАЗ, 2006. - 176 с.

И.К. Сафронов. Visual Basic в задачах и примерах. Санкт-Петербург: БХВ-Петербург, 2007, - 400 с.

Д.А. Шевякова, А.М. Степанов, Р.Г. Карпов. Самоучитель Visual Basic 2005 /Под общ. Ред. А.Ф. Тихонова. Санкт-Петербург: БХВ-Петербург, 2007, - 576 с.

Методические указания к лабораторным работам по дисциплине: «Алгоритмизация и программирование». Основы визуального программирования. /Сост.: И.Н. Гатауллин, Ф.Г. Габбасов. - Казань, КГАСУ, 2008. 61 с.

Размещено на Allbest.ru