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

ListBoxl .Addltem ("h=" & h)

ha1=m*(ha+x1)

ListBoxl .Addltem ("ha1=" &ha1)

ha2=m*(ha+x2)

ListBoxl .Addltem ("ha2=" &ha2)

hf1=m*(ha+c-x1)

ListBoxl .Addltem ("hf1=" &hf1)

hf2=m*(ha+c-x2)

ListBoxl .Addltem ("hf2=" &hf2)

d1=m*z1

ListBoxl .Addltem ("d1=" &d1)

d2=m*z2

ListBoxl .Addltem ("d2=" &d2)

dw1=d1

ListBoxl .Addltem ("dw1=" &dw1)

dw2 = d2

ListBoxl.Addltem ("dw2=" & dw2)

dal =dl +2*hal

ListBoxl.Addltem ("dal=" & dal)

da2 - d2 + 2 * ha2

ListBoxLAddltem ("da2=" & da2)

dfl = dl - 2 * hfl

ListBoxLAddltem ("dfl=" & dfl)

df2 = d2-2*hf2

ListBoxLAddltem ("hf2=" & h£2) dBl=dl*Cos(q)

ListBoxLAddltem ("dBl=" & dBl)

dB2 = d2 * Cos(q)

ListBoxLAddltem ("dB2=" & dB2) Sl=0.5*3.14*m + 2*xl * m * Tan(q) ListBdxl.AddItem("Sl="&Sl)

S2 = 0.5 * 3.14 *m + 2*x2*m* Tan(q) ListBoxLAddltem ("S2=" & S2)