机械原理课程设计计算说明书可打印部分.docx
《机械原理课程设计计算说明书可打印部分.docx》由会员分享，可在线阅读，更多相关《机械原理课程设计计算说明书可打印部分.docx（13页珍藏版）》请在冰豆网上搜索。
机械原理课程设计计算说明书可打印部分
四）主程序源程序
1、主程序
OptionExplicit
'//注意：
按以下提示的位置编写你的程序。
'//将你的程序的变量定义写在这里：
PublicLABAsDouble,LBCAsDouble,LCDAsDouble,LCEAsDouble,LEFAsDouble,LFGAsDouble,LGHAsDouble,LHIAsDouble,QBCEAsDouble,N1AsDouble
PublicXBAsDouble,YBAsDouble,XBvAsDouble,YBvAsDouble,XBaAsDouble,YBaAsDouble,XCAsDouble,YCAsDouble,XCvAsDouble,YCvAsDouble,XCaAsDouble,YCaAsDouble
PublicaAsDouble,VAsDouble,QBCAsDouble,WBCAsDouble,EBCAsDouble,QDCAsDouble,WDCAsDouble,EDCAsDouble,QEFAsDouble,WEFAsDouble,EEFAsDouble,QFGAsDouble,WFGAsDouble,EFGAsDouble,QHIAsDouble,WHIAsDouble,EHIAsDouble,WABAsDouble,LBEAsDouble
PublicXAAsDouble,YAAsDouble,XAvAsDouble,YAvAsDouble,XAaAsDouble,YAaAsDouble,QFGHAsDouble
PublicXDAsDouble,YDAsDouble,XDvAsDouble,YDvAsDouble,XDaAsDouble,YDaAsDouble
PublicXEAsDouble,YEAsDouble,XEvAsDouble,YEvAsDouble,XEaAsDouble,YEaAsDouble
PublicXGAsDouble,YGAsDouble,XGvAsDouble,YGvAsDouble,XGaAsDouble,YGaAsDouble,XHAsDouble,YHAsDouble,XHvAsDouble,YHvAsDouble,XHaAsDouble,YHaAsDouble,XIAsDouble,YIAsDouble,XIvAsDouble,YIvAsDouble,XIaAsDouble,YIaAsDouble
PublicSubcalResult（）
'#//将你的计算程序放在这里
ReDimCurveVal1（0To36）,CurveVal2（0To36）,CurveVal3（0To36）,CurveVal4（0To36）'#//要根据实际需要调整上标
ReDimCurveVal5（0To36）,CurveVal6（0To36）,CurveVal7（0To0）,CurveVal8（0To0）'#//要根据实际需要调整上标
ReDimCurveVal9（0To0）,CurveVal10（0To0）,CurveVal11（0To0）,CurveVal12（0To0）'#//要根据实际需要调整上标
TotalPathNum=UBound（CurveVal1）
ForI=0To36
CallLink（0,0,0,0,0,0,I*10*Pi/180,WAB,0,LAB,XB,YB,XBv,YBv,XBa,YBa）
Flag=RRR2（XB,YB,XBv,YBv,XBa,YBa,XD,YD,0,0,0,0,LBC,LCD,1,QBC,WBC,EBC,QDC,WDC,EDC）
IfFlag=0Then
MsgBox"无解",vbOKOnly
ExitSub
EndIf
CallLink（XB,YB,XBv,YBv,XBa,YBa,QBC,WBC,EBC,LBE,XE,YE,XEv,YEv,XEa,YEa）
Flag=RRR2（XE,YE,XEv,YEv,XEa,YEa,XG,YG,0,0,0,0,LEF,LFG,-1,QEF,WEF,EEF,QFG,WFG,EFG）
IfFlag=0Then
MsgBox"无解",vbOKOnly
ExitSub
EndIf
CallLink（XG,YG,0,0,0,0,QFG-QFGH*Pi/180,WFG,EFG,LGH,XH,YH,XHv,YHv,XHa,YHa）
Flag=RRP2（Pi/2,XG,YG,XH,YH,XHv,YHv,XHa,YHa,LHI,QHI,WHI,EHI）
IfFlag=0Then
MsgBox"无解",vbOKOnly
ExitSub
EndIf
CallLink（XH,YH,XHv,YHv,XHa,YHa,QHI,WHI,EHI,LHI,XI,YI,XIv,YIv,XIa,YIa）
CurveVal1（I）=XI:
CurveVal2（I）=YI:
CurveVal3（I）=XIv:
CurveVal4（I）=YIv:
CurveVal5（I）=XIa:
CurveVal6（I）=YIa:
NextI
EndSub
2、输入界面及程序
图3-？
输入界面
OptionExplicit
'注意：
以下#//之前所有内容不要修改
PrivateSubCmdCal_Click（）
CallcalResult
CallDispData（frmDisp1.txtDispResult）
EndSub
PrivateSubcmdDisp_Click（）
frmDisp1.Show
EndSub
PrivateSubcmdEnd_Click（）
End
EndSub
'#//如果有增加界面内容，将有关程序放在下面。
PrivateSubForm_Load（）
WAB=Text1.Text
LAB=Text2.Text
LBC=Text3.Text
LCD=Text4.Text
LBE=Text5.Text
LEF=Text6.Text
LFG=Text7.Text
LGH=Text8.Text
LHI=Text9.Text
XD=Text10.Text
YD=Text11.Text
XG=Text12.Text
YG=Text13.Text
QFGH=Text14.Text
EndSub
PrivateSubText1_Change（）
WAB=Text1.Text
EndSub
PrivateSubText2_Change（）
LAB=Text2.Text
EndSub
PrivateSubText3_Change（）
LBC=Text3.Text
EndSub
PrivateSubText4_Change（）
LCD=Text4.Text
EndSub
PrivateSubText5_Change（）
LBE=Text5.Text
EndSub
PrivateSubText6_Change（）
LEF=Text6.Text
EndSub
PrivateSubText7_Change（）
LFG=Text7.Text
EndSub
PrivateSubText8_Change（）
LGH=Text8.Text
EndSub
PrivateSubText9_Change（）
LHI=Text9.Text
EndSub
PrivateSubText10_Change（）
XD=Text10.Text
EndSub
PrivateSubText11_Change（）
YD=Text11.Text
EndSub
PrivateSubText12_Change（）
XG=Text12.Text
EndSub
PrivateSubText13_Change（）
YG=Text13.Text
EndSub
PrivateSubText14_Change（）
QFGH=Text14.Text
EndSub
四、程序运行结果及分析
一）程序运行结果表4-1I点运动参数运行结果
曲柄转角（°）
XI
（mm）
YI
（mm）
XIv
（mm/s）
YIv
（mm/s）
XIa
（mm/s2）
YIa
（mm/s2）
0
55.00
54.48
0.00
237.69
0.00
-5903.33
10
55.00
57.75
0.00
138.93
0.00
-5203.39
20
55.00
59.45
0.00
59.99
0.00
-3801.21
30
55.00
59.99
0.00
6.16
0.00
-2400.30
40
55.00
59.79
0.00
-25.43
0.00
-1273.25
50
55.00
59.20
0.00
-40.27
0.00
-465.66
60
55.00
58.46
0.00
-43.27
0.00
70.98
70
55.00
57.73
0.00
-38.86
0.00
406.19
80
55.00
57.13
0.00
-29.90
0.00
599.72
90
55.00
56.70
0.00
-18.50
0.00
693.30
100
55.00
56.49
0.00
-6.14
0.00
711.88
110
55.00
56.48
0.00
5.99
0.00
668.04
120
55.00
56.69
0.00
16.85
0.00
567.62
130
55.00
57.07
0.00
25.50
0.00
415.98
140
55.00
57.56
0.00
31.14
0.00
224.62
150
55.00
58.13
0.00
33.24
0.00
15.80
160
55.00
58.70
0.00
31.76
0.00
-180.77
170
55.00
59.22
0.00
27.13
0.00
-342.84
180
55.00
59.64
0.00
19.99
0.00
-471.52
190
55.00
59.91
0.00
10.75
0.00
-586.52
200
55.00
60.00
0.00
-0.50
0.00
-703.42
210
55.00
59.88
0.00
-13.81
0.00
-820.77
220
55.00
59.51
0.00
-29.07
0.00
-924.73
230
55.00
58.85
0.00
-45.91
0.00
-999.04
240
55.00
58.00
0.00
-63.70
0.00
-1031.62
250
55.00
56.63
0.00
-81.65
0.00
-1017.56
260
55.00
55.05
0.00
-98.96
0.00
-960.06
270
55.00
53.18
0.00
-114.97
0.00
-869.70
280
55.00
51.05
0.00
-129.22
0.00
-760.81
290
55.00
48.68
0.00
-141.45
0.00
-638.07
300
55.00
46.13
0.00
-151.14
0.00
-447.96
310
55.00
43.44
0.00
-154.97
0.00
142.71
320
55.00
40.85
0.00
-133.19
0.00
3256.09
330
55.00
39.62
0.00
41.80
0.00
19924.89
340
55.00
43.36
0.00
338.58
0.00
6305.22
350
55.00
49.47
0.00
331.90
0.00
-4253.72
360
55.00
54.48
0.00
237.69
0.00
-5903.33
2）结果分析
1、XI曲线
图4-1XI曲线图
结果分析：
滑块在Y轴平行线上滑动，所以XI不变。
2、YI曲线
图4-2YI曲线图
结果分析：
曲柄AB转角在0°~30°范围变化时，YI曲线呈上升趋势，YI值从54.48mm缓慢增加到60.00mm；在30°~110°范围变化时，YI曲线呈下降趋势，YI值从60.00mm缓慢减少到56.49mm；在110°~200°范围变化时，YI曲线呈上升趋势，YI值从56.49mm缓慢增加到60.00mm。
在200°~330°范围变化时，YI曲线呈下降趋势，YI值从60.00mm缓慢减少到39.62mm；在330°~360°范围变化时，YI曲线呈上升趋势，YI值从39.62mm缓慢增加到54.48mm。
当曲柄AB转到30°时，YI值达到最大，最大值为60.00mm；当曲柄AB转到230°时，YI值达到最小，最小值为39.62mm。
3.XIv曲线
图4-3XIv曲线图
结果分析：
滑块在Y轴平行线上滑动，所以XIv不变
4.YIv曲线
图4-4YIv曲线图
结果分析：
曲柄AB转角在0°~60°范围变化时，YIv曲线呈下降趋势，YIv值从237.69mm/s缓慢增加到-43.27mm/s；在60°~150°范围变化时，YIv曲线呈上升趋势，YIv值从-43.27mm/缓慢减少到33.24mm/s；在150°~310°范围变化时，YIv曲线呈下降趋势，YIv值从33.24mm/s缓慢增加到-154.97mm/s。
在310°~350°范围变化时，YIv曲线呈上升趋势，YIv值从-154.97mm/s缓慢减少到331.90mm/s；在350°~360°范围变化时，YIv曲线呈下降趋势，YIv值从331.90mm/s缓慢增加到237.69mm/s。
当曲柄AB转到350°时，YIv值达到最大，最大值为331.90mm/s；当曲柄AB转到310时，YIv值达到最小，最小值为-154.97mm/s。
5.XIa曲线
图4-3XIa曲线图
结果分析：
滑块在Y轴平行线上滑动，所以XIa不变
6.YIa曲线
图4-6YIa曲线图
结果分析：
曲柄AB转角在0°~100°范围变化时，YIa曲线呈上升趋势，YIa值从-5903.33mm/s2缓慢增加到711.07mm/s2；在100°~240°范围变化时，YIa曲线呈下降趋势，YIa值从711.07mm/s2缓慢减少到-1031.62mm/s2；在240°~330°范围变化时，YIa曲线呈上升趋势，YIa值从-1031.62mm/s2缓慢增加到19924.89mm/s2；在330°~360°范围变化时，YIa曲线呈下降趋势，YIa值从19924.89mm/s2缓慢减少到-5903.33mm/s2。
当曲柄AB转到330°时，YIa值达到最大，最大值为19924.89mm/s2；当曲柄AB转到0°时，YIa值达到最小，最小值为-5903.33mm/s2。
升级会员 