Курсовая работа: Механизм поперечно-долбежного станка

Частоты вращения, полученные графическим способом.

Определение погрешностей

Private Sub CommandButtonl_Click()

Dim zl, z2, m, ha, C, z5, z6, xl, x2, aw, a, h, hal, ha2, hfl, hf2, dl, d2, dal, da2, dBl, dB2, dfl, df2, SI, S2, P, PB, rf, q As Double zl=CDbl(TextBoxl. Value)

z2 = CDbl(TextBox2.Value)

m = CDbl(TextBox3 .Value)

ha = CDbl(TextBox4.Value)

c = CDbl(TextBox5. Value)

q = CDbl(TextBox6.Value)

ListBoxl. Clear

ListBoxl.Addltem ("Начало отсчета")

ListBoxl.Addltem ("zl=" & zl)

ListBoxl .Addltem ("z2=" & z2)

ListBoxl.Addltem ("m=" & m)

ListBoxl.Addltem ("ha*=" & ha)

ListBoxl.Addltem ("C*=" & C)

q = (q* 3.14)/180

ListBoxl.Addltem ("угол-' & q)

xl=(17-zl)/17

ListBoxl.Addltem ("xl=" & xl)

x2 = -xl

ListBoxl.Addltem ("x2=" & x2)

a = m*(zl +z2)/2

ListBoxl .Addltem ("a=" & a)

aw=a

ListBoxl .Addltem ("aw=" & aw)