机械设计上机设计实验报告Word文件下载.docx

1、0.060.100.170.300.620.90dmdmin / mm205075125200355500kbKb/ 10-31.032.657.5026.649.8运行界面：程序代码：Private Sub Command1_Click（） Dim s As Integer Dim q1 As Single, dm As Single, kb As Single s = Val（Txt_s.Text） Select Case s Case 0 q1 = 0.02: dm = 20: kb = 0.00006 Case 1 q1 = 0.06: dm = 50: kb = 0.00039 Ca

2、se 2 q1 = 0.1: dm = 75: kb = 0.00103 Case 4 q1 = 0.17: dm = 125: kb = 0.00265 Case 5 q1 = 0.3: dm = 200: kb = 0.0075 Case 6 q1 = 0.62: dm = 355: kb = 0.0266 Case 7 q1 = 0.9: dm = 500: kb = 0.0498 End Select Txt_q1.Text = Str（q1） Txt_dmin.Text = Str（dm） Txt_kb.Text = Str（kb） End SubPrivate Sub Comman

3、d2_Click（）End2）二元数表的存取表1-2齿轮传动工作状况系数KA原动机（代码M）工作机（代码N）平稳中等冲击较大冲击工作平稳1.251.75轻度冲击1.52.25Option ExplicitDim ii As IntegerDim jj As IntegerPublic appdir As StringPrivate Sub Check1_Click（）If Check1.Value = 1 Then Check2.Value = 0 Check3.Value = 0 ii = 0 End IfPrivate Sub Check2_Click（）If Check2.Value =

4、 1 Then Check1.Value = 0 ii = 1Private Sub Check3_Click（）If Check3.Value = 1 Then ii = 2Private Sub Check4_Click（）If Check4.Value = 1 Then Check5.Value = 0 Check6.Value = 0 jj = 0Private Sub Check5_Click（）If Check5.Value = 1 Then Check4.Value = 0 jj = 1Private Sub Check6_Click（）If Check6.Value = 1 T

5、hen jj = 2 Dim i As Integer, j As Integer Dim ka（0 To 2, 0 To 2） As Singleka（0, 0） = 1ka（0, 1） = 1.25ka（0, 2） = 1.75ka（1, 0） = 1.25ka（1, 1） = 1.5ka（1, 2） = 2ka（2, 0） = 1.5ka（2, 1） = 1.75ka（2, 2） = 2.25txt_ka.Text = Str（ka（ii, jj）表1-3V工作状况系数KA工作机载荷性质一天工作时数（LH）16（代码N）1.11.2载荷变化小1.3载荷变化大1.4冲击载荷If （Comb

6、o1.Text = Combo1.List（0） And Option1.Value） Then Text_ka.Text = 1If （Combo1.Text = Combo1.List（0） And Option2.Value） Then Text_ka.Text = 1.1If （Combo1.Text = Combo1.List（0） And Option3.Value） Then Text_ka.Text = 1.2If （Combo1.Text = Combo1.List（1） And Option1.Value） Then Text_ka.Text = 1.1If （Combo1

7、.Text = Combo1.List（1） And Option2.Value） Then Text_ka.Text = 1.2If （Combo1.Text = Combo1.List（1） And Option3.Value） Then Text_ka.Text = 1.3If （Combo1.Text = Combo1.List（2） And Option1.Value） Then Text_ka.Text = 1.2If （Combo1.Text = Combo1.List（2） And Option2.Value） Then Text_ka.Text = 1.3If （Combo1

8、.Text = Combo1.List（2） And Option3.Value） Then Text_ka.Text = 1.4If （Combo1.Text = Combo1.List（3） And Option1.Value） Then Text_ka.Text = 1.3If （Combo1.Text = Combo1.List（3） And Option2.Value） Then Text_ka.Text = 1.4If （Combo1.Text = Combo1.List（3） And Option3.Value） Then Text_ka.Text = 1.5Text_pc.Te

