CADCAMWord文档下载推荐.docx
《CADCAMWord文档下载推荐.docx》由会员分享，可在线阅读，更多相关《CADCAMWord文档下载推荐.docx（13页珍藏版）》请在冰豆网上搜索。
C语言：
#include<
stdio.h>
math.h>
voidmain（）
{
intn;
floatp,c;
printf（"
请输入功率P（kw）:
"
）;
scanf（"
%f"
&
p）;
请输入转速n（r/min）:
%d"
n）;
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型带\n"
）;
else
c=log10（100.0）+（log10（p）-log10（1.0））*（log10（3400.0）-log10（100.0））/（log10（10.5）-log10（1.0））;
=3400||n>
应选择A型带\n"
c=log10（100.0）+（log10（p）-log10（2.7））*（log10（2400.0）-log10（100.0））/（log10（22.5）-log10（2.7））;
=2400||n>
printf（"
应选择B型带\n"
c=log10（100.0）+（log10（p）-log10（5.9））*（log10（1500.0）-log10（100.0））/（log10（35.0）-log10（5.9））;
=1500||n>
应选择C型带\n"
c=log10（100.0）+（log10（p）-log10（17.5））*（log10（1200.0）-log10（100.0））/（log10（85.0）-log10（17.5））;
=1200||n>
应选择D型带\n"
c=log10（100.0）+（log10（p）-log10（44.0））*（log10（700.0）-log10（100.0））/（log10（170.0）-log10（44.0））;
=700||n>
应选择E型带\n"
else
应选择F型带\n"
}
}
结果如图：
VB:
FunctionLog10（X）
Log10=Math.Log（X）/Math.Log（10#）
EndFunction
PrivateSubCommand1_Click（）
Dimp,n,cAsDouble
If（NotIsNumeric（Text1）OrNotIsNumeric（Text2））Then
Text1.Text="
Text1.SetFocus
Else
p=Text1.Text
n=Text2.Text
c=Log10（490#）+（Log10（p）-Log10（0.8））/（Log10（3.8）-Log10（0.8））*（Log10（4900#）-Log10（490#））
If（n>
=4900OrLog10（n）>
=c）Then
Text3.Text="
O型"
c=Log10（100#）+（Log10（p）-Log10（1#））/（Log10（10.5）-Log10（1#））*（Log10（3400#）-Log10（100#））
=3400OrLog10（n）>
A型"
c=Log10（100#）+（Log10（p）-Log10（2.7））/（Log10（22.5）-Log10（2.7））*（Log10（2400#）-Log10（100#））
=2400OrLog10（n）>
B型"
c=Log10（100#）+（Log10（p）-Log10（5.9））/（Log10（35#）-Log10（5.9））*（Log10（1500#）-Log10（100#））
=1500OrLog10（n）>
C型"
c=Log10（100#）+（Log10（p）-Log10（17.5））/（Log10（85#）-Log10（17.5））*（Log10（1200#）-Log10（100#））
=1200OrLog10（n）>
D型"
c=Log10（100#）+（Log10（p）-Log10（44#））/（Log10（170#）-Log10（44#））*（Log10（700#）-Log10（100#））
=700OrLog10（n）>
E型"
Text3.Text="
F型"
EndIf
EndSub
PrivateSubCommand2_Click（）
Text1.Text="
Text2.Text="
EndSub
PrivateSubtext1_lostfocus（）
DimiAsInteger
IfNotIsNumeric（Text1）Then
If（Text1.Text<
0.8OrText1.Text>
800#）Then
i=MsgBox（"
输入值超出范围，请重新输入"
5+vbExclamation,"
输入超出范围"
）
Ifi=2Then
End
PrivateSubtext2_lostfocus（）
DimjAsInteger
IfNotIsNumeric（Text2）Then
Text2.Text="
If（Text2.Text<
100#OrText2.Text>
6800#）Then
j=MsgBox（"
Ifj=2Then
作业二：
建立轴承数据库
此次作业没有涉及到写程序代码，按照书本上的例题一步步做就可以了。
在数据库数据文件建立之后，如需修改可在命令窗口输入APPEND或EDIT命令，系统自动回到编辑状态，供继续输入或编辑已有的文件记录。
如浏览、编辑数表文件，也可在窗口输入BROWSE命令。
若要在数表bear.dbf中查询类型为204轴承的有关参数，可以在命令窗口使用locate命令查询：
LOCATEFOR轴承型号=204
此时数据指针江指向第五个记录，显示第五个记录的各个参数。
作业三：
三次Bezier曲线
利用编程的方法画出三次Bezier曲线
＝
×
＋
ｕ＋
（１）
（２）
根据以上结果（１）和（２）可知P的X,Y都是U的函数，因此，将X,Y用变量U表示编程，当ｕ取不同值时所得到的点Ｐ（ｕ）。
再将各点用线连接起来即得到三次Bezier曲线。
VB编程源代码：
PrivateSubCommand1_Click（）
Picture1.Scale（-200,160）-（200,-160）
DrawWidth=3:
Picture1.FontSize=5
Picture1.Line（-200,0）-（200,0）:
Picture1.Line（0,-160）-（0,160）
Fori=（-200）To200Step20
Picture1.Line（i,0）-（i,5）
Picture1.CurrentX=i-7:
Picture1.CurrentY=-10:
Picture1.Printi
Nexti
Fori=（-160）To-20Step20
Picture1.Line（5,i）-（0,i）
Picture1.CurrentX=-15:
Picture1.CurrentY=i+3:
Fori=（20）To160Step20
Dimpx（4）AsDouble
Dimpy（4）AsDouble
Dima1,b1,c1,d1AsDouble
Dima2,b2,c2,d2AsDouble
Dimx,y,uAsDouble
px（0）=Text1:
py（0）=Text2
px
（1）=Text3:
py
（1）=Text4
px
（2）=Text5:
py
（2）=Text6
px（3）=Text7:
py（3）=Text8
Picture1.FontSize=15
Picture1.CurrentX=px（0）+5:
Picture1.CurrentY=py（0）:
Picture1.Print"
P"
;
0
Picture1.CurrentX=px
（1）+5:
Picture1.CurrentY=py
（1）:
1
Picture1.CurrentX=px
（2）+5:
Picture1.CurrentY=py
（2）:
2
Picture1.CurrentX=px（3）+5:
Picture1.CurrentY=py（3）:
3
Fori=0To2
Picture1.DrawWidth=1
Picture1.Line（px（i）,py（i））-（px（i+1）,py（i+1））,RGB（0,0,255）:
Nexti
Fori=0To3
Picture1.DrawWidth=8
Picture1.Line（px（i）,py（i））-（px（i）+1,py（i）-1）
a1=-px（0）+3*px
（1）-3*px
（2）+px（3）
b1=3*px（0）-6*px
（1）+3*px
（2）
c1=-3*px（0）+3*px
（1）
d1=px（0）
a2=-py（0）+3*py
（1）-3*py
（2）+py（3）
b2=3*py（0）-6*py
（1）+3*py
（2）
c2=-3*py（0）+3*py
（1）
d2=py（0）
Foru=0To1Step0.001
x=a1*u*u*u+b1*u*u+c1*u+d1
y=a2*u*u*u+b2*u*u+c2*u+d2
Ifu=0Then
Picture1.CurrentX=x
Picture1.CurrentY=y
Picture1.DrawWidth=2
Picture1.Line-（x,y）,RGB（255,0,0）
Nextu
PrivateSubForm_Load（）
Text1=-130:
Text2=128:
Text3=-94:
Text4=-124
Text5=138:
Text6=-120:
Text7=94:
Text8=130
Text4.Text="
Text5.Text="
Text6.Text="
Text7.Text="
Text8.Text="
PrivateSubCommand3_Click（）
Picture1.Cls
PrivateSubCommand4_Click（）
End
程序截图：
升级会员 