VB凸轮轮廓线数控加工程序设计-源代码

1、八附源程序Public Const PI = 3.14159Public area As DoublePublic sch As DoublePublic tch As DoublePublic Huan As DoublePublic Gao As DoublePublic a1 As Stri ng, a2 As Stri ng, a3 As Stri ngPublic b1 As Double模块Opti on ExplicitPublic ptx(3600) As DoublePublic pty(3600) As DoublePublic low As DoublePublic co

2、untnum As In teger曲线存储点数组由于存储最终输出的点数组下标存储当前为第几段曲线输入的值存储角度范围的值总升程输入曲线的推程坐标变换数据Public savetime As DoublePublic i As DoubleFrmView 主窗口Option ExplicitDim j%Public bch As Stri ng, zbx As Stri ng, M As In teger, sd As Stri ngPrivate Sub CmbSlect_Click()Select Case CmbSlect.ListI ndexCase 0den gjiasu.NumSt

3、r.Text =den gjiasu.NumE nd.Text =den gjiasu.NumH.Text =den gjiasu.NumStr.Text = areaden gjiasu.NumStr.E nabled = Falseden gjiasu.NumE nd.E nabled = True选择曲线类型等加速运动清空Text文本框设定default范围If Cou ntAII.Capti on = Cou ntNow.Capti on Then最后一段曲线de ngjiasu.NumE nd.Text = 360 dengjiasu.NumEnd.Enabled = False输入

4、时，自动输入默认值den gjiasu.NumH.Text = -b1End Ifdengjiasu.Show 1Case 1等速运动den gsu.NumStr.Text =den gsu.NumE nd.Text =den gsu.NumH.Text =den gsu.NumStr.Text = areaden gsu.NumStr.E nabled = Falseden gsu.NumE nd.E nabled = TrueIf Cou ntAII.Capti on = Cou ntNow.Capti on Thenden gsu.NumE nd.Text = 360den gsu.Nu

5、mE nd.E nabled = Falseden gsu.NumH.Text = -b1End Ifden gsu.Show 1Case 2 sin x.NumStr.Text =sin x.NumE nd.Text =sin x.NumH.Text =sin x.NumStr.Text = areasin x.NumStr.E nabled = Falsesin x.NumE nd.E nabled = TrueIf Cou ntAII.Capti on = Cou ntNow.Captio n The nsin x.NumE nd.Text = 360sin x.NumE nd.E na

6、bled = Falsesin x.NumH.Text = -b1End Ifsinx.Show 1Case 3余弦加速度运动Cosx.NumStr.Text =Cosx.NumE nd.Text =Cosx.NumH.Text =Cosx.NumStr.Text = areaCosx.NumStr.E nabled = FalseCosx.NumE nd.E nabled = TrueIf Cou ntAII.Capti on = Cou ntNow.Captio n The nCosx.NumE nd.Text = 360Cosx.NumE nd.E nabled = FalseCosx.

7、NumH.Text = -b1End IfCosx.Show 1Case 4等减速运动den gjia nsu.NumStr.Text =den gjia nsu.NumE nd.Text =den gjia nsu.NumH.Text =den gjia nsu.NumStr.Text = areaden gjia nsu.NumStr.E nabled = Falseden gjia nsu.NumE nd.E nabled = TrueIf Cou ntAII.Capti on = Cou ntNow.Captio n The nden gjia nsu.NumE nd.Text = 3

8、60den gjia nsu.NumE nd.E nabled = Falseden gjia nsu.NumH.Text = -b1End If den gjia nsu.Show 1End SelectEnd SubPrivate Sub Comma nd1_Click()On Error Resume NextStatic i%Dim FileSelect$i% = i% + 1j% = i%Common Dialog2.Acti on = 2Commo nDialog2.l ni tDir = c:FileSelect$ = Commo nDialog2.FileNamePicView

9、1 .P icture = PicView1.ImageSavePicture PicView1.Picture, FileSelect$End SubPrivate Sub Command2_Click()On Error Resume Next推杆运动曲线图导出Static i%Dim FileSelect$i% = i% + 1j% = i%Common Dialog3.Acti on = 2Com mon Dialog3.I ni tDir = c:FileSelect$ = CommonDialog3.FileNamePicView2 .P icture = PicView2.lma

10、geSavePicture PicView2.Picture, FileSelect$End SubPrivate Sub Command3_Click()NCFile_ClickEnd SubPrivate Sub Form_Load()area = 0countnum = 1FrmView.ShowfrmAbout.ShowfrmAbout.Timer1.I nterval = 250End SubPrivate Sub Frmch_Click()Frmliuch.ShowEnd SubPrivate Sub NCFile_Click()FrmNC.Show 1End SubPrivate

