Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.80
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.80

В примере с компьютером по методу двукратной амортизации она составит:

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

=ДДОБ (6000;1000;5; 1) возвращает значение 2400.00р.

=ДДОБ (6000;1000;5; 2) возвращает значение 1440.00р.

=ДДОБ (6000;1000;5; 3) возвращает значение 864.00р.

=ДДОБ (6000;1000;5; 4) возвращает значение 296.00р.

=ДДОБ (6000;1000;5; 5) возвращает значение 0.00р.

В следующем разделе рассматривается разработка приложения, в котором по начальной и остаточной стоимости оборудования, сроку амортизации и расчетному периоду амортизации при выбранном методе расчета находится величина амортизации. Кроме того, в диалоговом окне, с помощью которого происходит управление работой приложения, свойство Visible осуществляет управление видимостью поля, счетчика и надписи. Изменение свойства Visible происходит при выборе метода амортизации. Для придания большей презентабельности отчету об амортизации на рабочий лист внедряется объект WordArt при помощи метода AddTextEffect семейства Shapes.

Для решения задачи нахождения вычисления амортизации оборудования по стандартному методу или методу к-кратного учета с помощью редактора пользовательских форм создадим диалоговое окно Расчет амортизации (рис. 18.1).

Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications

Рис. 18.1. Диалоговое окно «Расчет амортизации»

Программирование в среде Visual Basic for Applications

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

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 (ДЦОБ), вычисляет величину амортизации выбранным методом. Удаляет с рабочего листа все ранее созданные графические объекты и внедряет объект

18. Расчет амортизации_139


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta