vb编写的一个凸轮NC代码生成软件.docx

1、Option ExplicitConst pi = 3.141592653Private Sub btnRun_Click()lbldraw.Visible = Truelbldraw.Caption = “Picture1.ClsPicture1.ScaleMode = 6Picture1.Scale (-500, 300)-(500, -300)Picture1.Line (-500, 0)-(500, 0)Picture1.Line (0, 300)-(0, -300)Picture1.CurrentX = 0: Picture1.CurrentY = 0: Picture1.Print

2、 0Picture1.CurrentX = 480: Picture1.CurrentY = 40: Picture1.Print “X“Picture1.CurrentX = 10: Picture1.CurrentY = 300: Picture1.Print “Y“Dim n As Single, d As Single, r As Single, X As Single, Y As Single, S As SingleDim b As Single, q As Single, k As Singler = Text2(2).Textn = Text2(0).TextS = Text2

3、(1).Textb = Text2(3).Textq = Text2(4).Textk = 360 - n - b - qDim F As SinglePicture1.CurrentX = r: Picture1.CurrentY = 0Rem If mnudengsu.Checked ThenFor d = 0 To n Step 0.01X = (r + S * d / n) * Cos(pi / 180 * d)Y = (r + S * d / n) * Sin(pi / 180 * d)Picture1.PSet (X, Y), vbRedNextFor d = 0 To b Ste

