铰链四杆VB汇编.doc

目录 设计任务书………………………………………………………..1 1、平面连杆机构 ……………………………………………………1 二、铰链四杆机构…………………………………………………...…2 1. 数学模型的建立……………………………………………………2 2. 控件名称……………………………………………………………6 3. 主要变量说明………………………………………………………8 4. 程序源代码及运行结果……………………………………………10 三、小结…………………………………………………………………..27 四、主要参考资料………………………………………….……………28 2. 主要控件名称及相关说明 控件名称 类型 变量名 含义、功能 单位 txtLength（0） TextBox 控件数组 dblL_AB 主动连架杆AB长度 mm txtLength（1） dblL_BC 连杆BC长度 mm txtLength（2） dblL_CD 从动连架杆CD长度 mm txtLength（3） dblL_AD 机架AD长度 mm txtLength（4） dblN 主动连架杆AB的转速n r/min txtLength（5） dblL_BE BE的长度 mm txtLength（6） dblF_BE 杆BE与杆AB的夹角δ mm txtAngle TextBox - 主动连架杆AB的任意角位移 ° textScale TextBox dblSxy 运动仿真的显示比例 - optClockWise OptionButton intCW 杆AB顺时针转，intCW= -1 - optNCW 杆AB逆时针转，intCW=1 optPosition OptionButton intM B、C、D顺时针排列，intM= -1 - optNPosition B、C、D逆时针排列，intM=1 lblCurrent（0） Lable 控件数组 - 显示指定时刻杆CD的角位移 ° lblCurrent（1） 显示指定时刻杆CD的角速度 rad/s lblCurrent（2） 显示指定时刻杆CD的角加速度 rad/s2 lblCurrent（3） 显示指定时刻点E对x轴角位移 ° lblCurrent（4） 显示指定时刻点E对x轴角速度 rad/s lblCurrent（5） 显示指定时刻点E对x轴角加速度 rad/s2 lblCurrent（6） 显示指定时刻点E对y轴角位移 ° lblCurrent（7） 显示指定时刻点E对y轴角速度 rad/s lblCurrent（8） 显示指定时刻点E对y轴角加速度 rad/s2 lblRealtimeAB Lable - 实时显示杆AB的角位移 ° lblRealtime(0) Lable 控件数组 Lable 控件数组 - 实时显示杆CD的角位移 ° lblRealtime(1) 实时显示杆CD的角速度 rad/s lblRealtime(2) 实时显示杆CD的角加速度 rad/s2 lblRealtime(3) 实时显示点E对x轴角位移 ° lblRealtime(4) 实时显示点E对x轴角速度 rad/s lblRealtime(5) 实时显示点E对x轴角加速度 rad/s2 lblRealtime(6) 实时显示点E对y轴角位移 ° lblRealtime(7) 实时显示点E对y轴角速度 rad/s lblRealtime(8) 实时显示点E对y轴角加速度 rad/s2 cmdRun CommandButton - 运行程序 - cmdList CommandButton - 显示计算结果 - cmdDraw CommandButton - 绘制运动曲线 - cmdPlay CommandButton - 进行运动仿真 - Command1 CommandButton - 暂停运动仿真 - cmdExit CommandButton - 退出程序 - tmrDraw Timer - 控制运动曲线的绘制速度 - tmrPlay Timer - 控制运动仿真的速度 - sstResult SStab - 提供一组选项卡显示程序运行结果 - grdDataList MSFlexGrid - 显示分析结果 - picFigure PictureBox - 显示机构示意图 - picDraw(0) PictureBox 控件数组 - 显示杆CD的角位移曲线 - p