逐點比較法VB插補軟件 數(shù)控機床 論文

1、第3章 V B程序設(shè)計3.1 插補軟件設(shè)計系統(tǒng)的公共文件依據(jù)系統(tǒng)模塊結(jié)構(gòu)圖，抽取系統(tǒng)中多個模塊的相同子功能，建立系統(tǒng)公共文件，可以做到減少總代碼量，避免重復(fù)開發(fā)，報紙系統(tǒng)實現(xiàn)風格統(tǒng)一，以及增強可修改性。a、主體框架b、添加模塊c、定義用戶名、用戶類型、職員編號以及登陸成功的標志位系統(tǒng)公共變量定義。d、Main(系統(tǒng)啟動)函數(shù)e、ConnectString函數(shù)f、txtlsNull函數(shù)判斷輸入到TextBox的內(nèi)容是否為空。g、SEquellen函數(shù)判斷輸入到TextBox的內(nèi)容長度是否為給定值。（2）功能設(shè)計a題目模塊數(shù)控插補軟件的題目是“逐點比較法插補仿真軟件”b個人信息模塊輸入自己的信息：

2、專業(yè)：機械設(shè)計與制造學號：* 姓名* 指導老師：*c直線插補當單擊直線插補時，順圓插補、逆圓插補、順時針畫圓弧、逆時針畫圓弧不可見。d順圓插補當單擊順圓插補時，直線插補、逆圓插補不可見。e逆圓插補當單擊逆圓插補時，直線插補、順圓插補不可見。f起點坐標終點坐標模塊可輸入-10到10之間這幾個數(shù)值g畫直線在輸入數(shù)值后，點擊畫直線，實現(xiàn)執(zhí)行畫直線的命令。h順時針畫圓弧，逆時針畫圓弧當輸入數(shù)值后，點擊此按鈕，實現(xiàn)執(zhí)行畫圓弧命令。i連續(xù)插補、單步插補在左下框內(nèi)實現(xiàn)圖形，右框內(nèi)實現(xiàn)插補步驟。J退出單擊后退出軟件。3.2 插補程序的實現(xiàn)畫直線采用的是Microsoft Visual Basic 6.0 中文

3、版中的Line命令實現(xiàn)的，例如：Picture1.Line (x1, y1)-(x2, y2), RGB(255, 0, 0) ，就是在圖片框中從起始坐標 (x1, y1)到終點坐標(x2, y2)畫一條紅色的直線。再根據(jù)上面的插補原理和軟件流程圖就可以編出插補程序。 畫圓弧采用Microsoft Visual Basic 6.0 中文版中的Circle命令實現(xiàn)的，例如： Picture1.Circle (x1, y1),r, vbRed，就是在圖片框坐標中以坐標X1, Y1為圓心畫一個半徑為r的紅色圓。 Picture1.Circle (0, 0), r1, , n, m，就是圖片框中以坐標

4、原點為圓心，以r1為半徑，以弧度n為起始點，以弧度m為終點畫圓弧。再根據(jù)上面的插補原理和軟件流程圖就可以編出插補程序。插補界面如圖2-14，直線和圓弧的走刀軌跡輸出在一個圖片框中，插補演示的過程，刀具走的方向，偏差結(jié)果，輸出工步數(shù)等，都在一個指定的文本框中輸出，插補類型用三個單選按鈕實現(xiàn)。只要選擇相應(yīng)的按鈕，在文本框中輸入相應(yīng)的坐標就可以看到所輸入坐標直線和圓弧的走刀軌跡了。3.3 Visual Basic語言簡介Visual Basic,簡稱VB，是Microsoft公司推出的一種Windows應(yīng)用程序開發(fā)工具。是當今世界上使用最廣泛的編程語言之一，它也被公認為是編程效率最高的一種編程方法。

5、無論是開發(fā)功能強大、性能可靠的商務(wù)軟件，還是編寫能處理實際問題的實用小程序，VB都是最快速、最簡便的方法。 Visual Basic中的“Visual”指的是采用可視化的開發(fā)圖形用戶界面（GUI）的方法，一般不需要編寫大量代碼去描述界面元素的外觀和位置，而只要把需要的控件拖放到屏幕上的相應(yīng)位置即可；“Basic”指的是BASIC語言，因為VB是在原有的BASIC語言的基礎(chǔ)上發(fā)展起來的，至今包含了數(shù)百條語句、函數(shù)及關(guān)鍵詞，其中很多和 Windows GUI 有直接關(guān)系。專業(yè)人員可以用 Visual Basic 實現(xiàn)其它任何 Windows 編程語言的功能，而初學者只要掌握幾個關(guān)鍵詞就可以建立實用

