數(shù)控課程設(shè)計(jì)--前加減速控制

1、<p><b>　　數(shù)控技術(shù)課程設(shè)計(jì)</b></p><p>　　前加減速控制（VB）</p><p><b>　　指導(dǎo)教師：</b></p><p>　　應(yīng)用專業(yè)：機(jī)械設(shè)計(jì)制造及其自動(dòng)化</p><p>　　班級(jí) </p><p>　　學(xué)號(hào)

2、 </p><p>　　姓名 </p><p>　　組號(hào) </p><p>　　班級(jí)序號(hào) </p><p><b>　　目 錄</b></p><p>

3、<b>　　一 設(shè)計(jì)任務(wù)書</b></p><p>　　1. 課程的地位、任務(wù)和作用 …………………………………3</p><p>　　2．設(shè)計(jì)內(nèi)容 …………………………………………………3</p><p>　　3. 設(shè)計(jì)目的 …………………………………………………3 </p><p>　　二 VB軟件設(shè)計(jì)說明書&l

4、t;/p><p>　　2-1 分析問題 …………………………………………………4</p><p>　　2-2 提出算法 …………………………………………………4</p><p>　　2-3 列出流程圖 ………………………………………………5</p><p>　　2-4前加減速軟件控制界面 …………………………………6</p>

5、<p>　　2-5編寫程序 …………………………………………………6</p><p>　　三 參考文獻(xiàn)………………………………………………… 9</p><p><b>　　一、 設(shè)計(jì)任務(wù)書</b></p><p>　　1.課程的地位、任務(wù)和作用</p><p>　　本課程設(shè)計(jì)是在《數(shù)控技術(shù)》理論課程學(xué)

6、習(xí)完后進(jìn)行?！稊?shù)控技術(shù)》是機(jī)械設(shè)計(jì)制造及其自動(dòng)化專業(yè)必修的主干專業(yè)課之一，對(duì)實(shí)際應(yīng)用能力要求很高；通過該課程設(shè)計(jì)使學(xué)生進(jìn)一步掌握和消化數(shù)控機(jī)床基本內(nèi)容，了解數(shù)控機(jī)床編程的特點(diǎn)和步驟，深化工藝處理技術(shù)和編程方法，通過調(diào)試，掌握系統(tǒng)軟件的操作方法，了解數(shù)控系統(tǒng)組成，深化系統(tǒng)控制原理和方法，通過設(shè)計(jì)和調(diào)試，掌握各種數(shù)控功能的實(shí)現(xiàn)方法，為今后從事數(shù)控</p><p>　　領(lǐng)域工作作打下堅(jiān)實(shí)的基礎(chǔ)。</p>

7、<p><b>　　2．設(shè)計(jì)內(nèi)容</b></p><p>　　2.1軟件設(shè)計(jì)：?jiǎn)栴}分析，提出算法，列出流程圖，編寫程序，最后進(jìn)行程序驗(yàn)證。</p><p><b>　　2.2 設(shè)計(jì)成員：</b></p><p><b>　　3.設(shè)計(jì)目的</b></p><p>　　

8、1）針對(duì)設(shè)計(jì)任務(wù)選擇合適的實(shí)現(xiàn)方案；</p><p>　　2）培養(yǎng)學(xué)生查閱技術(shù)手冊(cè)和有關(guān)技術(shù)資料的能力；</p><p>　　3）培養(yǎng)學(xué)生程序設(shè)計(jì)能力；</p><p>　　4）培養(yǎng)學(xué)生程序調(diào)試能力；</p><p>　　5）培養(yǎng)學(xué)生編制技術(shù)文檔的能力；</p><p>　　6）培養(yǎng)學(xué)生嚴(yán)肅認(rèn)真、一絲不茍和實(shí)事求是的科

9、學(xué)態(tài)度。</p><p>　　二 、VB軟件設(shè)計(jì)說明書</p><p><b>　　2-1分析問題：</b></p><p>　　在CNC 裝置中，加減數(shù)控制多數(shù)都采用軟件來實(shí)現(xiàn)，這給系統(tǒng)帶來了較大的靈活性，這種用軟件實(shí)現(xiàn)的加減數(shù)控制放在插補(bǔ)前進(jìn)行稱為前加減速控制。</p><p><b>　　2-2提出算法：

10、</b></p><p>　　前加減速控制，僅對(duì)編程速度F指令進(jìn)行控制，其優(yōu)點(diǎn)是不會(huì)影響實(shí)際插補(bǔ)輸出的位置精度，其缺點(diǎn)是需要預(yù)測(cè)減速點(diǎn)，而這個(gè)減速點(diǎn)要根據(jù)實(shí)際刀具的位置與程序段終點(diǎn)之間的距離來確定，預(yù)測(cè)工作需要完成的計(jì)算量較大。</p><p><b>　　穩(wěn)定速度和瞬時(shí)速度</b></p><p>　　穩(wěn)定速度 Fs=F*T*

11、K/60/1000 當(dāng)Fs>1000時(shí) Fs=1000</p><p>　　瞬時(shí)速度f(wàn)i=Fs,當(dāng)系統(tǒng)處于加速（或減速）狀態(tài)時(shí)，fi<Fs(或fi>Fs)</p><p><b>　　線性加減速處理</b></p><p>　　加減速度 a=1.67x10^-5*F/t (mm/ms^2)</p><p&

