机械设计上机设计实验报告.docxVIP

机 械 设 计 上 机 设 计 班级： 姓名： 学号： 目录 1.数表和线图的程序化处理 1 1.1数表的程序化 1 1.1.1查表检索法 1 1.1.2数表解析法 12 1.2线图的程序化 15 1.3有关数据处理 16 2.典型零部件的程序设计 18 2.1 V带传动的程序设计 18 2.2 齿轮传动的程序设计 19 2.3 滚动轴承的程序设计 21 3.课后习题计算 22 PAGE \* MERGEFORMAT23 一、表和线图的程序化处理 数表程序化 数表程序化有两种方法：一是查表检索法；二是数表解析法 1.1.1 查表检索法 1）一元数表的存取 表1-1 普通V带型号及有关参数 程序变量 名 称参数名称普通V带型号YZABCDEs带型代号1234567q1q / kg·m-10.020.060.100.170.300.620.90dmdmin / mm205075125200355500kbKb / 10-30.020.171.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 Case 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 Sub Private Sub Command2_Click() End End Sub 2）二元数表的存取 表1-2 齿轮传动工作状况系数KA 原 动 机 （代码M）工 作 机（代码N）123平稳中等冲击较大冲击1工作平稳11.251.752轻度冲击1.251.523中等冲击1.51.75≥2.25 运行界面： 程序代码： Option Explicit Dim ii As Integer Dim jj As Integer Public appdir As String Private Sub Check1_Click() If Check1.Value = 1 Then Check2.Value = 0 Check3.Value = 0 ii = 0 End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Check1.Value = 0 Check3.Value = 0 ii = 1 End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then Check1.Value = 0 Check2.Value = 0 ii = 2 End If End Sub Private Sub Check4_Click() If Check4.Value = 1 Then Check5.Value = 0 Check6.Value = 0 jj = 0 End If End Sub Private Sub Check5_Click() If Check5.Value = 1 Then Check4.Value = 0 Check6.Value = 0 jj = 1 End If End S