數控課程設計--前加減速控制

1、<p><b>　　數控技術課程設計</b></p><p>　　前加減速控制（VB）</p><p><b>　　指導教師：</b></p><p>　　應用專業(yè)：機械設計制造及其自動化</p><p>　　班級 </p><p>　　學號

2、 </p><p>　　姓名 </p><p>　　組號 </p><p>　　班級序號 </p><p><b>　　目 錄</b></p><p>

3、<b>　　一 設計任務書</b></p><p>　　1. 課程的地位、任務和作用 …………………………………3</p><p>　　2．設計內容 …………………………………………………3</p><p>　　3. 設計目的 …………………………………………………3 </p><p>　　二 VB軟件設計說明書&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>　　三 參考文獻………………………………………………… 9</p><p><b>　　一、 設計任務書</b></p><p>　　1.課程的地位、任務和作用</p><p>　　本課程設計是在《數控技術》理論課程學

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

7、<p><b>　　2．設計內容</b></p><p>　　2.1軟件設計：問題分析，提出算法，列出流程圖，編寫程序，最后進行程序驗證。</p><p><b>　　2.2 設計成員：</b></p><p><b>　　3.設計目的</b></p><p>　　

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

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

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

11、K/60/1000 當Fs>1000時 Fs=1000</p><p>　　瞬時速度fi=Fs,當系統(tǒng)處于加速（或減速）狀態(tài)時，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>　　終點判別處理</b></p><p>　　1)直線插補Xi=xi-1+x’ Yi=yi-1+y’</p><p>　　Si=NE=sqr((X

13、e-Xi)^2+(Ye-Yi)^2)</p><p>　　2)圓弧插補 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 ("輸入的數據不完整&

17、quot; & vbCrLf & "請輸入完整后再運行程序")</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 ("所輸入的數據應大于零" & vbCrLf & "請重新輸入再運行程序")</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>　　三 參考文獻</b></p><p&