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

МЕТОДИЧЕСКИЕ УКАЗАНИЯ

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

1. Системы компьютерной графики

Работа с компьютерной графикой — одно из самых популярных направлений использования компьютерных систем. В настоящее время компьютерная графика широко используется в различных направлениях: в компьютерном моделировании, САПР, компьютерных играх, обучающих программах, рекламе и дизайне, мультимедиа презентациях, веб-страницах и др.

1.1 Принципы формирования изображений на экране

Различают три вида компьютерной графики: растровую графику, векторную графику и фрактальную графику.

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

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

В отличие от растровой графики, в которой изображение формируется из совокупности точек, в векторной графике изображение представляет собой совокупность простых элементов: прямых линий, дуг, окружностей, эллипсов, прямоугольников, закрасок и пр., которые называются графическими примитивами. Положение и форма графических примитивов задаются в системе координат, связанных с экраном. Обычно начало координат расположено в верхнем левом углу экрана. Сетка пикселей совпадает с координатной сеткой. Горизонтальная ось x направлена слева направо, а вертикальная ось y — сверху вниз. В векторной графике объём памяти, занимаемой линией, не зависит от размеров линии, поскольку линия представляется в виде формулы (в виде нескольких параметров). Что бы мы не делали с этой линией, меняются только её параметры, хранящиеся в ячейках памяти. Количество же ячеек остаётся неизменной для любой линии.

Линия — это элементарный объект векторной графики. Всё, что есть в векторной иллюстрации, состоит из линий. Простейшие объекты объединяются в более сложные. Например, объект четырёхугольник можно рассматривать как четыре связанные линии, а объект куб можно рассматривать как двенадцать связанных линий, либо как шесть связанных четырёхугольников. Из-за такого подхода векторную графику часто называют объектно-ориентированной.

Как и все объекты, линии имеют свойства. К этим свойствам относятся: длина линии, её толщина, цвет, характер линии (сплошная, пунктирная и т. п.)

Замкнутые линии имеют свойство заполнения. Внутренняя область замкнутого контура может быть заполнена цветом, текстурой, картой. Простейшая линия, если она не замкнута, имеет две вершины, которые называются узлами. Узлы тоже имеют свойства, от которых зависит, как выглядит вершина линии, и как две линии сопрягаются между собой.

Замкнутые контуры можно закрашивать. В качестве заполнителя может быть выбрана цветная краска или регулярная текстура. Иногда в качестве используют заготовленные растровые изображения, называемые картой.

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

Фрактальная графика, как и векторная, — вычисляемая, но отличается тем, что никакие объекты в памяти компьютера не хранятся. Изображение строится по управлению, поэтому ничего, кроме формулы хранить не надо. Изменение коэффициентов в уравнении позволяет получать совершенно другую картину.

1.2 Графические методы

Графические методы позволяют изображать на объекте данного класса какой-нибудь геометрический элемент, например точку, отрезок, прямоугольник, овал и др. Рассмотрим графические методы (см. табл. 1.1).

Метод Scale. Метод можно применять к объектам класса — экранная форма и PictureBox — графическое окно. Объекты Form и PictureBox имеют абсолютные координаты, которые измеряются в твипах (1 твип = 1/1440 логического дюйма, 1 дюйм = 2,2 см, 1 см = 567 твипов) и позволяют задать положение на экране для формы или положение на форме для графического окна, а также ширину и длину.

Экранная форма покрыта рядами точек. По умолчанию расстояние между точками составляет 120 твипов. В результате следует отметить, что абсолютные координаты выражаются большими числами, поэтому необходимо задать новую систему координат:

<Имя Объекта>. Scale (<�х₁>, <y₁>) — (<�х₂>, <y₂>)

где

х₁, y₁ — новые координаты верхнего левого утла;

х₂, y₂ — новые координаты нижнего левого угла окна формы, либо графического окна, в новой системе координат.

