Создание программного продукта на языке программирования Visual Basic for Applications

Создание программного продукта на языке программирования Visual Basic for Applications

РЕФЕРАТ

Пояснительная записка: 23 с., 2 рис., 4 источника, 5 таблиц

Целью работы является создание программного продукта на языке программирования Visual Basic for Applications согласно заданию, выданному на учебную практику. Данный программный продукт позволяет разместить в Microsoft Word исходный текст, введенный пользователем, на странице, каждая строка которой имеет желаемое пользователем количество символов (причем слова не разрываются на две строки) и в Microsoft Excel найти сумму двух разреженных полиномов, заданных ненулевыми коэффициентами и их номерами. Программный продукт должен обеспечивать удобство и простоту использования, быть функциональным и надежным, эффективным в эксплуатации.

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

ПЕРЕЧЕНЬ ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ

Гарнаев А.Ю. Самоучитель VBA - 2-е изд., перераб. и доп. СПб.: БВХ- Петербург 2004, 560с.

Гарнаев А.Ю. «Excel 2002: разработка приложений» СПб.: БВХ-Петербург 2002, 450с.

С.Браун «VB 6» СПб.: Москва - Харьков - Минск 2002, 573с.

С.Каммингс «VBA для Чайников» СПб.: Москва - Санкт-Петербург - Киев 2003, 440с.

ВЫВОДЫ

В процессе работы над заданием по учебной практике была разработана информационная система. В данной системе реализованы следующие возможности:

- вывод справочной информации по языку программирования Visual Basic for Applications;

- нахождение в заданной строке слов, которые начинаются и заканчиваются одной и той же буквой; вывод слов на экран в Microsoft Word;

- с помощью определенных преобразований в исходной матрице изменить элементы четных сток, вывести конечную матрицу на экран в Microsoft Exel.

Впоследствии в ПП возможно увеличить объем теоретического материала по VBA, усовершенствовать интерфейс. Недостатков данной системы разработчиком не обнаружено.

1.1 Формулировка задачи

Для MS WORD:

Исходный текст (слова, пробелы, знаки) задан одной строкой. Нахождение в ней слов, которые начинаются и заканчиваются одинаковой буквой.

Для MS EXCEL:

В матрице найти сумму элементов, которые расположены по главной диагонали. Элементы всех чётных строк разделить на эту сумму.

1.2 Исходные данные

Для WORD:

S1 : строка ; { строка, введенная пользователем }

Для EXCEL:

a : двумерный массив [5,5 ] вещ ; { массив коэффициентов первого полинома }

1.3 Ограничения на исходные данные

Для EXCEL:

0 < = i < 5

0 < = j < 5

1.4 Промежуточные данные

Для WORD:

S3: строка ; {содержит слово, нужное по условию}

k : цел ; { счетчик, определяющий количество символов в каждом слове }

start : цел ; { счетчик перебора символов в строке }

i : цел ; { счетчик, показывающий начиная с какого символа будет

осуществляться чтение слова }

Для EXCEL:

B: массив [10] вещественных чисел; {содержит элементы главной диагонали}

1.5 Результаты

Для WORD:

S3 : строка ; { содержит искомые слова}

Для EXCEL:

a : массив [5,5 ] вещ ; { конечная матрица чисел}

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

Область видимости переменной определяет часть кода, которая «знает» о существовании данной переменной. При определении переменной в процедуре получить или изменить ее значение можно только из кода этой процедуры. Иногда, однако, необходимо использовать переменную с более обширной областью видимости. Например, переменную, значения которой доступны для всех процедур модуля или проекта. Существуют три типа области видимости переменной:

переменные уровня процедуры распознаются только в процедуре, в которой они описаны. Они описываются при помощи инструкций Dim или Static. Такие переменные называются локальными;

переменные уровня модуля используются только в модуле, в котором они описаны, но не в других модулях данного проекта. Описываются при помощи оператора Dim или Private в области описания модуля, т.е. перед описанием процедур;

переменные уровня модуля, описанные при помощи инструкции Public, являются доступными для всех процедур проекта. Такие переменные называются открытыми.

