机械原理课程设计报告书

来源：用户分享时间：2025/5/24 16:43:34 本文由

loading 分享下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

Dim h, e As Integer

Dim dt6, dt7, dt8, dt9, dt10, dt11, x1, y1, x2, y2, r As Single Dim x3, y3, x4, y4, rg Const pi = 3.1415926

h = Form2.Text3 e = Form2.Text2 k1 = Form2.Text5 r0 = Form2.Text1 rg = Form2.Text4

n = 10000 dt11 = 0

dt1 = pi / 3 dt2 = pi / 3 dt3 = pi / 2 / n dt4 = 0

dt6 = pi / 18

Form2.Picture3.Line (-70, 0)-(70, 0) Form2.Picture3.Line (0, 70)-(0, -70) Form2.Picture1.Line (0, 0)-(7, 0) Form2.Picture1.Line (0, 20)-(0, 0) Form2.Picture2.Line (0, 0)-(20, 0) Form2.Picture2.Line (0, 390)-(0, -390)

Form2.Picture3.Circle (0, 0), r0, RGB(255, 0, 0) s0 = Sqr((r0 * r0) - e ^ 2)

s1 = h * ((dt4 / dt1) - Sin(2 * pi * dt4 / dt1) / (2 * pi)) v1 = h * k1 * (1 - Cos(2 * pi * dt4 / dt1)) / dt1 x1 = (s0 + s1) * Sin(dt4) + e * Cos(dt4) y1 = (s0 + s1) * Cos(dt4) - e * Sin(dt4)

x3 = (s0 + s1 - rg) * Sin(dt4) + e * Cos(dt4) y3 = (s0 + s1 - rg) * Cos(dt4) - e * Sin(dt4) While dt4 < dt1 dt5 = dt4 + dt3

s2 = h * ((dt5 / dt1) - Sin(2 * pi * dt5 / dt1) / (2 * pi)) v2 = h * k1 * (1 - Cos(2 * pi * dt5 / dt1)) / dt1 x2 = (s0 + s2) * Sin(dt5) + e * Cos(dt5) y2 = (s0 + s2) * Cos(dt5) - e * Sin(dt5)

x4 = (s0 + s2 - rg) * Sin(dt5) + e * Cos(dt5) y4 = (s0 + s2 - rg) * Cos(dt5) - e * Sin(dt5) Form2.Picture1.Line (dt4, s1)-(dt5, s2) Form2.Picture2.Line (dt4, v1)-(dt5, v2) Form2.Picture3.Line (x1, y1)-(x2, y2) DrawWidth = 20

Form2.Picture3.Line (x3, y3)-(x4, y4), RGB(0, 0, 255) dt4 = dt5 s1 = s2 v1 = v2 x1 = x2 y1 = y2 x3 = x4 y3 = y4 Wend dt11 = dt4

While dt11 >= dt1 And dt11 < dt1 + dt6 dt11 = dt11 + dt3

x2 = (s0 + s2) * Sin(dt11) + e * Cos(dt11) y2 = (s0 + s2) * Cos(dt11) - e * Sin(dt11)

x4 = (s0 + s2 - rg) * Sin(dt11) + e * Cos(dt11) y4 = (s0 + s2 - rg) * Cos(dt11) - e * Sin(dt11) DrawWidth = 1

Form2.Picture3.Line (x1, y1)-(x2, y2) DrawWidth = 20

Form2.Picture3.Line (x3, y3)-(x4, y4), RGB(0, 0, 255) x1 = x2 y1 = y2 x3 = x4 y3 = y4 Wend

dt4 = dt4 + dt6

Form2.Picture1.Line (dt1, s1)-(dt4, s1) Form2.Picture2.Line (dt1, v1)-(dt4, v1)

While dt4 >= dt1 + dt6 And dt4 < dt1 + dt6 + dt2 dt8 = dt4 - dt1 - dt6

s2 = h * (1 - (dt8 / dt2) + Sin(2 * pi * dt8 / dt2) / (2 * pi)) v2 = h * k1 * (Cos(2 * pi * dt8 / dt2) - 1) / dt2 x2 = (s0 + s2) * Sin(dt4) + e * Cos(dt4) y2 = (s0 + s2) * Cos(dt4) - e * Sin(dt4)

x4 = (s0 + s2 - rg) * Sin(dt4) + e * Cos(dt4) y4 = (s0 + s2 - rg) * Cos(dt4) - e * Sin(dt4) dt5 = dt4 + dt3 DrawWidth = 1

Form2.Picture1.Line (dt4, s1)-(dt5, s2) Form2.Picture2.Line (dt4, v1)-(dt5, v2) Form2.Picture3.Line (x1, y1)-(x2, y2) DrawWidth = 20

Form2.Picture3.Line (x3, y3)-(x4, y4), RGB(0, 0, 255) dt4 = dt5 x1 = x2

y1 = y2 x3 = x4 y3 = y4 s1 = s2 v1 = v2 Wend dt9 = dt4

While dt9 >= dt1 + dt6 + dt2 And dt9 <= 2 * pi dt9 = dt9 + dt3

x2 = (s0 + s2) * Sin(dt9) + e * Cos(dt9) y2 = (s0 + s2) * Cos(dt9) - e * Sin(dt9)

x4 = (s0 + s2 - rg) * Sin(dt9) + e * Cos(dt9) y4 = (s0 + s2 - rg) * Cos(dt9) - e * Sin(dt9) DrawWidth = 1

Form2.Picture3.Line (x1, y1)-(x2, y2) DrawWidth = 20

Form2.Picture3.Line (x3, y3)-(x4, y4), RGB(0, 0, 255) x1 = x2 y1 = y2 x3 = x4 y3 = y4 Wend

DrawWidth = 1

Form2.Picture1.Line (dt1 + dt6 + dt2, s1)-(2 * pi, s1) Form2.Picture2.Line (dt1 + dt6 + dt2, v1)-(2 * pi, v1) End Sub

———————————————————————————————————————

Private Sub Command2_Click() Form2.Picture1.Cls Form2.Picture2.Cls Form2.Picture3.Cls Form2.Text1 = \Form2.Text2 = \Form2.Text3 = \Form2.Text4 = \Form2.Text5 = \End Sub

———————————————————————————————————————

Private Sub Command3_Click() End End Sub

轮廓曲线图：

搜索更多关于：机械原理课程设计报告书的文档

机械原理课程设计报告书.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.diyifanwen.net/c08n855form6o2vt5kycq_6.html（转载请注明文章来源）