12、gt;　　加速處理 Fs=Fs+aT </p><p>　　減速處理 s=Fs^2/2a+s Fi+1=Fi-aT</p><p><b>　　終點(diǎn)判別處理</b></p><p>　　1)直線插補(bǔ)Xi=xi-1+x’ Yi=yi-1+y’</p><p>　　Si=NE=sqr((X

13、e-Xi)^2+(Ye-Yi)^2)</p><p>　　2)圓弧插補(bǔ) Si=sqr((Xe-Xi)^2+(Ye-Yi)^2)</p><p><b>　　2-3列出流程圖 </b></p><p>　　2-4前加減速軟件控制界面</p><p>　　2-5編寫程序 </p><p>　

14、　前加減速控制程序代碼</p><p>　　Dim x1 As Double, x2 As Double, y1 As Double, y2 As Double, a As Double, b As Double</p><p>　　Dim fs As Double, f As Integer, t As Integer, fi As Integer, F1 As Integer, m&

15、lt;/p><p>　　Dim ti As Integer, t2 As Integer, ts As Integer, t1 As Integer, tt As Double</p><p>　　Private Sub Command1_Click()</p><p>　　Timer1.Enabled = True</p><p>　　If T

16、ext1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then</p><p>　　MsgBox ("輸入的數(shù)據(jù)不完整&

17、quot; & vbCrLf & "請(qǐng)輸入完整后再運(yùn)行程序")</p><p>　　If Text1.Text <= 0 Or Text2.Text <= 0 Or Text3.Text <= 0 Or Text4.Text <= 0 Or Text5.Text <= 0 Or Text6.Text <= 0 Then</p>

18、<p>　　MsgBox ("所輸入的數(shù)據(jù)應(yīng)大于零" & vbCrLf & "請(qǐng)重新輸入再運(yùn)行程序")</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　F1 = Val(Text3.Text

19、)</p><p>　　t = Val(Text4.Text)</p><p>　　K = Val(Text5.Text)</p><p>　　t = Val(Text6.Text)</p><p>　　fs = f * t * K / 60 / 1000</p><p>　　If fs > 1000 Then

20、fs = 1000</p><p><b>　　x1 = 0</b></p><p><b>　　y1 = 0</b></p><p>　　x2 = Val(Text1.Text)</p><p>　　y2 = Val(Text2.Text)</p><p>　　a = (1

21、.67 * 10 ^ -5) * F1 / t</p><p>　　Label11.Caption = " " & Val(t) & " " & "," & " " & Val(F1)</p><p>　　x1 = x1 + 1</p><p>　

22、　y1 = y1 + y2 / x2</p><p>　　si = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)</p><p>　　s = fs ^ 2 / 2 / a</p><p>　　s1 = fs ^ 2 / 2 / a</p><p>　　t1 = Sqr(2 * s / a)</p><

23、;p>　　s2 = Sqr(x2 ^ 2 + y2 ^ 2) - si - s1</p><p>　　t2 = s2 / F1 * 60000</p><p>　　ti = Val(t + t + t2)</p><p>　　Label12.Caption = " " & Format(Val(t + t2), "0.00

24、") & " " & "," & " " & Val(F1)</p><p>　　Label13.Caption = " " & Format(Val(t + t + t2), "0.00") & " " & ",&qu

25、ot; & " " & "0"</p><p>　　Picture2.Scale (0, 2 * F1)-(1.5 * ti, 0)</p><p>　　Picture2.Line (x1, y1)-(t, F1)</p><p>　　Picture2.Line (t, F1)-(t + t2, F1)<

26、/p><p>　　Picture2.Line (t + t2, F1)-(ti, 0)</p><p>　　Timer2.Enabled = False</p><p>　　Timer3.Enabled = False</p><p><b>　　End If</b></p><p>　　ts = V

27、al(t + t2)</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Timer3.Enabled = False</p><p>　　Text1.Text = ""</p><p

28、>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p>　　Text5.Text = ""</p><p>　　Text6.Text = "&qu

29、ot;</p><p>　　Label11.Caption = ""</p><p>　　Label12.Caption = ""</p><p>　　Label13.Caption = ""</p><p>　　Picture2.Cls</p><p>&l

30、t;b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()<

31、;/p><p>　　Timer1.Enabled = False</p><p>　　Timer2.Enabled = True</p><p>　　Picture1.Scale (0, 1000)-(1000, 0)</p><p>　　If fi < fs Then</p><p>　　fi = fi + a *

32、 t</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　Timer1.Interval = Val(10)</p><p>　　P

33、icture2.Line (x1, y1)-(x1 + 0.01, y1 + F1 / t / 100), vbRed</p><p>　　x1 = x1 + 0.01</p><p>　　y1 = y1 + F1 / t / 100</p><p>　　If y1 + F1 / t / 100 > F1 Then</p><p>　　

34、Timer2.Interval = Val(20)</p><p>　　Timer2.Enabled = True</p><p>　　If fi < fs Then</p><p>　　fi = fi + a * t</p><p><b>　　End If</b></p><p><

35、;b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Timer2_Timer()</p><p>　　Timer1.Enabled = False</p><p>　　Picture2.Line (t, F1)-(t + 1,

36、F1), vbRed</p><p><b>　　t = t + 1</b></p><p><b>　　F1 = F1</b></p><p>　　If t + 1 > ts Then</p><p>　　Timer3.Enabled = True</p><p>　

37、　Timer3.Interval = Val(20)</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Timer3_Timer()</p><p>　　Timer2.Enabled = False<

38、;/p><p>　　Timer3.Interval = Val(10)</p><p>　　Picture2.Line (ts, F1)-(ti, 0), vbRed</p><p><b>　　End Sub</b></p><p><b>　　三 參考文獻(xiàn)</b></p><p&