DDA直线插补和圆弧插补VB程序.docxVIP

— PAGE \* Arabic 1 — DDA直线插补和圆弧插补VB程序 Option Explicit 起点坐标，终点坐标，脉冲当量Dim x1%, y1%, x2%, y2%, p!Dim Di As Integer -1为顺时针，1为逆时针Const PI = 3.14159Private Sub cmdShow_Click()If Text1(0) 0If f = 0 ThenIf xe y0 Theny = y + Sgn(ye - y0) * pEnd Iff = f + Abs(xe - x0)End Ifobj.Line -(x, y), vbRed 画折线n = n - 1DoEventsFor i = 1 To 2000000 * p延时Next iWendEnd SubPrivate Sub Form_Load()If App.PrevInstance Then End 禁止两个程序同时运行Combo1.AddItem 0.01Combo1.AddItem 0.02Combo1.AddItem 0.05Combo1.AddItem 0.1Combo1.AddItem 0.2Combo1.AddItem 0.5Combo1.AddItem 1Showst = 逐点比较插补法演示程序Me.Font.Size = 24x = (Me.ScaleWidth - Me.TextWidth(st)) / 2y = 10 (pic.Top - Me.TextWidth(St)) / 2RandomizeFor i = 1 To 10CurrentX = x: CurrentY = yMe.ForeColor = Rnd * 65535Print stx = x + 0.6y = y + 0.4Next iCombo1.Text = Combo1.List(5)pic.Height = 450pic.Width = 450pic.Scale (-10, 10)-(10, -10)axis pic 画坐标轴End Sub**********************************************************************Private Sub axis(obj As Object)画x轴obj.Line (-obj.ScaleWidth / 2 + 0.5, 0)-(obj.ScaleWidth / 2 - 0.5, 0)obj.Line -(obj.ScaleWidth / 2 - 1, 0.2)obj.Line (obj.ScaleWidth / 2 - 0.5, 0)-(obj.ScaleWidth / 2 - 1, -0.2)画y轴obj.Line (0, obj.ScaleHeight / 2 + 0.5)-(0, -obj.ScaleHeight / 2 - 0.5)obj.Line -(-0.2, -obj.ScaleHeight / 2 - 1)obj.Line (0, -obj.ScaleHeight / 2 - 0.5)-(0.2, -obj.ScaleHeight / 2 - 1)obj.Font.Size = 9画刻度For cx = -9 To 9 Step 3 obj.Line (cx, 0)-(cx, 0.2)If cx 0 Thenobj.CurrentX = -0.8obj.CurrentY = cy + 0.2obj.Print cyEnd IfNextobj.CurrentX = -0.5obj.CurrentY = -0.2obj.Font.Size = 12obj.Print O 坐标原点End Sub*********************************************************************Private Sub chabu_c1(obj As Object, x0%, y0%, xe%, ye%)第一象限圆弧插补n = Abs(xe - x0) + Abs(ye - y0): n = n / p 总步数f = 0r = Sqr(x0 ^ 2 + y0 ^ 2)If x0 0If f * Di 0 Thenf = f - 2 * x * Di + px = x - p * DiElseIf f * Di 9 ThenMsgBox 输入数值过大，屏幕内不能完全显示！Text1(Index).Te