数控原理课程设计：逐点插补法

1、数控原理课程设计：逐点插补法四象限直线，四象限圆弧顺逆，过象限圆弧顺逆 程序以及运行截图工具：Vb6.0Private Sub Command1_Click()Dim xe%, ye%, a%, b%, f%, l%, m%xe = Val(Text1.Text)ye = Val(Text2.Text)f = 0a = 0b = 0Picture1.ClsPicture1.Scale (-10, 10)-(10, -10)Picture1.Line (-10, 0)-(10, 0)Picture1.Line (0, 10)-(0, -10)Picture1.CurrentX = 0: Pict

2、ure1.CurrentY = 0: Picture1.Print 0For l = -9 To 9 Step 1Picture1.CurrentX = l: Picture1.CurrentY = 0: Picture1.Print lPicture1.CurrentX = 0: Picture1.CurrentY = l: Picture1.Print lNext lPicture1.Line (0, 0)-(xe, ye)直线第一象限If xe > 0 And ye > 0 ThenDo Until a = xe And b = yeIf f >= 0 Thena =

3、a + 1Picture1.Line (a - 1, b)-(a, b), QBColor(1)f = f - Abs(ye)Elseb = b + 1Picture1.Line (a, b - 1)-(a, b), QBColor(1)f = f + Abs(xe)End IfPicture1.PSet (a, b)LoopEnd If直线第二象限If xe < 0 And ye > 0 ThenDo Until a = xe And b = yeIf f >= 0 Thena = a - 1Picture1.Line (a + 1, b)-(a, b), QBColor(

4、1)f = f - Abs(ye)Elseb = b + 1Picture1.Line (a, b - 1)-(a, b), QBColor(1)f = f + Abs(xe)End IfPicture1.PSet (a, b)LoopEnd If直线第三象限If xe < 0 And ye < 0 ThenDo Until a = xe And b = yeIf f >= 0 Thena = a - 1Picture1.Line (a + 1, b)-(a, b), QBColor(1)f = f - Abs(ye)Elseb = b - 1Picture1.Line (a

5、, b + 1)-(a, b), QBColor(1)f = f + Abs(xe)End IfPicture1.PSet (a, b)LoopEnd If直线第四象限If xe > 0 And ye < 0 ThenDo Until a = xe And b = yeIf f >= 0 Thena = a + 1Picture1.Line (a - 1, b)-(a, b), QBColor(1)f = f - Abs(ye)Elseb = b - 1Picture1.Line (a, b + 1)-(a, b), QBColor(1)f = f + Abs(xe)End

6、IfPicture1.PSet (a, b)LoopEnd IfEnd Sub圆弧插补Private Sub Command2_Click()Dim xe%, ye%, a%, b%, f!, x1%, y1%, r!, x!, y!, c!, d!, g%, h%xe = Val(Text1.Text)ye = Val(Text2.Text)x1 = Val(Text3.Text)y1 = Val(Text4.Text)r = Sqr(xe * xe + ye * ye)a = x1b = y1c = Abs(x1)d = Abs(y1)Picture1.ClsPicture1.Scale

7、(-10, 10)-(10, -10)Picture1.Line (-10, 0)-(10, 0)Picture1.Line (0, 10)-(0, -10)Picture1.CurrentX = 0: Picture1.CurrentY = 0: Picture1.Print 0For l = -9 To 9 Step 1Picture1.CurrentX = l: Picture1.CurrentY = 0: Picture1.Print lPicture1.CurrentX = 0: Picture1.CurrentY = l: Picture1.Print lNext l逆圆第一象限I

8、f xe >= 0 And ye >= 0 And x1 >= 0 And y1 >= 0 And xe < x1 ThenFor x = x1 To xe Step -0.0001y = Sqr(r * r - x * x)Picture1.PSet (x, y)Next xDo Until a = xe And b = yeIf f >= 0 Thena = a - 1Picture1.Line (a + 1, b)-(a, b), QBColor(1)f = f - 2 * Abs(c) + 1c = Abs(c) - 1Elseb = b + 1Pi

9、cture1.Line (a, b - 1)-(a, b), QBColor(1)f = f + 2 * Abs(d) + 1d = Abs(d) + 1End IfPicture1.PSet (a, b)LoopEnd If逆圆第二象限If xe <= 0 And ye >= 0 And x1 <= 0 And y1 >= 0 And xe < x1 ThenFor x = x1 To xe Step -0.0001y = Sqr(r * r - x * x)Picture1.PSet (x, y)Next xDo Until a = xe And b = ye

