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

\VordArt. Подготавливает рабочий лист для вывода результатов вычислений. Выводит полученные данные на рабочий лист и в диалоговое окно (рис. 18.4)

Нажатие кнопки Отмена запускает на выполнение процедуру CommandButton2 .Click

Закрывает диалоговое окно

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

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

Private Sub ConunandButtonl_Ciick()

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

Dim В As Double

Dim Е As Double

Dim A As Double

Dim Ye As Integer

Dim Yc As Integer

Dim k As Integer

Dim Flag As Boolean

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

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

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

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

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

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

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

Dim n As Integer

Dim j As Integer

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

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

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

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

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

В = CDbl (TextBoxl.Text) Е =_

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

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

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

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

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

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

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

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

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

If OptionButtonl.Value = True Then

Flag = True Else

Flag = False End If

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

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

If Flag = True Then

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

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

Else

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


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