6、的應(yīng)用程序。3.4 Visual Basic 的特點1面向?qū)ο骎B采用了面向?qū)ο笤O(shè)計思想它基本思路是把復(fù)雜設(shè)計問題分解為個個能夠完成獨立功能相對簡單對象集合所謂“對象”就是個可操作實體如窗體、窗體中命令按鈕、標簽、文本框等面向?qū)ο缶幊叹秃孟翊罘e木樣員可根據(jù)和界面設(shè)計要求直接在屏幕上“畫出窗口、菜單、按鈕等區(qū)別類型對象并為每個對象設(shè)置屬性。2事件驅(qū)動 在Windows環(huán)境下是以事件驅(qū)動方式運行每個對象都能響應(yīng)多個區(qū)別事件每個事件都能驅(qū)動段代碼事件過程該代碼決定了對象功能通常稱這種機制為事件驅(qū)動事件可由用戶操作觸發(fā)也可以由系統(tǒng)或應(yīng)用觸發(fā)例如單擊個命令按鈕就觸發(fā)了按鈕Click(單擊)事件該事件中代

7、碼就會被執(zhí)行若用戶未進行任何操作(未觸發(fā)事件)則就處于等待狀態(tài)整個應(yīng)用就是由彼此獨立事件過程構(gòu)成。3軟件Software集成式開發(fā) VB為編程提供了個集成開發(fā)環(huán)境在這個環(huán)境中編程者可設(shè)計界面、編寫代碼、調(diào)試直至把應(yīng)用編譯成可在Windows中運行可執(zhí)行文件并為它生成安裝VB集成開發(fā)環(huán)境為編程者提供了很大方便。 4結(jié)構(gòu)化設(shè)計語言 VB具有豐富數(shù)據(jù)類型是種符合結(jié)構(gòu)化設(shè)計思想語言而且簡單易學此外作為種設(shè)計語言VB還有許多獨到的處。 5強大數(shù)據(jù)庫訪問功能VB利用數(shù)據(jù)Control控件可以訪問多種數(shù)據(jù)庫VB6O提供ADOControl控件不但可以用最少代碼實現(xiàn)數(shù)據(jù)庫操作和控制也可以取代DataContr

8、ol控件和RDOControl控件。6支持對象鏈接和嵌入技術(shù) VB核心是對對象鏈接和嵌入(OLE)技術(shù)支持它是訪問所有對象種思路方法利用OLE技術(shù)能夠開發(fā)集聲音、圖像、動畫、字處理、Web等對象于體。7網(wǎng)絡(luò)功能 VB6O提供了DltTML(DynamictTML)設(shè)計工具利用這種技術(shù)可以動態(tài)創(chuàng)建和編輯Web頁面使用戶在VB中開發(fā)多功能網(wǎng)絡(luò)應(yīng)用軟件Software.8多個應(yīng)用向?qū)?VB提供了多種向?qū)鐟?yīng)用向?qū)А惭b向?qū)?、?shù)據(jù)對象向?qū)Ш蛿?shù)據(jù)窗體向?qū)ㄟ^它們可以快速地創(chuàng)建區(qū)別類型、區(qū)別功能應(yīng)用。9支持動態(tài)交換、動態(tài)鏈接技術(shù) 通過動態(tài)數(shù)據(jù)交換(DDE)編程技術(shù)VB開發(fā)應(yīng)用能和其他Windows應(yīng)用的間

9、建立數(shù)據(jù)通信通過動態(tài)鏈接庫技術(shù)在VB中可方便地用C語言或匯編語言編寫也可Windows應(yīng)用接口(API)。lO聯(lián)機幫助功能 在VB中利用幫助菜單和F1功能鍵用戶可隨時方便地得到所需要幫助信息VB幫助窗口中顯示了有關(guān)舉例代碼通過復(fù)制、粘貼操作可獲取大量舉例代碼為用戶學習和使用提供方便。第4章 VB插補程序代碼VERSION 5.00Begin VB.Form 數(shù)控插補仿真軟件 Appearance = 0 Flat BackColor = &H80000005& Caption = 數(shù)控插補仿真演示軟件 ClientHeight = 10830 ClientLeft = 165 ClientTo