Закрытая (Private) переменная сохраняет свое значение, только пока выполняется процедура, в которой эта переменная описана. При завершении процедуры значение переменной теряется, и при повторном запуске процедуры его надо заново инициализировать. Переменные, описанные оператором Static, сохраняют свое значение по выходу из процедуры, пока работает программа.

Для обязательного объявления всех переменных в начале модуля, в так называемой области модуля General Declarations, надо поместить директиву Option Explicit. Использование этой директивы не допускает возможности неправильного ввода имени переменной, которая применяется в одной или не скольких процедурах модуля. Например, если переменная была объявлена как Ставка, а в коде при наборе вместо русской буквы с была использована латинская буква с, то это приведет к ошибке. В отсутствие директивы Option Explicit подобную ошибку было бы трудно отследить.

2.3 Описание массивов

Как и в других языках программирования, в VBA можно использовать массивы. Массив, как и любую переменную, надо объявлять, используя операторы Dim, Static, Private и Public, которые также задают область видимости переменной. В массиве допускается описание до 60 размерностей. При определении размерности надо указывать верхнюю, а также нижнюю границу. Если нижний индекс не задан явно, нижняя граница массива определяется директивой Option Base. Если отсутствует директива Option Base, нижняя граница массива равняется нулю. Например, в следующем операторе объявляется одномерный массив (вектор) из 12 целых чисел, причем по умолчанию первый элемент массива - А (0), а последний - А (11). В этом случае говоря, что 0 - базовый индекс.

Dim А (11) As Integer

Данный же оператор объявляет двухмерный массив 33 (матрицу), состоящий из действительных чисел.

Dim B (2, 2) As Single

Можно изменить базовый индекс, написав в области объявлений модуля директиву Option Base 1. После этого индексы массивов А и В будут начинаться с единицы. Например, в следующем операторе объявляется вектор, состоящий из 11 элементов.

Option Base 1

Dim A (11) As Integer

Другим способом изменения базового индекса является использование ключевого слова То при объявлении массива.

Dim B (1 To 3, 1 To 3) As Single

Dim A (1 To 12) As Integer

Инициализацию элементов массива можно производить по-разному:

последовательностью операторов:

Dim B (1, 1) As Single

B (0, 0) = 2 : B (0, 1) = 4

B (1, 0) = 1 : B (1, 1) = 6

оператором цикла:

Dim M (1 To 9, 1 To 9) As Integer

Dim i As Integer

Dim j As Integer

For i = 1 To 9

For j = 1 To 9

M (i, j) = i * j

Next

Next

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

Dim R () As Single

Затем в программе следует вычислить необходимый размер массива в некоторой переменной, например n, и изменить размер динамического массива с помощью оператора ReDim. В следующем примере сначала объявляется динамический массив, а затем устанавливаются границы его индекса.

Dim R () As Double

ReDim R (1 To 10)

2.4 Операторы языка и управляющие конструкции

Математические операторы позволяют выполнять в программе действия над числами. В таблице 2.2 приведены арифметические операторы и выполняемые ими функции.

Таблица 2.1 - Префиксы, используемые в наименованиях переменных

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

возведение в степень;

умножение и деление;

деление нацело;

взятие остатка от деления;

сложение и вычитание.

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

В VBA, как и во всех языках программирования, существуют управляющие конструкции, предназначенные для управления порядком выполнения команд. Различают два основных типа управляющих операторов:

- If

- Select..Case

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

В свою очередь, управляющие операторы if бывают двух видов:

- If...Then

- If...Then...Else

Конструкция If...Then применяется, когда необходимо выполнить определенные действия в зависимости от некоторого условия. Управляющая конструкция If...Then...Else используется в том случае, когда необходимо выполнить разные действия в зависимости от условия. Конструкция If.. .Then.. .Else аналогична конструкции If...Then, но позволяет задать действия, исполняемые как при выполнении условий, так и в случае их невыполнения.

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

Условные выражения - это такие выражения, которые возвращают одно из двух значений: Истина или Ложь. В условных выражениях используют операторы сравнения, приведенные в таблице 2.3.

Таблица 2.3 - Операторы сравнения для условных выражений