9、xt = Str（Text_ka） * Str（Text_p）3）区间检索表1-4平键尺寸序号（代码i）公称轴径d键的公称尺寸bh6 d 828 d 10310 d 12412 d 17517 d 22622 d 30830 d 3810838 d 4412944 d 501450 d 58161158 d 6518 Dim i As Integer, d As Integer Dim dd As Variant, b As Variant, h As Variant dd = Array（0, 6, 8, 10, 12, 17, 22, 30, 38, 44, 50, 58） b = Arr

10、ay（0, 2, 3, 4, 5, 6, 8, 10, 12, 14, 16, 18） h = Array（0, 2, 3, 4, 5, 6, 7, 8, 8, 9, 10, 11） d = Val（Txt_d.Text） For i = 0 To 10 If d = dd（i + 1） Then Exit For Next iTxt_b.Text = Str（b（i） Txt_h.Text = Str（h（i）4）复杂表格程序化（含插值处理）一元数表的线性插值表1-5包角系数K包角（ af ）180175170165160155150145140135130120包角系数（ kf ）1.00

11、.990.980.960.950.930.920.910.890.880.860.840.82序号（ i ）12Dim i As Integer Dim t As Single, u As Single, f As Single Dim kf As Single, af As Single Dim x As Variant, y As Variant x = Array（120, 125, 130, 135, 140, 145, 150, 155, 160, 165, 170, 175, 180, 185）y = Array（0.82, 0.84, 0.86, 0.88, 0.89, 0.91

12、, 0.92, 0.93, 0.95, 0.96, 0.98, 0.99, 1, 1） t = Val（Txt_t.Text） If t = x（12） Then i = 12 Else For i = 1 To 12= x（i） Then i = i - 1 u = （t - x（i） / （x（i + 1） - x（i） f = y（i） + u * （y（i + 1） - y（i） kf = f: af = t Txt_af.Text = Str（af） Txt_kf.Text = Str（kf）Txt_t.Text = Txt_af.Text = Txt_kf.Text = 二元数表的

13、线性插值表1-6轴的圆角处应力集中系数K序号jiB/Nmm-2r / d50060070080090010000.040.080.150.202.321.841.601.511.401.341.192.501.961.662.712.081.691.541.421.371.271.22-2.202.351.811.461.391.301.241.87Dim Appdir As StringDim i As Integer, j As IntegerDim ii As Integer, jj As IntegerPrivate Sub Cmdstart_Click（） Dim ki As Int

14、eger, kj As Integer Dim ax As Single, ay As Single, ap As Single Dim bt As Single, f As Single Dim z（8, 6） As Single x = Array（0, 0, 0.02, 0.04, 0.06, 0.08, 0.1, 0.15, 0.2） y = Array（0, 500, 600, 700, 800, 900, 1000） z（1, 1） = 2.32 z（1, 2） = 2.5 z（1, 3） = 2.71 z（1, 4） = 0 z（1, 5） = 0 z（1, 6） = 0 z（2

15、, 1） = 1.84 z（2, 2） = 1.96 z（2, 3） = 2.08 z（2, 4） = 2.2 z（2, 5） = 2.35 z（2, 6） = 2.5 z（3, 1） = 1.6 z（3, 2） = 1.66 z（3, 3） = 1.69 z（3, 4） = 1.75 z（3, 5） = 1.81 z（3, 6） = 1.87 z（4, 1） = 1.51 z（4, 2） = 1.51 z（4, 3） = 1.54 z（4, 4） = 1.54 z（4, 5） = 1.6 z（4, 6） = 1.6 z（5, 1） = 1.4 z（5, 2） = 1.4 z（5, 3） =

16、1.42 z（5, 4） = 1.42 z（5, 5） = 1.46 z（5, 6） = 1.46 z（6, 1） = 1.34 z（6, 2） = 1.34 z（6, 3） = 1.37 z（6, 4） = 1.37 z（6, 5） = 1.39 z（6, 6） = 1.39 z（7, 1） = 1.25 z（7, 2） = 1.25 z（7, 3） = 1.27 z（7, 4） = 1.27 z（7, 5） = 1.3 z（7, 6） = 1.3 z（8, 1） = 1.19 z（8, 2） = 1.19 z（8, 3） = 1.22 z（8, 4） = 1.22 z（8, 5） = 1.

