Нарезание шлицев на шлице и зубофрезерных станках методом обкатки червячной фрезой. Формализация задачи, страница 5

Exit Sub

Case Else

TextBox7.Value = "Çíà÷åíèå ââåäåíî ïðàâèëüíî"

End Select

End If

If (mat = 2) And (obr = 3) Then

Select Case d

Case Is < 0.03

TextBox7.Value = "Äîïóñê íà òîëøèíó øëèöåâ íå ìîæåò áûòü <0.03"

Exit Sub

Case Is = 0

TextBox7.Value = "Äîïóñê íà òîëøèíó øëèöåâ íå ìîæåò áûòü ðàâíà íóëþ!"

Exit Sub

Case Is > 0.06

TextBox7.Value = "Äîïóñê íà òîëøèíó øëèöåâ âûøå ïðåäåëüíîé (0.06)!"

Exit Sub

Case Is = ""

TextBox7.Value = "Ïóñòàÿ ñòðîêà"

Exit Sub

Case Else

TextBox7.Value = "Çíà÷åíèå ââåäåíî ïðàâèëüíî"

End Select

End If

If (mat = 1) And (obr = 2) Then

Select Case d

Case Is < 0.03

TextBox7.Value = "Äîïóñê íà òîëøèíó øëèöåâ íå ìîæåò áûòü <0.03"

Exit Sub

Case Is = 0

TextBox7.Value = "Äîïóñê íà òîëøèíó øëèöåâ íå ìîæåò áûòü ðàâíà íóëþ!"

Exit Sub

Case Is > 0.06

TextBox7.Value = "Äîïóñê íà òîëøèíó øëèöåâ âûøå ïðåäåëüíîé (0.06)!"

Exit Sub

Case Is = ""

TextBox7.Value = "Ïóñòàÿ ñòðîêà"

Exit Sub

Case Else

TextBox7.Value = "Çíà÷åíèå ââåäåíî ïðàâèëüíî"

End Select

End If

End Sub

Private Sub TextBox2_Change()

If IsNumeric(TextBox2.Value) = False Then

TextBox7.Value = "Äîëæíî áûòü ÷èñëî!!!"

Exit Sub

End If

If TextBox2.Value <> " " Then

h = CDbl(TextBox2.Value)

Else

h = ""

End If

Select Case h

Case Is < 2

TextBox7.Value = "Âûñîòà øëèöåâ íå ìîæåò áûòü <2"

Exit Sub

Case Is = 0

TextBox7.Value = "Âûñîòà øëèöåâ íå ìîæåò áûòü ðàâåí íóëþ!"

Exit Sub

Case Is > 6

TextBox7.Value = "Âûñîòà øëèöåâ âûøå ïðåäåëüíîãî (6)!"

Exit Sub

Case Is = ""

TextBox7.Value = "Ïóñòàÿ ñòðîêà"

Exit Sub

Case Else

TextBox7.Value = "Çíà÷åíèå ââåäåíî ïðàâèëüíî"

End Select

End Sub

Private Sub TextBox3_Change()

If IsNumeric(TextBox3.Value) = False Then

TextBox7.Value = "Äîëæíî áûòü ÷èñëî!!!"

Exit Sub

End If

If TextBox3.Value <> " " Then

c = CDbl(TextBox3.Value)

Else

c = ""

End If

Select Case c

Case Is < 6

TextBox7.Value = "×èñëî øëèöåâ íå ìîæåò áûòü <6"

Exit Sub

Case Is = 0

TextBox7.Value = "×èñëî øëèöåâ íå ìîæåò áûòü ðàâåí íóëþ!"

Exit Sub

Case Is > 16

TextBox7.Value = "×èñëî øëèöåâ âûøå ïðåäåëüíîãî (16)!"

Exit Sub

Case Is = ""

TextBox7.Value = "Ïóñòàÿ ñòðîêà"

Exit Sub

Case Else

TextBox7.Value = "Çíà÷åíèå ââåäåíî ïðàâèëüíî"

End Select

End Sub

Private Sub OptionButton1_Click()

mat = 1

If (mat = 1) And (obr = 3) Then

TextBox7.Value = "Ïðèìå÷àíèå: äëÿ äàííîãî ìàòåðèàëà, è âèäà îáðàáîòêè çíà÷åíèé â òàáëèöå íåò."

obr = 2

End If

End Sub

Private Sub OptionButton2_Click()

mat = 2

End Sub

Private Sub OptionButton3_Click()

obr = 1

End Sub

Private Sub OptionButton4_Click()

obr = 2

End Sub

Private Sub OptionButton5_Click()

obr = 3

End Sub

Private Sub OptionButton6_Click()

tm = 0.8

End Sub

Private Sub OptionButton7_Click()

tm = 0.9

End Sub

Private Sub OptionButton8_Click()

tm = 1

End Sub

Private Sub OptionButton9_Click()

tm = 1.2

End Sub

Private Sub UserForm_Activate()

swt = True

TextBox1.Value = d

TextBox2.Value = h

TextBox3.Value = c

OptionButton1.Value = 1

OptionButton3.Value = 1

OptionButton6.Value = 1

CheckBox1.Value = True

TextBox7.Value = "Àêòèâèðîâàíà ïðîâåðêà ââîäà ñêîðîñòè."

End Sub

Додаток 3. Вікно для роботи з програмою.

Міністерство освіти і науки України

НАЦІОНАЛЬНИЙ ТЕХНІЧНИЙ УНІВЕРСИТЕТ

«ХАРКІВСЬКИЙ ПОЛІТЕХНІЧНИЙ ІНСТИТУТ»

Кафедра «Технологія машинобудування та металорізальні верстати»

Спеціальність 7.09.0203 «Металорізальні верстати та системи»

КУРСОВА РОБОТА    

Тема проекту:

Розробка програми за допомогою VBA, що функціонує, як макрос для Microsoft Office Excel, що повинна забезпечувати діалог з користувачем за рахунок багато віконного інтерфейсу та формування результатів роботи у вигляді таблиці Excel.

Виконав:

Студент гр. МШ-50

Керівник проекту:

В.В

м. Харків, 2011