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

FMainForm.Height = 2610

mnufsave.Enabled = False

FMainForm.Hide

FAbout.Show

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

'блок проверки нажатия правой кнопки мыши на главной форме и вывод контекстного меню

If Button = vbRightButton Then

PopupMenu mnuzap

End If

End Sub

Private Sub FrameFile_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

'блок проверки нажатия правой кнопки мыши на главной форме и вывод контекстного меню

If Button = vbRightButton Then

PopupMenu mnuzap

End If

End Sub

Private Sub FrameIn_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

'блок проверки нажатия правой кнопки мыши на главной форме

If Button = vbRightButton Then

PopupMenu mnuzap

End If

End Sub

Private Sub FrameOut_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

'блок проверки нажатия правой кнопки мыши на главной форме и вывод контекстного меню

If Button = vbRightButton Then

PopupMenu mnuzap

End If

End Sub

Private Sub mnuabout_Click()

'вывод окна "О программе"

FMainForm.Hide

FAbout.Show

End Sub

Private Sub mnuexit_Click()

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

Dim rv As String

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

If rv = vbYes Then

End

End If

End Sub

Private Sub mnufopen_Click()

'блок открытия файла для последующей загрузки данных из него

Open "a:\kursach.txt" For Input As #1

txtfile.Text = Input(LOF(1), #1)

Close #1

FMainForm.Height = 5115

End Sub

Private Sub mnufsave_Click()

'блок создания файла для последующего сохранения в него данных расчёта

Open "a:\kursach.txt" For Output As #1

Print #1, "Ступенчатость: ";

Print #1, lblX1.Caption;

Print #1,

Print #1, "Время варки, час: ";

Print #1, lblX2.Caption;

Print #1,

Print #1, "Температура варки, °C: ";

Print #1, lblX3.Caption;

Print #1,

Print #1,

Print #1, "При данных параметрах выход целлюлозы составляет: ";

Print #1, lblY.Caption;

Close #1

MsgBox "Создан файл с данными: A:\KURSACH.TXT !", vbOKOnly + vbInformation, "Расчёт выхода целлюлозы"

If txtfile.Text <> Empty Then

mnufopen_Click

End If

End Sub

Private Sub mnuzap1_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 'выполнение функции основного расчёта программы

End Sub

Private Sub mnuzap2_Click()