17、24 z（8, 6） = 1.24 ax = Val（txt_rd.Text） ay = Val（txt_cb.Text） For i = 1 To 8 If ax = x（i + 1） Then ki = iki = 8 For j = 1 To 6 If ay = y（j + 1） Then kj = j kj = 6 Next j ap = （ax - x（ki） / （x（ki + 1） - x（ki） bt = （ay - y（kj） / （y（kj + 1） - y（kj） f = （1 - ap） * （1 - bt） * z（ki, kj） + bt * （1 - ap） *

18、z（ki, kj + 1） + ap * （1 - bt） * z（ki + 1, kj） + ap * bt * z（ki + 1, kj + 1） txt_kc.Text = Str（f）非线性插值表1-7蜗轮齿形系数YFZv24262830323537YF1.981.881.851.801.761.711.641.61404560801003001.551.481.45Dim i As Integer, z As Integer, hi As IntegerDim x1 As Single, x2 As Single, x3 As SingleDim u As Single, v As

19、Single, w As Single, yf As SingleDim x As Variant, y As Variantx = Array（0, 20, 24, 26, 28, 30, 32, 35, 37, 40, 45, 50, 60, 80, 100, 150, 300）y = Array（0, 1.98, 1.88, 1.85, 1.8, 1.76, 1.71, 1.64, 1.61, 1.55, 1.48, 1.45, 1.4, 1.34, 1.3, 1.27, 1.24）z = Val（Txt_z.Text） For i = 1 To 14 If z - x（i + 1） 1

20、 And z - x（hi） x（hi + 1） - z Then hi = hi - 1 x1 = x（hi）: x2 = x（hi + 1）: x3 = x（hi + 2） u = （z - x2） * （z - x3） / （x1 - x2） * （x1 - x3） v = （z - x1） * （z - x3） / （x2 - x1） * （x2 - x3） w = （z - x1） * （z - x2） / （x3 - x1） * （x3 - x2） yf = u * y（hi） + v * y（hi + 1） + w * y（hi + 2） Txt_zv.Text = Str（z）

21、 Txt_yf.Text = Str（yf）Txt_zv.Text = Txt_yf.Text = Txt_z.Text = 1.1.2 数表解析法表1-8圆弧齿锥齿轮几何系数Z1360.1710.1860.2010.2140.2260.2340.2450.2630.280 Dim YY As Variant m = 2: n = 9 X = Array（0, 16, 20, 24, 28, 32, 36, 40, 45, 50） Y = Array（0, 0.171, 0.186, 0.201, 0.214, 0.226, 0.234, 0.245, 0.263, 0.28） YY = Ar

22、ray（0, 0.171, 0.186, 0.201, 0.214, 0.226, 0.234, 0.245, 0.263, 0.28） Call 最小二乘法程序 txt_a0 = A（1, JJ） txt_a1 = A（2, JJ） txt_a2 = A（3, JJ） For j = 1 To n 将计算结果写入到表格中 MSHFlexGrid1.TextMatrix（j, 0） = Str（j） MSHFlexGrid1.TextMatrix（j, 1） = Str（X（j） MSHFlexGrid1.TextMatrix（j, 2） = Str（YY（j） MSHFlexGrid1.TextMatrix（j, 3） = Str（Y（j）Private Sub Form_Load（）设置各行的宽度 MSHFlexGrid1.ColWidth（0） = 500: MSHFlexGrid1.ColWidth（1） = 600 MSHFlexGrid1.ColWidth（2） = 800: MSHFlexGrid1.ColWidth（3） = 1600设置表头 MSHFlexGrid1.TextMatrix（0, 0） = 组数 MSHFlexGrid1.TextMatrix（0, 1） = 齿数Z1 MSHFlexGrid1.TextMat