10、If f >= 0 Thenb = b - 1Picture1.Line (a, b + 1)-(a, b), QBColor(1)f = f - 2 * Abs(d) + 1d = Abs(d) - 1Elsea = a - 1Picture1.Line (a + 1, b)-(a, b), QBColor(1)f = f + 2 * Abs(c) + 1c = Abs(c) + 1End IfPicture1.PSet (a, b)LoopEnd If逆圆第三象限If xe <= 0 And ye <= 0 And x1 <= 0 And y1 <= 0 An

11、d xe > x1 ThenFor x = x1 To xe Step 0.0001y = -Sqr(r * r - x * x)Picture1.PSet (x, y)Next xDo Until a = xe And b = yeIf f >= 0 Thena = a + 1Picture1.Line (a - 1, b)-(a, b), QBColor(1)f = f - 2 * Abs(c) + 1c = Abs(c) - 1Elseb = b - 1Picture1.Line (a, b + 1)-(a, b), QBColor(1)f = f + 2 * Abs(d)

12、+ 1d = Abs(d) + 1End IfPicture1.PSet (a, b)LoopEnd If逆圆第四象限If xe >= 0 And ye <= 0 And x1 >= 0 And y1 <= 0 And xe > x1 ThenFor x = x1 To xe Step 0.0001y = -Sqr(r * r - x * x)Picture1.PSet (x, y)Next xDo Until a = xe And b = yeIf f >= 0 Thenb = b + 1Picture1.Line (a, b - 1)-(a, b), Q

13、BColor(1)f = f - 2 * Abs(d) + 1d = Abs(d) - 1Elsea = a + 1Picture1.Line (a - 1, b)-(a, b), QBColor(1)f = f + 2 * Abs(c) + 1c = Abs(c) + 1End IfPicture1.PSet (a, b)LoopEnd If顺圆第一象限If xe >= 0 And ye >= 0 And x1 >= 0 And y1 >= 0 And xe > x1 ThenFor x = x1 To xe Step 0.0001y = Sqr(r * r -

14、 x * x)Picture1.PSet (x, y)Next xDo Until a = xe And b = yeIf f >= 0 Thenb = b - 1Picture1.Line (a, b + 1)-(a, b), QBColor(1)f = f - 2 * Abs(d) + 1d = Abs(d) - 1Elsea = a + 1Picture1.Line (a - 1, b)-(a, b), QBColor(1)f = f + 2 * Abs(c) + 1c = Abs(c) + 1End IfPicture1.PSet (a, b)LoopEnd If顺圆第二象限If

15、 xe <= 0 And ye >= 0 And x1 <= 0 And y1 >= 0 And xe > x1 ThenFor x = x1 To xe Step 0.0001y = Sqr(r * r - x * x)Picture1.PSet (x, y)Next xDo Until a = xe And b = yeIf f >= 0 Thena = a + 1Picture1.Line (a - 1, b)-(a, b), QBColor(1)f = f - 2 * Abs(c) + 1c = Abs(c) - 1Elseb = b + 1Pict

16、ure1.Line (a, b - 1)-(a, b), QBColor(1)f = f + 2 * Abs(d) + 1d = Abs(d) + 1End IfPicture1.PSet (a, b)LoopEnd If顺圆第三象限If xe <= 0 And ye <= 0 And x1 <= 0 And y1 <= 0 And xe < x1 ThenFor x = x1 To xe Step -0.0001y = -Sqr(r * r - x * x)Picture1.PSet (x, y)Next xDo Until a = xe And b = yeI

17、f f >= 0 Thenb = b + 1Picture1.Line (a, b - 1)-(a, b), QBColor(1)f = f - 2 * Abs(d) + 1d = Abs(d) - 1Elsea = a - 1Picture1.Line (a + 1, b)-(a, b), QBColor(1)f = f + 2 * Abs(c) + 1c = Abs(c) + 1End IfPicture1.PSet (a, b)LoopEnd If顺圆第四象限If xe >= 0 And ye <= 0 And x1 >= 0 And y1 <= 0 And

18、 xe < x1 ThenFor x = x1 To xe Step -0.0001y = -Sqr(r * r - x * x)Picture1.PSet (x, y)Next xDo Until a = xe And b = yeIf f >= 0 Thena = a - 1Picture1.Line (a + 1, b)-(a, b), QBColor(1)f = f - 2 * Abs(c) + 1c = Abs(c) - 1Elseb = b - 1Picture1.Line (a, b + 1)-(a, b), QBColor(1)f = f + 2 * Abs(d)

