Курсовая работа: Синтез и анализ рычажного механизма

Знак плюс показывает, что водило вращается в одном направлении с валом

2. Определение частот вращения графическим методом.

Масштабный коэффициент плана частот вращения

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

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

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) h=2.25*m

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)