Выбор значения скорости резания по входным данным. Разработка программы VBA, верно определяющей значение подачи по заданным параметрам, страница 4

Call Tab1(Tfr, Mat, t, s, Dkb)

End Sub

Private Sub CommandButton2_Click()

Tfr = 0

Mat = 0

t = 0

s = 0

Dkb = 0

Label1.BackColor = &HFF&

Label2.BackColor = &HFF&

Label3.BackColor = &HFF&

Label4.BackColor = &HFF&

Label5.BackColor = &HFF&

OptionButton3.Enabled = True

OptionButton8.Enabled = True

OptionButton9.Enabled = True

OptionButton11.Enabled = True

OptionButton12.Enabled = True

OptionButton1.Value = False

OptionButton2.Value = False

OptionButton3.Value = False

OptionButton4.Value = False

OptionButton5.Value = False

OptionButton6.Value = False

OptionButton7.Value = False

OptionButton8.Value = False

OptionButton9.Value = False

OptionButton10.Value = False

OptionButton11.Value = False

OptionButton12.Value = False

OptionButton13.Value = False

OptionButton14.Value = False

OptionButton15.Value = False

OptionButton16.Value = False

OptionButton17.Value = False

OptionButton18.Value = False

OptionButton19.Value = False

TextBox1.Text = " "

End Sub

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then

Label1.BackColor = &HFF00&

Tfr = 1

OptionButton4.Value = True

OptionButton3.Enabled = False

OptionButton8.Enabled = True

OptionButton9.Enabled = True

OptionButton11.Enabled = False

OptionButton12.Enabled = False

End If

End Sub

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then

Label1.BackColor = &HFF00&

Tfr = 2

OptionButton3.Enabled = True

OptionButton9.Enabled = False

OptionButton8.Enabled = False

OptionButton11.Enabled = True

OptionButton12.Enabled = True

End If

End Sub

Private Sub OptionButton3_Click()

If OptionButton3.Value = True Then

Mat = 1

Label2.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton4_Click()

If OptionButton4.Value = True Then

Mat = 2

Label2.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton5_Click()

If OptionButton5.Value = True Then

t = 1

Label3.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton6_Click()

If OptionButton6.Value = True Then

t = 3

Label3.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton7_Click()

If OptionButton7.Value = True Then

t = 6

Label3.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton8_Click()

If OptionButton8.Value = True Then

Dkb = 1.25

Label4.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton9_Click()

If OptionButton9.Value = True Then

Dkb = 2

Label4.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton10_Click()

If OptionButton10.Value = True Then

Dkb = 5

Label4.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton11_Click()

If OptionButton11.Value = True Then

Dkb = 3

Label4.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton12_Click()

If OptionButton12.Value = True Then

Dkb = 10

Label4.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton13_Click()

If OptionButton13.Value = True Then

s = 0.06

Label5.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton14_Click()

If OptionButton14.Value = True Then

s = 0.1

Label5.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton15_Click()

If OptionButton15.Value = True Then

s = 0.15

Label5.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton16_Click()

If OptionButton16.Value = True Then

s = 0.2

Label5.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton17_Click()

If OptionButton17.Value = True Then

s = 0.3

Label5.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton18_Click()

If OptionButton18.Value = True Then

s = 0.4

Label5.BackColor = &HFF00&

End If

End Sub

Private Sub OptionButton19_Click()

If OptionButton19.Value = True Then

s = 0.5

Label5.BackColor = &HFF00&

End If

End Sub

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