Пример программы с использованием пользовательских функций и элемента комбинированного списка

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

Накопленная сумма, но выданному кредиту (или вкладу) вычисляется по формуле^[1]

Здесь S — значение накопленной суммы; Р — величина вклада; i — номинальная годовая процентная ставка; t — срок вклада (может задаваться в годах, кварталах, месяцах, днях); т — коэффициент, значение которого зависит от способа задания срока вклада (т = 1, если срок кредита задан в годах; т = 4, если в кварталах; т — 12, если в месяцах; т = 360 или 365, если срок кредита задан в днях).

Последовательность выполнения задачи.

1. Разработка пользовательского интерфейса. Для решения поставленной задачи интерфейс программы должен предоставлять средства для ввода исходных данных, инициирования вычислений, а также для вывода полученных результатов на экран. Состав необходимых элементов управления данной программы с нестандартными значениями их свойств приведен в табл. 6.8.

Таблица 6.8

Элементы управления программы «Расчет накопленной суммы» и значения их свойств.

Приступим к созданию пользовательского интерфейса:

• 1) активизируйте приложение MS Excel, создайте (сохраните) новую книгу под именем МуExCalc Credit,
• 2) войдите в редактор VBA (Alt + FI 1);
• 3) создайте форму UserForml. Для этого правой кнопкой мыши в окне проекта выделите объект VBAProject (MyExCalc_Credit) и выберите команду Insert —" UserForm из строки меню или контекстного меню (см. рис. 5.4). Для созданной формы установите значения свойств в соответствии с табл. 6.8;
• 4) в панели элементов управления ToolBox последовательно выберите элементы управления (метки, текстовые поля, кнопки, флажок и комбинированный список) в соответствии с табл. 6.8 и поместите их на форму, как это описано в параграфе 5.2.

Сформированные VBA стандартные значения некоторых свойств данных элементов нужно изменить в соответствии с табл. 6.8. Вид сформированного пользовательского интерфейса приведен на рис. 6.7.^[2]

Рис. 6.7. Окно программы расчета накопленной суммы Листинг 6.3.

' Описание переменных'.

Dim Р As Double, i As Double, S As Double Dim t As Integer, m As Integer Dim Tip As String.

' Обработчик события кнопки «Вычислить»:

Private Sub CmdCalc_Click ().

Texts.Text = «» .

If Not IsNumeric (TextP.Text) Then.

MsgBox «В поле Сумма вклада не число!», , «Error» .

TextP.SetFocus Exit Sub End If.

P = Val (TextP.Text).

If Not IsNumeric (Texti.Text) Then.

MsgBox «В поле Годовая % ставка не число !», , «Error» .

Texti.SetFocus Exit Sub End If.

i = Val (Texti.Text).

If Not IsNumeric (Textt.Text) Then.

MsgBox «В поле Срок не число !», vbOKOnly, «Error» Textt. SetFocus Exit Sub End If.

t = Val (Textt.Text).

Tip = ComboD. Text ' Выбор выделенного элемента списка Select Case Tip ' Выбор типа задания срока кредита Case «год» m = 1.

Case «квартал» ш = 4

Case «месяц» m = 12 Case «день» .

If ChD. Value Then 'Проверка включения флажка

m = 360.

Else.

m = 365.

End If.

Case Else.

MsgBox «He задан тип измерения !», vbOKOnly, «Error» ComboD. SetFocus Exit Sub End Select.

S = FSumm (P, i, t, m).

Texts.Text = CStr (Round (S, 2)).

End Sub.

' Обработчик события инициализации формы:

Private Sub UserForm Initialize ().

' Заполнение элементов списка

ComboD.Clear.

ComboD.Addltem («год»).

ComboD.Addltem («квартал»).

ComboD.Addltem («месяц»).

ComboD.Addltem («день»).

ComboD.Listlndex = 0.

ChD. Enabled = False ' Недоступность флажка End Sub.

' Обработчик события no выбору элемента из комбинированного списка Private Sub ComboD_Click ().

If ComboD. Text = «день» Then.

ChD.Enabled = True ' Доступность флажка

Else.

ChD.Enabled = False 'Недоступность флажка End If End Sub.

' Функция вычисления накопленной суммы

Private Function FSumm (P, i, t, m) As Single.

FSumm = P * (1 + i * t / 100 / m).

End Function.

' Обработчик события кнопки «Выход Private Sub CmdExit_Click ().

End.

End Sub.

• 3. Компиляция и запуск программы на выполнение.
• 3.1. Для проверки синтаксических ошибок откомпилируйте программу. Для компиляции проекта выполните команду меню: Debug —> Compile VBAProject. Если компилятор выдает ошибку (и), то нужно в помеченной строке исправить текст в соответствии с листингом 6.3.

Рис. 6.8. Окно диагностического сообщения.

3.2. Если ошибок компиляции нет, запустите приложение на выполнение при помощи кнопки? (Run —> Run Sub) панели инструментов или клавиши F5. В активной форме введите значения исходных данных (см. рис. 6.7) и нажмите на кнопку «Вычислить». Если все данные введены корректно, то приложение выведет найденный результат (см. рис. 6.7). Если введены некорректные данные, то приложение выведет диагностическое сообщение (рис. 6.8).

• [1] Лебедев В. М., Лебедева Е. С. Использование методов финансовой математики в курсеинформатики: учеб, пособие. М.: Издательство Академии бюджета и казначейства (Омскийфилиал), 2005; Четыркин Е. М. Финансовая математика: учебник. 4-е изд. М.: Дело, 2004.
• [2] Разработка кода программы. Активизируйте окно кода для формыUserForml одним из описанных в параграфе 5.2 способом. В окне кода введите исходный текст программы (листинг 6.3).