Например,

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

Новый масштаб составляет 30 условных единиц по ширине и 40 единиц по высоте.

Таблица 1.1. Графические методы

Другой способ назначения новой системы координат в Visual Basic — это установка значений свойств объекта, которые относятся к категории Scale. Единицы измерения координат и размеров объектов на форме определяются значением свойства ScaleMode для формы.

При значении ScaleMode равном 0 можно задать собственную систему единиц. Для этого также нужно настроить свойства ScaleHeight (шкала по Y) и ScaleWidth (шкала по X). Если, например, ScaleWidth приравнять 100 и ScaleHeight приравнять 200, то ширина формы будет равна 100 единицам, а высота 200 единицам. Если для размещаемого после этого на форме текстового окна свойству Width присвоить значение 25, то оно будет занимать четверть ширины формы.

Начало координат по умолчанию находится в верхнем левом углу. Это положение определяется значениями свойств ScaleLeft и ScaleTop, которые по умолчанию равны 0. Задавая другие значения, можно изменить положение начала координат.

Например, при задании ScaleLeft = 5 и ScaleTop = -6 начало координат смещается из (0,0) в (5, —6). Координаты нижнего правого угла формы определяются как (ScaleLeft + ScaleWidth, ScaleTop + ScaleHeight). Если задать ScaleHeight = 18, ScaleWidth = 11, то координаты нижнего правого угла станут (16, 12).

Заданный масштаб формы можно изменять, варьируя значения указанных выше свойств, либо используя метод Scale.

По заданным координатам верхнего левого и нижнего правого угла вычисляются значения ScaleHeight и ScaleWidth. Применение метода Scale без параметров восстанавливает исходный масштаб окна формы и возвращает начало координат в верхний левый угол (0,0).

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

Метод Pset применяется к тем же объектам, к которым применим метод Scale. Синтаксис записи метода следующий:

<�Имя Объекта>. Pset (<х>, <y>) [, <�цвет>]

где х, у — координаты точки.

Цвет — это число, которое задает тот или иной цвет. Если позиция «цвет» отсутствует, то по умолчанию цвет = 0 (т.е. чёрный цвет).

Если перед Pset не использовался метод Scale, то по умолчанию используются абсолютные координаты объекта.

Пример 1. Вращение Марса вокруг Солнца. Составить программу, которая позволяет показать вращение Марса вокруг Солнца.

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

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

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

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

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

— для вывода рисунка вращения Марса вокруг Солнца можно использовать окно рисунка PictureBox1.

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

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

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

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

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

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

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

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

Private Sub Command1_Click ()

Dim x As Single

Picture1. Scale (-12, 12) - (12, -12)

Picture1. DrawWidth = 20

For x = -10 To 10 Step 0.001

Picture1. Cls

Picture1. DrawWidth = 50

Picture1.PSet (0, 0), vbYellow

Picture1. DrawWidth = 20

Picture1.PSet (10 * Cos (x), 10 * Sin (x)), vbRed

Next x

End Sub

Private Sub Command2_Click ()

End

End Sub

Рис. 1.1. Вращение Марса вокруг Солнца. Заготовка формы для примера 1 с измененными свойствами и результат работы приложения

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

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

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

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

Чтобы изменить размер точек — «пятен» (например, увеличить), можно изменить параметр — ширина черчения DrawWidth, Для объекта Picture — целое 1, 2. Изменить можно в процессе проектирования приложения или непосредственно вставить необходимую строку в программный код.

Например,

Picture1. DrawWidth = 8

Метод Line. Применяется к тем же объектам, к которым применим метод Scale. Синтаксис записи метода следующий:

