Разработка программ решения задач на алгоритмическом языке Visual Basic for Application

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Белорусский национальный технический университет

Энергетический факультет

Кафедра «Электроснабжение»

КУРСОВАЯ РАБОТА

По дисциплине «Информатика»

Тема: Разработка программ решения задач на алгоритмическом языке Visual Basic for Application

Минск 2016



1. Теоретическая часть

1.1 Введение в язык программирования VBA

VBA - это язык программирования, встроенный во множество программ, от приложений Microsoft Office, Microsoft Project, Visio и AutoCad до многочисленных специализированных приложений, предназначенных для управления производственными процессами, учёта финансовых ресурсов или информационной поддержки клиентов.

VBA представляет собой набор средств программирования для создания собственных программ и подгонки имеющихся приложений под запросы пользователя.

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

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

В настоящее время VBA движется по направлению к тому, чтобы стать стандартом в индустрии создания программ. Microsoft создала VBA и обеспечила поддержку VBA во всех главных приложениях Office: Word, Excel, Access и PowerPoint.

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

Объектом называется любая именованная сущность, имеющая:

* свойства, т. е. установки, которые можно проверить и изменить;

* методы, т. е. действия, которые может выполнить объект, когда программа попросит об этом;

* события, т. е. ситуации, в которых объект оказывается и на которые может ответить заранее определёнными для таких ситуаций действиями.

Коллекция - это VBA-объект специального назначения. Коллекции предназначены для упрощения работы с набором объектов, когда этот набор объектов нужно использовать как одно целое. Как правило, все объекты в коллекции имеют один и тот же тип. Например, коллекция Pages состоит из объектов Page. Однако в VBA существует родовой объект Collection, предназначенный для хранения в нем объектов любых типов в любой комбинации.

Формой называют любое созданное в VBA пользовательское окно. Официально формы в VBA описываются в терминах объекта UserForm. Каждый объект UserForm принадлежит одновременно двум коллекциям объектов: VBA-проекту, в котором хранится форма, и коллекции UserForms, содержащей все формы, загружаемые программой.

Свойства - это характеристики объекта. Каждое свойство хранит информацию о некотором аспекте внешнего вида, поведения, содержимого объекта. Главной задачей свойства является описание некоторой характеристики объекта.

Методы - это именованные действия, которые объект может выполнить по команде. Ввиду того, что любой метод является неотъемлемой частью объекта, объект сам знает, что ему делать, когда вызывается метод. Таким образом, методы - не что иное, как процедуры, привязанные к конкретному объекту. Чтобы вызвать метод, необходимо напечатать имя объекта, точку, а затем имя метода.

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

* физические действия пользователя программы, например щелчок кнопкой мыши, перемещение курсора и т. д.;

* ситуации, в которые попадает объект в ходе выполнения программы.

Язык VBA является объектно-ориентированным. Это значит, что многие его команды имеют особенный формат. Типичная команда VBA имеет вид:

<Объект>.<Объект, входящий в первый объект>.<…>.<Тот объект, с которым нужно произвести действие>.<собственно действие>

Иными словами, каждая команда пишется как бы с «конца»: вначале определяется то, над чем надо произвести действие, - объект, а затем само действие - метод. Разделителями компонентов команды служат знаки «точка».

Например:

Application.activDocument.PageSetup.Orientation=wdOrientLandscape

Эта команда устанавливает альбомную ориентацию листа в документе.

Тип данных - это термин, относящийся к определённым видам данных, которые VBA сохраняет и которыми может манипулировать. Любое определение типа задаёт:

* область возможных значений типа;

* структуру организации данных;

* операции, определённые над данными этого типа.

VBA разделяет обрабатываемые данные на числа, даты, строки, логические значения и объекты (табл. 1).

Типы данных VBA.

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

Идентификатор - это имя переменной. При выборе имени переменной необходимо соблюдать следующие правила:

* имя переменной должно начинаться с буквы алфавита;