10、p = 555 ClientWidth = 15240 FillColor = &H00C0C0C0& FillStyle = 0 Solid BeginProperty Font Name = 宋體 Size = 36 Charset = 134 Weight = 400 Underline = 0 False Italic = -1 True Strikethrough = 0 False EndProperty ForeColor = &H00C0C0C0& LinkTopic = Form1 Picture = 程序演示2.frx:0000 ScaleHeight = 191.029

11、ScaleMode = 6 Millimeter ScaleWidth = 268.817 StartUpPosition = 3 窗口缺省 Begin VB.Frame Frame1 BackColor = &H00FFFF00& Caption = 插補類型 BeginProperty Font Name = 黑體 Size = 12 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty ForeColor = &H00FF0000& Heigh

12、t = 1695 Left = 3360 MousePointer = 1 Arrow TabIndex = 16 Top = 2280 Width = 1935 Begin VB.OptionButton Option3 BackColor = &H008080FF& Caption = 直線插補 BeginProperty Font Name = 宋體 Size = 10.5 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty ForeColo

13、r = &H00000000& Height = 255 Left = 240 MaskColor = &H00FFFFFF& TabIndex = 19 Top = 360 Width = 1215 End Begin VB.OptionButton Option2 BackColor = &H008080FF& Caption = 逆圓插補 BeginProperty Font Name = 宋體 Size = 10.5 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 Fal

14、se EndProperty ForeColor = &H00000000& Height = 255 Left = 240 TabIndex = 18 Top = 1320 Width = 1215 End Begin VB.OptionButton Option1 BackColor = &H008080FF& Caption = 順圓插補 BeginProperty Font Name = 宋體 Size = 10.5 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 Fal

15、se EndProperty ForeColor = &H00000000& Height = 255 Left = 240 TabIndex = 17 Top = 840 Width = 1215 End End Begin VB.CommandButton Command4 Caption = 退出 BeginProperty Font Name = 黑體 Size = 12 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty Height =

16、 720 Left = 13800 TabIndex = 15 Top = 2640 Width = 1335 End Begin VB.CommandButton Command5 BackColor = &H80000005& Caption = 畫直線 BeginProperty Font Name = 黑體 Size = 12 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty Height = 720 Left = 5670 MaskCo

17、lor = &H00808080& TabIndex = 11 Top = 2640 Width = 1320 End Begin VB.Frame Frame2 BackColor = &H00FFFF00& Caption = 輸入坐標 BeginProperty Font Name = 黑體 Size = 12 Charset = 134 Weight = 400 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty ForeColor = &H00FF0000& Height = 1695 Le

18、ft = 0 TabIndex = 7 Top = 2280 Width = 3120 Begin VB.TextBox Text1 BeginProperty Font Name = 宋體 Size = 15.75 Charset = 134 Weight = 700 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty ForeColor = &H000000FF& Height = 435 Index = 3 Left = 2100 TabIndex = 14 Top = 1050 Width =

19、 750 End Begin VB.TextBox Text1 BeginProperty Font Name = 宋體 Size = 15.75 Charset = 134 Weight = 700 Underline = 0 False Italic = 0 False Strikethrough = 0 False EndProperty ForeColor = &H000000FF& Height = 435 Index = 2 Left = 1155End If ElseIf r1 = r2 And x1 = 0 And y1 = 0 And x2 = 0 Then a = y2 /

20、 r1 b = y1 / r1 m = pi - arcsin(a) n = arcsin(b) Picture1.Circle (0, 0), r1, , n, m ElseIf r1 = r2 And x1 = 0 And y1 = 0 And x2 = 0 And y2 = 0 And y1 = 0 And x2 0 And y2 = 0 And Y1 = 0 And X2 = 0 And Y2 = 0 And (Y1) = (Y2) Then a = Y2 / r2 b = Y1 / r1 m = arcsin(a) n = arcsin(b) If m n Then Picture1

21、.Circle (0, 0), r1, , n, m ElsePicture1.Circle (0, 0), r1 Picture1.Circle (0, 0), r1, , m, n End If ElseIf r1 = r2 And x1 = 0 And x2 = 0 Then a = y2 / r1 b = y1 / r1 m = pi - arcsin(a) n = pi - arcsin(b) If m n Then Picture1.Circle (0, 0), r1, , m, n Else Picture1.Circle (0, 0), r1, , n, m End If El