4、p 0.01Y = (r + S) * Sin(pi / 180 * (n + d)X = (r + S) * Cos(pi / 180 * (n + d)Picture1.PSet (X, Y), vbRedNextFor d = 0 To q Step 0.01Y = (r + S - S * d / q) * Sin(pi / 180 * (n + b + d)X = (r + S - S * d / q) * Cos(pi / 180 * (n + b + d)Picture1.PSet (X, Y), vbRedNextFor d = 0 To k Step 0.01Y = r *

5、Sin(pi / 180 * (n + b + q + d)X = r * Cos(pi / 180 * (n + b + q + d)Picture1.PSet (X, Y), vbRedNextlbldraw.Caption = “Rem ElseIf mnudengjiajian.Checked ThenFor d = 0 To n / 2 Step 0.01X = (r + 2 * S * d 2 / n 2) * Cos(pi / 180 * d)Y = (r + 2 * S * d 2 / n 2) * Sin(pi / 180 * d)Picture1.PSet (X, Y),

6、vbRedNextFor d = n / 2 To n Step 0.01X = (r + S - 2 * S * (n - d) 2 / n 2) * Cos(pi / 180 * d)Y = (r + S - 2 * S * (n - d) 2 / n 2) * Sin(pi / 180 * d)Picture1.PSet (X, Y), vbRedNextFor d = 0 To b Step 0.01Y = (r + S) * Sin(pi / 180 * (n + d)X = (r + S) * Cos(pi / 180 * (n + d)Picture1.PSet (X, Y),

7、vbRedNextF = n + bFor d = q To q / 2 Step -0.01F = F + 0.01X = (r + S - 2 * S * (q - d) 2 / q 2) * Cos(pi / 180 * F)Y = (r + S - 2 * S * (q - d) 2 / q 2) * Sin(pi / 180 * F)Picture1.PSet (X, Y), vbRedNextFor d = q / 2 To 0 Step -0.01F = F + 0.01X = (r + 2 * S * d 2 / q 2) * Cos(pi / 180 * F)Y = (r +

8、 2 * S * d 2 / q 2) * Sin(pi / 180 * F)Picture1.PSet (X, Y), vbRedNextFor d = 0 To k Step 0.01Y = r * Sin(pi / 180 * (n + b + q + d)X = r * Cos(pi / 180 * (n + b + q + d)Picture1.PSet (X, Y), vbRedNextlbldraw.Caption = “Rem ElseIf mnubaixian.Checked ThenFor d = 0 To n Step 0.01X = (r + S * (10 * (d

9、/ n) 3 - 15 * (d / n) 4 + 6 * (d / n) 5) * Cos(pi / 180 * d)Y = (r + S * (10 * (d / n) 3 - 15 * (d / n) 4 + 6 * (d / n) 5) * Sin(pi / 180 * d)Picture1.PSet (X, Y), vbRedNextFor d = 0 To b Step 0.01Y = (r + S) * Sin(pi / 180 * (n + d)X = (r + S) * Cos(pi / 180 * (n + d)Picture1.PSet (X, Y), vbRedNext

10、F = n + bFor d = q To 0 Step -0.01F = F + 0.01X = (r + S * (10 * (d / q) 3 - 15 * (d / q) 4 + 6 * (d / q) 5) * Cos(pi / 180 * F)Y = (r + S * (10 * (d / q) 3 - 15 * (d / q) 4 + 6 * (d / q) 5) * Sin(pi / 180 * F)Picture1.PSet (X, Y), vbRedNextFor d = 0 To k Step 0.01Y = r * Sin(pi / 180 * (n + b + q +

11、 d)X = r * Cos(pi / 180 * (n + b + q + d)Picture1.PSet (X, Y), vbRedNextlbldraw.Caption = “ ElseIf mnuSin.Checked ThenFor d = 0 To n Step 0.01X = (r + S * (d / n - Sin(2 * pi * d / n) / (2 * pi) * Cos(pi / 180 * d)Y = (r + S * (d / n - Sin(2 * pi * d / n) / (2 * pi) * Sin(pi / 180 * d)Picture1.PSet

12、(X, Y), vbRedNextFor d = 0 To b Step 0.01Y = (r + S) * Sin(pi / 180 * (n + d)X = (r + S) * Cos(pi / 180 * (n + d)Picture1.PSet (X, Y), vbRedNextF = n + bFor d = q To 0 Step -0.01F = F + 0.01X = (r + S * (d / q - Sin(2 * pi * d / q) / (2 * pi) * Cos(pi / 180 * F)Y = (r + S * (d / q - Sin(2 * pi * d /

13、 q) / (2 * pi) * Sin(pi / 180 * F)Picture1.PSet (X, Y), vbRedPicture1.PSet (X, Y), vbRedNextFor d = 0 To k Step 0.01Y = r * Sin(pi / 180 * (n + b + q + d)X = r * Cos(pi / 180 * (n + b + q + d)Picture1.PSet (X, Y), vbRedNextlbldraw.Caption = “Rem ElseFor d = 0 To n Step 0.01X = (r + S / 2 * (1 - Cos(

14、pi * d / n) * Cos(pi / 180 * d)Y = (r + S / 2 * (1 - Cos(pi * d / n) * Sin(pi / 180 * d)Picture1.PSet (X, Y), vbRedNextFor d = 0 To b Step 0.01Y = (r + S) * Sin(pi / 180 * (n + d)X = (r + S) * Cos(pi / 180 * (n + d)Picture1.PSet (X, Y), vbRedNextF = n + bFor d = q To 0 Step -0.01F = F + 0.01X = (r +

15、 S / 2 * (1 - Cos(pi * d / q) * Cos(pi / 180 * F)Y = (r + S / 2 * (1 - Cos(pi * d / q) * Sin(pi / 180 * F)Picture1.PSet (X, Y), vbRedNextFor d = 0 To k Step 0.01Y = r * Sin(pi / 180 * (n + b + q + d)X = r * Cos(pi / 180 * (n + b + q + d)Picture1.PSet (X, Y), vbRedNextlbldraw.Caption = “End IfEnd Sub

16、Private Sub cmmCreate_Click()Frame1.Caption = “NC“Text3.Text = “Dim X0 As Single, Y0 As Single, X1 As Single, Y1 As Single, ag1 As Single, ag2 As Single, ag3 As Single, ag4 As SingleDim S As Single, F As Single, r As Single, h As Single, L As Single, q As Single, w As Single, p As SingleDim i As Int

17、egerDim n As SingleDim e As Single, k As Single, a As Singleag1 = Text2(0).Text: ag2 = Text2(3).Text: ag3 = Text2(4).Text: ag4 = 360 - ag1 - ag2 - ag3r = Abs(Text2(2).Text): h = Text2(1).Text: S = Text2(6).Text: F = Text2(7).Text: p = Abs(Text1.Text)X0 = r: Y0 = 0If S = 0 Or F = 0 ThenMsgBox “, vbCr

18、itical, “ElseL = 2 * Sqr(r * p)q = Format(Val(X0), “0.000“)w = Format(Val(Y0), “0.000“)If ag1 = 0 Or ag3 = 0 ThenMsgBox “0“, vbCritical, “Exit SubElseIf mnudengsu.Checked ThenText3.Text = “Text3.SelText = “N00“ & “ “ & “G91“ & “ “ & “G00“ & “ “ & “x“ & (q) & “ “ & “y“ & (w) & “ “ & “M03“ & “ “ & “LF

19、“DoFor e = a To ag1 Step 0.0001X1 = (r + h * e / ag1) * Cos(pi / 180 * e)Y1 = (r + h * e / ag1) * Sin(pi / 180 * e)k = Abs(X1 - X0) 2 + (Y1 - Y0) 2 - L 2)a = eIf (k 0) ThenExit ForEnd IfNextPicture1.Line (X0, Y0)-(X1, Y1), vbBlueq = Format(Val(X1 - X0), “0.000“)w = Format(Val(Y1 - Y0), “0.000“)i = i

20、 + 1If i = 1 ThenText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “F“ & (F) & “ “ & “S“ & (S) & “ “ & “LF“ElseIf i 9 ThenText3.SelText = vbNewLine & “N“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“ElseText3.SelText = vbNewLine &

21、 “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“End IfX0 = X1Y0 = Y1Loop While e 0 ThenPicture1.Circle (0, 0), (r + h), vbBlue, (pi / 180 * ag1), (pi / 180 * (ag1 + ag2)X0 = (r + h) * Cos(pi / 180 * (ag1 + ag2)Y0 = (r + h) * Sin(pi / 180 * (ag1 + ag2)i = i + 1q = Format(Val

22、(X0), “0.000“)w = Format(Val(Y0), “0.000“)If i 0) ThenExit ForEnd IfNextPicture1.Line (X0, Y0)-(X1, Y1), vbBlueq = Format(Val(X1 - X0), “0.000“)w = Format(Val(Y1 - Y0), “0.000“)i = i + 1If i = 1 ThenText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “F“

23、& (F) & “ “ & “S“ & (S) & “ “ & “LF“ElseIf i 9 ThenText3.SelText = vbNewLine & “N“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“ElseText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“End IfX0 = X1Y0 = Y1Loop While e 0 ThenPictu

24、re1.Circle (0, 0), r, vbBlue, (pi / 180 * (ag1 + ag2 + ag3), (2 * pi)q = Format(Val(X0), “0.000“)w = Format(Val(Y0), “0.000“)i = i + 1If i 0) ThenExit ForEnd IfNextPicture1.Line (X0, Y0)-(X1, Y1), vbBlueq = Format(Val(X1 - X0), “0.000“)w = Format(Val(Y1 - Y0), “0.000“)i = i + 1If i = 1 ThenText3.Sel

25、Text = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “F“ & (F) & “ “ & “S“ & (S) & “ “ & “LF“ElseIf i 9 ThenText3.SelText = vbNewLine & “N“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“ElseText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“

26、& “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“End IfX0 = X1Y0 = Y1Loop While e 0) ThenExit ForEnd IfNextPicture1.Line (X0, Y0)-(X1, Y1), vbBlueq = Format(Val(X1 - X0), “0.000“)w = Format(Val(Y1 - Y0), “0.000“)i = i + 1If i = 1 ThenText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ &

27、(q) & “ “ & “Y“ & (w) & “ “ & “F“ & (F) & “ “ & “S“ & (S) & “ “ & “LF“ElseIf i 9 ThenText3.SelText = vbNewLine & “N“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“ElseText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“End IfX0 =

28、 X1Y0 = Y1Loop While e 0 ThenPicture1.Circle (0, 0), (r + h), vbBlue, (pi / 180 * ag1), (pi / 180 * (ag1 + ag2)X0 = (r + h) * Cos(pi / 180 * (ag1 + ag2)Y0 = (r + h) * Sin(pi / 180 * (ag1 + ag2)i = i + 1q = Format(Val(X0), “0.000“)w = Format(Val(Y0), “0.000“)If i 0) ThenExit ForEnd IfNextPicture1.Lin

29、e (X0, Y0)-(X1, Y1), vbBlueq = Format(Val(X1 - X0), “0.000“)w = Format(Val(Y1 - Y0), “0.000“)i = i + 1If i = 1 ThenText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “F“ & (F) & “ “ & “S“ & (S) & “ “ & “LF“ElseIf i 9 ThenText3.SelText = vbNewLine & “N“ &

30、 (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“ElseText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“End IfX0 = X1Y0 = Y1Loop While e ag3 / 2Rem a = ag3 / 2DoFor e = a To 0 Step -0.0001n = n + 0.0001X1 = (r + 2 * h * e 2 / ag3 2)

31、 * Cos(pi / 180 * n)Y1 = (r + 2 * h * e 2 / ag3 2) * Sin(pi / 180 * n)k = Abs(X1 - X0) 2 + (Y1 - Y0) 2 - L 2)a = eIf (k 0) ThenExit ForEnd IfNextPicture1.Line (X0, Y0)-(X1, Y1), vbBlueq = Format(Val(X1 - X0), “0.000“)w = Format(Val(Y1 - Y0), “0.000“)i = i + 1If i = 1 ThenText3.SelText = vbNewLine &

32、“N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “F“ & (F) & “ “ & “S“ & (S) & “ “ & “LF“ElseIf i 9 ThenText3.SelText = vbNewLine & “N“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“ElseText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) &

33、 “ “ & “Y“ & (w) & “ “ & “LF“End IfX0 = X1Y0 = Y1Loop While e 0If ag4 9 ThenText3.SelText = vbNewLine & “N“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“ElseText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“End IfX0 = X1Y0 = Y

34、1Loop While e 0 ThenPicture1.Circle (0, 0), (r + h), vbBlue, (pi / 180 * ag1), (pi / 180 * (ag1 + ag2)X0 = (r + h) * Cos(pi / 180 * (ag1 + ag2)Y0 = (r + h) * Sin(pi / 180 * (ag1 + ag2)i = i + 1q = Format(Val(X0), “0.000“)w = Format(Val(Y0), “0.000“)If i 0) ThenExit ForEnd IfNextPicture1.Line (X0, Y0

35、)-(X1, Y1), vbBlueq = Format(Val(X1 - X0), “0.000“)w = Format(Val(Y1 - Y0), “0.000“)i = i + 1If i = 1 ThenText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “F“ & (F) & “ “ & “S“ & (S) & “ “ & “LF“ElseIf i 9 ThenText3.SelText = vbNewLine & “N“ & (i) & “

36、“ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“ElseText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“End IfX0 = X1Y0 = Y1Loop While e 0Rem If ag4 9 ThenText3.SelText = vbNewLine & “N“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w

37、) & “ “ & “LF“ElseText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“End IfX0 = X1Y0 = Y1Loop While e 0 ThenPicture1.Circle (0, 0), (r + h), vbBlue, (pi / 180 * ag1), (pi / 180 * (ag1 + ag2)X0 = (r + h) * Cos(pi / 180 * (ag1 + ag2)Y0 = (r + h) * Sin(

38、pi / 180 * (ag1 + ag2)i = i + 1q = Format(Val(X0), “0.000“)w = Format(Val(Y0), “0.000“)If i 0) ThenExit ForEnd IfNextPicture1.Line (X0, Y0)-(X1, Y1), vbBlueq = Format(Val(X1 - X0), “0.000“)w = Format(Val(Y1 - Y0), “0.000“)i = i + 1If i = 1 ThenText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “

39、 “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “F“ & (F) & “ “ & “S“ & (S) & “ “ & “LF“ElseIf i 9 ThenText3.SelText = vbNewLine & “N“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“ElseText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF

40、“End IfX0 = X1Y0 = Y1Loop While e 0Rem If ag4 9 ThenText3.SelText = vbNewLine & “N“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“ElseText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“End IfX0 = X1Y0 = Y1Loop While e 0 ThenPict

41、ure1.Circle (0, 0), (r + h), vbBlue, (pi / 180 * ag1), (pi / 180 * (ag1 + ag2)X0 = (r + h) * Cos(pi / 180 * (ag1 + ag2)Y0 = (r + h) * Sin(pi / 180 * (ag1 + ag2)i = i + 1q = Format(Val(X0), “0.000“)w = Format(Val(Y0), “0.000“)If i 0) ThenExit ForEnd IfNextPicture1.Line (X0, Y0)-(X1, Y1), vbBlueq = Fo

42、rmat(Val(X1 - X0), “0.000“)w = Format(Val(Y1 - Y0), “0.000“)i = i + 1If i = 1 ThenText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “F“ & (F) & “ “ & “S“ & (S) & “ “ & “LF“ElseIf i 9 ThenText3.SelText = vbNewLine & “N“ & (i) & “ “ & “G01“ & “ “ & “X“ &

43、(q) & “ “ & “Y“ & (w) & “ “ & “LF“ElseText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G01“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “LF“End IfX0 = X1Y0 = Y1Loop While e 0Rem If ag4 0 ThenPicture1.Circle (0, 0), r, vbBlue, (pi / 180 * (ag1 + ag2 + ag3), (2 * pi)q = Format(Val(X0), “0.000“)w = Form

44、at(Val(Y0), “0.000“)i = i + 1If i 9 ThenText3.SelText = vbNewLine & “N0“ & (i) & “ “ & “G03“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “R“ & (r) & “ “ & “LF“ElseText3.SelText = vbNewLine & “N“ & (i) & “ “ & “G03“ & “ “ & “X“ & (q) & “ “ & “Y“ & (w) & “ “ & “R“ & (r) & “ “ & “LF“End IfEnd IfEnd IfE

45、nd IfEnd IfEnd SubPrivate Sub Form_Load() mnudengjiajian.Checked = False mnubaixian.Checked = FalsePicture1.ScaleMode = 6Picture1.Width = 100Picture1.Height = 60Picture1.Scale (-500, 300)-(500, -300)Picture1.Line (-500, 0)-(500, 0)Picture1.Line (0, 300)-(0, -300)Picture1.CurrentX = 0: Picture1.Curre

46、ntY = 0: Picture1.Print 0Picture1.CurrentX = 480: Picture1.CurrentY = 40: Picture1.Print “X“Picture1.CurrentX = 10: Picture1.CurrentY = 300: Picture1.Print “Y“picDraw.Width = 100picDraw.Height = 40picDraw.ScaleMode = 6picDraw.Scale (-10, 160)-(400, -20)picDraw.Line (-10, 0)-(400, 0)picDraw.Line (0,

47、160)-(0, -20)picDraw.CurrentX = 0: picDraw.CurrentY = 0: picDraw.Print 0picDraw.CurrentX = 380: picDraw.CurrentY = 30: picDraw.Print “X“picDraw.CurrentX = 10: picDraw.CurrentY = 160: picDraw.Print “Y“drawEnd SubPrivate Sub draw()Dim a As Single, b As Single, c As Single, d As Single, e As Single, n

48、As SingleDim sum As Single, Y As Single, X As SinglepicDraw.CurrentX = 0: picDraw.CurrentY = 0a = Text2(0).Text: b = Text2(3).Text: c = Text2(4).Text: e = Text2(1).TextDim S As SingleIf mnudengsu.Checked ThenpicDraw.Line -Step(a, e), vbRedpicDraw.Line -Step(b, 0), vbRedpicDraw.Line -Step(c, -e), vbRedpicDra