Реализация задачи средствами Visual Basic

Приступая к реализации проекта на VB, необходимо представить алгоритм решения задачи:

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

во-вторых, какие входные данные для этого необходимо иметь;

в-третьих, представить себе внешний вид пользовательского интерфейса.

Величина амортизации фондов линейным методом вычисляется по формуле:

А= .

Величина годовой амортизации за определенный период вычисляется по формуле:

А= .

В VB для решения данной задачи существуют две соответствующие встроенные функции:

SLN (Стоимость, Ликвидная_стоимость, Жизнь);

SYD (Стоимость, Ликвидная_стоимость, Жизнь, Период),

где величине Остаточная_Стоимость соответствует аргумент Ликвидная_Стоимость, а величине Время_Эксплуатации соответствует переменная Жизнь.

Перед выполнением вычислений необходимо проверить, являются ли числовыми входные данные, т.е. значения для величин Стоимости, Ликвидной_Стоимости, Жизни, а при вычислении величины годовой амортизации за определенный период – для величины Период. Для соблюдения корректности вычислений необходимо также выполнение следующих условий:

1. Стоимость не может быть меньше Ликвидной_Стоимости;

2. Период не может быть больше Жизни.

При помощи элемента Метка на форме размещаются необходимые комментарии. Для ввода необходимых данных используются элементы управления типа Текстовое поле. При помощи элементов Переключатели осуществляется выбор соответствующего метода вычисления величины амортизации. Флажки с именами "Жирный" и "Курсив" используются для изменения внешнего вида надписей. Флажки и переключатели помещаются в соответствующие элементы управления Рамка. Для реализации описанных выше функций необходимо в форму поместить элементы управления, представленные в таблице 5.2.

Вид пользовательского интерфейса проекта представлен на рис. 5.5.

Таблица 5.2.

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

Элемент	Свойство	Значение
Форма	Caption	Вычисление величины амортизации
Текстовое поле для переменой Stoim	Name	TextSt
Text
Enabled	True
Текстовое поле для переменной Ostoim	Name	TextOst
Text
Enabled	True
Текстовое поле для переменной TiE	Name	TextT
Text
Enabled	True
Текстовое поле для переменной Per	Name	TextPer
Text
Enabled	True
Текстовое поле для переменной Amort	Name	TextAm
Text
Enabled	False
Метка для Стоимость	Name	LabelSt
Caption	Стоимость
Метка для Остаточная стоимость	Name	LabelOst
Caption	Остаточная стоимость
Метка для Время эксплуатации	Name	LabelT
Caption	Время эксплуатации
Метка для Период	Name	LabelPer
Caption	Период
Метка для Величина амортизации	Name	LabelAm
Caption	Величина амортизации
Кнопка для вычисления	Name	CmdCalc
Caption	Вычислить
Кнопка для выхода	Name	CmdExit
Caption	Выход
Рамка	Caption	Выбор метода расчета
Переключатель	Name	OptLin
Caption	Амортизация, расчитанная линейным методом
Value	True
Переключатель	Name	OptGod
Caption	Годовая амортизация за период
Value	False
Рамка	Caption	Выбор свойств шрифта
Флажок	Name	ChB
Caption	Жирный
Флажок	Name	ChI
Caption	Курсив

Рис. 5.5. Окно программы «Расчет амортизации фондов»

Полный текст программного кода приведен на рис.5.6.

Для проверки правильности работы программы на рис 5.5. представлены результаты расчета для годовой амортизации за определенный период. Для амортизации, рассчитанной линейным методом при тех же входных данных, величина амортизации должна быть равна 21666,67.

‘ Описание переменных: