附录3曲柄滑块机构设计例41程序设计定稿Word文件下载.docx
- 文档编号:13328253
- 上传时间:2022-10-09
- 格式:DOCX
- 页数:18
- 大小:23.08KB
附录3曲柄滑块机构设计例41程序设计定稿Word文件下载.docx
《附录3曲柄滑块机构设计例41程序设计定稿Word文件下载.docx》由会员分享,可在线阅读,更多相关《附录3曲柄滑块机构设计例41程序设计定稿Word文件下载.docx(18页珍藏版)》请在冰豆网上搜索。
Text5
p3x
Text6
p3y
Text7
al12
(°
)
Text8
al13
Text9
a0x
Text13
a0y
Text14
b1x
Text10
lab
连杆的长度
Text11
la0a
曲柄的长度
Text12
e
滑块导路的偏距
2.程序设计
(1)变量声明
OptionExplicit
PublicConstpiAsDouble=3.1415926'
pi-圆周率
PublicConstrrAsDouble=pi/180'
rr-度转换成弧度的系数
PublicConstrr2AsDouble=180/pi'
rr2-弧度转换成度的系数
PublicscaAsDouble'
sca-绘图比例系数
PubliciiAsInteger,jjAsInteger'
ii,jj-循环变量
PublicqAsInteger'
q-转向系数
PubliceAsDouble'
w-偏距
PublicpAsInteger'
p-主动件转速
PubliclabAsDouble'
lab-曲柄的长度
Publicla0aAsDouble'
la0a-曲柄或主动连架杆的长度
Publiclb0bAsDouble'
lb0b-从动连架杆的长度
Publicla0b0AsDouble'
la0b0-机架的长度
Publica0xAsDouble,a0yAsDouble'
a0x,a0y-主动连架杆与机架的铰链
Publica1xAsDouble,a1yAsDouble'
a1x,a1y-主动连架杆和连杆的铰链
Publicb1xAsDouble,b1yAsDouble'
b1x,b1y-从动连架杆和连杆的铰链
Publicp1xAsDouble,p1yAsDouble,p2xAsDouble,_
p2yAsDouble,p3xAsDouble,p3yAsDouble,_
p4xAsDouble,p4yAsDouble,_
p5xAsDouble,p5yAsDouble'
连杆平面通过的三个位置
Publicfa12AsDouble,fa13AsDouble'
fa12,fa13-从动连架杆的相对转角
Publical12AsDouble,al13AsDouble,_
al14AsDouble,al15AsDouble'
-主动连架杆的相对转角
Publicb0xAsDouble,b0yAsDouble'
b0x,b0y-从动连架杆与机架的铰链
PublicthtAsDouble'
tht-导路斜率
Publicdd12(3,3)AsDouble,dd13(3,3)AsDouble'
-刚体位移矩阵
Publicd11(2To3)AsDouble,d12(2To3)AsDouble,d13(2To3)AsDouble
Publicd21(2To3)AsDouble,d22(2To3)AsDouble,d23(2To3)AsDouble
'
刚体矩阵的元素
Publicaa1AsDouble,bb1AsDouble,cc1AsDouble,_
dd1AsDouble,ee1AsDouble,ff1AsDouble'
-轨迹圆方程中的系数
Publicaa(2To3)AsDouble,bb(2To3)AsDouble,_
cc(2To3)AsDouble'
-线性方程组系数
Publica1xx(360)AsDouble,a1yy(360)AsDouble'
-a1点的360个坐标
Publicb1xx(360)AsDouble,b1yy(360)AsDouble'
-b1点的60个坐标
PublicaatAsDouble,bbtAsDouble,cctAsDouble
PublicddtAsDouble,eetAsDouble,fftAsDouble
'
-计算各铰链点的坐标时所用
Publicfa(360)AsDouble'
-动画计算时所用从动件的转角
Publics12AsDouble,s13AsDouble'
-滑块的相对位移
PublicalmaxAsDouble,famaxAsDouble'
-主、从动件的最大摆角
Publicx0AsDouble,y0AsDouble,xmAsDouble,ymAsDouble
-生成函数机构时所用
PublicnnAsDouble'
-计数变量
PublicX(1To3)AsDouble,Y(1To3)AsDouble'
Publical0AsDouble,al1AsDouble,almAsDouble'
Publicfa0AsDouble,fa1AsDouble,famAsDouble'
PublickalAsDouble,kfaAsDouble'
PublicdltmaxAsDouble,dltminAsDouble'
-传动角最大最小值
PublictempAsDouble'
temp-杆长最大值
Publicxx(1To4)AsDouble'
-动画计算时所用的暂时变量
PublicbAsDouble'
b-动画计算时所用的暂时变量
Publicb1AsDouble'
b1-计算各铰链点的坐标时所用
PublicTimer1AsTimer'
-时间控件
PublicnAsInteger,iAsInteger,jAsLong'
-计数变量
PublicddAsInteger'
dd-曲柄角度增量
Publiclimit1AsDouble,limit2AsDouble'
主动连架杆的两个极限角
(2)主程序
窗体加载主程序
PrivateSubForm_Load()
Combo1.AddItem"
逆时针"
顺时针"
Combo2.AddItem"
4"
5"
6"
7"
8"
9"
10"
EndSub
“运行”按钮主程序
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger
Dimb3xAsDouble,b3yAsDouble
Dimb2xAsDouble,b2yAsDouble
Dimbj1(3,1)AsDouble,bj2(3,1)AsDouble,bj3(3,1)AsDouble
Picture2.Cls
p1x=Val(Text1.Text):
p1y=Val(Text2.Text)
p2x=Val(Text3.Text):
p2y=Val(Text4.Text)
p3x=Val(Text5.Text):
p3y=Val(Text6.Text)
al12=Val(Text7.Text)*rr:
al13=Val(Text8.Text)*rr
a0x=Val(Text9.Text):
a0y=Val(Text13.Text)
b1x=Val(Text14.Text)
IfCombo1.Text="
Then
q=1
Else
q=-1
EndIf
运行提示
IfText1.Text="
"
OrText2.Text="
OrText3.Text="
OrText4.Text="
Beep
MsgBox"
请完全输入数据"
"
48"
提示!
ExitSub
IfText13.Text="
OrText14.Text="
OrText5.Text="
OrText7.Text="
_
OrText8.Text="
OrText9.Text="
请选择转向系数!
48,"
IfCombo2.Text="
请选择曲柄转速!
p=Combo2.Text
调用刚体位移矩阵
Calldd12m(al12,p1x,p1y,p2x,p2y,dd12())
Calldd13m(al13,p1x,p1y,p3x,p3y,dd13())
调用轨迹圆方程系数
Callgjyf(al12,al13,dd12(),dd13(),cc1,bb1,aa1,dd1,ee1,ff1)
If((dd1^2+ee1^2-4*aa1*ff1)/(4*aa1^2)-(b1x+dd1/_
(2*aa1))^2)<
0Then
预定参数不合适,请重新输入!
b1y=-ee1/(2*aa1)-Sqr((dd1^2+ee1^2-4*aa1*ff1)/_
(4
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 附录 曲柄 机构 设计 41 程序设计 定稿