22、seIf r1 = r2 And x1 = 0 And x2 = 0 And y2 0 Then a = Abs(x2) / r1 b = y1 / r1 m = pi * 3 / 2 - arcsin(a) n = pi - arcsin(b) Picture1.Circle (0, 0), r1, , n, m ElseIf r1 = r2 And x1 = 0 And x2 0 And y2 = 0 Then a = Abs(y2) / r1 b = y1 / r1 m = pi * 2 - arcsin(a) n = pi - arcsin(b) Picture1.Circle (0,

23、 0), r1, , n, m ElseIf r1 = r2 And x1 = 0 And x2 = 0 And y2 = 0 Then a = y2 / r1 b = y1 / r1 m = pi - arcsin(b) n = arcsin(a) Picture1.Circle (0, 0), r1, , m, n ElseIf r1 = r2 And X1 = 0 And X2 = 0 Then a = X2 / r2 b = Y1 / r1 m = pi - arcsin(a) n = pi - arcsin(b) If m n Then Picture1.Circle (0, 0),

24、 r1, , m, n Else Picture1.Circle (0, 0), r1 End If ElseIf r1 = r2 And x1 = 0 And y1 0 And x2 = 0 And y2 n Then Picture1.Circle (0, 0), r1, , n, m Else Picture1.Circle (0, 0), r1, , n, m End If ElseIf r1 = r2 And x1 = 0 And y1 0 And y2 = 0 Then a = Abs(y2) / r1 b = Abs(x1) / r1 m = 3 * pi / 2 - arcsi

25、n(a) n = pi * 2 - arcsin(b) Picture1.Circle (0, 0), r1, , m, n ElseIf r1 = r2 And x1 = 0 And y1 = 0 And y2 = 0 Then a = y2 / r1 b = Abs(x1) / r1 m = 3 * pi / 2 - arcsin(b) n = arcsin(a) Picture1.Circle (0, 0), r1, , m, n ElseIf r1 = r2 And x1 = 0 And y1 0 And x2 = 0 Then a = y2 / r1 b = Abs(x1) / r1

26、 m = 3 * pi / 2 - arcsin(b) n = pi - arcsin(a) Picture1.Circle (0, 0), r1, , m, n ElseIf r1 = r2 And X1 = 0 And Y1 = 0 And X2 = 0 And Y2 n Then Picture1.Circle (0, 0), r1, , n, m Else Picture1.Circle (0, 0), r1 End If ElseIf r1 = r2 And x1 = 0 And y1 = 0 And y2 n Then Picture1.Circle (0, 0), r1, , n

27、, m Else Picture1.Circle (0, 0), r1, , n, m End If ElseIf r1 = r2 And x1 0 And y1 = 0 And y2 = 0 Then a = y2 / r1 b = Abs(y1) / r1 m = 2 * pi - arcsin(b) n = arcsin(a) Picture1.Circle (0, 0), r1, , m, n ElseIf r1 = r2 And x1 0 And y1 = 0 And x2 = 0 Then a = y2 / r1 b = Abs(y1) / r1 m = 2 * pi - arcs

28、in(b) n = pi - arcsin(a) Picture1.Circle (0, 0), r1, , m, n ElseIf r1 = r2 And x1 0 And y1 = 0 And x2 = 0 And y2 n Then Picture1.Circle (0, 0), r1, , n, m Else Picture1.Circle (0, 0), r1 End If End If End SubFunction judge(X As Integer, Y As Integer) 象限判斷If Option1.Value = True ThenIf X = 0 And Y 0

