机械cad作业及答案.docVIP

目录 第一次作业 线图的程序化处理 解题思路 3 程序代码 - 4 - 运行结果截图 - 8 - 小结 - 8 - 第二次作业 轴承数据库的建立 解题思路 - 10 - 运行结果截图 - 10 - 小结 - 15 - 第三次作业 三次Bezier曲线的绘制 解题思路 - 16 - 程序代码 - 16 - 运行结果截图 -19 - 小结 - 19 - 第一次作业 程序化线图处理 一．题目 二．解题思路 本线图为分区域线图，对功率和转速需要进行分段讨论，采用Visual Basci软件可实现匹配类型的功能，使用用if语句实现各个区域分段，而各个区域的分界线为直线和斜线，它们都可以通过解线性方程而获得，以各个分界线列方程用And语句即可实现题目所要求的功能。 可将功率的范围分为0.8~1，1~2.6, 2.6~4, 4~6，6~12, 12~23，23~37……220~800等多个区域，然后分别列出各个区域相关的方程组，即可用Visual Basic编程实现功能。 程序代码 Private Sub Form_Load() Picture = LoadPicture(App.Path + \1.jpg) End Sub Private Sub Command1_Click() Dim x As Double Dim y As Double If Not IsNumeric(Text1.Text) Then MsgBox 请在输入功率时输入数字, , 警告 Text1.Text = Text1.SetFocus End If If Not IsNumeric(Text2.Text) Then MsgBox 请输入转速时输入数字, , 警告 Text2.Text = Text2.SetFocus End If x = Text1.Text y = Text2.Text If x 0.8 Or y 100 Then MsgBox 数据输入有误，请重新输入! ElseIf x = 0.8 And x = 1 And y = 1350 * (x - 4 / 9) Then MsgBox 您选择的类型为A型! ElseIf x = 0.8 And x = 1 And y 1350 * (x - 4 / 9) And y = 7000 Then MsgBox 您选择的类型为O型! ElseIf x = 1 And x = 2.6 And y = 200 * (x - 0.5) Then MsgBox 您选择的类型为B型! ElseIf x = 1 And x = 2.6 And y = 200 * (x - 0.5) And y = 1350 * (x - 4 / 9) Then MsgBox 您选择的类型为A型! ElseIf x = 1 And x = 2.6 And y = 1350 * (x - 4 / 9) And y = 7000 Then MsgBox 您选择的类型为O型! ElseIf x = 2.6 And x = 4 And y = (1000 / 18) * (x - 0.8) Then MsgBox 您选择的类型为C型! ElseIf x = 2.6 And x = 4 And y = (1000 / 18) * (x - 0.8) And y = 200 * (x - 0.5) Then MsgBox 您选择的类型为B型! ElseIf x = 2.6 And x = 4 And y = 200 * (x - 0.5) And y = 1350 * (x - 4 / 9) Then MsgBox 您选择的类型为A型! ElseIf x = 2.6 And x = 4 And y = 1350 * (x - 4 / 9) And y = 7000 Then MsgBox 您选择的类型为O型! ElseIf x = 4 And x = 7.6 And y = 4800 And y = 7000 Then