機(jī)床數(shù)控課設(shè)(插補(bǔ))

1、、 課設(shè)任務(wù)用DDA法插補(bǔ)第二象限直線。用逐點(diǎn)比較法插補(bǔ)第三到第二象限順圓弧。、課設(shè)要求1 、具有數(shù)據(jù)輸入界面，有起點(diǎn)、終點(diǎn)、半徑及插補(bǔ)步長等；2 、具有單步插補(bǔ)過程的動態(tài)顯示功能；3 、插補(bǔ)的步長可調(diào)；、編程語言Visual Basic四、功能說明本程序用逐點(diǎn)比較法插補(bǔ)第二象限的直線， 及第三二象限的順圓 弧，可進(jìn)行連續(xù)插補(bǔ)或單步插補(bǔ)。1、直線插補(bǔ)：用逐點(diǎn)比較法實(shí)現(xiàn)第二象限任意直線的插補(bǔ)，需 要輸入起點(diǎn)、終點(diǎn)坐標(biāo)及步長。2、圓弧插補(bǔ)：用逐點(diǎn)比較法實(shí)現(xiàn)第三二象限的順圓弧段的插補(bǔ)，需要輸入起點(diǎn)、終點(diǎn)坐標(biāo)、半徑和步長。3、插補(bǔ)步長可調(diào)。4、可以單步執(zhí)行所有插補(bǔ)動作，單擊一次按鈕執(zhí)行一次插補(bǔ) 五、程