19、+ 1d = Abs(d) + 1End IfPicture1.PSet (a, b)LoopEnd If圆弧过象限 过第一第二象限的逆圆If x1 >= 0 And y1 >= 0 And xe <= 0 And ye >= 0 ThenFor x = x1 To xe Step -0.0001y = Sqr(r * r - x * x)Picture1.PSet (x, y)Next xg = 0h = rIf x1 >= 0 And y1 >= 0 And g >= 0 And h >= 0 And g < x1 ThenDo Unt

20、il a = g And b = hIf f >= 0 Thena = a - 1Picture1.Line (a + 1, b)-(a, b), QBColor(1)f = f - 2 * Abs(c) + 1c = Abs(c) - 1Elseb = b + 1Picture1.Line (a, b - 1)-(a, b), QBColor(1)f = f + 2 * Abs(d) + 1d = Abs(d) + 1End IfPicture1.PSet (a, b)LoopEnd IfIf xe <= 0 And ye >= 0 And g <= 0 And h

21、>= 0 And xe < g ThenDo Until a = xe And b = yeIf f >= 0 Thenb = b - 1Picture1.Line (a, b + 1)-(a, b), QBColor(1)f = f - 2 * Abs(d) + 1d = Abs(d) - 1Elsea = a - 1Picture1.Line (a + 1, b)-(a, b), QBColor(1)f = f + 2 * Abs(c) + 1c = Abs(c) + 1End IfPicture1.PSet (a, b)LoopEnd IfEnd If圆弧第二第三象限的

22、逆圆If x1 <= 0 And y1 >= 0 And xe <= 0 And ye <= 0 ThenFor y = y1 To ye Step -0.0001x = -Sqr(r * r - y * y)Picture1.PSet (x, y)Next yg = -1 * rh = 0If x1 <= 0 And y1 >= 0 And g <= 0 And h >= 0 And g < x1 ThenDo Until a = g And b = hIf f >= 0 Thenb = b - 1Picture1.Line (a,

23、 b + 1)-(a, b), QBColor(1)f = f - 2 * Abs(d) + 1d = Abs(d) - 1Elsea = a - 1Picture1.Line (a + 1, b)-(a, b), QBColor(1)f = f + 2 * Abs(c) + 1c = Abs(c) + 1End IfPicture1.PSet (a, b)LoopEnd IfIf xe <= 0 And ye <= 0 And g <= 0 And h <= 0 And xe > g ThenDo Until a = xe And b = yeIf f >

24、= 0 Thena = a + 1Picture1.Line (a - 1, b)-(a, b), QBColor(1)f = f - 2 * Abs(c) + 1c = Abs(c) - 1Elseb = b - 1Picture1.Line (a, b + 1)-(a, b), QBColor(1)f = f + 2 * Abs(d) + 1d = Abs(d) + 1End IfPicture1.PSet (a, b)LoopEnd IfEnd If三四象限逆圆If x1 <= 0 And y1 <= 0 And xe >= 0 And ye <= 0 ThenF

25、or x = x1 To xe Step 0.0001y = -Sqr(r * r - x * x)Picture1.PSet (x, y)Next xg = 0h = -rIf g <= 0 And h <= 0 And x1 <= 0 And y1 <= 0 And g > x1 ThenDo Until a = g And b = hIf f >= 0 Thena = a + 1Picture1.Line (a - 1, b)-(a, b), QBColor(1)f = f - 2 * Abs(c) + 1c = Abs(c) - 1Elseb = b

26、 - 1Picture1.Line (a, b + 1)-(a, b), QBColor(1)f = f + 2 * Abs(d) + 1d = Abs(d) + 1End IfPicture1.PSet (a, b)LoopEnd IfIf xe >= 0 And ye <= 0 And g >= 0 And h <= 0 And xe > g ThenDo Until a = xe And b = yeIf f >= 0 Thenb = b + 1Picture1.Line (a, b - 1)-(a, b), QBColor(1)f = f - 2 *

27、 Abs(d) + 1d = Abs(d) - 1Elsea = a + 1Picture1.Line (a - 1, b)-(a, b), QBColor(1)f = f + 2 * Abs(c) + 1c = Abs(c) + 1End IfPicture1.PSet (a, b)LoopEnd IfEnd If14象限逆圆If x1 >= 0 And y1 <= 0 And xe >= 0 And ye >= 0 ThenFor y = y1 To ye Step 0.0001x = Sqr(r * r - y * y)Picture1.PSet (x, y)Ne

