End Sub

End

End Sub

End If

Else

End If

Else

End If

End If

Exit Sub

Beep

End If

Exit Sub

Beep

Else

End If

Exit Sub

Beep

If Not IsNumeric(TextT.Text) Then

End If

Exit Sub

Beep

End If

Exit Sub

Beep

If Not IsNumeric(TextOst.Text) Then

End If

Dim Stoim, OStoim, TiE, Per, Amort As Double

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

Private Sub CmdCalc_Click()

If Not IsNumeric(TextSt.Text) Then ‘ Проверка корректности входных

‘данных Стоимость при помощи встроенной функции IsNumeric

Beep ‘Генерация звукового сигнала

MsgBox "В поле Cтоимость не число!", vbOKOnly ‘Вывод

‘окна сообщения

Exit Sub ‘Выход из процедуры

‘Сохранение в переменной Stoim Стоимости:

Stoim = Val(TextSt.Text)

‘ Проверка входных данных Остаточная стоимость:

MsgBox "В поле Остаточная стоимость не число!", vbOKOnly

‘Сохранение в переменной OStoim Остаточной Стоимости:

OStoim = Val(TextOst.Text)

‘Проверка ограничений на входные данные:

If Stoim < OStoim Then

MsgBox "Стоимость не может быть меньше Остаточной стоимости!", _

vbOKOnly, "Error"

‘ Проверка входных данных Время эксплуатации:

MsgBox "В поле Время эксплуатации не число!", vbOKOnly, "Error"

‘Сохранение в переменной TiE значения для Время эксплуатации:

TiE = Val(TextT.Text)

If OptLin.Value = True Then ‘Проверка выбора метода расчета

Amort = SLN(Stoim, OStoim, TiE) ‘Вычисление амортизации линейным

‘ методом

If Not IsNumeric(TextPer.Text) Then ‘ Проверка входных данных Период

MsgBox "В поле Период не число!", vbOKOnly, "Error"

Per = Val(TextPer.Text) ‘Сохранение в переменной Per значения Период

If TiE < Per Then ‘Проверка ограничений на входные данные

MsgBox "Время эксплуатации не может быть меньше Периода!", _

vbOKOnly, "Error"

Amort = SYD(Stoim, OStoim, TiE, Per) ‘Вычисление годовой амортизации

'за определенный период

TextAm.Text = Str(round(Amort,2)) ‘Отображение вычисленного значения амортиз-и

‘Проверка выбора свойств шрифта:

If ChB.Value = 0 Then

LabelSt.Font.Bold = False: LabelOst.Font.Bold = False

LabelT.Font.Bold = False: LabelPer.Font.Bold = False

LabelSt.Font.Bold = True: LabelOst.Font.Bold = True

LabelT.Font.Bold = True: LabelPer.Font.Bold = True

If ChI.Value = 0 Then

LabelSt.Font.Italic = False

LabelOst.Font.Italic = False

LabelT.Font.Italic = False

LabelPer.Font.Italic = False

LabelSt.Font.Italic = True

LabelOst.Font.Italic = True

LabelT.Font.Italic = True

LabelPer.Font.Italic = True

‘ Обработчик события кнопки «Выход»:

Private Sub CmdExit_Click()

‘ Обработчик события переключателя «Аморт-я за определенный период»

Private Sub OptGod_Click()

LabelPer.Visible = True ‘Включение видимости для элемента LabelPer

TextPer.Visible = True ‘Включение видимости для элемента TextPer

If OptGod.Value = True Then OptLin.Value = False

Дата добавления: 2014-12-23