Рассмотрим, как приведенная ниже программа решает перечисленные задачи и что происходит в программе.

UserForm Initialize

1. Активизирует диалоговое окно.

2. Запрещает ввод данных пользователем в поле Кратность метода.

3. Назначает клавише Esc функцию кнопки Отмена, а клавише Enter - Вычислить.

4. Назначает кнопке Вычислить сочетание клавиш Alt+B, а кнопке Отмена - Alt+0.

5. В группе Тип амортизации при инициализации диалогового окна назначает выбор переключателя Стандартный метод. За счет выбора этого переключателя при инициализации диалогового окна не отображаются надпись «Кратность метода» и соответствующие ей поле и счетчик (рис. 18.2). Устанавливает для счетчика минимальное значение, равное двум, и шаг изменения значений счетчика, также равный двум, для убыстрения прокрутки счетчика. Промежуточные значения вводятся в поле Кратность метода не с помощью счетчика, а посредством клавиатуры

SpinButtonl Change

Изменяет значение счетчика, которое вводится в поле Кратность метода

OptionButton2 Click

Отображает в диалоговом окне надпись «Кратность метода» и соответствующие ей поле и счетчик

OptionButton2 Click

Скрывает в диалоговом окне надпись «Кратность метода» и соответствующие ей поле и счетчик

Нажатие кнопки Вычислить запускает на выполнение процедуру CommandButtonl Click

1. Проверяет согласованность вводимых данных. В случае их несогласованности отображает соответствующее сообщение (рис. 18.3).

2. Используя финансовую функцию рабочего листа SYD (АМГД) и DDB (ДЦОБ), вычисляет величину амортизации выбранным методом. Удаляет с рабочего листа все ранее созданные графические объекты и внедряет объект

Амортизация

Время полной амортк

i периода

Рис. 18.2. Сообщение о несогласованности вводимых данных

Амортизация

Остаток больше начальной стоимости

Рис. 18.3. Сообщение о несогласованности вводимых данных

Private Sub CoimnandButtonl Ciick()

Процедура расчета амортизации

Dim В As Double

Dim Е As Double

Dim A As Double

Dim Ye As Integer

Dim Yc As Integer

Dim к As Integer

Dim Flag As Boolean

В - первоначальная стоимость оборудования, для которого подсчитывается амортизация Е - остаточная стоимость оборудования Ye - время полной амортизации

Yc - период, для которого рассчитывается амортизация

Flag - логическая переменная, равная True,

если амортизация рассчитывается

стандартным методом, и False, если методом

к-кратного учета

Dim п As Integer

Dim j As Integer

n, j - вспомогательные переменные,

используемые для удаления

ранее созданных графических объектов

Считывание в переменные из диалогого

окна значений параметров

В = CDbl (TextBoxl.Text) Е =

CDbl(TextBox2.Text) Ye = CInt(TextBoxS.Text) Yc = CInt(TextBox4.Text)

Проверка согласованности вводимых данных If В < Е Then

МздВох "Остаток больше начальной стоимости", vbExclamation, "Амортизация" TextBoxl.SetFocus Exit Sub End If

If Ye < Yc Then МздВох "Ошибка в сроке амортизации", vbExclamation, "Амортизация" TextBoxS.SetFocus Exit Sub End If

Определение выбранного переключателя:

если "Стандартный", то переменной Flag

присваивается True;

если к-кратного учета, то

переменной Flag присваивается False

If OptionButtonl.Value = True Then

Flag = True Else

Flag = False End If

Расчет амортизации в зависимости

от выбранного метода

If Flag = True Then

Стандартным методом

А = Application.SYD(В, Е, Ye, Yc)

Else

Методом к-кратного учета к = CInt(TextBox6.Text) А = Application.DDB(B, E, Ye, Yc, k) End If