Расчёт выхода целлюлозы при варке по математической модели. Алгоритм работающей программы, страница 2

'определение констант коэффициентов модели

Const B0 = 53.14

Const B1 = -0.59

Const B2 = -2.19

Const B3 = -0.89

Const B12 = -0.86

Const B13 = -1.14

Const B23 = 1.09

Const B123 = -0.29

Private Sub cmdExit_Click()

'выход из программы в случае, если пользователь нажал кнопку "Да" в MsgBox

Dim rv As String

rv = MsgBox("Вы дейсвительно хотите выйти из программы?", vbDefaultButton2 + vbYesNo + vbQuestion, "Выход")

If rv = vbYes Then

End

End If

End Sub

Private Sub cmdZap_Click()

'блок ввода пользователем значений и их проверка на соответствие необходимым критериям

'запрос у пользователя ввода 1-ого значения для расчёта

Dim X1E As String

X1E = InputBox("Введите ступенчатость варки [" + CStr(Xmin1) + " или " + CStr(Xmax1) + "]", "Расчёт выхода целлюлозы")

'условие проверки того, что пользователь ввёл только числовое значение

If IsNumeric(X1E) = False Then

MsgBox "Ступенчатось введена не верно!", vbOKOnly + vbInformation, "Расчёт выхода целлюлозы"

Exit Sub

End If

'условие проверки отличия введённого значения от минимально и максимально допустимого значения

If CSng(X1E) <> Xmin1 Then

If CSng(X1E) <> Xmax1 Then

MsgBox "Ступенчатость выходит за предел допустимых значений!", vbOKOnly + vbInformation, "Расчёт выхода целлюлозы"

Exit Sub

End If

End If

X1 = CSng(X1E)

lblX1.Caption = X1E

myRas 'выполнение функции основного расчёта программы

'запрос у пользователя ввода 2-ого значения для расчёта

Dim X2E As String

X2E = InputBox("Введите время варки [" + CStr(Xmin2) + ";" + CStr(Xmax2) + "]", "Расчёт выхода целлюлозы")

'условие проверки того, что пользователь ввёл только числовое значение

If IsNumeric(X2E) = False Then

MsgBox "Время варки введено не верно!", vbOKOnly + vbInformation, "Расчёт выхода целлюлозы"

Exit Sub

End If

'условие проверки отличия введённого значения от минимально и максимально допустимого значения

If CSng(X2E) < Xmin2 Or CSng(X2E) > Xmax2 Then

MsgBox "Время варки выходит за предел допустимых значений!", vbOKOnly + vbInformation, "Расчёт выхода целлюлозы"

Exit Sub

End If

X2 = CSng(X2E)

lblX2.Caption = Format(X2E, "##0.00")

myRas 'выполнение функции основного расчёта программы

'запрос у пользователя 3-ого значения для расчёта

Dim X3E As String

X3E = InputBox("Введите температуру варки [" + CStr(Xmin3) + ";" + CStr(Xmax3) + "]", "Расчёт выхода целлюлозы")

'условие проверки того, что пользователь ввёл только числовое значение

If IsNumeric(X3E) = False Then

MsgBox "Температура варки введена не верно!", vbOKOnly + vbInformation, "Расчёт выхода целлюлозы"

Exit Sub

End If

'условие проверки отличия введённого значения от минимально и максимально допустимого значения

If CSng(X3E) < Xmin3 Or CSng(X3E) > Xmax3 Then

MsgBox "Температура выходит за предел допустимых значений!", vbOKOnly + vbInformation, "Расчёт выхода целлюлозы"

Exit Sub

End If

X3 = CSng(X3E)

lblX3.Caption = Format(X3E, "##0.00")

myRas 'выполнение функции основного расчёта программы

End Sub

Private Sub Form_Load()

'блок начальной загрузки программы и вывод окна "О программе"