Разработка автоматизированного рабочего места технолога, страница 5

X(I) = InputBox(txt(I), "Ввод данных")

If X(I) = "" Then Exit Sub

If X(I) < Xmin(I) Or X(I) > Xmax(I) Then

MsgBox "Нарушен диапазон", vbCritical, "Внимание"

Else

X(I) = CDbl(X(I))

Exit Do

End If

Loop

Next I

'Преобразование и вывод данных

LblL5.Visible = True

LblL1.Visible = True

LblL14.Visible = True

LblL2.Visible = True

LblL6.Visible = True

LblL7.Visible = True

LblL3.Visible = True

LblL5.Caption = X(0)

LblL6.Caption = X(1)

LblL7.Caption = X(2)

End Sub

Private Sub mnuFLoad_Click()

'Загрузка данных из сохранённого файла

Open "C:\Raschet.dat" For Input As 1

Input #1, X(0), X(1), X(2), Y

Close #1

'Показать данные из сохранённого файла

LblL9.Caption = X(0)

LblL10.Caption = X(1)

LblL11.Caption = X(2)

LblL12.Caption = Y

FraF1.Visible = True

LblL9.Visible = True

LblL10.Visible = True

LblL11.Visible = True

LblL12.Visible = True

LblL12.Caption = Format(Y, "#0.000")

End Sub

Private Sub mnuFNorm_Click()

'Определение условий нормировки

If LblL1.Visible = False And LblL2.Visible = False And LblL3.Visible = False And LblL14.Visible = False Then

MsgBox "Пожалуйста, введите исходные данные!", vbExclamation, "Внимание"

Else

'Вычисление Xср, дельта Х, нормировка

For I = 0 To 2

Xsr(I) = (Xmax(I) + Xmin(I)) / 2

delX(I) = (Xmax(I) - Xmin(I)) / 2

Xnor(I) = (X(I) - Xsr(I)) / delX(I)

Next I

'Вывод вычисленных значений на экран

LblL5.Visible = True

LblL6.Visible = True

LblL7.Visible = True

LblL15.Visible = True

LblL5.Caption = Format(Xnor(0), "#0.0000")

LblL6.Caption = Format(Xnor(1), "#0.0000")

LblL7.Caption = Format(Xnor(2), "#0.0000")

End If

End Sub

Private Sub mnuFSave_Click()

'Запрос на сохранение расчёта

g = MsgBox("Вы действительно хотите сохранить результат? Внимание сохранение уничтожит предыдущие данные в файле!", vbQuestion + vbYesNo + vbDefaultButton1, "Сохранение")

If g = vbYes Then

'Сохранение расчёта

Open "C:\Raschet.dat" For Output As 1

Write #1, X(0), X(1), X(2), Y

Close #1

End If

End Sub      

3.  Коды формы 3:

Option Explicit

Private Sub CmdC1_Click()

'Переход ко второй форме

FrmF3.Hide

FrmF2.Show

End Sub

4.  Коды формы 4:

Option Explicit

Private Sub CmdC1_Click()

'Переход ко второй форме

FrmF4.Hide

FrmF2.Show

End Sub

5.  Коды формы 5:

Option Explicit

Private Sub CmdC1_Click()

'Объявление переменных

Dim z As Double

Dim X As Double

Dim Y As Double

X = TxtT1.Text

Y = TxtT2.Text

'Выбор действия

If OptO1.Value = True Then

z = X + Y

ElseIf OptO2.Value = True Then

z = X - Y

ElseIf OptO3.Value = True Then

z = X * Y

ElseIf OptO4.Value = True And Y <> 0 Then

z = X / Y

ElseIf OptO4.Value = True And Y = 0 Then

MsgBox "На ноль делить нельзя!", vbCritical, "Нельзя"

End If

'Вывод полученного значения в формате двух чисел после запятой

LblL4.Caption = Format(z, "#0.00")

End Sub

Private Sub CmdC2_Click()

'Возврат к окну расчет

FrmF5.Hide

FrmF2.Show

End Sub

Заключение

В результате выполненной  работы, получилась  программа, позволяющая проводить расчет выхода целлюлозы при заданных параметрах. Разработанное приложение имеет понятный и удобный интерфейс. Позволяет осуществлять ввод исходных данных с проверкой существующих ограничений. При нарушении регламента, приложение выдаёт сообщение с указанием ошибки. Данное приложение может быть использовано в производственных лабораториях.