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

八附源程序

模块

OptionExplicit

Publicptx(3600)AsDouble曲线存储点数组

Publicpty(3600)AsDouble由于存储最终输出的点

PubliclowAsDouble数组下标

PubliccountnumAsInteger存储当前为第几段曲线输入的值

PublicConstPI=3.14159

PublicareaAsDouble存储角度范围的值

PublicschAsDouble总升程

PublictchAsDouble输入曲线的推程

PublicHuanAsDouble坐标变换数据

PublicGaoAsDouble

Publica1AsString,a2AsString,a3AsString

Publicb1AsDouble

PublicsavetimeAsDouble

PubliciAsDouble

FrmView主窗口

OptionExplicit

Dimj%

PublicbchAsString,zbxAsString,MAsInteger,sdAsString

PrivateSubCmbSlect_Click()选择曲线类型

SelectCaseCmbSlect.ListIndex

Case0等加速运动

清空Text文本框

dengjiasu.NumStr.Text=area设定default范围

dengjiasu.NumStr.Enabled=False

dengjiasu.NumEnd.Enabled=True

IfCountAll.Caption=CountNow.CaptionThen最后一段曲线

输入时，自动输入

dengjiasu.NumEnd.Enabled=False默认值

dengjiasu.NumH.Text=-b1

EndIf

dengjiasu.Show1

Case1等速运动

dengsu.NumStr.Text=area

dengsu.NumStr.Enabled=False

dengsu.NumEnd.Enabled=True

IfCountAll.Caption=CountNow.CaptionThen

dengsu.NumEnd.Enabled=False

dengsu.NumH.Text=-b1

EndIf

dengsu.Show1

Case2正弦加速度运动

sinx.NumStr.Text=area

sinx.NumStr.Enabled=False

sinx.NumEnd.Enabled=True

IfCountAll.Caption=CountNow.CaptionThen

sinx.NumEnd.Enabled=False

sinx.NumH.Text=-b1

EndIf

sinx.Show1

Case3余弦加速度运动

Cosx.NumStr.Text=area

Cosx.NumStr.Enabled=False

Cosx.NumEnd.Enabled=True

IfCountAll.Caption=CountNow.CaptionThen

Cosx.NumEnd.Enabled=Fals