Exit Sub

Date: 2015-10-07; view: 484.

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

Private Sub CmdCalc_Click()

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

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

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"