vb圆弧插补程序

1、Private Sub Command1_Click()Const pi = 3.14159265Picture1.ForeColor = vbBlackPicture1.DrawWidth = 2Picture1.Line (50, 500)-(50, 5500)Picture1.Line (50, 5500)-(6500, 5500)Picture1.Line (80, 600)-(50, 500)Picture1.Line (20, 600)-(50, 500)Picture1.Line (6400, 5450)-(6500, 5500)Picture1.Line (6400, 5550

2、)-(6500, 5500)Picture1.ForeColor = vbRedPicture1.DrawWidth = 3If Int(Text1) = 0 ThenPicture1.Circle (50, 5500), Sqr(Int(Text1) * Int(Text1) + Int(Text2) * Int(Text2) * 400, , Atn(Int(Text4) / Int(Text3), pi / 2ElsePicture1.Circle (50, 5500), Sqr(Int(Text1) *Int(Text1) + Int(Text2) * Int(Text2) * 400

3、, , Atn(Int(Text4) / Int(Text3), Atn(Int(Text2) / Int(Text1)End IfEnd SubPrivate Sub Command2_Click()Dim k, m, j, l, n, F(20) As Integerm = 0l = Text1.Textk = Text2.TextF(m) = 0Picture1.ForeColor = vbGreenPicture1.DrawWidth = 3j = Abs(Int(Text1) - Int(Text3) + Abs(Int(Text2) - Int(Text4)Form1.Curren

4、tX = 200Print 初始：进给方向 & F(m)=0 & X0=& Int(Textl) & Y0= & Int(Text2) & 汇= & jFor n = 1 To jIf F(m) = 0 And j 0 Thenm = m + 1k = k - 1F(m) = F(m - 1) - 2 * Abs(k + 1) + 1Picture1.Line (50 + 400 * l, 5500 - k * 400)-(50 + 400 * l, 5500 - (k + 1) * 400)Form1.CurrentX = 200Form1.CurrentY = 200 + m * 300P

5、rint 第 & m & 步 & - yF( & m &)= & F(m) & & x= & l & & y=;k & 注& j - nElsel = l + 1m = m + 1Picture1.Line (50 + 400 * l, 5500 - k * 400)-(50 + 400 * (l - 1), 5500 - k * 400)F(m) = F(m - 1) + 2 * Abs(l - 1) + 1Form1.CurrentX = 200Form1.CurrentY = 200 + m * 300Print 第 & m & 步 & + x F( & m & )= & F(m) &

6、& x=; l & & y=;k & 注& j - nEnd IfNext nEnd SubPrivate Sub Command3_Click()Text1.Text = Text3.Text = End SubPrivate Sub Command4_Click()Form1.CurrentY = 200EndPrivate Sub Command1_Click()Picture1.ForeColor = vbBlackPicture1.DrawWidth = 2Picture1.Line (7500, 8500)-(7500, 500)Picture1.Line (7500, 500)-

7、(500, 500)Picture1.Line (7500, 8500)-(7400, 8400)Picture1.Line (7500, 8500)-(7600, 8400)Picture1.Line (500, 500)-(600, 600)Picture1.Line (500, 500)-(600, 400)Picture1.ForeColor = vbRedPicture1.DrawWidth = 5Picture1.Line (7500, 500)-(7500 + 400 *Int(Text3), 500 - 400 * Int(Text4)End SubPrivate Sub Co

8、mmand2_Click()Form1.ClsDim k, m, j, l, n, F(20) As Integerm = 0l = 0k = 0F(m) = 0Picture1.ForeColor = vbGreenPicture1.DrawWidth = 3j = Abs(Int(Text3) + Abs(Int(Text4)Form1.CurrentX = 200Form1.CurrentY = 200Print 初始：进给方向 & F(m)=0 & Xe=& Int(Text3) & Ye= & Int(Text4) & 汇= & jFor n = 1 To jIf F(m) = 0

9、And j 0 Thenm = m + 1l = l - 1Picture1.Line (7500 + 400 * (l + 1), 500 - k * 400)-(7500 + 400 * (l), 500 - k * 400)Form1.CurrentX = 200Form1.CurrentY = 200 + m * 300Print 第 & m & 步 & x F( & m & )= & F(m) & & x= & l & & y=; k & E= & j - nElsek = k - 1m = m + 1Picture1.Line (7500 + 400 * l, 500 - (k +

10、 1) * 400)-(7500 + 400 * l, 500 - k * 400)F(m) = F(m - 1) + Abs(Int(Text3)Form1.CurrentX = 200Form1.CurrentY = 200 + m * 300Print 第 & m & 步 & y F( & m & ) & F(m) & & x=; l & & y=; k & E= & j - nEnd IfNext nEnd SubPrivate Sub Command3_Click()Text1.Text = Text2.Text = Picture1.ClsForm1.ClsEnd SubPriva

11、te Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()End SubIf F = m And G = m ThenPrivate Sub Command1_Click()Const pi = 3.14159265Picture1.ForeColor = vbBlackPicture1.DrawWidth = 2Picture1.Line (50, 500)-(50, 5500)Picture1.Line (50, 5500)-(6500, 5500)Picture1.Line (80, 600)-(50, 500)Picture1.Li

12、ne (20, 600)-(50, 500)Picture1.Line (6400, 5450)-(6500, 5500)Picture1.Line (6400, 5550)-(6500, 5500)Picture1.ForeColor = vbRedPicture1.DrawWidth = 3Picture1.Line (50, 5500)-(50 + 400 * Int(Text3), 5500 - 400 * Int(Text4)End SubPrivate Sub Command2_Click()Dim k, m, j, l, n, F, G As Integerl = 0 k = 0

13、 F = 0 G = 0Picture1.ForeColor = vbGreenPicture1.DrawWidth = 3n = Int(Text5)j = 2 A nm = 2 A nForm1.CurrentX = 200Form1.CurrentY = 200Print 累加次数 & F= F + int (text3) & +M & G=G +int(text4) & + 凶 ;汇=& jPrint n & 0 & 0 &0 & 0 & jFor n = 1 To ml = l + 1 k = k + 1Picture1.Line (50 + 400 * (l - 1), 5500

14、- (k - 1) 400)-(50 + 400 * (l), 5500 - k * 400)F = F - mG = G - mPrint ; n & & F & &1 & & G & & 1 & &j - 1ElseIf F = m And G m Thenl = l + 1F = F - mPrint ; n & & F & &1 & & G & & 0 & &j - 1Picture1.Line (50 + 400 * (l - 1), 5500 - k * 400)-(50 + 400 * (l), 5500 - k * 400)ElseIf F = m Thenk = k + 1 G = G - mPicture1.Line (50 + 400 * l, 5500 - (k - 1) * 400)-(50 + 400 * (l), 5500 - k * 400) TOC o 1-5 h z Print ; n & & F & &0 & & G & & 1 & &