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

 














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

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



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


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


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


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

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

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

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

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

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

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

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

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

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


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


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

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

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


<Имя Объекта>. Scale (<х1>, <y1>) - (<х2>, <y2>)


где

х1, y1 - новые координаты верхнего левого утла;

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

Например,

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

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

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

МетодКраткое описаниеScale МасштабМетод масштабирования. С помощью метода можно задать необходимую или возможную декартову систему координатPset Point SetПоместить пятно. Позволяет изобразить на заданном объекте точку в заданной системе координат, например, с помощью метода ScaleLine Линия КонтурПозволяет отобразить на данном объекте отрезок с заданными координатами его концов, а также прямоугольник с заданными декартовыми координатами его угловCircle Круг ОвалПозволяет построить на заданном объекте круги, эллипсы, дуги, секторы кругов, эллипсы с заданными координатами их центров и т.д.;Cls Clean ScreenОчистить экран. Позволяет очистить заданный объектShape ФигураГрафический объект - геометрическая фигура, которая задана целым числом от 0 до 5

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


ScaleMode- модификацияScaleWidth- ширина объектаScaleHeight- высота объектаScaleLeft- левый уголScaleТoр- верхний край

При значении 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 (новый) и кликнуть по кнопке «Открыть».

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

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

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

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

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

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

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


Command1Caption = СтартCommand2Caption = Финиш

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

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

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

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

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

Private Sub Command1_Click()x As Single. Scale (-12, 12) - (12, -12). DrawWidth = 20x = -10 To 10 Step 0.001. Cls. DrawWidth = 50.PSet (0, 0), vbYellow. DrawWidth = 20.PSet (10 * Cos(x), 10 * Sin(x)), vbRedxSubSub Command2_Click()Sub


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


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

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

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

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

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

Например,

Picture1. DrawWidth = 8

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


