11

Федеральное агентство по образованию и науки

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

(филиал ПГУ)

Курсовая работа

По дисциплине: Вычислительная техника и программирование

Тема: Разработка приложения средствами VBA

Кузнецк 2008 г.

Содержание

Введение

1. Анализ задания

Введение

Visual Basic for Application (VBA) - объектно-ориентированный язык программирования (ООП), который позволяет создавать приложения (проекты) с развитым визуальным интерфейсом. ООП можно описать как методику анализа, проектирования и написания приложений, манипулируя объектами.

Язык был разработан в середине 1960-х годов профессорами Дартмутского колледжа Джоном Кемени и Томасом Курцом. Бейсик сравнительно несложен для изучения и подходит для разработки коротких и простых программ. В 1970-х годах он завоевал всеобщее признание вследствие своей компактности и пригодности для первых персональных компьютеров с их ограниченным объемом памяти.

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

Каждый документ Word (или шаблон документа) может содержать один или несколько модулей, одну или несколько пользовательских форм, а может и не содержать никаких модулей и форм.

В VBA создание, редактирование, отладка и запуск на выполнение программ и макросов осуществляется средствами интегрированной среды разработки (средствами редактора VB). Чтобы перейти в интегрированную среду разработки из любого приложения MS Office, достаточно нажать комбинацию клавиш Alt+F11 или выполнить команду

Сервис/Макрос/Редактор Visual Basic (Tools/ Macros /Visual Basic Editor).

1. Анализ задания

Для создания новой панели инструментов скрыли следующие панели инструментов: Стандартная (Standard), Форматирование (Formatting) и Рисование (Drawing) с помощью свойства Visible (=False).

Добавили новую панель при помощи функции Add, устанавливая при этом некоторые свойства: Name: = «Работа с текстом», Position:=msoBarTop, menubar:=False, temporary:=True). Visible = True.

Добавили Кнопку1 с помощью функции Add, установили её тип (Type:=msoControlButton, ID:=1) и прописали свойства (.Caption `заголовок' = "Открыть"; .Style `стиль'= msoButtonCaption; .TooltipText `текст подсказки'= "Открытие текстового документа"; .OnAction = "Кнопка1").

Добавили кнопку с раскрывающимся списком с помощью функции Add, установили её тип (Type:=msoControlPopup), свойство Caption = “Перемещение” и функцию Controls. В список добавили: - Кнопку2 с помощью функции Add, установили её тип (Type:=msoControlButton, ID:=1) и прописали свойства (.Caption = "Выделить"; .Style = msoButtonCaption; .OnAction = "Кнопка2"). - Кнопку3 с помощью функции Add, установили её тип (Type:=msoControlButton, ID:=1) и прописали свойства (.Caption = "Вырезать"; .Style = msoButtonCaption; .OnAction = "Кнопка3"). - Кнопку4 с помощью функции Add, установили её тип (Type:=msoControlButton, ID:=1) и прописали свойства (.Caption = "Вставить"; .Style = msoButtonCaption; .OnAction = "Кнопка4").

Добавили Кнопку5 с помощью функции Add, установили её тип (Type:=msoControlButton, ID:=1) и прописали свойства (.Caption = "Форматирование"; .Style = msoButtonCaption; .TooltipText = "Форматирование последнего абзаца"; .OnAction = "Кнопка5").

Добавили Кнопку6 с помощью функции Add, установили её тип (Type:=msoControlButton, ID:=1) и прописали свойства (.Caption = "Граница"; .Style = msoButtonCaption; .TooltipText = "Добавление границы"; .OnAction = "Кнопка6").

Добавили Кнопку7 с помощью функции Add, установили её тип (Type:=msoControlButton, ID:=1) и прописали свойства (.Caption = "Задание"; .Style = msoButtonCaption; .TooltipText = "Выполнение задачи"; .OnAction = "Кнопка7").

Добавили Кнопку8 с помощью функции Add, установили её тип (Type:=msoControlButton, ID:=1) и прописали свойства (.Caption = "Справка"; .Style = msoButtonCaption; .TooltipText = "Справка"; .OnAction = "Кнопка8").

Модуль ( Листинг программы см. Приложение С, рисунок 2):

Для Кнопки1 с помощью оператора описания Dim обозначили тип переменной WorkDoc - Document и прописали путь документа для открытия:

'Открытие документа по имени файла

Dim WorkDoc As Document

Set WorkDoc = Documents.Open(FileName:="A:\Моя курсовая работа\Землетрясения.doc").