29、Thenjudge = 1ElseIf X = 0 Thenjudge = 2ElseIf X = 0 And Y 0 And Y = 0 Thenjudge = 1ElseIf X 0 Thenjudge = 2ElseIf X 0 And Y 0 And Y = 0 Thenjudge = 1ElseIf X 0 Thenjudge = 2ElseIf X 0 And Y = 0 Thenf = f - Abs(y2 - y1)If x2 x1 ThenX = X + 1Picture1.Line -(X, Y), vbRedText2.Text = Text2.Text & Chr(13

30、) & Chr(10) & Space(1) & n & Space(11) & f = 0 & Space(13) & +x & Space(11) & f= & Format$(f, #0.0) & Space(12) & X & , & YElseX = X - 1Picture1.Line -(X, Y), vbRedText2.Text = Text2.Text & Chr(13) & Chr(10) & Space(1) & n & Space(11) & f = 0 & Space(13) & -x & Space(11) & f= & Format$(f, #0.0) & Sp

31、ace(12) & X & , & YEnd IfElsef = f + Abs(x2 - x1)If y2 y1 ThenY = Y + 1Picture1.Line -(X, Y), vbRedText2.Text = Text2.Text & Chr(13) & Chr(10) & Space(1) & n & Space(10) & f 0 & Space(13) & +y & Space(11) & f= & Format$(f, #0.0) & Space(12) & X & , & YElseY = Y - 1Picture1.Line -(X, Y), vbRedText2.T

32、ext = Text2.Text & Chr(13) & Chr(10) & Space(1) & n & Space(10) & f 0 & Space(13) & -y & Space(11) & f= & Format$(f, #0.0) & Space(12) & X & , & YEnd IfEnd IfDoEventsdelayloop 0.5LoopEnd If If Option1.Value = True Then Picture1.CurrentX = x1 Picture1.CurrentY = y1 X = Picture1.CurrentXY = Picture1.C

33、urrentYText2.Text = Text2.Text & Space(1) & 0 & Space(10) & f = 0 & Space(45) & x1 & , & y1ElseIf Option2.Value = True ThenPicture1.CurrentX = x1Picture1.CurrentY = y1X = Picture1.CurrentXY = Picture1.CurrentYText2.Text = Text2.Text & Space(1) & 0 & Space(10) & f = 0 & Space(45) & x1 & , & y1End If圓

34、連續(xù)插補If Option1.Value = True Or Option2.Value = True Thenq = judge(X, Y)r1 = Sqr(x1) 2 + (y1) 2)again: Select Case qCase 1If Option1.Value = True Thenq = judge(X, Y)If q 2 ThenGoTo againEnd IfLoopEnd IfCase 3If Option1.Value = True ThenDo Until (X - x2) = 0 And (Y - y2) = 0n = n + 1If f = 0 Thenf = f

35、 + 2 * Y + 1Y = Y + 1Picture1.Line -(X, Y), vbRedText2.Text = Text2.Text & Chr(13) & Chr(10) & Space(1) & n & Space(11) & f = 0 & Space(13) & +y & Space(11) & f= & Format$(f, #0.0) & Space(12) & X & , & YElsef = f - 2 * X + 1X = X - 1Picture1.Line -(X, Y), vbRedText2.Text = Text2.Text & Chr(13) & Ch

36、r(10) & Space(1) & n & Space(10) & f 0 & Space(13) & -x & Space(11) & f= & Format$(f, #0.0) & Space(12) & X & , & YEnd IfDoEventsdelayloop 0.5q = judge(X, Y)If q 3 ThenGoTo againEnd IfLoopElseIf Option2.Value = True ThenDo Until (X - x2) = 0 And (Y - y2) = 0n = n + 1If f = 0 Thenf = f + 2 * X + 1X =

37、 X + 1Picture1.Line -(X, Y), vbRedText2.Text = Text2.Text & Chr(13) & Chr(10) & Space(1) & n & Space(11) & f = 0 & Space(13) & +x & Space(11) & f= & Format$(f, #0.0) & Space(12) & X & , & YElsef = f - 2 * Y + 1Y = Y - 1Picture1.Line -(X, Y), vbRedText2.Text = Text2.Text & Chr(13) & Chr(10) & Space(1

38、) & n & Space(10) & f 0 & Space(13) & -y & Space(11) & f= & Format$(f, #0.0) & Space(12) & X & , & YEnd IfDoEventsdelayloop 0.5q = judge(X, Y)If q 3 ThenGoTo againEnd IfLoopEnd IfCase 4If Option1.Value = True ThenDo Until (X - x2) = 0 And (Y - y2) = 0f = Sqr(x 2) + (y 2) - r1n = n + 1If f = 0 Thenf

39、= f - 2 * X + 1X = X - 1Picture1.Line -(X, Y), vbRedText2.Text = Text2.Text & Chr(13) & Chr(10) & Space(1) & n & Space(11) & f = 0 & Space(13) & -x & Space(11) & f= & Format$(f, #0.0) & Space(12) & X & , & YElsef = f - 2 * Y + 1Y = Y - 1Picture1.Line -(X, Y), vbRedText2.Text = Text2.Text & Chr(13) &

40、 Chr(10) & Space(1) & n & Space(10) & f 0 & Space(13) & -y & Space(11) & f= & Format$(f, #0.0) & Space(12) & X & , & YEnd IfDoEventsdelayloop 0.5q = judge(X, Y)If q 4 ThenGoTo againEnd IfLoopElseIf Option2.Value = True ThenDo Until (X - x2) = 0 And (Y - y2) = 0f = Sqr(x 2) + (y 2) - r1n = n + 1If f = 0 Thenf = f + 2 * Y + 1Y = Y + 1Picture1.Line -(X, Y), vbRedText2.Text