11、 Sub New_Click()FrmView.I nRadius.Text =FrmView.I nRise1.Text =FrmView.I nNu m.Text =low = 0area = 0b1 = 0FrmView.PicView1.ClsFrmView.PicView2.ClsFrmView.PicView2.ScaleLeft = -20FrmView.PicView2.ScaleTop = 18FrmView.Picture1.Cls FrmView.ShowFrmView .In Radius.E nabled = TrueFrmView .In Rise1.E nable

12、d = TrueFrmView .InNu m.E nabled = True FrmView.qued.E nabled = True FrmView. Label5.Visible = False FrmView.Cou ntAII.C apti on = 0 FrmView.Cou ntNow.Captio n = 0清空Frmin1窗口中文本框的数值数据初始化预览窗口清屏初始化坐标系FrmView.Label18.Caption = ” 基本参数输入FrmView.CmbSlect.Enabled = FalsePicView1.Visible = FalsePicView2.Visi

13、ble = FalsePicture1.Visible = FalseOptio n6.Value = TrueEnd SubPrivate Sub new1_Click()New_ClickEnd SubPrivate Sub Option1_Click() zbx = G90End SubPrivate Sub Option2_Click() zbx = G91End SubPrivate Sub Optio n3_Click() bch =End SubPrivate Sub Optio n4_Click() bch = G41End SubPrivate Sub Optio n5_Cl

14、ick() bch = G42End SubPrivate Sub pmian_Click()Command1_ClickEnd SubPrivate Sub qued_click()Dim c1 As In teger, c2 As In teger, c As In teger验证基圆半径，升程，曲线段数的输入是否为数字If Val(I nRadius) = 0 The nMsgBox (不能为空或负值，请重新输入),16InRadius = InRadius.SetFocusElseIf Val(I nRise1) = 0 The nMsgBox (不能为空或负值，请重新输入),16In

