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

Option Explicit Const pi 3 141592653 Private Sub btnRun Click lbldraw Visible True lbldraw Caption Picture1 Cls Picture1 ScaleMode 6 Picture1 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 0 Picture1 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 Single Dim b As Single q As Single k As Single r Text2 2 Text n Text2 0 Text S Text2 1 Text b Text2 3 Text q Text2 4 Text k 360 n b q Dim F As Single Picture1 CurrentX r Picture1 CurrentY 0 Rem If mnudengsu Checked Then For d 0 To n Step 0 01 X r S d n Cos pi 180 d Y r S d n Sin pi 180 d Picture1 PSet X Y vbRed Next For d 0 To b Step 0 01 Y r S Sin pi 180 n d X r S Cos pi 180 n d Picture1 PSet X Y vbRed Next For d 0 To q Step 0 01 Y 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 vbRed Next For d 0 To k Step 0 01 Y r Sin pi 180 n b q d X r Cos pi 180 n b q d Picture1 PSet X Y vbRed Next lbldraw Caption Rem ElseIf mnudengjiajian Checked Then For d 0 To n 2 Step 0 01 X 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 vbRed Next For d n 2 To n Step 0 01 X 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 vbRed Next For d 0 To b Step 0 01 Y r S Sin pi 180 n d X r S Cos pi 180 n d Picture1 PSet X Y vbRed Next F n b For d q To q 2 Step 0 01 F F 0 01 X 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 vbRed Next For d q 2 To 0 Step 0 01 F F 0 01 X r 2 S d 2 q 2 Cos pi 180 F Y r 2 S d 2 q 2 Sin pi 180 F Picture1 PSet X Y vbRed Next For d 0 To k Step 0 01 Y r Sin pi 180 n b q d X r Cos pi 180 n b q d Picture1 PSet X Y vbRed Next lbldraw Caption Rem ElseIf mnubaixian Checked Then For d 0 To n Step 0 01 X r S 10 d 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 vbRed Next For d 0 To b Step 0 01 Y r S Sin pi 180 n d X r S Cos pi 180 n d Picture1 PSet X Y vbRed Next F n b For d q To 0 Step 0 01 F F 0 01 X 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 vbRed Next For d 0 To k Step 0 01 Y r Sin pi 180 n b q d X r Cos pi 180 n b q d Picture1 PSet X Y vbRed Next lbldraw Caption ElseIf mnuSin Checked Then For d 0 To n Step 0 01 X 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 X Y vbRed Next For d 0 To b Step 0 01 Y r S Sin pi 180 n d X r S Cos pi 180 n d Picture1 PSet X Y vbRed Next F n b For d q To 0 Step 0 01 F F 0 01 X r S d q Sin 2 pi d q 2 pi Cos pi 180 F Y r S d q Sin 2 pi d q 2 pi Sin pi 180 F Picture1 PSet X Y vbRed Picture1 PSet X Y vbRed Next For d 0 To k Step 0 01 Y r Sin pi 180 n b q d X r Cos pi 180 n b q d Picture1 PSet X Y vbRed Next lbldraw Caption Rem Else For d 0 To n Step 0 01 X r S 2 1 Cos pi d n Cos pi 180 d Y r S 2 1 Cos pi d n Sin pi 180 d Picture1 PSet X Y vbRed Next For d 0 To b Step 0 01 Y r S Sin pi 180 n d X r S Cos pi 180 n d Picture1 PSet X Y vbRed Next F n b For d q To 0 Step 0 01 F F 0 01 X r 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 vbRed Next For d 0 To k Step 0 01 Y r Sin pi 180 n b q d X r Cos pi 180 n b q d Picture1 PSet X Y vbRed Next lbldraw Caption End If End Sub 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 Single Dim S As Single F As Single r As Single h As Single L As Single q As Single w As Single p As Single Dim i As Integer Dim n As Single Dim e As Single k As Single a As Single ag1 Text2 0 Text ag2 Text2 3 Text ag3 Text2 4 Text ag4 360 ag1 ag2 ag3 r Abs Text2 2 Text h Text2 1 Text S Text2 6 Text F Text2 7 Text p Abs Text1 Text X0 r Y0 0 If S 0 Or F 0 Then MsgBox vbCritical Else L 2 Sqr r p q Format Val X0 0 000 w Format Val Y0 0 000 If ag1 0 Or ag3 0 Then MsgBox 0 vbCritical Exit Sub Else If mnudengsu Checked Then Text3 Text Text3 SelText N00 G91 G00 x q y w M03 LF Do For e a To ag1 Step 0 0001 X1 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 e If k 0 Then Exit For End If Next Picture1 Line X0 Y0 X1 Y1 vbBlue q Format Val X1 X0 0 000 w Format Val Y1 Y0 0 000 i i 1 If i 1 Then Text3 SelText vbNewLine N0 i G01 X q Y w F F S S LF ElseIf i 9 Then Text3 SelText vbNewLine N i G01 X q Y w LF Else Text3 SelText vbNewLine N0 i G01 X q Y w LF End If X0 X1 Y0 Y1 Loop While e ag1 If ag2 0 Then Picture1 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 1 q Format Val X0 0 000 w Format Val Y0 0 000 If i 9 Then Text3 SelText vbNewLine N0 i G03 X q Y w R r h LF Else Text3 SelText vbNewLine N i G03 X q Y w R r h LF End If End If a 0 Do For e a To ag3 Step 0 0001 X1 r h h e ag3 Cos pi 180 ag1 ag2 e Y1 r h h e ag3 Sin pi 180 ag1 ag2 e k Abs X1 X0 2 Y1 Y0 2 L 2 a e If k 0 Then Exit For End If Next Picture1 Line X0 Y0 X1 Y1 vbBlue q Format Val X1 X0 0 000 w Format Val Y1 Y0 0 000 i i 1 If i 1 Then Text3 SelText vbNewLine N0 i G01 X q Y w F F S S LF ElseIf i 9 Then Text3 SelText vbNewLine N i G01 X q Y w LF Else Text3 SelText vbNewLine N0 i G01 X q Y w LF End If X0 X1 Y0 Y1 Loop While e ag3 If ag4 0 Then Picture1 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 1 If i 9 Then Text3 SelText vbNewLine N0 i G03 X q Y w R r LF Else Text3 SelText vbNewLine N i G03 X q Y w R r LF End If End If NC ElseIf mnudengjiajian Checked Then Text3 Text Text3 SelText N00 G91 G00 X q Y w M03 LF Rem Do For e a To ag1 2 Step 0 001 X1 r 2 h e 2 ag1 2 Cos pi 180 e Y1 r 2 h e 2 ag1 2 Sin pi 180 e k Abs X1 X0 2 Y1 Y0 2 L 2 a e If k 0 Then Exit For End If Next Picture1 Line X0 Y0 X1 Y1 vbBlue q Format Val X1 X0 0 000 w Format Val Y1 Y0 0 000 i i 1 If i 1 Then Text3 SelText vbNewLine N0 i G01 X q Y w F F S S LF ElseIf i 9 Then Text3 SelText vbNewLine N i G01 X q Y w LF Else Text3 SelText vbNewLine N0 i G01 X q Y w LF End If X0 X1 Y0 Y1 Loop While e ag1 2 Rem Do For e a To ag1 Step 0 001 X1 r h 2 h ag1 e 2 ag1 2 Cos pi 180 e Y1 r h 2 h ag1 e 2 ag1 2 Sin pi 180 e k Abs X1 X0 2 Y1 Y0 2 L 2 a e If k 0 Then Exit For End If Next Picture1 Line X0 Y0 X1 Y1 vbBlue q Format Val X1 X0 0 000 w Format Val Y1 Y0 0 000 i i 1 If i 1 Then Text3 SelText vbNewLine N0 i G01 X q Y w F F S S LF ElseIf i 9 Then Text3 SelText vbNewLine N i G01 X q Y w LF Else Text3 SelText vbNewLine N0 i G01 X q Y w LF End If X0 X1 Y0 Y1 Loop While e ag1 Rem If ag2 0 Then Picture1 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 1 q Format Val X0 0 000 w Format Val Y0 0 000 If i 9 Then Text3 SelText vbNewLine N0 i G03 X q Y w R r h LF Else Text3 SelText vbNewLine N i G03 X q Y w R r h LF End If End If Rem Rem a ag3 n ag1 ag2 Do For e a To ag3 2 Step 0 001 n n 0 001 X1 r h 2 h ag3 e 2 ag3 2 Cos pi 180 n Y1 r h 2 h ag3 e 2 ag3 2 Sin pi 180 n k Abs X1 X0 2 Y1 Y0 2 L 2 a e If k 0 Then Exit For End If Next Picture1 Line X0 Y0 X1 Y1 vbBlue q Format Val X1 X0 0 000 w Format Val Y1 Y0 0 000 i i 1 If i 1 Then Text3 SelText vbNewLine N0 i G01 X q Y w F F S S LF ElseIf i 9 Then Text3 SelText vbNewLine N i G01 X q Y w LF Else Text3 SelText vbNewLine N0 i G01 X q Y w LF End If X0 X1 Y0 Y1 Loop While e ag3 2 Rem a ag3 2 Do For e a To 0 Step 0 0001 n n 0 0001 X1 r 2 h e 2 ag3 2 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 e If k 0 Then Exit For End If Next Picture1 Line X0 Y0 X1 Y1 vbBlue q Format Val X1 X0 0 000 w Format Val Y1 Y0 0 000 i i 1 If i 1 Then Text3 SelText vbNewLine N0 i G01 X q Y w F F S S LF ElseIf i 9 Then Text3 SelText vbNewLine N i G01 X q Y w LF Else Text3 SelText vbNewLine N0 i G01 X q Y w LF End If X0 X1 Y0 Y1 Loop While e 0 If ag4 0 Then Picture1 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 1 If i 9 Then Text3 SelText vbNewLine N0 i G03 X q Y w R r LF Else Text3 SelText vbNewLine N i G03 X q Y w R r LF End If End If Rem NC ElseIf mnubaixian Checked Then Do For e a To ag1 Step 0 001 X1 r h 10 e ag1 3 15 e ag1 4 6 e ag1 5 Cos pi 180 e Y1 r h 10 e ag1 3 15 e ag1 4 6 e ag1 5 Sin pi 180 e k Abs X1 X0 2 Y1 Y0 2 L 2 a e If k 0 Then Exit For End If Next Picture1 Line X0 Y0 X1 Y1 vbBlue q Format Val X1 X0 0 000 w Format Val Y1 Y0 0 000 i i 1 If i 1 Then Text3 SelText vbNewLine N0 i G01 X q Y w F F S S LF ElseIf i 9 Then Text3 SelText vbNewLine N i G01 X q Y w LF Else Text3 SelText vbNewLine N0 i G01 X q Y w LF End If X0 X1 Y0 Y1 Loop While e ag1 Rem NC If ag2 0 Then Picture1 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 1 q Format Val X0 0 000 w Format Val Y0 0 000 If i 9 Then Text3 SelText vbNewLine N0 i G03 X q Y w R r h LF Else Text3 SelText vbNewLine N i G03 X q Y w R r h LF End If End If Rem a ag3 n ag1 ag2 Do For e a To 0 Step 0 001 n n 0 001 X1 r h 10 e ag3 3 15 e ag3 4 6 e ag3 5 Cos pi 180 n Y1 r h 10 e ag3 3 15 e ag3 4 6 e ag3 5 Sin pi 180 n k Abs X1 X0 2 Y1 Y0 2 L 2 a e If k 0 Then Exit For End If Next Picture1 Line X0 Y0 X1 Y1 vbBlue q Format Val X1 X0 0 000 w Format Val Y1 Y0 0 000 i i 1 If i 1 Then Text3 SelText vbNewLine N0 i G01 X q Y w F F S S LF ElseIf i 9 Then Text3 SelText vbNewLine N i G01 X q Y w LF Else Text3 SelText vbNewLine N0 i G01 X q Y w LF End If X0 X1 Y0 Y1 Loop While e 0 Rem If ag4 0 Then Picture1 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 1 If i 9 Then Text3 SelText vbNewLine N0 i G03 X q Y w R r LF Else Text3 SelText vbNewLine N i G03 X q Y w R r LF End If End If Rem NC ElseIf mnuSin Checked Then Do For e a To ag1 Step 0 0001 X1 r h e ag1 Sin 2 pi e ag1 2 pi Cos pi 180 e Y1 r h e ag1 Sin 2 pi e ag1 2 pi Sin pi 180 e k Abs X1 X0 2 Y1 Y0 2 L 2 a e If k 0 Then Exit For End If Next Picture1 Line X0 Y0 X1 Y1 vbBlue q Format Val X1 X0 0 000 w Format Val Y1 Y0 0 000 i i 1 If i 1 Then Text3 SelText vbNewLine N0 i G01 X q Y w F F S S LF ElseIf i 9 Then Text3 SelText vbNewLine N i G01 X q Y w LF Else Text3 SelText vbNewLine N0 i G01 X q Y w LF End If X0 X1 Y0 Y1 Loop While e ag1 Rem NC If ag2 0 Then Picture1 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 1 q Format Val X0 0 000 w Format Val Y0 0 000 If i 9 Then Text3 SelText vbNewLine N0 i G03 X q Y w R r h LF Else Text3 SelText vbNewLine N i G03 X q Y w R r h LF End If End If Rem a ag3 n ag1 ag2 Do For e a To 0 Step 0 001 n n 0 001 X1 r h e ag1 Sin 2 pi e ag1 2 pi Cos pi 180 n Y1 r h e ag1 Sin 2 pi e ag1 2 pi Sin pi 180 n k Abs X1 X0 2 Y1 Y0 2 L 2 a e If k 0 Then Exit For End If Next Picture1 Line X0 Y0 X1 Y1 vbBlue q Format Val X1 X0 0 000 w Format Val Y1 Y0 0 000 i i 1 If i 1 Then Text3 SelText vbNewLine N0 i G01 X q Y w F F S S LF ElseIf i 9 Then Text3 SelText vbNewLine N i G01 X q Y w LF Else Text3 SelText vbNewLine N0 i G01 X q Y w LF End If X0 X1 Y0 Y1 Loop While e 0 Rem If ag4 0 Then Picture1 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 1 If i 9 Then Text3 SelText vbNewLine N0 i G03 X q Y w R r LF Else Text3 SelText vbNewLine N i G03 X q Y w R r LF End If End If Rem NC Else Do For e a To ag1 Step 0 0001 X1 r h 2 1 Cos pi e ag1 Cos pi 180 e Y1 r h 2 1 Cos pi e ag1 Sin pi 180 e k Abs X1 X0 2 Y1 Y0 2 L 2 a e If k 0 Then Exit For End If Next Picture1 Line X0 Y0 X1 Y1 vbBlue q Format Val X1 X0 0 000 w Format Val Y1 Y0 0 000 i i 1 If i 1 Then Text3 SelText vbNewLine N0 i G01 X q Y w F F S S LF ElseIf i 9 Then Text3 SelText vbNewLine N i G01 X q Y w LF Else Text3 SelText vbNewLine N0 i G01 X q Y w LF End If X0 X1 Y0 Y1 Loop While e ag1 Rem NC If ag2 0 Then Picture1 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 1 q Format Val X0 0 000 w Format Val Y0 0 000 If i 9 Then Text3 SelText vbNewLine N0 i G03 X q Y w R r h LF Else Text3 SelText vbNewLine N i G03 X q Y w R r h LF End If End If Rem a ag3 n ag1 ag2 Do For e a To 0 Step 0 001 n n 0 001 X1 r h 2 1 Cos pi e ag1 Cos pi 180 n Y1 r h 2 1 Cos pi e ag1 Sin pi 180 n k Abs X1 X0 2 Y1 Y0 2 L 2 a e If k 0 Then Exit For End If Next Picture1 Line X0 Y0 X1 Y1 vbBlue q Format Val X1 X0 0 000 w Format Val Y1 Y0 0 000 i i 1 If i 1 Then Text3 SelText vbNewLine N0 i G01 X q Y w F F S S LF ElseIf i 9 Then Text3 SelText vbNewLine N i G01 X q Y w LF Else Text3 SelText vbNewLine N0 i G01 X q Y w LF End If X0 X1 Y0 Y1 Loop While e 0 Rem If ag4 0 Then Picture1 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 1 If i 9 Then Text3 SelText vbNewLine N0 i G03 X q Y w R r LF Else Text3 SelText vbNewLine N i G03 X q Y w R r LF End If End If End If End If End If End Sub Private Sub Form Load mnudengjiajian Checked False mnubaixian Checked False Picture1 ScaleMode 6 Picture1 Width 100 Picture1 Height 60 Picture1 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 0 Picture1 CurrentX 480 Picture1 CurrentY 40 Picture1 Print X Picture1 CurrentX 10 Picture1 CurrentY 300 Picture1 Print Y picDraw Width 100 picDraw Height 40 picDraw ScaleMode 6 picDraw Scale 10 160 400 20 picDraw Line 10 0 400 0 picDraw Line 0 160 0 20 picDraw CurrentX 0 picDraw CurrentY 0 picDraw Print 0 picDraw CurrentX 380 picDraw CurrentY 30 picDraw Print X picDraw CurrentX 10 picDraw CurrentY 160 picDraw Print Y draw End Sub Private Sub draw Dim a As Single b As Single c As Single d As Single e As Single n As Single Dim sum As Single Y As Single X As Single picDraw CurrentX 0 picDraw CurrentY 0 a Text2 0 Text b Text2 3 Text c Text2 4 Text e Text2 1 Text Dim S As Single If mnudengsu Checked Then picDraw Line Step a e vbRed picDraw Line Step b 0 vbRed picDraw Line Step c e vbRed picDraw Line 360 0 vbRed ElseIf mnudengjiajian Checked Then For S 0 To a 2 Step 0 01 X S Y 2 e S 2 a 2 picDraw PSet X Y vbRed Next For S a 2 To a Step 0 01 X S Y e 2 e a S 2 a 2 picDraw PSet X Y vbRed Next picDraw Line Step b 0 vbRed X a b For S c To c 2 Step 0 01 X X 0 01 Y e 2 e c S 2 c 2 picDraw PSet X Y vbRed Next X a b c 2 For S c 2 To 0 Step 0 01 X X 0 01 Y 2 e S 2 c 2 picDraw PSet X Y vbRed Next picDraw Line 360 0 vbRed ElseIf mnubaixian Checked Then For S 0 To a Step 0 01 X S Y e 10 S a 3 15 S a 4 6 S a 5 picDraw PSet X Y vbRed Next picDraw Line Step b 0 vbRed X a b For S c To 0 Step 0 01 X X 0 01 Y e 10 S a 3 15 S a 4 6 S a 5 picDraw PSet X Y vbRed Next picDraw Line 360 0 vbRed Rem ElseIf mnuSin Checked Then For S 0 To a Step 0 01 X S Y e S a Sin 2 pi S a 2 pi picDraw PSet X Y vbRed Next picDraw Line Step b 0 vbRed X a b For S c To 0 Step 0 01 X X 0 01 Y e S c Sin 2 pi S c 2 pi picDraw PSet X Y vbRed Next picDraw Line 360 0 vbRed Rem Else For S 0 To a Step 0 01 X S Y e 2 1 Cos pi S a picDraw PSet X Y vbRed Next picDr