Добавили Кнопку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
WithActiveDocument.Paragraphs(4).Borders(wdBorderBottom) ‘нижняя’ .LineStyle = wdLineStyleDouble ‘двойная линия’ .LineWidth = wdLineWidth025pt ‘толщина линии’ EndWith
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. Лабораторные работы по дисциплине «ВТ и программирование» (методические указания к лабораторным работам).