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

TextBox7.Value = "Ïîâòîðèòå ââîä"

Exit Sub

End If

If IsNumeric(obr) Then

TextBox7.Value = TextBox7.Value & "Êîä îáðàáîòêè= " & obr

Else

TextBox7.Value = "Ïîâòîðèòå ââîä"

Exit Sub

End If

If IsNumeric(tm) Then

TextBox7.Value = TextBox7.Value & "Êîä ñòîéêîñòè Tm= " & tm

Else

TextBox7.Value = "Ïîâòîðèòå ââîä"

Exit Sub

End If

If IsNumeric(d) Then

TextBox7.Value = TextBox7.Value & "Äîïóñê íà òîëøèíó øëèöåâ= " & d

Select Case d

Case Is < 0.03

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

Exit Sub

Case Is = 0

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

Exit Sub

Case Is > 0.15

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

Exit Sub

Case Is = ""

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

Exit Sub

Case Else

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

End Select

End If

If IsNumeric(h) Then

TextBox7.Value = TextBox7.Value & "Âûñîòà øëèöåâ= " & h

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

End Select

Else

TextBox7.Value = "Ïîâòîðèòå ââîä"

Exit Sub

End If

If IsNumeric(c) Then

TextBox7.Value = TextBox7.Value & "×èñëî øëèöåâ= " & c

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

End Select

Else

TextBox7.Value = "Ïîâòîðèòå ââîä"

Exit Sub

End If

End If

TextBox7.Value = TextBox7.Value & "Âûçîâ ïðîãðàììû âûáîðà."

Call Find(mat, obr, d, h, c)

TextBox7.Value = TextBox7.Value & "Âûáîð çàêîí÷åí. Ðåçóëüòàò çàíåñåí â ñîîòâåòñòâóþùèå ïîëÿ"

vt = CDbl(TextBox5.Value)

v = tm * vt

TextBox6.Value = v

End Sub

Private Sub CommandButton2_Click()

Unload UserForm1

End Sub

Private Sub TextBox1_Change()

If IsNumeric(TextBox1.Value) = False Then

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

Exit Sub

End If

If TextBox1.Value <> " " Then

d = CDbl(TextBox1.Value)

Else

d = ""

End If

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

Select Case d

Case Is < 0.1

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

Exit Sub

Case Is = 0

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

Exit Sub

Case Is > 0.15

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

Exit Sub

Case Is = ""

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

Exit Sub

Case Else

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

End Select

End If

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

Select Case d

Case Is < 0.1

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

Exit Sub

Case Is = 0

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

Exit Sub

Case Is > 0.15

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

Exit Sub

Case Is = ""

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

Exit Sub

Case Else

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

End Select

End If

If (mat = 2) 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 = "Ïóñòàÿ ñòðîêà"