Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

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 ‘Выход из процедуры

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 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.006 с)...