【2017年整理】VB凸轮轮廓线数控加工程序设计-源代码.doc

八 附源程序 模块 Option Explicit Public ptx(3600) As Double 曲线存储点数组 Public pty(3600) As Double 由于存储最终输出的点 Public low As Double 数组下标 Public countnum As Integer 存储当前为第几段曲线输入的值 Public Const PI = 3.14159 Public area As Double 存储角度范围的值 Public sch As Double 总升程 Public tch As Double 输入曲线的推程 Public Huan As Double 坐标变换数据 Public Gao As Double Public a1 As String, a2 As String, a3 As String Public b1 As Double Public savetime As Double Public i As Double FrmView 主窗口 Option Explicit Dim j% Public bch As String, zbx As String, M As Integer, sd As String Private Sub CmbSlect_Click() 选择曲线类型 Select Case CmbSlect.ListIndex Case 0 等加速运动 dengjiasu.NumStr.Text = 清空Text文本框 dengjiasu.NumEnd.Text = dengjiasu.NumH.Text = dengjiasu.NumStr.Text = area 设定default范围 dengjiasu.NumStr.Enabled = False dengjiasu.NumEnd.Enabled = True If CountAll.Caption = CountNow.Caption Then 最后一段曲线 dengjiasu.NumEnd.Text = 360 输入时，自动输入 dengjiasu.NumEnd.Enabled = False 默认值 dengjiasu.NumH.Text = -b1 End If dengjiasu.Show 1 Case 1 等速运动 dengsu.NumStr.Text = dengsu.NumEnd.Text = dengsu.NumH.Text = dengsu.NumStr.Text = area dengsu.NumStr.Enabled = False dengsu.NumEnd.Enabled = True If CountAll.Caption = CountNow.Caption Then dengsu.NumEnd.Text = 360 dengsu.NumEnd.Enabled = False dengsu.NumH.Text = -b1 End If dengsu.Show 1 Case 2 正弦加速度运动 sinx.NumStr.Text = sinx.NumEnd.Text = sinx.NumH.Text = sinx.NumStr.Text = area sinx.NumStr.Enabled = False sinx.NumEnd.Enabled = True If CountAll.Caption = CountNow.Caption Then sinx.NumEnd.Text = 360 sinx.NumEnd.Enabled = False sinx.NumH.Text = -b1 End If sinx.Show 1 Case 3 余弦加速度运动 Cosx.NumStr.Text = Cosx.NumEnd.Text = Cosx.NumH.Text = Cosx.NumStr.Text = area Cosx.NumStr.Enabled = False Cosx.NumEnd.Enabled = True If CountAl