机械设计上机设计实验报告.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带传动的程序设计 2.2 齿轮传动的程序设计19 2.3 滚动轴承的程序设计21 3.课后习题计算22 PAGE \* MERGEFORMAT1 一、表和线图的程序化处理 数表程序化 数表程序化有两种方法：一是查表检索法；二是数表解析法 1.1.1 查表检索法 1）一元数表的存取 表1-1 普通V带型号及有关参数 程序变量 名 称 参数名称 普通V带型号 Y Z A B C D E s 带型代号 1 2 3 4 5 6 7 q1 q / kg·m-1 0.02 0.06 0.10 0.17 0.30 0.62 0.90 dm dmin / mm 20 50 75 125 200 355 500 kb Kb / 10-3 0.02 0.17 1.03 2.65 7.50 26.6 49.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） 1 2 3 平稳 中等冲击 较大冲击 1 工作平稳 1 1.25 1.75 2 轻度冲击 1.25 1.5 2 3 中等冲击 1.5 1.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 Sub Private Sub Check6_Click() If Che