Определение гладкости бумаги по математической модели, страница 2

Примечание. Для записи/чтения информации из файла необходимо подготовить «носитель» (дискету).

7.  Для выполнения несложных арифметических действий можно воспользоваться калькулятором. Для этого в меню Инструменты выберите вкладку Калькулятор.

8.   Если вам интересно узнать, сколько вам не только лет, но и  месяцев, кварталов, секунд и прочих интервалов времени, то в меню Инструменты выберите вкладку День Рождения.

9.  В меню Помощь вы получите дополнительную информацию о программе, если выберите вкладку О программе.

10.Для получения сведений о разработчике в меню Помощьвыберите вкладку Обо мне.

5. Вид форм и коды к ним

Окно «Титульный лист»:

Коды:

Option Explicit

Dim Dlg As String

Private Sub cmdc1_Click()

Dlg = MsgBox("Вы хотите выйти?", vbYesNo + vbQuestion + vbDefaultButton2, "Выход")

If Dlg = vbYes Then End

End Sub

Private Sub cmdc2_Click()

Titulnik.Hide

Raschet.Show

End Sub

Окно «Расчет»

Option Explicit

Option Base 1

'Объявление всех переменных и констант

Dim Dlg As String

Dim G As Single

Dim I As Byte

Dim Ymin(3) As Single

Dim Ymax(3) As Single

Dim x(4) As Single

Dim y(3) As Single

Dim Z(3) As String

'Коэфиценты модели

Const A0 = 3.56

Const A1 = -0.51

Const A2 = 0.35

Const C0 = 0.08

Const C1 = -0.31

Const D0 = 3.55

Const D1 = 12.39

Const D2 = -0.21

Const E0 = 9.59

Const E1 = 0.59

Const E2 = -0.25

Const E3 = -0.09

Const B0 = 26.31

Const B1 = 2.48

Const B2 = 40.51

Const B3 = -5.45

Const B4 = -10.12

Private Sub cmdc1_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

LblL9.Visible = False

LblL10.Visible = False

LblL11.Visible = False

LblL12.Visible = False

LblL13.Visible = False

LblL14.Visible = False

LblL15.Visible = False

LblL16.Visible = False

LblL17.Visible = False

LblL18.Visible = False

LblL19.Visible = False

LblL20.Visible = False

LblL21.Visible = False

LblL22.Visible = False

LblL23.Visible = False

LblL24.Visible = False

LblL17.Caption = ""

LblL18.Caption = ""

LblL19.Caption = ""

LblL20.Caption = ""

LblL21.Caption = ""

LblL22.Caption = ""

LblL23.Caption = ""

LblL24.Caption = ""

LblL9.Caption = ""

LblL10.Caption = ""

LblL11.Caption = ""

LblL12.Caption = ""

LblL13.Caption = ""

LblL14.Caption = ""

LblL15.Caption = ""

LblL16.Caption = ""

CmdC1.Visible = False

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

'Всплывающее меню на 2 кнопку мыши

If Button = 2 Then

PopupMenu Mnupopup

End If

End Sub

Private Sub Mnuauthor_Click()

'Обо мне

MsgBox "Широкин Андрей Сергеевич, студент 531 гр. ФАСУТП", vbInformation, "Обо мне"

End Sub

Private Sub Mnuback_Click()

'Выход на титульник

Raschet.Hide

Titulnik.Show

End Sub

Private Sub Mnucalc_Click()

'Переход к Калькулятору

Kalkulator.Show

Raschet.Hide

End Sub

Private Sub Mnudate_Click()

'Переход ко Дню рождения

Date.Show

Raschet.Hide

End Sub

Private Sub Mnudel_Click()

'Удаление файла

Dlg = MsgBox("Вы хотите удалить файл?", vbQuestion + vbYesNo + vbDefaultButton2, "Удаление?")

If Dlg = vbYes Then Kill "D:\Gladkost.txt"

End Sub

Private Sub Mnuexit_Click()

'Выход из программы

Dlg = MsgBox("Вы хотите выйти?", vbYesNo + vbQuestion + vbDefaultButton2, "Выход")

If Dlg = vbYes Then End

End Sub

Private Sub Mnuexitp_Click()

'Выход из программы

Dlg = MsgBox("Вы хотите выйти?", vbYesNo + vbQuestion + vbDefaultButton2, "Выход")

If Dlg = vbYes Then End

End Sub

Private Sub Mnuinput_Click()

'Ввод данных

Ymin(1) = 1.5

Ymin(2) = 18

Ymin(3) = 4

Ymax(1) = 4.5

Ymax(2) = 50

Ymax(3) = 9

Z(1) = "Введите значение концентрации бумажной массы в пределах от 1,5 до 4,5, %"

Z(2) = "Введите значение степени помола бумажной массы в пределах от 18 до 50, град ШР"

Z(3) = "Введите значение pH бумажной массы в пределах от 4 до 9, ед. pH"

For I = 1 To 3

Do

y(I) = Val(InputBox(Z(I), "Ввод данных"))

Select Case y(I)

Case Ymin(I) To Ymax(I)