<Имя Объекта>.Line[(<х1>,<y1>) - (<х2>,<y2>) [, [<цвет>] [, <флаг>]],


где

х1, y1 - координаты справа или верхнего левого угла;

х2, y2 - координаты слева или нижнего левого угла.

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

Цвет может определяться значением аргументов функции RGB(x1, x2, x3), причём x1 - интенсивность красного, x2 - интенсивность зелёного, x3 - интенсивность синего, где xi изменяется в диапазоне от 0 до 255. Это позволяет создавать 256*256*256 различных оттенков.

Например,

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

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

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

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

пусто - линия с координатами (x1, y1) и (x2, y2), лишняя запятая не отбрасывается;

B - контур прямоугольника с координатами (x1, y1) и (x2, y2); в свойствах объекта устанавливается стиль заполнения FillStyle=1 (Transparent - прозрачный);

BF - закрашенный прямоугольник с заданным цветом с координатами (x1, y1) и (x2, y2).


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

ЦветКонстантаЧислоЧёрныйvbBlack0КрасныйvbRed225ЗелёныйvbGreen65 280ЖёлтыйvbYellow65 535СинийvbBlue16 711 680СиреневыйvbMagenta16 711 935ГолубойvbCyan16 776 960БелыйvbWhite16 777 215

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

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

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

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

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

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

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

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

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

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

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

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


Command1Caption = Финиш

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


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


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

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

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


Private Sub Picture1_Click()x As Single. Scale (-20, 15) - (20, -15). DrawWidth = 8i = 1 To 50.PSet (-15 + i, -10 + i), vbBlue.PSet (15 - i, -10 + i), vbGreen.PSet (15 - i, 10 - i), vbBlack.PSet (-15 + i, 10 - i), vbCyaniSubSub Picture2_Click()x As Single. Scale (-20, 15) - (20, -15). DrawWidth = 5. Line (-20, -15) - (20, 15), vbBlue, B. Line (-15, -10) - (15, 10), vbGreen, B. Line (-10, -5) - (10, 5), vbBlack, B. Line (-5, -1) - (5, 1), vbCyan, BSubSub Picture3_Click()x As Single. Scale (-20, 15) - (20, -15). DrawWidth = 2. Line (-20, -15) - (20, 15), vbBlue, BF. Line (-15, -10) - (15, 10), vbGreen, BF. Line (-10, -5) - (10, 5), vbBlack, BF. Line (-5, -1) - (5, 1), vbCyan, BFSubSub Picture4_Click(). Scale (-20, 15) - (20, -15). DrawWidth = 2. Line (-20, -15) - (20, 15), vbGreen, BFx = -10 To 10 Step 0.001. DrawWidth = 4= 10 * Cos(x).PSet (x, y), vbRedxSubSub Command1_Click()

End Sub


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

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

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

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

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


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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


Command1Caption = Финиш

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

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

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


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


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


Private Sub Picture1_Click(). DrawWidth = 5. Scale (-10, 10) - (10, -10). Circle (1, 1), 6, vbRedSubSub Picture2_Click(). DrawWidth = 6. Scale (-10, 10) - (10, -10). Circle (-1, 0), 7, vbBlue, 0.4SubSub Picture3_Click(). DrawWidth = 7. Scale (-10, 10) - (10, -10). Circle (-1, -5), 9, vbGreen, -0.7, -2.1SubSub Picture4_Click(). DrawWidth = 8. Scale (-10, 10) - (10, -10). Circle (1, -1), 8, vbCyan, -2.1, -0.7SubSub Command1_Click()

EndSub


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

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

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

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



Целое число от 0 до 50RectangleПрямоугольник1SquareКвадрат2OvalОвал3CircleКруг4Rounded RectangleСкругленный прямоугольник5Rounded SquareСкругленный квадрат

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

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

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

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

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

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

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

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

Shape1 - фигура;

Label1 - метка;

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

Frame1 - рамка;

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

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

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

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

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

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

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

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

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


Label1Caption = ФИГУРАCommand1Caption = ОКOption1Caption = Квадрат»; Value=TrueOption2Caption = Овал»; Value=TrueOption3Caption = Круг»; Value=TrueOption4Caption = Красный»; Value=TrueOption5Caption = Желтый»; Value=TrueOption6Caption = Синий»; Value=TrueFrame1Caption = ЦветForm1Caption = ПереключателиShape1BackStyle = 1 - Opaque BackColor = ButtonFace BorderStyle = 0 transparent

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


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


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

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

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

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


Option ExplicitSub Option1_Click(). Shape = 1SubSub Option2_Click(). Shape = 2SubSub Option3_Click(). Shape = 3SubSub Option4_Click(). BackColor = vbRedSubSub Option5_Click(). BackColor = vbYellowSubSub Option6_Click(). BackColor = vbBlueSubSub Command1_Click()

End Sub


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

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

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

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

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

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

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

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

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

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

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

Check1 - флажок;

Check2 - флажок;

Image1 - рисунок.

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

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

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


Command1Caption = ФИНИШCheck1Caption = ВремяCheck2Caption = РисунокForm1Caption = ЧасыImage1Stretch (растяжка) = True BorderStyle (стиль рамки)=1-Fixed Single (тонкая фиксированная) Picture (изображение) - выбрать изображение

Чтобы выбрать изображение, следует нажать кнопку с многоточием в диалогом окне с заголовком 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.

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

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

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


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


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


Option ExplicitSub Check1_Click(). Visible = False. Text = Format (Now, «hh: mm: ss»)SubSub Check2_Click(). Visible = True. Text = «»SubSub Image1_Click(). ShowOpen. Text = «». Picture = LoadPicture (CommonDialog1. FileName)SubSub Command1_Click()Sub


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

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

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

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


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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


Option ExplicitSub Command1_Click() x As Single

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

Picture1. DrawWidth = 1: Picture1. DrawStyle = 0. Scale (-12, 2) - (12, -2). Line (-11, 0) - (11, 0). Line (0, 1.5) - (0, -1.5)x = -10 To 10 Step 0.1. DrawWidth = 4: Picture1. DrawStyle = 2.PSet (x, 1.2 * Sin(x)), RGB (0, 0, 255)xSub

Private Sub Command2_Click()x As Single: Print «»,» x»,» Функция y=1.2*sin(x)»: Printx = -10 To 10 Step 2«», x, Round (1.2 * Sin(x), 4)xSub

Private Sub Command3_Click()

End Sub


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


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

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

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

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


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


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

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

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

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

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

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

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

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

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

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

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

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


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


. Для создания программного кода в проводнике проекта или в меню 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 будет иметь вид:


Option ExplicitSub Command1_Click()x, y, dx, dy, n, i As Integer. Scale (-2000, 2500) - (2000, -2500)= -20: y = -10= 1= 1: dy = 1n < 50000x = -2000 Or x = 2000 Then dx = - dxy = -2500 Or y = 2500 Then dy = - dy. DrawWidth = 20.PSet (x, y), vbRedi = 1 To 10000: Next. Cls= x + dx: y = y + dy= n + 1SubSub Command2_Click()


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


Command1Caption = Финиш

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

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

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

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

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


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


Private Sub Picture1_Click()v As Single. Scale (-120, 180) - (120, -180)v = 0 To 20 Step 0.001. Cls. DrawWidth = 8. Circle (100 - 10 * v, 100 - 10 * v), (6 + v), vbBlue. Line (-110, -180) - (130, 120), vbBluevSubSub Command1_Click()Sub


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


Command1Caption = Финиш

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

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

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

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

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


Private Sub Picture1_Click(). Scale (-20, 15) - (20, -15)i = 1 To 5 Step 1j = 1 To 10 Step 0.01j. DrawWidth = 30.PSet (-15, -10), vbRed.PSet (15, -10), vbRed.PSet (15, 10), vbRed.PSet (-15, 10), vbRed. DrawWidth = 60.PSet (0, 0), vbYellowj = 1 To 10 Step 0.01j. DrawWidth = 30.PSet (-15, -10), vbYellow.PSet (15, -10), vbYellow.PSet (15, 10), vbYellow.PSet (-15, 10), vbYellow. DrawWidth = 60.PSet (0, 0), vbRediSubSub Command1_Click()

End Sub


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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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


Option Explicitr = 150grad = 0.0174532x0, y0, hr, mn, sc As IntegerSub Form_Initialize(). Height = (Form1. Height - Form1. ScaleHeight) + _

(r + 5) * 2 * Screen. TwipsPerPixelY. Width = (Form1. Width - Form1. ScaleWidth) + _

(r + 5) * 2 * Screen. TwipsPerPixelX= r + 75: y0 = r + 75= 90 - Hour(Time) * 30 - (Minute(Time) / 12) * 6= 90 - Minute(Time) * 6= 90 - Second(Time) * 6. Interval = 1000. Enabled = True. ScaleMode = 3. BackColor = vbYellowSubstrelka (x0, y0, a, s As Integer)x1, y1 As Integer= Round (x0 + s * Cos (a * grad))= Round (y0 - s * Sin (a * grad))(x0, y0) - (x1, y1)SubStrelki(). DrawWidth = 3. ForeColor = Form1. BackColorstrelka (x0, y0, hr, r - 50)strelka (x0, y0, mn, r - 20)strelka (x0, y0, sc, r - 8)= 90 - Hour(Time) * 30 - (Minute(Time) / 12) * 6= 90 - Minute(Time) * 6= 90 - Second(Time) * 6. DrawWidth = 4. ForeColor = RGB (0, 0, 0)strelka (x0, y0, hr, r - 50). DrawWidth = 3strelka (x0, y0, mn, r - 20). DrawWidth = 1. ForeColor = RGB (200, 0, 0)strelka (x0, y0, sc, r - 8): Beep(175, 270), vbYellow«Visual Basic»SubSub Form_Paint()x1, y1, a, h As Integer= 0= 3a < 360= Round (x0 + r * Cos (a * grad))= Round (y0 - r * Sin (a * grad))a Mod 30 = 0 Then(x1, y1) - (x1 + 5, y1 + 5), vbBlue, BF= x0 + Round((r + 20) * Cos (2 * a * 3.14 / 360)) - 7= y0 + Round((r + 20) * Sin (2 * a * 3.14 / 360)) - 7= vbBlue= 11h= h + 1h = 13 Then h = 1(x1, y1) - (x1 + 2, y1 + 2), vbBlue, BFIf= a + 6StrelkiSubSub Timer1_Timer()StrelkiSubSub Command1_Click()

End Sub


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

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

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

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


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

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


Заключение


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

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

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

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

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

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

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

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

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


Литература


  1. С.В. Симонович и др. Информатика. Базовый курс. Санкт-Петербург: Издательский дом Питер. 2002, - 640 с.
  2. А.В. Могилев, Н.И. Пак, Е.К. Хеннер. Информатика. - 3-е изд., перераб. и доп. - М.: Издательский центр «Академия», 2004, - 848 с.
  3. М.Д. Князева. Программирование на Visual Basic 6. Учеб. Пособие. - М.: КУДИЦ-ОБРАЗ, 2006. - 176 с.
  4. И.К. Сафронов. Visual Basic в задачах и примерах. Санкт-Петербург: БХВ-Петербург, 2007, - 400 с.
  5. Д.А. Шевякова, А.М. Степанов, Р.Г. Карпов. Самоучитель Visual Basic 2005 /Под общ. Ред. А.Ф. Тихонова. Санкт-Петербург: БХВ-Петербург, 2007, - 576 с.
  6. Методические указания к лабораторным работам по дисциплине: «Алгоритмизация и программирование». Основы визуального программирования. /Сост.: И.Н. Гатауллин, Ф.Г. Габбасов. - Казань, КГАСУ, 2008. 61 с.

МЕТОДИЧЕСКИЕ УКАЗАНИЯ Компьютерная графика в визуальном программировании 1. Системы компьютерн

Больше работ по теме:

КОНТАКТНЫЙ EMAIL: [email protected]

Скачать реферат © 2017 | Пользовательское соглашение

Скачать      Реферат

ПРОФЕССИОНАЛЬНАЯ ПОМОЩЬ СТУДЕНТАМ