![]() |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
|
‘ Обработчик события кнопки «Вычислить»:
Private Sub CmdCalc_Click()
If Not IsNumeric(TextSt.Text) Then ‘ Проверка корректности входных
‘данных Стоимость при помощи встроенной функции IsNumeric
Beep ‘Генерация звукового сигнала
MsgBox "В поле Cтоимость не число!", vbOKOnly ‘Вывод
‘окна сообщения
Exit Sub ‘Выход из процедуры
End If
‘Сохранение в переменной Stoim Стоимости:
Stoim = Val(TextSt.Text)
‘ Проверка входных данных Остаточная стоимость:
If Not IsNumeric(TextOst.Text) Then
Beep
MsgBox "В поле Остаточная стоимость не число!", vbOKOnly
Exit Sub
End If
‘Сохранение в переменной OStoim Остаточной Стоимости:
OStoim = Val(TextOst.Text)
‘Проверка ограничений на входные данные:
If Stoim < OStoim Then
Beep
MsgBox "Стоимость не может быть меньше Остаточной стоимости!", _
vbOKOnly, "Error"
Exit Sub
End If
‘ Проверка входных данных Время эксплуатации:
If Not IsNumeric(TextT.Text) Then
Beep
MsgBox "В поле Время эксплуатации не число!", vbOKOnly, "Error"
Exit Sub
End If
‘Сохранение в переменной TiE значения для Время эксплуатации:
TiE = Val(TextT.Text)
If OptLin.Value = True Then ‘Проверка выбора метода расчета
Amort = SLN(Stoim, OStoim, TiE) ‘Вычисление амортизации линейным
‘ методом
Else
If Not IsNumeric(TextPer.Text) Then ‘ Проверка входных данных Период
Beep
MsgBox "В поле Период не число!", vbOKOnly, "Error"
Дата публикования: 2014-12-28; Прочитано: 137 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!