<�Имя Объекта>.Line[(<�х₁>,<y₁>) — (<�х₂>,<y₂>) [, [<�цвет>] [, <�флаг>]],

где

х₁, y₁ — координаты справа или верхнего левого угла;

х₂, y₂ — координаты слева или нижнего левого угла.

Если имя объекта отсутствует, то по умолчанию используется экранная форма. В качестве параметра «цвет» используется либо константа, либо соответствующее ей числовое значение (см. таблицу 1.2). Если параметр «цвет» отсутствует, то по умолчанию он совпадает с цветом края обрамления — параметр Fore Color.

Цвет может определяться значением аргументов функции RGB(x₁, x₂, x₃), причём x₁ — интенсивность красного, x₂ — интенсивность зелёного, x₃ — интенсивность синего, где x_i изменяется в диапазоне от 0 до 255. Это позволяет создавать 256*256*256 различных оттенков.

Например,

RGB (0, 128, 0) — зелёный фон,

RGB (255, 255, 0) — жёлтый фон,

RGB (0, 0, 64) — тёмно синий фон.

Флаг — одно из трёх значений — результат применения метода:

пусто — линия с координатами (x₁, y₁) и (x₂, y₂), лишняя запятая не отбрасывается;

B - контур прямоугольника с координатами (x₁, y₁) и (x₂, y₂); в свойствах объекта устанавливается стиль заполнения FillStyle=1 (Transparent — прозрачный);

BF — закрашенный прямоугольник с заданным цветом с координатами (x₁, y₁) и (x₂, y₂).

Таблица 1.2. Описание цветовых констант

Толщина линии отрезка по умолчанию равна 1. Чтобы увеличить толщину линии, необходимо изменить свойство DrawWidht.

Свойство DrawStyle определяет тип линии: является ли линия сплошной, пунктирной, двойной пунктирной и т. д. Допустимые значения можно установить в режиме проектирования.

Пример 2. Составить программу, которая позволяет изменить начертание и цвет геометрической фигуры, типа квадрат, овал, круг, используя стандартный элемент управления «фигура» — Shape.

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

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

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

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

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

— для вывода четырёх рисунков можно использовать окна рисунков PictureBox1, PictureBox2, PictureBox3 и PictureBox4.

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

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

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

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

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

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

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

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

Private Sub Picture1_Click ()

Dim x As Single

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

Picture1. DrawWidth = 8

For i = 1 To 50

Picture1.PSet (-15 + i, -10 + i), vbBlue

Picture1.PSet (15 — i, -10 + i), vbGreen

Picture1.PSet (15 — i, 10 — i), vbBlack

Picture1.PSet (-15 + i, 10 — i), vbCyan

Next i

End Sub

Private Sub Picture2_Click ()

Dim x As Single

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

Picture2. DrawWidth = 5

Picture2. Line (-20, -15) - (20, 15), vbBlue, B

Picture2. Line (-15, -10) - (15, 10), vbGreen, B

Picture2. Line (-10, -5) - (10, 5), vbBlack, B

Picture2. Line (-5, -1) - (5, 1), vbCyan, B

End Sub

Private Sub Picture3_Click ()

Dim x As Single

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

Picture3. DrawWidth = 2

Picture3. Line (-20, -15) - (20, 15), vbBlue, BF

Picture3. Line (-15, -10) - (15, 10), vbGreen, BF

Picture3. Line (-10, -5) - (10, 5), vbBlack, BF

Picture3. Line (-5, -1) - (5, 1), vbCyan, BF

End Sub

Private Sub Picture4_Click ()

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

Picture4. DrawWidth = 2

Picture4. Line (-20, -15) - (20, 15), vbGreen, BF

For x = -10 To 10 Step 0.001

Picture4. DrawWidth = 4

y = 10 * Cos (x)

Picture4.PSet (x, y), vbRed

Next x

End Sub

Private Sub Command1_Click ()

End

End Sub

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

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

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

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

Синтаксис использования метода Circle (используется для рисования окружностей, эллипсов, дуг и секторов) следующий:

<Объект>. Circle (х, у), радиус, [цвет], [start], [end], [aspect]

Где объект — форма, окно рисунка (PictureBox), объект печати, на которых рисуется окружность, эллипс, дуга или сектор;

Circle — ключевое слово;

х, у — координаты центра (тип Single);

радиус — радиус (в используемой системе координат);

цвет — RGB-цвет линии (может использоваться функция RGB);

start, end используются при рисовании дуги и определяют в радианах начальный и конечный углы дуги (диапазон — от -2р до 2р). По умолчанию start равен 0, end — 2р. Для перевода значений углов из градусов в радианы используется формула ГРАДУС* р /180.

aspect — соотношение радиусов по осям Х и Y при рисовании эллипса.

Для рисования сектора задаются отрицательные значения параметров start и end. При рисовании проводятся радиальные линии под углом, заданными абсолютными значениями параметра.

Пример 3. Составить программу, которая позволяет изменить начертание и цвет геометрической фигуры, типа квадрат, овал, круг, используя стандартный элемент управления «фигура» — Shape.

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

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

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

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

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

— для вывода четырёх рисунков можно использовать окна рисунков PictureBox1, PictureBox2, PictureBox3 и PictureBox4.

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

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

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

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

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

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

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

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

Private Sub Picture1_Click ()

Picture1. DrawWidth = 5

Picture1. Scale (-10, 10) - (10, -10)

Picture1. Circle (1, 1), 6, vbRed

End Sub

Private Sub Picture2_Click ()

Picture2. DrawWidth = 6

Picture2. Scale (-10, 10) - (10, -10)

Picture2. Circle (-1, 0), 7, vbBlue, 0.4

End Sub

Private Sub Picture3_Click ()

Picture3. DrawWidth = 7

Picture3. Scale (-10, 10) - (10, -10)

Picture3. Circle (-1, -5), 9, vbGreen, -0.7, -2.1

End Sub

Private Sub Picture4_Click ()

Picture4. DrawWidth = 8

Picture4. Scale (-10, 10) - (10, -10)

Picture4. Circle (1, -1), 8, vbCyan, -2.1, -0.7

End Sub

Private Sub Command1_Click ()

End

End Sub

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

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

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

11. Для завершения работы приложения необходимо нажать кнопку «ФИНИШ» (или значок «закрыть» на форме) или выполнить команду Run/End. Метод Shape. Геометрический объект — применяется для изображения некоторых фигур, которые реализованы в этом объекте.

Цвет и прозрачность задают свойства BackColor и BackStyle.

Свойства FillColor и FillStyle задают цвет и стиль заполнения фигуры.

BorderStyle и BorderColor задают тип и цвет линии границы (прозрачная, штрих и др.)

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

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

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

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

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

Shape1 — фигура;

Label1 — метка;

Command1 — командная кнопка;

Frame1 — рамка;

Option1 — переключатель;

Option2 — переключатель;

Option3 — переключатель;

Option4 — переключатель;

Option5 — переключатель;

Option6 — переключатель.

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

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

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

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

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

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

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

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

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

Option Explicit

Private Sub Option1_Click ()

Shape1. Shape = 1

End Sub

Private Sub Option2_Click ()

Shape1. Shape = 2

End Sub

Private Sub Option3_Click ()

Shape1. Shape = 3

End Sub

Private Sub Option4_Click ()

Shape1. BackColor = vbRed

End Sub

Private Sub Option5_Click ()

Shape1. BackColor = vbYellow

End Sub

Private Sub Option6_Click ()

Shape1. BackColor = vbBlue

End Sub

Private Sub Command1_Click ()

End

End Sub

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

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

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

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

Пример 5. Флажки. Таймер. Составить программу, которая выводит в текстовое окно время при установке флажка или показывает изображение — картинку, которую пользователь в процессе работы может изменить, если щелкнет по изображению указателем мыши.

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

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

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

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

Command1 — командная кнопка;

Text1 — текстовое окно;

Check1 — флажок;

Check2 — флажок;

Image1 — рисунок.

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

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

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

Чтобы выбрать изображение, следует нажать кнопку с многоточием в диалогом окне с заголовком LoadPicture (загрузить рисунок). Найти «исходный рисунок», который будет загружаться автоматически при загрузке приложения. Полное название этого файла (например, С:Мои рисункиcfd.gif) необходимо запомнить.

Для облегчения просмотра графических файлов при работе приложения можно использовать стандартное диалоговое окно выбора файлов — Microsoft Common dialog.

Чтобы поместить элементы Microsoft Common Dialog на панель инструментов, необходимо в меню Project выбрать команду Components, в одноименном диалоге найти и отметить флажком элемент Microsoft Common Dialog Control 6.0 и нажать кнопку «Применить». Выбранный элемент появится на панели компонентов в виде значка.

Для Common Dialog установить свойства:

Custom = (дополнительно) в диалогом окне Property Pages (страницы свойств) открыть вкладку Open/Save As и установить все свойства в соответствии с рис. 1.5. В поле FileName указать имя выбранного выше файла.

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

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

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

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

Рис. 1.5. Флажки. Таймер. Заготовка формы для примера 5 с измененными свойствами и результат работы приложения

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

Option Explicit

Private Sub Check1_Click ()

Image1. Visible = False

Text1. Text = Format (Now, «hh: mm: ss«)

End Sub

Private Sub Check2_Click ()

Image1. Visible = True

Text1. Text = ""

End Sub

Private Sub Image1_Click ()

CommonDialog1. ShowOpen

Text1. Text = ""

Image1. Picture = LoadPicture (CommonDialog1. FileName)

End Sub

Private Sub Command1_Click ()

End

End Sub

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

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

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

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

1.3 Построение графиков функций

Пример 6. Составить программу для построения таблицы значений и графика функции y = 1.2 sin x при изменении x в диапазоне [-10, 10]. Результат вычислений вывести на форму в виде таблицы.

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

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

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

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

— для оформления надписи «Группа 2911-301. Вариант №13. Петров П.П.» можно использовать метку Label1;

— для выполнения функций вычисления необходима одна кнопка Command1. Это будет кнопка «Таблица»;

— для выполнения функции построения графика вторая кнопка Command2. Это будет кнопка «График»;

— для выполнения функции завершения работы приложения применяется третья кнопка Command3. Это будет кнопка «Финиш»;

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

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

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

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

Label1. Caption = `Группа 2911-301. Вариант №13. Петров П.П. `

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

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

В окне Project1 — Form1 (Code) выбрать в списке General название кнопки 1 и кликнуть по ней. В результате появится заготовка записи программного кода для Command1 с инициированием для нее события Click. В начале программы в операторе Dim переменная x имеет числовой тип Single. Для вывода значений y используется функция Round(), которая округляет количество знаков после запятой до четырех.

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

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

Option Explicit

Private Sub Command1_Click ()

Dim x As Single

Rem Расчётно-графическая работа 4-1, вариант 13

Picture1. DrawWidth = 1: Picture1. DrawStyle = 0

Picture1. Scale (-12, 2) - (12, -2)

Picture1. Line (-11, 0) - (11, 0)

Picture1. Line (0, 1.5) - (0, -1.5)

For x = -10 To 10 Step 0.1

Picture1. DrawWidth = 4: Picture1. DrawStyle = 2

Picture1.PSet (x, 1.2 * Sin (x)), RGB (0, 0, 255)

Next x

End Sub

Private Sub Command2_Click ()

Dim x As Single

Print: Print ««,» x«,» Функция y=1.2*sin (x)«: Print

For x = -10 To 10 Step 2

Print ««, x, Round (1.2 * Sin (x), 4)

Next x

End Sub

Private Sub Command3_Click ()

End

End Sub

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

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

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

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