15、Rise1 = In Rise1.SetFocusElseIf Val(I nNum) Val(NumStr) The nstr = Val(NumStr): e nd1 = Val(NumE nd): h = Val(NumH)radius = Val(FrmView .In Radius)low = 10 * Val(NumStr)For i = 0 To (en di - str) Step 0.1X = i * 540 / 360Y = h * (1 - Cos(PI * i / (e nd1 - str) / 2FrmView.PicView2. PSet (X, Y), RGB(1

16、000, 0, 0)ptx(low) = (radius + (Gao + Y) * Sin (Hua n + i) * PI / 180)pty(low) = (radius + (Gao + Y) * Cos(Hua n + i) * PI / 180) FrmView.PicView1 .P Set (ptx(low), pty(low), RGB(1000, 0, 0) low = low + 1Cosx.HideFrmView.CmbSlect.E nabled = FalseIf FrmView.Optio n7.Value = True The nFrmView.Timerl.E

17、 nabled = TrueFrmView.Optio n7.BackColor = & H80FF80FrmView.Optio n7.ForeColor = &HFF&ElseFrmView.Timer1.E nabled = FalseEnd IfIf FrmView.Option6.V alue = True ThenFrmView.Optio n7.Visible = TrueFrmView.Timer1.E nabled = Falsesavetime = Timer 记下开始的时间While Timer savetime + 0.0001 快DoEventsWendElsesav

18、etime = Timer 记下开始的时间While Timer Val(FrmView.I nRisel) The nMsgBox (超出总升程，请重新输入！), 16low = 0area = 0b1 = 0FrmView.PicView1.ClsFrmView.PicView2.Cls数据初始化预览窗口清屏FrmView.PicView2.ScaleLeft = -20 初始化坐标系FrmView.PicView2.ScaleTop = 18FrmView.Picture1.ClsFrmView.ShowFrmView .In Radius.E nabled = TrueFrmView

19、.In Rise1.E nabled = TrueFrmView .InNu m.E nabled = TrueFrmView.qued.E nabled = TrueFrmView. Label5.Visible = FalseFrmView.Cou ntAII.C apti on = 0FrmView.Cou ntNow.Captio n = 0FrmView.Label18.Caption = ” 基本参数输入FrmView.CmbSlect.E nabled = FalseFrmView.PicView1.Visible = FalseFrmView.PicView2.Visible

20、= FalseFrmView.Option6.V alue = TrueEnd IfElseMsgBox (范围出错！ ), 16Cosx.NumE nd.Text =Cosx.NumE nd.SetFocusEnd IfElseMsgBox (输入为空或有非法字符，请重新输入！)End IfEnd SubPrivate Sub Command2_Click()Cosx.HideEnd SubSin窗体Option ExplicitPrivate Sub Comma nd1_Click()Dim str As Double, en di As Double, h As DoubleDim i

21、As Double, radius As Double, savetime As DoubleDim X As Double, Y As DoubleIf IsNumeric(NumStr) And lsNumeric(NumE nd) And IsNumeric(NumH) Then If Val(NumE nd) Val(NumStr) The nstr = Val(NumStr): e nd1 = Val(NumE nd): h = Val(NumH)radius = Val(FrmView .In Radius)low = 10 * Val(NumStr)For i = 0 To (e

22、n di - str) Step 0.1X = i * 540 / 360Y = h * (i / (e nd1 - str) - Si n(2 * PI * i / (e nd1 - str) / (2 * PI) FrmView.PicView2. PSet (X, Y), RGB(1000, 0, 0)ptx(low) = (radius + (Gao + Y) * Sin (Hua n + i) * PI / 180)pty(low) = (radius + (Gao + Y) * Cos(Hua n + i) * PI / 180) FrmView.PicView1 .P Set (

23、ptx(low), pty(low), RGB(1000, 0, 0) low = low + 1 sinx.HideFrmView.CmbSlect.E nabled = FalseIf FrmView.Optio n7.Value = True The nFrmView.Timer1.E nabled = TrueFrmView.Optio n7.BackColor = & H80FF80FrmView.Optio n7.ForeColor = &HFF&ElseFrmView.Timer1.E nabled = FalseEnd IfIf FrmView.Optio n6.Value =

24、 True The nFrmView.Optio n7.Visible = TrueFrmView.Timer1.E nabled = Falsesavetime = Timer 记下开始的时间While Timer savetime + 0.0001 快DoEventsWendElsesavetime = Timer 记下开始的时间While Timer Val(FrmView.I nRisel) The nMsgBox (”超出总升程，请重新输入！”)，16low = 0数据初始化area = 0b1 = 0FrmView.PicView1.Cls预览窗口清屏FrmView.PicView

25、2.ClsFrmView.PicView2.ScaleLeft = -20 初始化坐标系FrmView.PicView2.ScaleTop = 18FrmView.Picture1.ClsFrmView.ShowFrmView .In Radius.E nabled = TrueFrmView .In Rise1.E nabled = TrueFrmView .InNu m.E nabled = TrueFrmView.qued.E nabled = TrueFrmView. Label5.Visible = FalseFrmView.Cou ntAII.C apti on = 0FrmVie

26、w.Cou ntNow.Captio n = 0FrmView.Label18.Caption = ” 基本参数输入FrmView.CmbSlect.E nabled = FalseFrmView.PicViewl.Visible = FalseFrmView.PicView2.Visible = FalseFrmView.Option6.V alue = TrueEnd IfElseMsgBox (” 范围出错！ ”)，16si nx.NumE nd.Text =sin x.NumE nd.SetFocusEnd IfElseMsgBox (输入为空或有非法字符，请重新输入！ )End If

27、End SubPrivate Sub Comma nd2_Click()sin x.HideEnd SubDengjiansu 窗体Option ExplicitPrivate Sub Command1_Click()Dim str As Double， end1 As Double， h As DoubleDim i As Double， radius As DoubleDim X As Double， Y As DoubleIf IsNumeric(NumStr) And IsNumeric(NumE nd) And IsNumeric(NumH) Then If Val(NumE nd)

28、 Val(NumStr) The nstr = Val(NumStr): e nd1 = Val(NumE nd): h = Val(NumH)radius = Val(FrmView .In Radius)low = 10 * Val(NumStr)For i = 0 To (en di - str) Step 0.1X = i * 540 / 360Y = h - h * (e nd1 - str) - i) A 2 / (en d1 - str) A 2 FrmView.PicView2. PSet (X, Y), RGB(1000, 0, 0) ptx(low) = (radius +

29、 (Gao + Y) * Sin (Hua n + i) * PI / 180) pty(low) = (radius + (Gao + Y) * Cos(Hua n + i) * PI / 180) FrmView.PicView1 .P Set (ptx(low), pty(low), RGB(1000, 0, 0) low = low + 1dengjiansu.HideFrmView.CmbSlect.E nabled = FalseIf FrmView.Optio n7.Value = True The n FrmView.Timerl.E nabled = True FrmView

30、.Optio n7.BackColor = & H80FF80 FrmView.Optio n7.ForeColor = &HFF& ElseFrmView.Timer1.E nabled = FalseEnd IfIf FrmView.Optio n6.Value = True The n FrmView.Optio n7.Visible = True FrmView.Timer1.E nabled = False savetime = Timer 记下开始的时间 While Timer savetime + 0.0001 快 DoEventsWendElsesavetime = Timer

31、 记下开始的时间While Timer Val(FrmView.I nRise1) The nMsgBox (超出总升程，请重新输入！), 16low = 0数据初始化area = 0b1 = 0FrmView.PicView1.Cls预览窗口清屏FrmView.PicView2.ClsFrmView.PicView2.ScaleLeft = -20 初始化坐标系FrmView.PicView2.ScaleTop = 18FrmView.Picture1.ClsFrmView.ShowFrmView .In Radius.E nabled = TrueFrmView .In Rise1.E n

32、abled = TrueFrmView .InNu m.E nabled = TrueFrmView.qued.E nabled = TrueFrmView. Label5.Visible = FalseFrmView.Cou ntAII.C apti on = 0FrmView.Cou ntNow.Captio n = 0FrmView.Label18.Caption = ” 基本参数输入FrmView.CmbSlect.E nabled = FalseFrmView.PicView1.Visible = FalseFrmView.PicView2.Visible = FalseFrmVie

33、w.Option6.V alue = TrueEnd IfElseMsgBox (范围出错！ ), 16 den gjia nsu.NumE nd.Text = den gjia nsu.NumE nd.SetFocusEnd IfElseMsgBox （输入为空或有非法字符，请重新输入！）End IfEnd SubPrivate Sub Comma nd2_Click()den gjia nsu.HideEnd SubDengjiasu 窗体Opti on ExplicitPrivate Sub Comma nd1_Click()Dim str As Double, en d1 As Dou

34、ble, h As DoubleDim i As Double, radius As DoubleDim X As Double, Y As DoubleIf IsNumeric(NumStr) And IsNumeric(NumEnd) And IsNumeric(NumH) Then If Val(NumE nd) Val(NumStr) The nstr = Val(NumStr): e nd1 = Val(NumE nd): h = Val(NumH)radius = Val(FrmView .In Radius)low = 10 * Val(NumStr)For i = 0 To (

35、en di - str) Step 0.1X = i * 540 / 360Y = h * (i A 2) / (e nd1 - str) A 2)FrmView.PicView2. PSet (X, Y), RGB(1000, 0, 0) ptx(low) = (radius + (Gao + Y) * Sin (Hua n + i) * PI / 180) pty(low) = (radius + (Gao + Y) * Cos(Hua n + i) * PI / 180) FrmView.PicViewl .P Set (ptx(low), pty(low), RGB(1000, 0,

36、0) low = low + 1dengjiasu.HideFrmView.CmbSlect.E nabled = FalseIf FrmView.Optio n7.Value = True The nFrmView.Timer1.E nabled = TrueFrmView.Optio n7.BackColor = & H80FF80FrmView.Optio n7.ForeColor = &HFF&ElseFrmView.Timer1.E nabled = FalseEnd IfIf FrmView.Option6.V alue = True ThenFrmView.Optio n7.Vi

37、sible = TrueFrmView.Timer1.E nabled = False savetime = Timer 记下开始的时间While Timer savetime + 0.0001 快DoEventsWendElsesavetime = Timer 记下开始的时间While Timer Val(FrmView.l nRise1) The nMsgBox (”超出总升程，请重新输入！”)，16low = 0数据初始化area = 0b1 = 0FrmView.PicView1.Cls预览窗口清屏FrmView.PicView2.ClsFrmView.PicView2.ScaleLe

38、ft = -20 初始化坐标系FrmView.PicView2.ScaleTop = 18FrmView.Picture1.ClsFrmView.ShowFrmView .In Radius.E nabled = TrueFrmView .In Risel.E nabled = TrueFrmView .InNu m.E nabled = TrueFrmView.qued.E nabled = TrueFrmView. Label5.Visible = FalseFrmView.Cou ntAII.C apti on = 0FrmView.Cou ntNow.Captio n = 0FrmView.Label18.Caption = ” 基本参数输入FrmView.CmbSlect.E nabled = FalseFrmView.PicView1.Visible = FalseFrmView.PicView2.Visible = FalseFrmView.Option6.V alue = TrueEnd IfElseMsgBox (” 范围出错！ ”)，16den