機床數(shù)控課設(插補)

上傳人:jun****875 文檔編號:23689350 上傳時間:2021-06-10 格式:DOC 頁數(shù):11 大?。?01.91KB
收藏 版權申訴 舉報 下載
機床數(shù)控課設(插補)_第1頁
第1頁 / 共11頁
機床數(shù)控課設(插補)_第2頁
第2頁 / 共11頁
機床數(shù)控課設(插補)_第3頁
第3頁 / 共11頁

下載文檔到電腦,查找使用更方便

9.9 積分

下載資源

還剩頁未讀,繼續(xù)閱讀

資源描述:

《機床數(shù)控課設(插補)》由會員分享,可在線閱讀,更多相關《機床數(shù)控課設(插補)(11頁珍藏版)》請在裝配圖網(wǎng)上搜索。

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

2、序內(nèi)容 DDA法插補第二象限直線1、源程序: Dim A, B, C, D, E, F, G, I, J, E, F As Single*連續(xù)直線插補*Private Sub Command1_Click()If (-C + A) (D - B) Then F = -C + A Else: F = D - BG = 1Do While (2 G) = E Then I = I - E * (2 G): x2 = x2 - EJ = J + (D - B)y1 = y2If (J / (2 G) = E Then J = J - E * (2 G): y2 = y2 - EPicture1.Li

3、ne (x2 * Text6.Text, y2 * Text6.Text)-(x1 * Text6.Text, y1 * Text6.Text), vbGreenNext HPicture1.Line (C * Text6.Text, -D * Text6.Text)-(A * Text6.Text, -B * Text6.Text), vbRedEnd Sub*單步直線插補*Private Sub Command2_Click()If (-C + A) (D - B) Then F = -C + A Else: F = D - BG = 1Do While (2 G) = E And (J

4、/ (2 G) = E ThenPicture1.Line (x2 - E) * Text6.Text, (y2 - E) * Text6.Text)-(x2 * Text6.Text, y2 * Text6.Text), vbGreenI = I - E * (2 G)J = J - E * (2 G)x2 = x2 - Ey2 = y2 - EElseIf (I / (2 G) = E And (J / (2 G) E ThenPicture1.Line (x2 - E) * Text6.Text, y2 * Text6.Text)-(x2 * Text6.Text, y2 * Text6

5、.Text), vbGreenI = I - E * (2 G)x2 = x2 - EElseIf (I / (2 G) = E ThenPicture1.Line (x2 * Text6.Text, (y2 - E) * Text6.Text)-(x2 * Text6.Text, y2 * Text6.Text), vbGreenJ = J - E * (2 G)y2 = y2 - EEnd IfEnd Sub3. DDA法插補第二象限直線的流程圖:YNYNYNMm-1XeXeXeYeYeYe初始化xeXe,yeYe,累加次數(shù)mM,Xe、Ye清零M=0嗎?Ye有溢出嗎?Xe有溢出嗎?+Y向走

6、一步-X向走一步結束逐點比較法插補第三到第二象限順圓弧1. 源程序:Dim X0, Y0, CXY, CD, CX1, CY1, CX2, CY2, CX11, CY11, CX22, CY22, ci, R, a1, b1, c1, d1, e1, x1, y1, x2, y2 As SingleCONST Pi=3.1415926*連續(xù)圓弧插補*Private Sub Command6_Click()d1 = 1 / 2 * (CX22 2 + CY22 2 - CX11 2 - CY11 2) / (CY22 - CY11)e1 = (CX11 - CX22) / (CY22 - CY1

7、1)a1 = 1 + e1 2b1 = 2 * d1 * e1 - 2 * CX11 - 2 * CY11 * e1c1 = CX11 2 + CY11 2 + d1 2 - 2 * d1 * CY11 - R 2X0 = (-b1 + Sqr(b1 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 *終止角Picture2.Circle (X

8、0, Y0), R, vbRed, o1, oElsePicture2.Circle (X0, Y0), R, vbRed, 2 / Pi, 3 * Pi / 2End If *畫圓 again: *開始插補過程If CY1 Y0 ThenIf (CX1 - X0) 2 + (CY1 - Y0) 2 = R 2 ThenPicture2.Line (CX1, CY1)-(CX1 - ci, CY1)CX1 = CX1 - ciElsePicture2.Line (CX1, CY1)-(CX1, CY1 + ci)CY1 = CY1 + ciEnd IfElseIf (CX1 - X0) 2 +

9、 (CY1 - Y0) 2 (CX1 - CX2 + ci) 2 + (CY1 - CY2) 2 Or (CX1 - CX2) 2 + (CY1 - CY2) 2 (CX1 - CX2 - ci) 2 + (CY1 - CY2) 2 Or (CX1 - CX2) 2 + (CY1 - CY2) 2 (CX1 - CX2) 2 + (CY1 - CY2 + ci) 2 Or (CX1 - CX2) 2 + (CY1 - CY2) 2 (CX1 - CX2) 2 + (CY1 - CY2 - ci) 2 ThenGoTo againElseEnd IfEnd Sub*單步圓弧插補*Private

10、Sub Command7_Click()d1 = 1 / 2 * (CX22 2 + CY22 2 - CX11 2 - CY11 2) / (CY22 - CY11)e1 = (CX11 - CX22) / (CY22 - CY11)a1 = 1 + e1 2b1 = 2 * d1 * e1 - 2 * CX11 - 2 * CY11 * e1c1 = CX11 2 + CY11 2 + d1 2 - 2 * d1 * CY11 - R 2X0 = (-b1 + Sqr(b1 2 - 4 * a1 * c1) / (2 * a1)Y0 = d1 + e1 * X0 *求得圓心If CX1 X

11、0 And CX2 X0 Theno = Atn(CY1 - Y0) / (CX1 - X0) + Pi *終止角o1 = Atn(CY2 - Y0) / (CX2 - X0) + Pi *終止角Picture2.Circle (X0, Y0), R, vbRed, o1, oElsePicture2.Circle (X0, Y0), R, vbRed, 2 / Pi, 3 * Pi / 2End If *畫圓If (CX1 - CX2) 2 + (CY1 - CY2) 2 (CX1 - CX2 + ci) 2 + (CY1 - CY2) 2 Or (CX1 - CX2) 2 + (CY1 -

12、 CY2) 2 (CX1 - CX2 - ci) 2 + (CY1 - CY2) 2 Or (CX1 - CX2) 2 + (CY1 - CY2) 2 (CX1 - CX2) 2 + (CY1 - CY2 + ci) 2 Or (CX1 - CX2) 2 + (CY1 - CY2) 2 (CX1 - CX2) 2 + (CY1 - CY2 - ci) 2 ThenElseGoTo cover *開始插補過程End IfIf CY1 Y0 ThenIf (CX1 - X0) 2 + (CY1 - Y0) 2 = R 2 ThenPicture2.Line (CX1, CY1)-(CX1 - ci

13、, CY1)CX1 = CX1 - ciElsePicture2.Line (CX1, CY1)-(CX1, CY1 + ci)CY1 = CY1 + ciEnd IfElseIf (CX1 - X0) 2 + (CY1 - Y0) 2 = R 2 ThenPicture2.Line (CX1, CY1)-(CX1, CY1 + ci)CY1 = CY1 + ciElsePicture2.Line (CX1, CY1)-(CX1 + ci, CY1)CX1 = CX1 + ciEnd IfEnd Ifcover:End Sub2.變量說明: CX1=圓弧起點的橫坐標值,CY1=圓弧起點的縱坐標

14、值 CX2=圓弧終點的橫坐標值,CY2=圓弧終點的縱坐標值 X0=圓弧半徑的橫坐標值, Y0=圓弧半徑的縱坐標值R=圓弧半徑, ci=圓弧插補的步長a1,b1,c1,d1為計算圓點的中間變量3.逐點比較法插補第三象限順圓弧程序流程圖NYNY+Y向走一步初始化xeX,yeY,E=NF0?-X向走一步E=0?結束起始FF-2Y+1FF-2X+1EE-1逐點比較法插補第二象限順圓弧程序流程圖: NYNY+X向走一步初始化xeX,yeY,E=NF0?+Y向走一步E=0?結束起始FF+2X+1FF+2Y+1EE-1六、程序界面及運行結果DDA插補第二象限直線運行界面DDA插補第二象限直線運行結果逐點比較

15、法插補二三象限順圓弧運行界面逐點比較法插補二三象限順圓弧運行結果七、課設中遇到的問題及解決辦法1、在進行單步插補時出現(xiàn)問題,單步插補出不來? 定義的變量應為全局變量,通過按鈕來實現(xiàn)單步操作。按第一次按鈕,程序執(zhí)行一步,按第二次時,程序執(zhí)行兩步,及將第一步做的覆蓋后在多做一步。依此,每次按下按鈕都比前一次多做一步,這樣,作圖時就表現(xiàn)為單步運行。2、在圓弧插補是畫出的圓跟圓弧的插補在起點和終點處不重合? 在畫圖的pitcure屬性中的scaletop和scalewidth的值應相等,否則畫出的橫縱坐標不等,導致在橫坐標和縱坐標上的長對不等使得與圓弧不重合。3、如何解決起點不是原點的直線的插補 若是

16、起點不是原點的話,可以將起點平移到原點位置,而終點也相應的平移即可,這樣就解決了起點不是原點的問題。根據(jù)這個思想在判斷象限時就拿終點坐標和起點坐標比較來判斷終點屬于哪個象限。 和插補直線一樣,當圓心不是原點時,可以將圓心平移到原點位置,圓上各點相應的平移即可。八、心得體會通過這次的機床數(shù)控課程設計,使我加深了對數(shù)控機床的插補的了解,更好的掌握了逐點比較法的插補原理。這次課程設計選擇了Visual Basic作為編程語言,由于是初次接觸,不能熟練得掌握,所以使用起來不是很順利,對整體進度有一些影響。通過這次課程設計,增加了知識,鍛煉了自己的實際動手和操作能力,對以后的學習有著深遠的影響。九、參考資料 陸慰民. 2000 . VisualBasic程序設計教程(6.0版). 北京:高等教育出版社 張勇. 2002 . VisualBasic課程設計案例精編. 北京:中國水利水電出版社 段興. 2002. VisualBasic實用程序100例. 北京:人民郵電出版社

展開閱讀全文
溫馨提示:
1: 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2: 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
3.本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
4. 未經(jīng)權益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 裝配圖網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負責。
6. 下載文件中如有侵權或不適當內(nèi)容,請與我們聯(lián)系,我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

相關資源

更多
正為您匹配相似的精品文檔

相關搜索

關于我們 - 網(wǎng)站聲明 - 網(wǎng)站地圖 - 資源地圖 - 友情鏈接 - 網(wǎng)站客服 - 聯(lián)系我們

copyright@ 2023-2025  zhuangpeitu.com 裝配圖網(wǎng)版權所有   聯(lián)系電話:18123376007

備案號:ICP2024067431-1 川公網(wǎng)安備51140202000466號


本站為文檔C2C交易模式,即用戶上傳的文檔直接被用戶下載,本站只是中間服務平臺,本站所有文檔下載所得的收益歸上傳人(含作者)所有。裝配圖網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理,對上載內(nèi)容本身不做任何修改或編輯。若文檔所含內(nèi)容侵犯了您的版權或隱私,請立即通知裝配圖網(wǎng),我們立即給予刪除!