Практическое задание

5. Практическое задание

5.1 Описание среды разработки

VBA (Visual Basic for Applications - визуальный бейсик для приложений) это язык программирования, с помощью которого можно составлять программы, которые выполняются в среде определенного приложения. Есть VBA для Word, Excel, Access, PowerPoint, Visio, Outlook, CorelDraw, Open Office и множества других программ. Программа, написанная в среде VBA для Excel, работает только в том случае, если запущена программа Excel, написанная в среде VBA for Word - только при работающей программе Word и так далее.

Программный код нужно писать либо в модуле текущего документа, либо в модуле формы. Для начала работы выберите следующие пункты меню: Сервис-Макрос-Редактор Visual Basic. Далее в окне Project Explorer (оно приведено на рисунке ниже) выделите имя вашего документа и вставьте новый модуль (Insert - Module), щелкните на имя модуля (по умолчанию Модуль1) и можете начинать писать код. Код оформляется в виде макросов (подпрограмм), в одном модуле может быть несколько макросов.

(Рис. 1.)

Запустить написанную программу в Excel, можно выбрав: Сервис - Макрос - Макросы в списке выбрать имя макроса и нажать кнопку: Выполнить. Второй способ - это поместить кнопку на панель кнопок и запускать путем нажатия на нее. С помощью кнопки можно запустить только макрос. Для этого щелкните правой кнопкой мыши по панели инструментов, выберите пункт Настройка, в появившемся окне выберите вкладку Программы, в окне Категории выберите Макросы, и из окна Команды мышкой перетащите на панель инструментов нужный макрос. Вы можете изменить название и рисунок кнопки, щелкнув на нее правой кнопкой мыши и выбрав соответствующую команду из контекстного меню. Важно - в поле Сохранить в должно быть имя Вашего текущего документа!

Для того чтобы создать макрос нужно в Редактор Visual Basic вызвать контекстное меню в окне Project Explorer, выбрать пункт Insert – Module (рис.1.). Создать модуль можно и другим способом: в Редактор Visual Basic выбрать пункт меню Insert-Module (рис.2.).

(рис.2.) (рис.3.)

В модуле можно записать программный код на создание макроса (рис.4.).

(рис.4.)

5.2 Постановка задачи

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

5.3 Описание выполнения задания

При запуске программы выходит диалоговое окно, в котором необходимо ввести сумму кредита, сумму к возврату, срок кредита (см. Приложение 1, Рис.1.). При этом в коде программы прописано условие (см. программный код), при котором программа работает только в том случае, если введенное значение суммы кредита, суммы к возврату и срока кредита больше «0», и если сумма к возврату больше суммы кредита. Если же условия не выполняются, тогда выходит сообщение об ошибке (см. Приложение 1, Рис.2.) На форме есть кнопка «Очистить», которая очищает все поля.

5.4 Программный код

Dim vrtP As Variant 'объявление переменной P для хранения значения суммы кредита

Dim vrtS As Variant 'объявление переменной S для хранения значения суммы подлежащей возврату

Dim vrtT As Variant 'объявление переменной Т для хранения значения срока кредита

Dim vrtI As Variant 'объявление переменной I для подсчета и хранения значения годовой процентной ставки по кредиту

Private Sub Cmd_Click() 'Процедура подсчета годовой процентной ставки при нажатии на кнопку

vrtP = Val(TextBox1.Text)  'В переменную vrtP присваивается значение текстового поля TextBox1

vrtS = Val(TextBox2.Text)  'В переменную vrtS присваивается значение текстового поля TextBox2

vrtT = Val(TextBox3.Text)  'В переменную vrtT присваивается значение текстового поля TextBox3

If vrtP = 0 Or vrtP < 0 Then 'Проверка условия, если значение переменной vrtP больше или равно 0

MsgBox ("Chislo dolzno bit' bol'she 0!") ' Если условие выполняется выходит сообщение об ошибке

Else 'Иначе

If vrtS = 0 Or vrtS < 0 Then 'Проверка условия, если значение переменной vrtS больше или равно 0

MsgBox ("Chislo dolzno bit' bol'she 0!") 'Если условие выполняется выходит сообщение об ошибке

End If 'Конец Условия

If vrtT = 0 Or vrtT < 0 Then 'Проверка условия, если значение переменной vrtT больше или равно 0

MsgBox ("Chislo dolzno bit' bol'she 0!") 'Если условие выполняется выходит сообщение об ошибке

End If 'Конец Условия

If vrtP >= vrtS Then 'Проверка условия, если значение переменной vrtP больше или равно значению переменной vrtS

MsgBox ("Summa k vozvratu dolzna bit' bol'she summi kredita!") 'Если условие выполняется выходит сообщение об ошибке

Else 'Иначе

vrtI = (vrtS - vrtP) / vrtP * vrtT 'Подсчет переменной vrtI

TextBox4.Text = vrtI 'Значение переменной vrtI присваивается в поле TextBox4

End If 'Конец Если

End If 'Конец Если

End Sub 'Конец процедуры

Private Sub Cmd1_Click() 'Процедура очистки полей при нажатии на кнопку

TextBox1.Text = " " 'Очистка текстового поля TextBox1

TextBox2.Text = "" 'Очистка текстового поля TextBox2

TextBox3.Text = "" 'Очистка текстового поля TextBox3

TextBox4.Text = "" 'Очистка текстового поля TextBox4

End Sub 'Конец процедуры

Заключение

Возможности Internet настолько широки, насколько у человека только может хватить фантазии. Сетевая технология уже серьезно зарекомендовала себя в качестве наилучшего источника информации на западе и стремительно развивается в станах бывшего Советского Союза. Например в России в минувшем году Internet получила развитие в 400%, на Украине — только 300%. Число пользователей Интернет постоянно растет. По мнению и глубокому убеждению генерального директора компании Microsoft Била Гейтса мировое сообщество в начале 21 столетия, стремительно движется к неизбежному перерождению в сетевое уже через 5-10 лет. Поэтому особо важно именно сегодня обратить свое внимание к данной технологической перспективе, и постараться сделать все возможное для интеграции Internet в сферу образования.

Список используемой литературы:

1.  С. Симонович, Г. Евсеев, А. Алексеев; Общая информатика, Издательство ООО «АСТ Пресс- книга», М. 2002.

2.  В.П. Леонтьев, Персональный компьютер, Издательство «Олма-Пресс», М. 2004

3.  Могилев А.В., Пак Н.И., Хёллер Е.К., под редакцией Хёллера. Информатика: Учебное пособие для студентов пед. вузов/ М. 1999.

4.  перевод с английского А. Матросова. Visual Basic 6.0: наиболее полное руководство для профессиональной работы в среде Visual Basic 6.0 / БВХ-Петербург, 2003.

5.  Материалы из Интернет источников.

Приложение

Рис.1 Форма «Процентная ставка по кредиту»

Рис.2 Сообщения об ошибке