Движение резания при сверлении. Выбор значения подачи инструмента по входным данным. Перевод выходного параметра в переменную

Value = " примечание:Значения для D=40 и обработки круглым резцом в таблице нет. Повторите ввод "

End If

End Sub

Private Sub OptionButton9_Click()

d = 80

If (obr = 5) <> (obr = 6) <> (obr = 7) And (d = 80) Then

TextBox2.Value = " примечание: D=80 только для черновой, получистовой, чистовой и обработки круглым резцом.Повторите ввод "

End If

End Sub

Private Sub OptionButton10_Click()

d = 120

If (obr = 5) <> (obr = 6) <> (obr = 7) And (d = 120) Then

TextBox2.Value = " примечание: D=120 только для черновой, получистовой, чистовой и обработки круглым резцом.Повторите ввод "

End If

End Sub

Private Sub OptionButton11_Click()

d = 180

If (obr = 5) <> (obr = 6) <> (obr = 7) And (d = 180) Then

TextBox2.Value = " примечание: D=180 только для черновой, получистовой, чистовой и обработки круглым резцом.Повторите ввод "

End If

End Sub

Private Sub OptionButton12_Click()

d = 250

If (obr = 5) <> (obr = 6) <> (obr = 7) And (d = 250) Then

TextBox2.Value = " примечание: D=250 только для черновой, получистовой, чистовой и обработки круглым резцом.Повторите ввод "

End If

End Sub

Private Sub OptionButton13_Click()

d = 2.5

If (obr = 1) <> (obr = 2) <> (obr = 3) And (d = 2.5) Then

TextBox2.Value = " примечание: D=2.5 только для сверления, зенкования, развертывания.Повторите ввод "

End If

If (obr = 6) <> (obr = 7) And (d = 2.5) Then

TextBox2.Value = " примечание: для D=2.5 и зенкерования, развертывания значений в таблице нет. Повторите ввод "

End If

End Sub

Private Sub OptionButton14_Click()

d = 4

If (obr = 1) <> (obr = 2) <> (obr = 3) And (d = 4) Then

TextBox2.Value = " примечание: D=4  только для сверления, зенкования, развертывания.Повторите ввод "

End If

If (obr = 6) <> (obr = 7) And (d = 4) Then

TextBox2.Value = " примечание: Для D=4 и зенкерования, развертывания значений в таблице нет. Повторите ввод "

End If

End Sub

Private Sub OptionButton15_Click()

d = 6

If (obr = 1) <> (obr = 2) <> (obr = 3) And (d = 6) Then

TextBox2.Value = " примечание: D=6 только для сверления, зенкования, развертывания.Повторите ввод "

End If

If (obr = 6) <> (obr = 7) And (d = 6) Then

TextBox2.Value = " примечание: Äëÿ D=6 и зенкерования, развертывания значений в таблице нет. Повторите ввод "

End If

End Sub

Private Sub OptionButton16_Click()

d = 8

If (obr = 1) <> (obr = 2) <> (obr = 3) And (d = 8) Then

TextBox2.Value = " примечание: D=8 только для сверления, зенкования, развертывания.Повторите ввод "

End If

If (obr = 6) And (d = 8) Then

TextBox2.Value = " примечание: Для D=8 и зенкерования, развертывания значений в таблице нет. Повторите ввод "

End If

End Sub

Private Sub OptionButton17_Click()

d = 10

If (obr = 1) <> (obr = 2) <> (obr = 3) And (d = 10) Then

TextBox2.Value = " примечание: D=8 и зенкерования, развертывания значений в таблице нет. Повторите ввод "

End If

If (obr = 6) And (d = 10) Then

TextBox2.Value = " примечание: Для D=10 и зенкерования, развертывания значений в таблице нет. Повторите ввод "

End If

End Sub

Private Sub OptionButton18_Click()

d = 12

If (obr = 1) <> (obr = 2) <> (obr = 3) And (d = 12) Then

TextBox2.Value = " примечание: D=12 только для сверления, зенкования, развертывания.Повторите ввод "

