完整版基于vb的直线插补与圆弧插补实验Word格式.docx

1、; Xe; , Ye;）If Text1.Text = none Or Text2.Text = none Then MsgBox 请输入加工终点坐标值。Text3.Text = 0Text4.Text = 0Text5.Text = 0End SubPrivate Sub Command2_Click（）Dim sum As IntegerXm = 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 Pictur

2、e1.Line （Xm, Ym）-（Xm + 1, Ym）, vbRed: Text3.Text = Xm + 1 0 And sum = Abs（Xe） + Abs（Ye） - 1 Then MsgBox 加工完毕！第二象限开始If Xe = 0 Then Picture1.Line （Xm, Ym）-（Xm, Ym + 1）, vbRed: 0 Then Picture1.Line （Xm, Ym）-（Xm - 1, Ym）, vbRed: Text3.Text = Xm - 1= Abs（Xe） + Abs（Ye） + 1 Then MsgBox 第三象限开始 0 And Ye = 0

3、Then Picture1.Line （Xm, Ym）-（Xm - 1, Ym）, vbRed: 0 Then Picture1.Line （Xm, Ym）-（Xm, Ym - 1）, vbRed: Text4.Text = Ym - 1= Abs（Xe） + Abs（Ye） Then MsgBox 第四象限开始= 0 Then Picture1.Line （Xm, Ym）-（Xm, Ym - 1）, vbRed: 0 Then Picture1.Line （Xm, Ym）-（Xm + 1, Ym）, vbRed:Text5.Text = Abs（Val（Text3.Text） + Abs（V

4、al（Text4.Text）Private Sub Command3_Click（）Form2.HideForm1.Show数字积分器法圆弧插补Text6.Text = 0Text7.Text = 0ax = Val（Text3.Text）ay = Val（Text4.Text）n = Val（Text7.Text）Xm = Val（Text5.Text）Ym = Val（Text6.Text）终点判断a = ax + Abs（Xe）If a = 16 Then Text3.Text = a - 16= 32 Then Text3.Text = a - 32b = ay + Abs（Ye）If

5、 b = 16 Then Text4.Text = b - 16= 32 Then Text4.Text = b - 32 0 And a = 16 And b = 16 Then Picture1.Line （Xm, Ym）-（Xm + 1, Ym + 1）, vbRed: Text7.Text = n + 2: Text5.Text = Xm + 1: Text6.Text = Ym + 1 0 And a = 16 Then Picture1.Line （Xm, Ym）-（Xm, Ym + 1）, vbRed:If n = Abs（Xe） + Abs（Ye） Then MsgBox 错误

6、：已经加工完毕，无法继续加工，请点击复位！ 16 Then Picture1.Line （Xm, Ym）-（Xm - 1, Ym）, vbRed: Text5.Text = Xm - 1= 16 Then Picture1.Line （Xm, Ym）-（Xm - 1, Ym + 1）, vbRed: Text5.Text = Xm - 1:= 16 Then Picture1.Line （Xm, Ym）-（Xm - 1, Ym - 1）, vbRed: Text6.Text = Ym - 1= 16 Then Picture1.Line （Xm, Ym）-（Xm, Ym - 1）, vbRed

7、:= 16 Then Picture1.Line （Xm, Ym）-（Xm + 1, Ym - 1）, vbRed:结束If n = Abs（Xe） + Abs（Ye） Then Text7.Text = Abs（Xe） + Abs（Ye）If n = Abs（Xe） + Abs（Ye） - 1 And a = 16 Then MsgBox If n = Abs（Xe） + Abs（Ye） - 1 And b If n = Abs（Xe） + Abs（Ye） - 2 And a Form3.HideDim R, a, b, Ym, Xm, Xe, YeR = Val（Text1.Text）a

8、= Val（Text2.Text）b = Val（Text3.Text）Xe = Val（Text4.Text）Ye = Val（Text5.Text）Xm = Val（Text6.Text）Ym = Val（Text7.Text）Picture1.Scale （-Picture1.ScaleWidth / 4, Picture1.ScaleHeight / 4）-（Picture1.ScaleWidth / 4, -Picture1.ScaleHeight / 4）Picture1.Circle （0, 0）, Text1, vbBlue, Text2, Text3Text1.Text =

9、Text2.Text = Text3.Text = Text6.Text = Text7.Text = Dim sum As Single, Y, XIf Option1 Then 逆圆弧 Y = Sqr（R 2 - Xm 2） X = Sqr（R 2 - Ym 2） If Xm = R And Ym = 0 Then 一象限 Picture1.Line （Xm, Ym）-（Xm, Ym + 1）, vbRed: Ym = Ym + 1 Text7.Text = Ym + 1 End If If Xm 0 And Ym 0 Then= X Then Picture1.Line （Xm, Ym）

10、-（Xm - 1, Ym）, vbRed: Text6.Text = Xm - 1: Xm = Xm - 1 Else If Ym Y Then Text7.Text = Ym + 1:If Xm = Xe And Ym = Ye Then MsgBox 加工完成！End IfIf Xm = 0 And Ym = R Then 二象限 Text6.Text = Xm - 1If Xm = Y Then Picture1.Line （Xm, Ym）-（Xm, Ym - 1）, vbRed: Ym = Ym - 1: Text7.Text = Ym - 1 -X Then Xm = Xm - 1: If Xm = -R And Ym = 0 Then 三象限 Ym = Ym - 1 0 And Ym Ym = Ym + 1: If Xm X ThenIf Option2 Then 顺圆弧Y = Sqr（R 2 - Xm 2）X = Sqr（R 2 - Ym 2）第一象限第二象限第三象限If Xm = R And Ym = 0 Then 第四象限Form4.HideDim R, a, b, Ym, Xm, Xe, Ye, ax, ay, m, n, s, tb = Val（Text3.Te