机械CAD三次大作业

机械CAD 大作业姓名 刘刚班级 机械11005 学号 201003606 序号 11次数得分第一次 第二次 第三次 综合目录第一次大作业.......................................................................1-6 VC编程程序代码及图片展示. ........................1-2VB 编程程序代码图片展示.............................3-5第一次程序设计心得 (6)第二次大作业....................................................................................7-8程序运行结果及图片展示 (7)第二次程序设计心得 (8)第三次大作业.................................................................................9-18 VB编程程序代码.................................................9-15VB编程图片展示...................................................16-17第三次程序设计心得 (18)第一次大作业V带选型查询一、程序设计功能：1.为避免多次翻书查找V带型号，故此程序要求实现多次查找；2. 当输入转速和功率后应用程序能显示所要查找的V带型号；3.为实现良好的用户体验，故程序界面在设计时附上了V带选型图；4.当输入数据不完整或不合法时，系统能弹窗提示用户将数据输入完整或修正错误输入数据。

二、程序设计思想：根据V带选型图可知Ｖ带折线图将Ｖ带型号分成了Ｏ,Ａ,Ｂ,Ｃ,Ｄ,Ｅ,Ｆ等几个区。

而每个区域都由相应的对数函数曲线所控制。

因此，只需将转速作为Ｙ轴，功率作为Ｘ轴，求出各边界曲线在坐标系中的函数表达式即可。

然后根据输入的转速和功率的值来综合判断其落在所在坐标系中的哪个区域。

然后通过程序的运行来显示输出结果。

三、程序代码：①VC编程程序代码#include<stdio.h>#include<math.h>int main(){double n,c,p;int R;printf("请输入所查V带的转速n(r/min)和电动机的功率P(kw)的值:\n");scanf("%lf %lf",&n,&p);/*对于double型变量，其输入数的形式只能为%lf(双精度浮点型)型，而不能为f%型（单精度浮点型），切记，在此困惑了好久*/if(n>6800||p>800||n<0||p<0)printf("Sorry,the datas you input are error! Please input again.Thanks!\n");else{c=log10(490.0)+(log10(p)-log10(0.8))*(log10(4900.0)-log10(490.0))/(log10(3.8)-log10(0.8));if(n>=4900||n>=pow(10,c))/*O型带区域*/R=0;else{c=log10(100.0)+(log10(p)-log10(1.0))*(log10(3400.0)-log10(100.0))/(log10(10.5)-log10(1.0));if(n>=3400||n>=pow(10,c))/*A型带区域*/R=1;else{c=log10(100.0)+(log10(p)-log10(2.7))*(log10(2400.0)-log10(100.0))/(log10(22.5)-log10(2.7));if(n>=2400||n>=pow(10,c))/*B型带区域*/R=2;else{c=log10(100.0)+(log10(p)-log10(5.9))*(log10(1500.0)-log10(100.0))/(log10(35.0)-log10(5.9));if(n>=1500||n>=pow(10,c))/*C型带区域*/R=3;else{c=log10(100.0)+(log10(p)-log10(17.5))*(log10(1200.0)-log10(100.0))/(log10(85.0)-log10(17.5));if(n>=1200||n>=pow(10,c))/*D型带区域*/R=4;else{c=log10(100.0)+(log10(p)-log10(44.0))*(log10(700.0)-log10(100.0))/(log10(170.0)-log10(44.0));if(n>=700||n>=pow(10,c))/*E型带区域*/R=5;else{R=6;}/*F型带区域*/}}}}}if(R==0) printf("您所查的V带属于O型\n");if(R==1) printf("您所查的V带属于A型\n");if(R==2) printf("您所查的V带属于B型\n");if(R==3) printf("您所查的V带属于C型\n");if(R==4) printf("您所查的V带属于D型\n");if(R==5) printf("您所查的V带属于E型\n");if(R==6) printf("您所查的V带属于F型\n");}return 0;}C语言运行结果图片展示：②VB 编程程序代码:Function Log10(X) '定义对数log10函数Log10 = Math.Log(X) / Math.Log(10#)End FunctionPrivate Sub Command1_Click()Dim p, n, c As DoubleIf (Not IsNumeric(Text1) Or Not IsNumeric(Text2)) ThenMsgBox "对不起！您只输入了一个参数，请重新输入。

谢谢配合！！！", , "温馨提示"Elsen = Text1.Textp = Text2.TextIf (n > 6800 Or p > 800) ThenMsgBox "对不起！您输入的转速或功率不合法，请核对后重新输入。

谢谢配合！！！", , "温馨提示"Elsec = Log10(490#) + (Log10(p) - Log10(0.8)) * (Log10(4900#) - Log10(490#)) / (Log10(3.8) - Log10(0.8))If (n >= 4900 Or n >= 10 ^ c) ThenText3.Text = "O型"Elsec = Log10(100#) + (Log10(p) - Log10(1#)) * (Log10(3400#) - Log10(100#)) / (Log10(10.5) - Log10(1#))If (n >= 3400 Or n >= 10 ^ c) ThenText3.Text = "A型"Elsec = Log10(100#) + (Log10(p) - Log10(2.7)) * (Log10(2400#) - Log10(100#)) / (Log10(22.5) - Log10(2.7))If (n >= 2400 Or n >= 10 ^ c) ThenText3.Text = "B型"Elsec = Log10(100#) + (Log10(p) - Log10(5.9)) * (Log10(1500#) - Log10(100#)) / (Log10(35#) - Log10(5.9))If (n >= 1500 Or n >= 10 ^ c) ThenText3.Text = "C型"Elsec = Log10(100#) + (Log10(p) - Log10(17.5)) * (Log10(1200#) - Log10(100#)) / (Log10(85#) - Log10(17.5))If (n >= 1200 Or n >= 10 ^ c) ThenText3.Text = "D型"Elsec = Log10(100#) + (Log10(p) - Log10(44#)) * (Log10(700#) - Log10(100#)) / (Log10(170#) - Log10(44#))If (n >= 700 Or n >= 10 ^ c) ThenText3.Text = "E型"ElseText3.Text = "F型"End IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""End SubVB程序运行结果展示：第一次程序设计心得在开始看到这个设计题目时，没看明白这个坐标是啥意思，不懂为啥坐标上的间距不等。

后来通过查资料知道了其是以对数的真数为横纵坐标的坐标系，虽然这是一个小的收获，但这让我明白了知识的相通性，没有哪个知识是绝对孤立的，知识的熟练在于不断运用，不断积累，不断学习。

通过第一次V带选型查询器的设计，我学会了C语言多重循环选择的设计思路，学会了VB界面美化的设计。

在用C语言编写该设计程序时，起初困惑了好久，因为始终觉得自己编写的程序没问题，但就在运行时结果始终显示O型带，始终想不明白为什么。

但后来通过仔细研究弄白了问题在哪里，是在scanf函数输入数据时，定义其输入类型定义有误，导致结果异常。