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

LblL3.Caption = "Министерство образования Российской Федерации" & Chr(10) & "Санкт-Петербургский Государственный Технологический" & Chr(10) & "Университет Растительных Полимеров"

LblL5 = "Проверила:" & Chr(10) & "Бондаренкова И.В."

LblL4 = "Выполнил:" & Chr(10) & "Студентка гр.530" & Chr(10) & "Рогова М.Л."

End Sub

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

Option Explicit

' Объявление массивов

Dim X(2) As Variant

Dim Xmin(2) As Double

Dim Xmax(2) As Double

Dim Xsr(2) As Double

Dim Xnor(2) As Double

Dim delX(2) As Double

Dim txt(2) As String

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

Dim Y As Double

Dim I As Byte

Dim b As String

Dim g As String

'Объявлние констант

Const B0 = 53.21

Const B1 = -0.52

Const B2 = -2.33

Const B3 = -0.99

Const B12 = -0.95

Const B13 = -1.21

Const B23 = 1.11

Const B123 = -0.3

Private Sub mnuFAbM_Click()

'Открыть форму с информацией о создателе программы

FrmF2.Hide

FrmF3.Show

End Sub

Private Sub mnuFAbP_Click()

'Открыть сообщение содержащее в себе информацию о программе

FrmF2.Hide

FrmF4.Show

End Sub

Private Sub mnuFBack_Click()

'Открыть первую форму

FrmF2.Hide

FrmF1.Show

End Sub

Private Sub mnuFCalcul_Click()

'Открытие программы калькулятор

FrmF2.Hide

FrmF5.Show

End Sub

Private Sub mnuFCalculator_Click()

'Расчёт  по заданной мат. модели

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

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

ElseIf LblL5.Visible = True And LblL6.Visible = True And LblL7.Visible = True And LblL15.Visible = True Then

Y = B0 + B1 * Xnor(0) + B2 * Xnor(1) + B3 * Xnor(2) + B12 * Xnor(0) * Xnor(1) + B13 * Xnor(0) * Xnor(2) + B23 * Xnor(1) * Xnor(2) + B123 * Xnor(0) * Xnor(1) * Xnor(2)

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

LblL13.Visible = True

LblL4.Visible = True

LblL8.Visible = True

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

mnuFSave.Enabled = True

Else

MsgBox "Пожалуйста, пронормируйте значения!", vbExclamation, "Внимание"

End If

End Sub

Private Sub mnuFDelete_Click()

'Очистка формы от всех данных

LblL1.Visible = False

LblL2.Visible = False

LblL3.Visible = False

LblL4.Visible = False

LblL5.Visible = False

LblL6.Visible = False

LblL7.Visible = False

LblL8.Visible = False

FraF1.Visible = False

LblL9.Visible = False

LblL10.Visible = False

LblL11.Visible = False

LblL12.Visible = False

LblL13.Visible = False

LblL14.Visible = False

LblL15.Visible = False

End Sub

Private Sub mnuFExit_Click()

'Запрос подтверждения выхода из программы

b = MsgBox("Вы действительно хотите выйти?", vbQuestion + vbYesNo + vbDefaultButton2, "Выход")

If b = vbYes Then

End

End If

End Sub

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

'Всплывающее меню на 2-ю кнопку мыши, которое почему-то не всплывает

If Button = 2 Then

PopupMenu pMenu

End If

End Sub

Private Sub mnuFInput_Click()

LblL5.Visible = False

'Ввод данных в заданных интервалах

Xmin(0) = 1

Xmin(1) = 3.5

Xmin(2) = 170#

Xmax(0) = 2

Xmax(1) = 4.5

Xmax(2) = 190#

txt(0) = "Введите количество ступеней варки, 1 или 2"

txt(1) = "Введите время варки,час , в пределе от 3,5 до 4,5"

txt(2) = "Введите температуру варки, °С, в пределе от 170,0 до 190,0"

For I = 0 To 2

Do