* после первой буквы имя переменной может состоять из любой комбинации цифр, букв или символов подчёркивания;

* имена переменных не могут содержать символов, используемых для математических операций, а также знака точки и пробела;

* имя переменной не должно превышать 255 символов;

* имя переменной не должно дублировать определённые ключевые слова vba.

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

Сохранение значения данных в переменной называется присваиванием переменной. Присваивание выполняется с помощью оператора присваивания, представляемого знаком (=). Например, А = 145.

Создание переменной путём ею использования в операторе называется неявным объявлением переменной. Все переменные, которые VBA создаёт неявным объявлением переменной, имеют тип данных Variant.

VBA предоставляет возможность выполнять явное объявление переменных. Объявлять переменные явно лучше в начале программы, как это делается во всех языках программирования.

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

Для объявления переменных используются операторы Dim, Public, Private и Static. Первый можно использовать на обоих уровнях, Public, Private - на уровне модуля, Static - только на уровне процедуры.

Объявление простых переменных имеет следующий синтаксис:

Dim <имя переменной1, имя переменной2,…> As <имя типа>

Или

Dim <имя переменной1> As <имя типа1>, <имя переменной2> As <имя типа2>,<имя переменной3> As <имя типа3>, …

Примечание. Все переменные, которые создаются просто ключевым словом Dim, являются переменными типа Variant. Если используется ключевое слово As, то объявляемая переменная называется типизированной.

Константа - это значение в программе VBA, которое не меняется. Существует несколько типов констант.

Именованные константы - константы, имеющие заданное имя; это имя имеет конкретное неизменяемое значение.

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

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

Литеральные константы - это константы, записываемые непосредственно в код.

Правила написания литеральных констант (String, Integer, Data, Boolean):

* строковые константы должны быть заключены в двойные кавычки ("");

* пустая строковая константа (нулевая строка) обозначается двумя двойными кавычками, между которыми ничего нет ("");

* строковая константа должна вся находиться на одной и той же строке. Нельзя использовать символ продолжения строки для продолжения литеральной (строковой) константы на другой строке.

Численные константы могут содержать любой из численных типов VBA.

Внутренние константы называются также предопределёнными константами. Внутренняя константа - это именованная константа, которая была определена разработчиками VBA. Внутренние константы все начинаются с букв vb для указания того, что они определяются языком VBA.

1.2 Динамические массивы в VBA

программирование приложение массив

Объявление массива с использованием оператора Dim имеет следующий синтаксис:

Dim VarName([Subscripts])[As Type]

VarName - любое имя массива, использующее допустимый идентификатор имени;

Subscripts - измерение массива. Если размерность массива больше единицы, то Subscripts разделяются запятыми.

Оператор Subscripts имеет следующий синтаксис:

[lower To] upper [,[lower To] upper]..

lower - определяет нижний диапазон допустимых индексов для массива (необязательный аргумент);

upper - определяет верхний предел для индексов массива (обязательный аргумент).

Примеры правильного объявления массивов:

Dim Array_Str (1 To 10) As String - одномерный статический строковый массив, включающий 10 элементов;

Dim Array_Var() - динамический массив;

Dim Array_Mult (0 To 5, 0 To 7) As Integer - двумерный статический массив целых чисел, включающий 6*8=48 элементов.

При объявлении массивов следует помнить, что включение оператора Subscripts в объявлении массива создает статический массив с фиксированным числом элементов, пропуск оператора Subscripts в объявлении массива создает динамический массив, а установка директивы компилятора Option Base влияет на общее число элементов в массиве.

1.2 Использование массивов

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

Нижеприведенный листинг показывает элементарное объявление и использование массива (в качестве элементов массива используется факториал номера элемента массива):

При помощи вложенных циклов довольно легко можно организовать инициализацию двумерного массива:



1.3 Изменение размерности динамического массива

Могут сложиться обстоятельства, при которых точно неизвестно, сколько элементов потребуется в массиве. В VBA имеется возможность при помощи оператора ReDim переопределять размерность массива, а во время объявления не указывать его размерность.

