机械原理课程设计牛头刨床的VB

机械原理课程设计说明书黑龙江八一农垦大学工程学院：付景瑞第1页共14页一·机构简介·1.1牛头刨床的组成牛头刨床主要由床身、滑枕、刀架、工作台、横梁、进给机构和变速机构等组成。(1)床身床身内部有变速机构和曲柄摇杆机构。床身的顶面有水平导轨,滑枕沿水平导轨作往复直线运动。在床身前面有垂宜导轨,横梁带动工作台沿垂直导轨升降。2)滑枕滑枕的前端有环状T形槽,用来安装刀架和调节刀架的偏转角度:滑枕的内部装有调整滑枕行程位置的机构,它是由一对锥齿轮和丝杠组成。滑枕的下部有两条燕尾型导轨,它与床身上部的水平导轨配合。在曲柄摇杆机构的带动下,滑枕在床身水平导轨上作往复直线运动。(3)横梁与工作台校梁安装在床身前部垂直导轨上。横梁的底部装有升降丝杠,使校梁能沿着床身前部的垂直导轨作上下移动。工作台和滑板连接在一起,安装在横梁水平导轨上,转动安装在校梁凹框内的横向进给丝杠,工作台就沿着横梁的水平导轨作横向移动。工作台的前部底下装有支架,以防止工作台在刨削过程中产生向下倾斜和振动现象。工作台的上平面和两侧面均制有T形槽、v形槽和圆孔,用来固定不同形状的工件或夹具。(4)刀架刀架用于装夹刨刀,并使刨刀沿着垂直方向和倾斜方向移动。刀架由手柄、丝杠、刻度转盘、夹刀座、拍板、拍板座、滑板等组成。刻度转盘6用T形职栓5紧固在滑枕前端的“环”状T形槽内。可按加工的需要作160’的回转。刻度转盘6与滑板13通过导轨相配合,只要摇动丝杠3上端的手柄1,就可使滑板13沿着刻度转盘6上的导轨移动,通过刻度环2来控制背吃刀量的大小。拍板10与拍板座11的凹槽相配合,用铰链销7连接。在拍板10的孔内装有夹刀座8刨刀就装在它的槽孔内,拍板10可以绕铰链销7向前上方拾起,这样可避免滑枕回程时刨刀与工件已加工。(5)进给机构进给机构主要用来控制工作台横向进给运动的大小。(6)变速机构操纵变速机构的手柄,可以把各种不同的转速传递到曲柄摆杆机构而改变格杆在相同时间间隔内的摆动次数。(7)曲柄摇杆机构主要作用是把电动机的旋转运动转换为滑枕的往复直线运动。1.2牛头刨床的运动形式牛头刨床机构是一种常用切削加工机床，运动简图如图（1）所示，刨床工作时，原动件1作等速转动，经六杆机构（1-2-3-4-5-6）传递。带动滑枕连同安装在滑枕上的刨刀5作往复运动。刨刀向左运动时进行切削，称为工作行程。此时要求速度较低和较均匀以提高切削质量。刨刀向左运动时不切削，称为空回行程。该行程要求速度快些，以节省时间，提高生产率。为此采用了有急回作用的摆动导杆（6-1-3-2）和摆杆滑块机构（3-4-5-6）串联形式。刨刀在工作行程中受切削阻力（在行程的两端各有一段0.05So的空刀距离），而在空回程时则不受切削力。机械原理课程设计说明书黑龙江八一农垦大学工程学院：付景瑞第2页共14页二·设计要求·课程设计采用计算机编程方式。1）·根据行程速比系数K，设计曲柄长度AB，将结果圆整到mm；并计算杆三的两个极限位置φ3'φ3''，最大摆角φm及铰链E的两个极限位置XE1及XE2和杆5的最大行程S0。2）·根据所求出的曲柄长，对所设计的六杆机构进行分析。求出一个周期内杆5的各个位置的位移，速度和加速度。3）·通过计算机编程方式，绘出位移，速度，加速度随转角φ1变化的曲线。4）·完成设计计算说明书。三·数学模型·3.1机构设计首先建立坐标系，一般在原动件逆时针旋转时取右手系，当原动件顺时针旋转时取左手系。1K1801kk由得m11801kk所以(1-1)机械原理课程设计说明书黑龙江八一农垦大学工程学院：付景瑞第3页共14页mABACLLsin2求曲柄长(1-2)3'22m求出摆杆的两个极限位置(1-3)3''22m(1-4)1'sin2mECDXL(1-5)221''(cos())2mEDEHCDXLLL(1-6)111'''EEEXXX因为(1-7)2121''''''EEEEXXXX；22211''''''EEEEEXXXXX所以(1-8)012EEXX最大行程S(1-9)3.2运动分析解析式导杆机构的封闭向量方程式（如图二）ABBCACLLL（2-1）式（2-1）在X轴和Y轴上的投影为：{1313coscossinsinabbcacabbcLLLLL（2-2）131sinarctancosACABABLLL解方程组（2-2）得：（2-3）13cosLcosABCBL（2-4）对方程组（3-2）分别求导得：机械原理课程设计说明书黑龙江八一农垦大学工程学院：付景瑞第4页共14页313cos()ABCBLL（2-5）23131sin()BBABVL（2-6）2312333sin()2ABBBCBLVaL（2-7）滑枕机构的封闭向量解析式（如图三）05CDDELLXHS（2-8）在X轴和Y轴上的投影为340534coscossinsinCDDECDDELLXSLLH（2-9）解方程组（2-9）得34HsinsinCDDELyL（2-10）4424sinarctan1sin（2-11）13sinCDHHL（2-12）机械原理课程设计说明书黑龙江八一农垦大学工程学院：付景瑞第5页共14页2201ABCDDEBCLXLLHL（2-13）5034coscosCDDESXLL（2-14）3344coscosCDDELL（2-15）53344sinsinCDDEVLL（2-16）2233334444sincossincosCDDEDELaLaL（2-17）22533334444sincossincosCDDEaLaLa（2-18）机械原理课程设计说明书黑龙江八一农垦大学工程学院：付景瑞第6页共14页四·变量符号对照表·序号数学建模中符号VB编程中符号实际表示意义1KK行程速比系数2sita极位夹角31a01杆与水平线之间的夹角4mFm最大摆角53a33杆与水平线之间的夹角63'f313杆到第一极限位置的夹角73''f323杆到第二极限位置的夹角84a44杆与水平线之间的夹角9ACLLacAC杆的杆长10ABLLabAB杆的杆长11CDLLcdCD杆的杆长12DELLdeDE杆的杆长13BCLLbcBC杆的杆长14HLLh机架的高度151XEXe1E1点到y轴的距离161'XEXe11D1点到y轴的距离171''XEXe12D1点与E1点的水平距离182XEXe2E2点到y轴的距离192'XEXe21D2点到y轴的距离202''XEXe12D2点与E2点的水平距离210Ss0E1点与E2点的距离225Ss5构件5的位移230Xx0构件5的位移值所对应的x轴坐标241Hh1D点与E点的垂直距离25Nn0电机转速261W11杆的角速度273W33杆的角速度284W44杆的角速度29w原动件的角速度3023BBVv23构件2与构件3的相对速度315Vv55杆的速度323aa33杆的加速度334aa44杆的加速度345aa55杆的加速度35εJjs336Vb2b3V232杆相对于3杆的速度机械原理课程设计说明书黑龙江八一农垦大学工程学院：付景瑞第7页共14页五·流程图·5.1计算流程图5.2程序流程图开始输入已知数据：k值及个杆长第一步计算结束第二，三步计算输出第一步计算结果输出第二，三步计算结果机械原理课程设计说明书黑龙江八一农垦大学工程学院：付景瑞第8页共14页六·源程序·'定义变量Dimk!,a1!,a2!,Lac!,Lab%,a31!,a32!,b1!,Lcd!,Lde!,a3!DimLh!,c1!,b2!,c2!,c!,s0!,n3!,n!,v23!,a0!,du%Dimn1!,e3!,x0!,s5!,a4!,h1!,v5!,n4!,e4!,e5!,n0!,Lbc!Constpi=3.141592653PrivateSubForm_Load()'姓名，学号，班级Label19.Caption=班级：Label20.Caption=姓名：Label21.Caption=学号：Label19.FontSize=15Label20.FontSize=15Label21.FontSize=15EndSub'已知数据PrivateSubCommand1_Click()Text1.Text=1.65Text2.Text=450mmText3.Text=760mmText4.Text=200mmText5.Text=770mmText6.Text=80r/minEndSub'第一步计算PrivateSubCommand2_Click()k=Val(Text1.Text)Lac=Val(Text2.Text)Lcd=Val(Text3.Text)Lde=Val(Text4.Text)Lh=Val(Text5.Text)n0=Val(Text6.Text)IfText1.Text=ThenMsgBox请给出已知数据Elsea1=((k-1)/(k+1))*180a2=a1/180*piLab=Lac*Sin(a2/2)a31=90+a1/2a32=90-a1/2b1=Lcd*Sin(a2/2)b2=Sqr(Lde^2-(Lh-Lcd*Cos(a2/2))^2)机械原理课程设计说明书黑龙江八一农垦大学工程学院：付景瑞第9页共14页b=b1+b2c1=b1:c2=b2:c=c2-c1s0=b-cText7.Text=LabText8.Text=a31Text9.Text=a32Text10.Text=a1Text11.Text=bText12.Text=cText13.Text=s0EndIfEndSub'第二步计算绘制图形PrivateSubCommand3_Click()IfText7.Text=ThenMsgBox请先计算曲柄AB的长度EndIfIfText1.Text=ThenMsgBox请给出已知数据EndIf'画坐标轴ClsPicture1.Scale(-280,50)-(250,-50)Picture1.Line(-280,0)-(240,0)Picture1.Line(-270,50)-(-270,-50)Picture1.Line(-230,50)-(-230,-50)Picture1.Line(-190,50)-(-190,-50)Picture1.CurrentX=230:Picture1.CurrentY=-10:Picture1.Printφ1Picture1.CurrentX=-190:Picture1.CurrentY=48:Picture1.PrintaPicture1.CurrentX=-270:Picture1.CurrentY=48:Picture1.PrintsPicture1.CurrentX=-230:Picture1.CurrentY=48:Picture1.PrintvPicture1.Line(240,0)-(233,2)Picture1.Line(240,0)-(233,-2.5)Picture1.Line(-195,48)-(-190,50)Picture1.Line(-185,48)-(-190,50)Picture1.Line(-230,50)-(-225,48)Picture1.Line(-230,50)-(-235,48)Picture1.Line(-270,50)-(-275,48)Picture1.Line(-270,50)-(-265,48)'画，位移，速度，加速度图像Fori=0To360Step60Picture1.CurrentX=i-190:Picture1.CurrentY=-1:Pict