28、xt yg = rh = 0If g >= 0 And h <= 0 And x1 >= 0 And y1 <= 0 And g > x1 ThenDo Until a = g And b = hIf f >= 0 Thenb = b + 1Picture1.Line (a, b - 1)-(a, b), QBColor(1)f = f - 2 * Abs(d) + 1d = Abs(d) - 1Elsea = a + 1Picture1.Line (a - 1, b)-(a, b), QBColor(1)f = f + 2 * Abs(c) + 1c =

29、Abs(c) + 1End IfPicture1.PSet (a, b)LoopEnd IfIf xe >= 0 And ye >= 0 And g >= 0 And h >= 0 And g > xe ThenDo Until a = xe And b = yeIf f >= 0 Thena = a - 1Picture1.Line (a + 1, b)-(a, b), QBColor(1)f = f - 2 * Abs(c) + 1c = Abs(c) - 1Elseb = b + 1Picture1.Line (a, b - 1)-(a, b), QB

30、Color(1)f = f + 2 * Abs(d) + 1d = Abs(d) + 1End IfPicture1.PSet (a, b)LoopEnd IfEnd If12象限顺圆If x1 <= 0 And y1 >= 0 And xe > 0 And ye > 0 ThenFor x = x1 To xe Step 0.0001y = Sqr(r * r - x * x)Picture1.PSet (x, y)Next xg = 0h = rIf g <= 0 And h >= 0 And x1 <= 0 And y1 >= 0 And

31、g > x1 ThenDo Until a = g And b = hIf f >= 0 Thena = a + 1Picture1.Line (a - 1, b)-(a, b), QBColor(1)f = f - 2 * Abs(c) + 1c = Abs(c) - 1Elseb = b + 1Picture1.Line (a, b - 1)-(a, b), QBColor(1)f = f + 2 * Abs(d) + 1d = Abs(d) + 1End IfPicture1.PSet (a, b)LoopEnd IfIf xe >= 0 And ye >= 0

32、And g >= 0 And h >= 0 And xe > g ThenDo Until a = xe And b = yeIf f >= 0 Thenb = b - 1Picture1.Line (a, b + 1)-(a, b), QBColor(1)f = f - 2 * Abs(d) + 1d = Abs(d) - 1Elsea = a + 1Picture1.Line (a - 1, b)-(a, b), QBColor(1)f = f + 2 * Abs(c) + 1c = Abs(c) + 1End IfPicture1.PSet (a, b)LoopE

33、nd IfEnd If23象限顺圆If x1 <= 0 And y1 <= 0 And xe < 0 And ye > 0 ThenFor y = y1 To ye Step 0.0001x = -Sqr(r * r - y * y)Picture1.PSet (x, y)Next yg = -rh = 0If g <= 0 And h <= 0 And x1 <= 0 And y1 <= 0 And g < x1 ThenDo Until a = g And b = hIf f >= 0 Thenb = b + 1Picture1.

34、Line (a, b - 1)-(a, b), QBColor(1)f = f - 2 * Abs(d) + 1d = Abs(d) - 1Elsea = a - 1Picture1.Line (a + 1, b)-(a, b), QBColor(1)f = f + 2 * Abs(c) + 1c = Abs(c) + 1End IfPicture1.PSet (a, b)LoopEnd IfIf xe <= 0 And ye >= 0 And g <= 0 And h >= 0 And xe > g ThenDo Until a = xe And b = yeI

35、f f >= 0 Thena = a + 1Picture1.Line (a - 1, b)-(a, b), QBColor(1)f = f - 2 * Abs(c) + 1c = Abs(c) - 1Elseb = b + 1Picture1.Line (a, b - 1)-(a, b), QBColor(1)f = f + 2 * Abs(d) + 1d = Abs(d) + 1End IfPicture1.PSet (a, b)LoopEnd IfEnd If34顺圆If x1 >= 0 And y1 <= 0 And xe < 0 And ye < 0 T

36、henFor x = x1 To xe Step -0.0001y = -Sqr(r * r - x * x)Picture1.PSet (x, y)Next xg = 0h = -rIf g >= 0 And h <= 0 And x1 >= 0 And y1 <= 0 And g < x1 ThenDo Until a = g And b = hIf f >= 0 Thena = a - 1Picture1.Line (a + 1, b)-(a, b), QBColor(1)f = f - 2 * Abs(c) + 1c = Abs(c) - 1Elseb = b - 1Picture1.Line (a, b + 1)-(a, b), QBColor(1)f = f + 2 * Abs(d) + 1d = Abs(d) + 1End IfPicture1.PSet (a, b)LoopEnd IfIf xe <= 0 And ye <= 0 And g <= 0 And h <= 0 And xe < g ThenDo Until a = xe And b = yeIf f >= 0 Thenb = b