Для Кнопки2 описали процедуру для выделения первого абзаца после заголовка:

ActiveDocument.Paragraphs(2).Range.Select

With Selection.Font

.Name = "Times New Roman"

.Size = 14

End With

Для Кнопки3 описали процедуру для вырезания первого абзаца документа:

ActiveDocument.Paragraphs(2).Range.Cut

Для Кнопки4 описали процедуру для вставки из Буфера обмена вырезанного фрагмента:

ActiveDocument.Paragraphs(4).Range.Paste

Кнопка5 содержит в себе процедуру форматирования вставленного в конец документа абзаца:

ActiveDocument.Paragraphs(4).Range.Select

With Selection.Font

.Name = "Courier New"

.Italic = wdBold `полужирный'

.Size = 16

.Color = wdColorLightBlue `голубой'

End With

Для Кнопки6 описали процедуру для добавления границы к вставленному абзацу:

ActiveDocument.Paragraphs(4).Range.Select

With ActiveDocument.Paragraphs(4).Borders(wdBorderBottom) `нижняя' .LineStyle = wdLineStyleDouble `двойная линия' .LineWidth = wdLineWidth025pt `толщина линии' End With

With ActiveDocument.Paragraphs(4).Borders(wdBorderLeft) `левая' .LineStyle = wdLineStyleDouble .LineWidth = wdLineWidth025pt

End With

With ActiveDocument.Paragraphs(4).Borders(wdBorderRight) `правая' .LineStyle = wdLineStyleDouble .LineWidth = wdLineWidth025pt

End With

With ActiveDocument.Paragraphs(4).Borders(wdBorderTop) `верхняя' .LineStyle = wdLineStyleDouble .LineWidth = wdLineWidth025pt

End With

Кнопка 7 - это кнопка вызова формы «Задание»:

Деление_амёбы.Show.

Кнопка8 - это кнопка вывода формы «Справка о разработчике»

UserForm1.Show.

Пользовательская форма Деление_амёбы ( Листинг программы см. Приложение С, Листинг 3):

Задача проекта решается заданием цикла с параметром (цикл со счётчиком), который служит для организации циклов с заранее известным числом повторений.

С помощью оператора описания Dim объявляем тип переменной Х -Integer, result - Double, str и str1 - String.

В поле ввода TextBox1.Text вводится первоначальное количество амёб.

При нажатии кнопки «Результат» появляются надписи Label2 «Время в часах» и Label3 «Количество амёб», в поле ввода TextBox2 выводится заданная строка со значениями времени, в поле ввода TextBox3 выводятся результаты вычислений.

Если в текстовое поле TextBox1 не введено значение количества амёб, то в поле TextBox1 ставится нулевое значение, а в поле TextBox2 выводится сообщение «амебы не введены», а в поле TextBox3 выводится «введите начальное кол-во амеб» (см. Приложение B, Рисунок 6).

4. Тестирование и отладка программы

При запуске программы «Деление_амёбы» в активном документе отображается созданная для выполнения задачи форма (см. Приложение B, Рисунок 4).

В первое поле ввода вводится значение первоначального количества амёб и при нажатии кнопки «Результат» во втором поле ввода отображается заданная строка со значениями времени, а в третьем поле отображаются результаты вычисления деления введённого количества амёб по прошествии этих значений времени (см. Приложение B, Рисунок 5).

При нажатии кнопки «Задача» открывается форма UserForm2 с текстом задания (см. Приложение B, Рисунок 3).

При нажатии кнопки «Справка о разработчике» выводится форма со сведениями о разработчике проекта (см. Приложение B, Рисунок 2).

Заключение

В результате работы над курсовым проектом были разработаны:

- новая панель управления с именем «Работа с текстом»;

- модуль программы;

- пользовательская форма для решения задачи;

- пользовательская форма «Задача»;

- пользовательская форма «Справка о разработчике».

Была автоматизирована работа с текстом:

- открытие документа с текстом;

- перемещение первого абзаца в конец документа;

- форматирование перемещённого абзаца;

- добавление границы к абзацу.

Составили алгоритм решения задачи: одноклеточная амёба каждые 3 часа делится на 2 клетки. Определить, сколько амёб будет через 3, 6, 9, 12, … 24 часа.

Вывели справку о разработчике проекта.

Список литературы

1. Горных Е. Н. - Учебное пособие «Программирование на VBA» 2003.

2. Кузьменко В.Г. - «Программирование на VBA» 2003.

3. Лабораторные работы по дисциплине «ВТ и программирование» (методические указания к лабораторным работам).