2、序內(nèi)容DDA法插補(bǔ)第二象限直線1、源程序：Dim A, B, C, D, E, F, G, I, J, E, F As Single*連續(xù)直線插補(bǔ)*Private Sub Command1_Click()If (-C + A) > (D - B) Then F = -C + A Else: F = D - B G = 1Do While (2 A G) <= FG = G + 1LoopFor H = 0 To (2 A G) Step 1I = I + (-C + A) x1 = x2If (I / (2 A G) >= E Then I = I - E * (2 A G)

3、: x2 = x2 - EJ = J + (D - B) y1 = y2If (J / (2 A G) >= E Then J = J - E * (2 A G): y2 = y2 - E (x2 * , y2 * -(x1 * , y1 * , vbGreenNext H(C * , -D * -(A * , -B * , vbRed End Sub*單步直線插補(bǔ)*Private Sub Command2_Click()If (-C + A) > (D - B) Then F = -C + A Else: F = D - BG = 1Do While (2 A G) <=

4、FG = G + 1(C * , -D * -(A * , -B * , vbRedLoopI = I + (-C + A)J = J + (D - B)If (I / (2 A G) >= E And (J / (2 A G) >= E Then (x2 - E) * , (y2 - E) * -(x2 * , y2 * , vbGreenI = I - E * (2 A G)J = J - E * (2 A G) x2 = x2 - E y2 = y2 - EElseIf (I / (2 A G) >= E And (J / (2 A G) < E Then (x2

5、 - E) * , y2 * -(x2 * , y2 * , vbGreenI = I - E * (2 A G) x2 = x2 - EElseIf (I / (2 A G) < E And (J / (2 A G) >= E Then (x2 * , (y2 - E) * -(x2 * , y2 * , vbGreenJ = J - E * (2 A G)y2 = y2 - EEnd IfEnd Sub 3. DDA 法插補(bǔ)第二象限直線的流程圖：Y結(jié)束逐點(diǎn)比較法插補(bǔ)第三到第二象限順圓弧1.源程序：Dim XO, YO, CXY, CD, CX1, CY1, CX2, CY2,

6、CX11, CY11, CX22, CY22, ci, R, a1, b1, c1, d1, e1, x1, y1, x2, y2 As Si ngleCONST Pi=*連續(xù)圓弧插補(bǔ) *Private Sub Command6_Click()di = 1 / 2 * (CX22 A 2 + CY22 A 2 - CX11 A 2 - CY11 A 2) / (CY22 - CY11)e1 = (CX11 - CX22) / (CY22 - CY11)a1 = 1 + e1 A 2b1 = 2 * d1 * e1 - 2 * CX11 - 2 * CY11 * e1c1 = CX11 A 2

7、+ CY11 A 2 + d1 A 2 - 2 * d1 * CY11 - R A 2X0 = (-b1 + Sqr(b1 A 2 - 4 * a1 * c1) / (2 * a1)*求得圓Y0 = d1 + e1 * X0 心If CX1 <> X0 And CX2 <> X0 Theno = Atn(CY1 - Y0) / (CX1 - X0) + Pi o1 = Atn(CY2 - Y0) / (CX2 - X0) + Pi*起始角終止角4(X0, Y0), R, vbRed, o1, oElse*畫圓*開始插補(bǔ)過程(X0, Y0), R, vbRed, 2 /

8、Pi, 3 * Pi / 2 End If again:If CY1 < Y0 ThenIf (CX1 - X0) A 2 + (CY1 - Y0) A 2 <= R A 2 Then (CX1, CY1)-(CX1 - ci, CY1)CX1 = CX1 - ciElse(CX1, CY1)-(CX1, CY1 + ci)CY1 = CY1 + ciEnd IfElseIf (CX1 - X0) A 2 + (CY1 - Y0) A 2 <= R A 2 Then (CX1, CY1)-(CX1, CY1 + ci)CY1 = CY1 + ciElse(CX1, CY1)-

9、(CX1 + ci, CY1)CX1 = CX1 + ciEnd IfEnd IfIf (CX1 - CX2) A 2 + (CY1 - CY2) A 2 > (CX1 - CX2 + ci) A 2 + (CY1 - CY2) A 2 Or (CX1 - CX2) A 2 + (CY1 - CY2) A 2 > (CX1 - CX2 - ci) A 2 + (CY1 - CY2) A 2 Or (CX1 - CX2) A 2 + (CY1 - CY2) A 2 > (CX1 - CX2) A 2 + (CY1 - CY2 + ci) A 2 Or (CX1 - CX2) A

10、 2 + (CY1 - CY2) A 2 > (CX1 - CX2) A 2 + (CY1 - CY2 - ci) A 2 ThenGoTo againElseEnd If#End Sub*單步圓弧插補(bǔ) *5Private Sub Command7_Click()di = 1 / 2 * (CX22 A 2 + CY22 A 2 - CX11 A 2 - CY11 A 2) / (CY22 - CY11)e1 = (CX11 - CX22) / (CY22 - CY11)a1 = 1 + e1 A 2b1 = 2 * d1 * e1 - 2 * CX11 - 2 * CY11 * e1c

11、1 = CX11 A 2 + CY11 A 2 + d1 A 2 - 2 * d1 * CY11 - R A 2X0 = (-b1 + Sqr(b1 A 2 - 4 * a1 * c1) / (2 * a1)*求得Y0 = d1 + e1 * X0 圓心If CX1 <> X0 And CX2 <> X0 Then o = Atn(CY1 - Y0) / (CX1 - X0) + Pi o1 = Atn(CY2 - Y0) / (CX2 - X0) + Pi(X0, Y0), R, vbRed, o1, oElse*終止角終止角#*(X0, Y0), R, vbRed,

12、 2 / Pi, 3 * Pi / 2 End If畫圓If (CX1 - CX2) A 2 + (CY1 - CY2) A 2 > (CX1 - CX2 + ci) A 2 + (CY1- CY2) A 2 Or (CX1 - CX2) A 2 + (CY1 - CY2) A 2 > (CX1 - CX2 - ci) A2 + (CY1 - CY2) A 2 Or (CX1 - CX2) A 2 + (CY1 - CY2) A 2 > (CX1 - CX2) A 2 + (CY1 - CY2 + ci) A 2 Or (CX1 - CX2) A 2 + (CY1 - CY2

13、) A 2 > (CX1- CX2) A 2 + (CY1 - CY2 - ci) A 2 ThenElse*開始插GoTo cover 補(bǔ)過程End IfIf CY1 < Y0 ThenIf (CX1 - X0) A 2 + (CY1 - Y0) A 2 <= R A 2 Then (CX1, CY1)-(CX1 - ci, CY1)CX1 = CX1 - ciElse(CX1, CY1)-(CX1, CY1 + ci)CY1 = CY1 + ciEnd IfElseIf (CX1 - X0) A 2 + (CY1 - Y0) A 2 <= R A 2 Then (C

14、X1, CY1)-(CX1, CY1 + ci)CY1 = CY1 + ciElse(CX1, CY1)-(CX1 + ci, CY1)CX1 = CX1 + ciEnd IfEnd Ifcover:End Sub2. 變量說明：CX仁圓弧起點(diǎn)的橫坐標(biāo)值，CY1圓弧起點(diǎn)的縱坐標(biāo)值CX2二圓弧終點(diǎn)的橫坐標(biāo)值，CY2圓弧終點(diǎn)的縱坐標(biāo)值X0=圓弧半徑的橫坐標(biāo)值，Y0二圓弧半徑的縱坐標(biāo)值R=圓弧半徑，ci=圓弧插補(bǔ)的步長a1,b1,c1,d1為計(jì)算圓點(diǎn)的中間變量3. 逐點(diǎn)比較法插補(bǔ)第三象限順圓弧程序流程圖起始結(jié)束逐點(diǎn)比較法插補(bǔ)第二象限順圓弧程序流程圖：6六、程序界面及運(yùn)行結(jié)果DDA插補(bǔ)第二象限直線運(yùn)行

15、界面DDA插補(bǔ)第二象限直線運(yùn)行結(jié)果8逐點(diǎn)比較法插補(bǔ)二三象限順圓弧運(yùn)行界面逐點(diǎn)比較法插補(bǔ)二三象限順圓弧運(yùn)行結(jié)果七、課設(shè)中遇到的問題及解決辦法1、在進(jìn)行單步插補(bǔ)時(shí)出現(xiàn)問題，單步插補(bǔ)出不來定義的變量應(yīng)為全局變量，通過按鈕來實(shí)現(xiàn)單步操作。按第 一次按鈕，程序執(zhí)行一步，按第二次時(shí)，程序執(zhí)行兩步，及將第一步 做的覆蓋后在多做一步。依此，每次按下按鈕都比前一次多做一步， 這樣，作圖時(shí)就表現(xiàn)為單步運(yùn)行。2、在圓弧插補(bǔ)是畫出的圓跟圓弧的插補(bǔ)在起點(diǎn)和終點(diǎn)處不重合在畫圖的pitcure 屬性中的scaletop和scalewidth 的值應(yīng)相等，否則畫出的橫縱坐標(biāo)不等，導(dǎo)致在橫坐標(biāo)和縱坐標(biāo)上的長對 不等使得與圓弧不重合。3、如何解決起點(diǎn)不是原點(diǎn)的直線的插補(bǔ)若是起點(diǎn)不是原點(diǎn)的話，可以將起點(diǎn)平移到原點(diǎn)位置，而終 點(diǎn)也相應(yīng)的平移即可， 這樣就解決了起點(diǎn)不是原點(diǎn)的問題。 根據(jù)這個 思想在判斷象限時(shí)就拿終點(diǎn)坐標(biāo)和起點(diǎn)坐標(biāo)比較來判斷終點(diǎn)屬于哪 個象限。和插補(bǔ)直線一樣，當(dāng)圓心不是原點(diǎn)時(shí)，可以將圓心平移到原 點(diǎn)位置，圓上各點(diǎn)相應(yīng)的平移即可。八、心得體會通過這次的機(jī)床數(shù)控課程設(shè)計(jì)， 使我加深了對數(shù)控機(jī)床的插補(bǔ)的 了解，更好的掌握了逐點(diǎn)比較法的插補(bǔ)原理。這次課程設(shè)計(jì)選擇了 Visual Ba