黃澤權數(shù)控技術課程設計

1、凸輪設計原、凸輪的分類直動推桿（作往復直線運動往復擺動（作往復擺動、推桿的運動規(guī)律2從動件行程hφuφsφd和進休止角φd可以略小些，因為回程一般不是工作行程，壓力角可以大些。1-11-2、運動曲線類型的方程表達式s CC2...C

(1-sC0v

adv (1-2 0，s0 0，sh則由式(1-2)C00C1h/0，故從動件推程的運動方程為sh ，回程時h0等加速運動方程： 2h2/0 h )2/ 圖1-4等加速等運動規(guī)sh[1cos(/0)]/1-5sh[(/0)sin(2/0)/21–62、NC代碼生成的程序、凸輪曲線的數(shù)學近方法等間距直線圖2-1推桿平面圖曲線近原理將x1～x3600的值代入方程y=f(x),可求得y1～y3600的值，從而得到結點A1～A3600Picture23600A1～A2、A2～A3…A3600～A1用直線連起來，即可得到推桿平面圖曲線圖形。圖2-2凸輪曲線近原理在本中，采用的間距為0.1度，即推桿平面圖的x軸每隔0.1度取一個（如以下代碼，end1是指所畫圓弧的開始點，str是終點，step0.1指每0.1Fori=0To(end1-str)StepX=p=i-SelectCaseQxxze.ListIndexCase0Y=h*i/(end1-str)Case1Y=h*(i^2)/((end1-str)^2)Case2Y=h-h*((end1-str)-i)^2/(end1-str)^2Case3Y=h*((i/(end1-str))-Sin(2*PI*i/(end1-str))/*

CaseY=h*(1-Cos(PI*i/(end1-str)))/2EndSelectFormzhu.Picture2.PSet(X,Y),RGB(1000,0,Formzhu.Picture2.PSet(X,Y),RGB(1000,0,ptx(M)=(radius+(Gao+Y))*Sin((Huan+i)*PI/180)pty(M)=(radius+(Gao+Y))*Cos((Huan+i)*PI/180)ptx(N)=((Gao+Y)+radius)*Sin((Huan+p)*PI/180)pty(N)=((Gao+Y)+radius)*Cos((Huan+p)*PI/ M=M+N=N+、NC加工代碼生成VBForM=1Toj=j+"F";LTrim(RTrim(Val(Text1)))j=j+Fori=1ToPrint#1,"N";LTrim(RTrim(j));"G01";"X";-ptx(i-1)),"###.###")));"Y";LTrim(RTrim(Format$((pty(i)-pty(i-1)),"###.###")))j=j+1選擇完成選擇完成導出曲線導出曲線3、界面設計開發(fā)工具的選擇VisualBasic編程語言是一個面象的集成開發(fā)系統(tǒng)，它繼承了事件驅(qū)動、動態(tài)數(shù)據(jù)驅(qū)動等先進的開發(fā)技術。VisualBasic可以在程序中用中文注釋，這在國家尤為重要。 以選擇了VisualBasic作為開發(fā)工具。人機界面的確定由輸入?yún)?shù)類型和輸出順序布局：凸輪基本參數(shù)輸入?yún)^(qū)域位于界面的右上按3-1功能模塊的劃分4、使用說明及測試情、使用說明輸入加工參數(shù)，并選擇坐標系和刀具補償，可生成顯示NC代碼，確定后，可以 作、測試情況：、運行后的，登陸界4-14-24-34-4、選擇第一段曲線類型并輸入范圍和升程，確定后在Picture1和4-5、選擇第二段曲線類型并輸入范圍和升程，確定后在Picture1和4-6、選擇第三段曲線類型并輸入范圍和升程，確定后在Picture1和4-7、選擇第四段曲線類型并輸入范圍和升程，確定后在Picture1和4-84-9后點擊生成NC代碼顯示NC代碼，點擊確定保存到指定的文件夾！4-10NC4-114-124-13退出 5、設計小結VB附PrivateSubFormzhu.InR.Text= '清空TlcshuFormzhu.InN.Text=low '數(shù)據(jù)初始area=b1= Formzhu.Picture2.ScaleLeft20初始化坐標系Formzhu.Picture2.ScaleTop=18Formzhu.Label20.Visible=False Formzhu.Label21.Visible=FalseFormzhu.Label22.Visible=FalseFormzhu.Label13.Visible=FalseFormzhu.Label14.Visible=FalseFormzhu.Label15.Visible=FalseFormzhu.Label16.Visible=FalseFormzhu.Label18.Visible=FalseFormzhu.Label23.Visible=FalseFormzhu.Label24.Visible=FalseFormzhu.InR.Enabled=TrueFormzhu.InH.Enabled=Formzhu.InN.Enabled=TrueFormzhu.Queding.Enabled=TrueFormzhu.Qxzshu.Caption=0Formzhu.Qxdxu.Caption=0Formzhu.Qxxze.Enabled=FalseFormzhu.Timer2.Enabled=TrueFormzhu.Timer3.Enabled=FalseQxcshu.ForeColor=&H0&Formzhu.Timer4.Enabled=FalseDcgneng.ForeColor=&H0&Option1.Value=Truemand3.Enabled=EndDimstrAsDouble,end1AsDouble,hAsDimiAsDouble,radiusAsDouble,savetimeAsDoubleDimXAsDouble,YAsDoubleIfQxzshu.Caption=Qxdxu.Captionmand3.Enabled=FalseFormzhu.Timer3.Enabled=FalseQxcshu.ForeColor=&H0&Formzhu.Timer4.Enabled=TrueEndIfIsNumeric(Numqdian)AndIsNumeric(Numzdian)AndIsNumeric(NumH)str=Val(Numqdian):end1=Val(Numzdian):h=Val(NumH)radius=Val(Formzhu.InR)low=10*M=N=low+Fori=0To(end1-str)Step0.1X=ip=i-Case0Y=h*i/(end1-str)Case1Y=h*(i^2)/((end1-str)^2)Case2Y=h-h*((end1-str)-i)^2/(end1-str)^2Case3Y=h*((i/(end1-str))-Sin(2*PI*i/(end1-str))/(2*PI))Case4Y=h*(1-Cos(PI*i/(end1-str)))/2EndSelectFormzhu.Picture2.PSet(X,Y),RGB(1000,0,Formzhu.Picture2.PSet(X,Y),RGB(1000,0,ptx(M)=(radius+(Gao+Y))*Sin((Huan+i)*PI/180)pty(M)=(radius+(Gao+Y))*Cos((Huan+i)*PI/180)ptx(N)=((Gao+Y)+radius)*Sin((Huan+p)*PI/180)pty(N)=((Gao+Y)+radius)*Cos((Huan+p)*PI/180)Formzhu.Picture1.Line(ptx(M),pty(M))-(ptx(N),pty(N)),RGB(1000,0,0)M=M+N=N+Formzhu.Qxxze.Enabled=IfFormzhu.Option2.Value=TrueThenFormzhu.Timer1.Enabled=TrueFormzhu.Timer1.Enabled=FalseEndIfIfFormzhu.Option1.Value=TrueThenFormzhu.Option2.Visible=TrueFormzhu.Timer1.Enabled=Falsesavetime=Timer'記下開始的時間WhileTimersavetime0.0001快速顯示savetimeTimerWhileTimersavetime0.01循環(huán)等待EndIfNextFormzhu.Qxxze.Enabled=True'顯示當前為第幾條曲IfFormzhu.Qxzshu.Caption=Formzhu.Qxdxu.CaptionThenFormzhu.Label5.Visible=Truecountnum=countnum+1End'設定范tch=tch+hFormzhu.Picture2.ScaleTopschtchHuan=Val(Numzdian)Gao=Gao+a1=Numqdian:a2=Numzdian:a3=NumHSelectCaseQxxze.ListIndexCaseFormzhu.Picture3.Printa1;"~";a2;" ";"h=";a3;" _CaseFormzhu.Picture3.Printa1;"~";a2;" ";"h=";a3;" _CaseFormzhu.Picture3.Printa1;"~";a2;" ";"h=";a3;" _CaseFormzhu.Picture3.Printa1;"~";a2;" ";"h=";a3;" _CaseFormzhu.Picture3.Printa1;"~";a2;" ";"h=";a3;" _Endb1=b1+IfGao>Val(Formzhu.InH)MsgBox超出總升程，請重新輸入！low '數(shù)據(jù)初始area=b1= Formzhu.Picture2.ScaleLeft20初始化坐標系Formzhu.Picture2.ScaleTop=18Formzhu.InR.Enabled=TrueFormzhu.InH.Enabled=TrueFormzhu.InN.Enabled=TrueFormzhu.Queding.Enabled=TrueFormzhu.Qxzshu.Caption=0Formzhu.Qxdxu.Caption=0Formzhu.Qxxze.Enabled=FalseFormzhu.Option1.Value=TrueEndIfMsgBox("范圍出錯！"),16Formzhu.Numzdian.TextEndIfMsgBox("輸入為空或有字符，請重新輸入！")EndIfEndPrivateSubCommand4_Click()OnErrorResumeNext Statici%DimFileSelect$=i%+j%=i%CommonDialog1.Action=2Picture2.Picture=Picture2.ImageSavePicturePicture2.Picture,EndOnErrorResumeNextStaticDimFileSelect$=i%+j%=i%CommonDialog2.Action=2Picture1.Picture=Picture1.ImageSavePicturePicture1.Picture,FileSelect$EndFormzhu.Numqdian.Text= '清空TextFormzhu.NumH.Text=""Formzhu.Numqdian.Text= '設定defaultFormzhu.Numqdian.Enabled=FalseFormzhu.Numzdian.Enabled=IfQxzshu.Caption=Qxdxu.CaptionThen Formzhu.Numzdian.Text="360" Formzhu.Numzdian.Enabled=False Formzhu.NumH.Text=-b1EndPrivateSubDimc1AsInteger,c2AsInteger,cAsIfVal(InR)<=0ThenInR=""ElseIfVal(InH)<=0InH=""ElseIfVal(InN)<=1InN=""ElseIfIsNumeric(InR.Text)And_IsNumeric(InH)AndIsNumeric(InN.Text)ThenFormzhu.InR.Enabled=FalseFormzhu.InH.Enabled=FalseFormzhu.InN.Enabled=FalseFormzhu.Queding.Enabled=FalseFormzhu.Qxxze.Enabled=Truemand3.Enabled=TruePicture1.Visible=TruePicture3.Visible=TruePicture2.Visible=True'確定Formzhu.Picture1,Picture2.Picture3c1=Val(InR)c2=c=1.2*(c1+c2)Formzhu.Picture1.Scale(-c,c)-(c,-c)Picture1.Line(0,-1.2*(c1+c2))-(0,1.2*(c1+c2)),RGB(0,128,Picture1.Line(-1.2*(c1+c2),0)-(1.2*(c1+c2),0),RGB(0,128,Fori=1ToPicture1.Line(0+i*((c1+c2)/10),0)-(0+i*((c1+c2)/10),c/50),RGB(0,128,0) Picture1.Line(0-i*((c1+c2)/10),0)-(0-i*((c1+c2)/10),c/50),128,Picture1.Line(0,0+i*((c1+c2)/10))-(c/30,0+i*((c1+c2)/10)),RGB(0,128,0)Picture1.Line(0,0-i*((c1+c2)/10))-(c/30,0-i*((c1+c2)/10)),RGB(0,128,0)Picture1.Line(11.3*(c1+c2)/10,1)-(12*(c1+c2)/10,0),RGB(0,128,'畫箭Picture1.Line(11.3*(c1+c2)/10,-1)-(12*(c1+c2)/10,0),RGB(0,128,'畫箭Picture1.Line(-1,11.3*(c1+c2)/10)-(0,12*(c1+c2)/10),RGB(0,128,Picture1.Line(1,11.3*(c1+c2)/10)-(0,12*(c1+c2)/10),RGB(0,128,NextFormzhu.Label20.Visible=True Formzhu.Label21.Visible=TrueFormzhu.Label22.Visible=TrueFormzhu.Label13.Visible=TrueFormzhu.Label14.Visible=TrueFormzhu.Label15.Visible=TrueFormzhu.Label16.Visible=TrueFormzhu.Label18.Visible=TrueFormzhu.Label23.Visible=TrueFormzhu.Label24.Visible=TrueFormzhu.Picture2.Scale(-20,c2)-(540,0)Picture2.ScaleHeight=-1.1*c2Picture2.ScaleTop=c2Picture2.Line(0,0)-(0,c2),RGB(0,128,Fori=1ToPicture2.Line(0,0+i*(c2/4))-(5,0+i*(c2/4)),RGB(0,128,0)NextiPicture2.Line(0,0)-(540,0),RGB(0,128,Fori=1ToPicture2.Line(0+i*(360/8),0)-(0+i*(360/8),c2/24),RGB(0,128,NextPicture2.Line520,c212)-(540,0RGB(0,128 '畫箭Picture2.Line520,c212)-(540,0RGB(0,128 '畫箭Formzhu.Timer2.Enabled=FalseTlcshu.ForeColor=&H0&Formzhu.Timer3.Enabled=TrueFormzhu.Qxzshu.CaptionInN.TextFormzhu.Qxdxu.Caption=1countnum=tch=0:sch=Val(InH)Huan=0:Gao=0Formzhu.Picture3.Print" ";"基圓半徑";":";InR.TextFormzhu.Picture3.Print" ";"升程";":";InH.TextFormzhu.Picture3.Print" ";"曲線段數(shù)";":";InN.Text'在Formzhu.Picture1Formzhu.Picture1.DrawStyle=Formzhu.Picture1.Circle(0,0),Val(InR),RGB(0,0,Formzhu.Picture1.DrawStyle=0MsgBox("輸入為空，或字符,請重新輸入"),16EndIfEndPrivateSubTimer4_Timer()IfDcgneng.ForeColor=&HFFFF&ThenDcgneng.ForeColor=&H0&jj=j+Dcgneng.ForeColor=&HFFFF&EndIfEndPrivateSubIfIsNumeric(Text1)AndIsNumeric(Text2)AndIsNumeric(Text3)And_IsNumeric(Text4)AndIsNumeric(Text5)AndIsNumeric(Text6)And_IsNumeric(Text7)AndIsNumeric(Text8)ThenDimiAsInteger,jAsDouble,fName2AsCommonDialog1.InitDir="c:\"CommonDialog1.Filternc文件(*.nc)|*.nc|文本(*.txt)|*.txt|所有文件CommonDialog1.Action=2OpenCommonDialog1.FileNameForOutputAsj='絕對坐標編IfOption1.ValueTrueThen'NC代碼的開始部分Print#1,j=j+Print#1,"N";LTrim(RTrim(j));Print#1,"N";LTrim(RTrim(j));"G00G90G54";bch;_LTrim(RTrim(Val(Text6)));_j=j+1sd=Val(Text8)ForM=1ToVal(Text8)j=j+1LTrim(RTrim(Val(Text7)));_"F";j=j+Fori1To3599Print#1,"N";LTrim(RTrim(j));"G01";j=j+1NextNextMPrint#1,"N";LTrim(RTrim(j));"G00";"G40";j=j+1Print#1,"N";LTrim(RTrim(j));Print#1,"%"'相對坐標編IfOption2.Value=TrueThenPrint#1,"%"j=j+j=j+1 "S";LTrim(RTrim(Val(Text4)));"M3"j=j+sd=Val(Text8)ForM=1ToVal(Text8)j=j+1"F";LTrim(RTrim(Val(Text1)))j=j+Fori=1ToPrint#1,"N";LTrim(RTrim(j));"G01";"X";LTrim(RTrim(Format((ptx(i)-ptx(i-1)),"###.###")));_"Y";LTrim(RTrim(Format$((pty(i)-pty(i-1)),"###.###")))j=j+1Nextsd=sd+Nextj=j+1j=j+1Print#1,"%"EndIfEndIfMsgBox("有字符或其它錯誤，請檢查")EndIfEnd9、導出NC代碼模塊程序EndIfIsNumeric(Text1)AndIsNumeric(Text2)AndIsNumeric(Text3)And_IsNumeric(Text4)AndIsNumeric(Text5)AndIsNumeric(Text6)And_IsNumeric(Text7)AndIsNumeric(Text8)ThenDimiAsInteger,jAsDouble,fName2Asj='絕對坐標編IfOption1.Value=TrueList1.AddItemj=j+1j=j+1List1.AddItem"N"<rim(RTrim(j))&"G00G90G54"&bch&_"D01X"&RTrim(LTrim(Format$(ptx(0),"###.###")))&_"Y"&RTrim(LTrim(Format$(pty(0),"###.###")))&"Z"&_LTrim(RTrim(Val(Text6)))&_j=j+1List1.AddItem"N"<rim(RTrim(j))&"Z2"&"F"&sd=ForM=1ToVal(Text8)j=j+1List1.AddItem"N"<rim(RTrim(j))&"G01Z-"<rim(RTrim(Val(Text7)))&_"F"&j=j+'主