Синтаксис ReDim:

ReDim [Preserve] varname(subscripts) [As Type] [, varname(subscripts) [As Type]]

varname - имя существующего массива;

subscripts - размерность существующего массива;

Type - любой тип VBA. Необходимо использовать отдельный оператор As Type для каждого массива, который определяется;

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

Примеры правильного использования оператора ReDim:

Dim Array_Month() As String - одномерный строковый динамический массив

ReDim Array_Month(29) - устанавливет размерность динамического массива равную 29 элементам

ReDim Array_Month(1 To 30) - изменяет размер массива до 30 элемента

ReDim Preserve Array_Month(1 To 31) - изменяет размер массива до 31 элемента, сохраняя содержимое

Dim Array_DBL() As Single - объявляет динамический массив

ReDim Array_DBL(2, 9) - делает массив двумерным

ReDim Array_DBL(3, 7) - изменяет размер двумерного массива

ReDim Preserve Array_DBL(1 To 3, 1 To 5) - изменяет последний размер массива, сохраняя содержимое

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



2. Практическая часть

2.1 Задача 1

Программа составляется c использованием оператора IF-THEN-ELSE в виде макроса.

Таблица 2.1 Исходные данные для задачи 1

№ п/п	Модель	Исходные данные	Выводимые данные
15

Программа решения задачи на языке программирования Visual Basic for Application имеет следующий вид:

Sub Raschet()

Dim a, b, x, y As Double

On Error GoTo Error

'Присваиваем значения переменным a,b

a = Cells(2, 3)

b = Cells(3, 3)

'Вычисляем х

If a * b <= 3 Then

x = (a * b) + 3

Else

x = (a / b) - 3

End If

'Выводим значение х

Cells(5, 3) = x

'Вычисляем y

If x < 1 Then

y = Sqr(b + x ^ 2)

Else

If x > 5 Then

y = b * x ^ 3

Else

y = a * b * x

End If

End If

'Выводим значение y

Cells(6, 3) = y

Exit Sub

Error:

MsgBox ("Ошибка! a и b - числа")

End Sub

Рис. 2.1 Результаты работы программы



2.2 Задача 2

Программа программируется с использованием UserForm и элементов управления Label, TextBox, OptionButton и др.

Таблица 2.2 Исходные данные для задачи 2

№ п/п	Модель	Исходные данные	Выводимые данные
15

Программа решения задачи на языке программирования Visual Basic for Application имеет следующий вид:

Private Sub CommandButton1_Click()

Dim a, b, x, y As Double

On Error GoTo Error

'Присваиваем значения переменным a,b

a = Val(TextBox_a)

b = Val(TextBox_b)

'Вычисляем х

If a * b <= 3 Then

x = (a * b) + 3

Else

x = (a / b) - 3

End If

'Выводим значение х

Label_x = Str(x)

'Вычисляем y

If x < 1 Then

y = Sqr(b + x ^ 2)

Else

If x > 5 Then

y = b * x ^ 3

Else

y = a * b * x

End If

End If

'Выводим значение y

Label_y = Str(y)

Exit Sub

Error:

MsgBox ("Ошибка! a и b - числа")

End Sub

Для показа формы нужна программа:

Sub ПоказатьФорму()

'Очищаем строки вывода значений x и y

UserForm.Label_x.Caption = ""

UserForm.Label_y.Caption = ""

'показ формы

UserForm.Show (Modal)

End Sub



Рис. 2.2 Результаты работы программы



Литература

1. Информатика. Компьютерная техника. Компьютерные технологии. / Пособие под ред. О.И.Пушкаря.- Издательский центр "Академия", Киев, - 2001г.

2. Коцюбинский А.О., Грошев С.В. Современный самоучитель профессиональной работы на компьютере. - Г.: Триумф, 1999 г.

3. Информатика. Базовый курс. / Под ред. С.В.Симоновича. - Спб., 2000 г

Размещено на Allbest.ru

...