Над условными выражениями можно выполнять действия логической математики (логические операции). К логическим побитовым операциям относятся операции And, Or, And Also, Or Else, Xor, Not.Операция Not имеет один операнд, остальные - по два операнда.

Ключевые слова IF и End If имеют тот же смысл, что и в конструкции If...Then. Если заданное в конструкции условие не выполняется (результат проверки равен False), и конструкция содержит ключевое слово Else, Visual Basic выполнит последовательность конструкций, расположенных следом за Else. После чего управление перейдет к конструкции, следующей после End If.

2.5 Стандартные функции работы с файлами, строками, диалоговыми окнами

В VBA имеется ряд функций и операторов по работе с файлами и каталогами. Одним из удобств является то, что не требуется устанавливать ссылку на используемую библиотеку. В таблице 2.4 эти функции и представлены.

Таблица 2.4 - Функции и операторы для работы с файлами

В таблице 2.5 представлены функции обработки строковых выражений, которые позволяют произвести широкий спектр операций: от нахождения длины строки, до замены в строке подстрок.

Таблица 2.5 - Функции для работы со строками

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

Функция InputBox выводит на экран диалоговое окно, содержащее сообщение, поле ввода, и две кнопки OK и Cancel. Она устанавливает режим ожидания ввода текста пользователем и нажатия кнопки, а затем, при нажатии на кнопку OK, возвращает значение типа String, содержащее текст, введенный в поле ввода. При нажатии кнопки Cancel возвращается пустая строка.

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

3 АЛГОРИТМ РЕШЕНИЯ ПОСТАВЛЕННОЙ ЗАДАЧИ В MS WORD

S1

Для i=1 до len(s1)-1

Если mid(s1, i,1)=” ”

Если mid(s2,1,1)=mid(s2,len(s2),1)

S3=s3+s2+” ”

s2 = ""

Иначе

s2 = s2 + Mid(s1, i, 1)

s3

4 АЛГОРИТМ РЕШЕНИЯ ПОСТАВЛЕННОЙ ЗАДАЧИ В MS EXCEL

Для i=1 до 5

Для j= 1 до 5

a(i,j)

sum = 0

Для i=1 до 5

b[i]=a[i,i]

sum=sum+b[i]

Для i=1 до 5

Для i=1 до 5

Для j=1 до 5

a(i,j)

5 ТЕСТОВЫЕ ПРИМЕРЫ

MS WORD

№1

Дед Мороз - красный нос, ты подарки нам принёс?

Дед

№2

Трактат о несчастной любви.

Трактат

MS EXCEL

№1

Результат

Приложение А

ЭКРАННЫЕ ФОРМЫ

Рисунок А.1 - Работа программы в MS Word

Рисунок А.2 - Пример работы программы в MS Word

Приложение Б

ЛИСТИНГ ПРОГРАММЫ В MS EXCEL

Sub Laba1()

Dim m, i, j, k As Integer

Dim sum As Double

Dim a(5, 5), b(10) As Long

For i = 1 To 5

For j = 1 To 5

a(i, j) = Cells(i, j)

Next j

Next i

sum = 0

For i = 1 To 5

k = i

j = i

b(k) = a(i, j)

sum = sum + b(k)

Next i

For i = 2 To 5 Step 2

For j = 1 To 5

a(i, j) = a(i, j) / sum

Next j

Next i

Cells(7, 1) = "Конечная"

Cells(7, 2) = "матрица:"

For i = 1 To 5

For j = 1 To 5

Cells(i + 8, j) = a(i, j)

Next j

Next i

End Sub

Приложение В

ЛИСТИНГ ПРОГРАММЫ В MS WORD

Sub Laba2()

Dim s1, s2, s3 As String

Dim i, j As Integer

Selection.WholeStory

s1 = Selection.Text

For i = 1 To Len(s1) - 1

If Mid(s1, i, 1) = " " Then

If Mid(s2, 1, 1) = Mid(s2, Len(s2), 1) Then

s3 = s3 + s2 + " "

End If

s2 = ""

Else

s2 = s2 + Mid(s1, i, 1)

End If

Next i

Selection.Text = s1 + s3

End Sub