基于vb的直线插补与圆弧插补实验.doc

主界面面板 逐点比较圆弧插补 程序如下： Private Sub Command1_Click() Xe = Val(Text1.Text) Ye = Val(Text2.Text) Picture1.Scale (-20, 20)-(20, -20) Picture1.Cls Picture1.Line (-20, 0)-(20, 0), vbBlue Picture1.Line (19, 1)-(20, 0), vbbiue Picture1.Line -(19, -1), vbBlue Picture1.Print X Picture1.Line (0, -20)-(0, 20), vbBlue Picture1.Line (1, 19)-(0, 20), vbBlue Picture1.Line -(-1, 19), vbBlue Picture1.Print Y Picture1.Line (0, 0)-(Xe, Ye), vbBlue Picture1.Print (; Xe; ,; Ye; ) If Text1.Text = none Or Text2.Text = none Then MsgBox 请输入加工终点坐标值。 Text3.Text = 0 Text4.Text = 0 Text5.Text = 0 End Sub Private Sub Command2_Click() Dim sum As Integer Xe = Val(Text1.Text) Ye = Val(Text2.Text) Xm = Val(Text3.Text) Ym = Val(Text4.Text) m = Val(Text5.Text) sum = Xe * Ym - Xm * Ye 第一象限开始 If Xe 0 And Ye 0 And sum = 0 Then Picture1.Line (Xm, Ym)-(Xm + 1, Ym), vbRed: Text3.Text = Xm + 1 If Xe 0 And Ye 0 And sum 0 Then Picture1.Line (Xm, Ym)-(Xm, Ym + 1), vbRed: Text4.Text = Ym + 1 If Abs(Xm) + Abs(Ym) = Abs(Xe) + Abs(Ye) - 1 Then MsgBox 加工完毕！ 第二象限开始 If Xe 0 And Ye 0 And sum = 0 Then Picture1.Line (Xm, Ym)-(Xm, Ym + 1), vbRed: Text4.Text = Ym + 1 If Xe 0 And Ye 0 And sum 0 Then Picture1.Line (Xm, Ym)-(Xm - 1, Ym), vbRed: Text3.Text = Xm - 1 If Abs(Xm) + Abs(Ym) = Abs(Xe) + Abs(Ye) + 1 Then MsgBox 加工完毕！ 第三象限开始 If Xe 0 And Ye 0 And sum = 0 Then Picture1.Line (Xm, Ym)-(Xm - 1, Ym), vbRed: Text3.Text = Xm - 1 If Xe 0 And Ye 0 And sum 0 Then Picture1.Line (Xm, Ym)-(Xm, Ym - 1), vbRed: Text4.Text = Ym - 1 If Abs(Xm) + Abs(Ym) = Abs(Xe) + Abs(Ye) Then MsgBox 加工完毕！ 第四象限开始 If Xe 0 And Ye 0 And sum = 0 Then Picture1.Line (Xm, Ym)-(Xm, Ym - 1), vbRed: Text4.Text = Ym - 1 If Xe 0 And Ye 0 And sum 0 Then Picture1.Line (Xm, Ym)-(Xm + 1, Ym), vbRed: Text3.Text = Xm + 1 If Abs(Xm) + Abs(Ym) = Abs(Xe) + Abs(Ye) Then MsgBox 加工完毕！ Text5.Text = Abs(Val(Text3.Text)) + Abs(Val(Text4.Text)) End Sub Private Sub Command3_Click() Form2.Hide Form1.Show End Sub 数字积分器法圆弧插补 程序如下： Private Sub Command1_Click() Xe =