机械cad作业及答案

机械cad作业及答案

ID:18430166

大小:1.77 MB

页数:20页

时间:2018-09-17

机械cad作业及答案_第1页
机械cad作业及答案_第2页
机械cad作业及答案_第3页
机械cad作业及答案_第4页
机械cad作业及答案_第5页
资源描述:

《机械cad作业及答案》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、第一次作业第二次作业第三次作业总分机械CAD大作业班级机械11007班学号201006498姓名郑准20目录第一次作业线图的程序化处理解题思路3程序代码-4-运行结果截图-8-小结-8-第二次作业轴承数据库的建立解题思路-10-运行结果截图-10-小结-15-第三次作业三次BEZIER曲线的绘制解题思路-16-程序代码-16-运行结果截图-19-小结-19-20第一次作业程序化线图处理一.题目线图的程序化处理:上机:将下图编程实现(大作业)二.解题思路本线图为分区域线图,对功率和转速需要进行分段讨论,采用V

2、isualBasci软件可实现匹配类型的功能,使用用if语句实现各个区域分段,而各个区域的分界线为直线和斜线,它们都可以通过解线性方程而获得,以各个分界线列方程用And语句即可实现题目所要求的功能。可将功率的范围分为0.8~1,1~2.6,2.6~4,4~6,6~12,12~23,23~37……220~800等多个区域,然后分别列出各个区域相关的方程组,即可用Visual20Basic编程实现功能。三.程序代码PrivateSubForm_Load()Picture=LoadPicture(App.Path

3、+"1.jpg")EndSubPrivateSubCommand1_Click()DimxAsDoubleDimyAsDoubleIfNotIsNumeric(Text1.Text)ThenMsgBox"请在输入功率时输入数字",,"警告"Text1.Text=""Text1.SetFocusEndIfIfNotIsNumeric(Text2.Text)ThenMsgBox"请输入转速时输入数字",,"警告"Text2.Text=""Text2.SetFocusEndIfx=Text1.Texty=Tex

4、t2.TextIfx<0.8Ory<100ThenMsgBox"数据输入有误,请重新输入!"ElseIfx>=0.8Andx<=1Andy<=1350*(x-4/9)ThenMsgBox"您选择的类型为A型!"ElseIfx>=0.8Andx<=1Andy>1350*(x-4/9)Andy<=7000ThenMsgBox"您选择的类型为O型!"ElseIfx>=1Andx<=2.6Andy<=200*(x-0.5)ThenMsgBox"您选择的类型为B型!"ElseIfx>=1Andx<=2.6Andy>=

5、200*(x-0.5)Andy<=1350*(x-4/9)ThenMsgBox"您选择的类型为A型!"20ElseIfx>=1Andx<=2.6Andy>=1350*(x-4/9)Andy<=7000ThenMsgBox"您选择的类型为O型!"ElseIfx>=2.6Andx<=4Andy<=(1000/18)*(x-0.8)ThenMsgBox"您选择的类型为C型!"ElseIfx>=2.6Andx<=4Andy>=(1000/18)*(x-0.8)Andy<=200*(x-0.5)ThenMsgBox"

6、您选择的类型为B型!"ElseIfx>=2.6Andx<=4Andy>=200*(x-0.5)Andy<=1350*(x-4/9)ThenMsgBox"您选择的类型为A型!"ElseIfx>=2.6Andx<=4Andy>=1350*(x-4/9)Andy<=7000ThenMsgBox"您选择的类型为O型!"ElseIfx>=4Andx<=7.6Andy>=4800Andy<=7000ThenMsgBox"您选择的类型为O型!"ElseIfx>=4Andx<=6Andy>=100Andy<=(1000/1

7、8)*(x-0.8)ThenMsgBox"您选择的类型为C型!"ElseIfx>=4Andx<=6Andy>=(1000/18)*(x-0.8)Andy<=200*(x-0.5)ThenMsgBox"您选择的类型为B型!"ElseIfx>=4Andx<=6Andy>=200*(x-0.5)Andy<=4800ThenMsgBox"您选择的类型为A型!"ElseIfx>=6Andx<=12Andy>=100Andy<=(250/7)*(x-16/5)ThenMsgBox"您选择的类型为D型!"ElseIfx>

8、=6Andx<=12Andy<=(500/9)*(x-0.8)Andy>=(250/7)*(x-16/5)ThenMsgBox"您选择的类型为C型!"ElseIfx>=6Andx<=12Andy>=(500/9)*(x-0.8)Andy<=200*(x-0.5)ThenMsgBox"您选择的类型为B型!"ElseIfx>=6Andx<=12Andy>=200*(x-0.5)Andy<=4800ThenMsgBox

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。