49807 (609285), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

Кнопка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. Лабораторные работы по дисциплине «ВТ и программирование» (методические указания к лабораторным работам).

Характеристики

Список файлов курсовой работы