End If

End Sub

Private Sub OptionButton19_Click()

d = 16

If (obr = 1) <> (obr = 2) <> (obr = 3) And (d = 16) Then

TextBox2.Value = " примечание: D=16 только для сверления, зенкования, развертывания.Повторите ввод "

End If

End Sub

Private Sub OptionButton20_Click()

d = 20

If (obr = 1) <> (obr = 2) <> (obr = 3) And (d = 20) Then

TextBox2.Value = " примечание: D=20 только для сверления, зенкования, развертывания.Повторите ввод "

End If

End Sub

Private Sub OptionButton21_Click()

d = 25

If (obr = 1) <> (obr = 2) <> (obr = 3) And (d = 25) Then

TextBox2.Value = " примечание: D=12 только для сверления, зенкования, развертывания.Повторите ввод "

End If

End Sub

Private Sub OptionButton22_Click()

d = 32

If (obr = 1) <> (obr = 2) <> (obr = 3) And (d = 32) Then

TextBox2.Value = " примечание: D=32 только для сверления, зенкования, развертывания.Повторите ввод "

End If

End Sub

Private Sub OptionButton23_Click()

d = 40

If (obr = 1) <> (obr = 2) <> (obr = 3) And (d = 40) Then

TextBox2.Value = " примечание: D=40 только для сверления, зенкования, развертывания.Повторите ввод "

End If

If (obr = 5) And (d = 40) Then

TextBox2.Value = " примечание: для D=40 и зенкерования, развертывания значений в таблице нет. Повторите ввод "

End If

End Sub

Private Sub OptionButton24_Click()

d = 60

If (obr = 1) <> (obr = 2) <> (obr = 3) And (d = 60) Then

TextBox2.Value = " примечание: D=60 только для сверления, зенкования, развертывания.Повторите ввод "

End If

If (obr = 5) And (d = 60) Then

TextBox2.Value = " примечание: для D=60 и зенкерования, развертывания значений в таблице нет. Повторите ввод "

End If

End Sub

Private Sub OptionButton25_Click()

d = 80

If (obr = 1) <> (obr = 2) <> (obr = 3) And (d = 80) Then

TextBox2.Value = " примечание: D=80 только для сверления, зенкования, развертывания.Повторите ввод "

End If

If (obr = 5) And (d = 80) Then

TextBox2.Value = " примечание:для  D=80 и зенкерования, развертывания значений в таблице нет. Повторите ввод "

End If

End Sub

Private Sub OptionButton26_Click()

d = 100

If (obr = 1) <> (obr = 2) <> (obr = 3) And (d = 100) Then

TextBox2.Value = " примечание: D=только для сверления, зенкования, развертывания.Повторите ввод "

End If

If (obr = 5) And (d = 100) Then

TextBox2.Value = " примечание: для D=100 и зенкерования, развертывания значений в таблице нет. Повторите ввод "

End If

End Sub

Private Sub OptionButton27_Click()

gr = 1

If (obr = 1) <> (obr = 2) <> (obr = 3) <> (obr = 4) And (gr = 1) Then

TextBox2.Value = " примечание: только для сверления, зенкования, развертывания.Повторите ввод "

gr = 1

End If

End Sub

Private Sub OptionButton28_Click()

gr = 2

If (obr = 1) <> (obr = 2) <> (obr = 3) <> (obr = 4) And (gr = 2) Then

TextBox2.Value = "примечание: для черновой, получистовой, чистовой и обработки круглым резцом подачу выбираь не надо"

gr = 1

End If

End Sub

Private Sub OptionButton29_Click()

gr = 3

If (obr = 1) <> (obr = 2) <> (obr = 3) <> (obr = 4) And (gr = 1) Then

TextBox2.Value = " примечание: для черновой, получистовой, чистовой и обработки круглым резцом подачу выбираь не надо "

gr = 1

End If

If (obr = 7) And (gr = 3) Then

TextBox2.Value = " примечание: для черновой, получистовой, чистовой и обработки