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

《VB凸轮轮廓线数控加工程序设计-源代码》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、八附源程序模块OptionExplicitPublicptx(3600)AsDouble'曲线存储点数组Publicpty(3600)AsDouble'由于存储最终输出的点PubliclowAsDouble'数组下标PubliccountnumAsInteger'存储当前为第几段曲线输入的值PublicConstPI=3.14159PublicareaAsDouble'存储角度范围的值PublicschAsDouble'总升程PublictchAsDouble'输入曲线的推程PublicHuanAsDouble'坐标

2、变换数据PublicGaoAsDoublePublica1AsString,a2AsString,a3AsStringPublicb1AsDoublePublicsavetimeAsDoublePubliciAsDoubleFrmView主窗口OptionExplicitDimj%PublicbchAsString,zbxAsString,MAsInteger,sdAsStringPrivateSubCmbSlect_Click()'选择曲线类型SelectCaseCmbSlect.ListIndexCase0'等加

3、速运动dengjiasu.NumStr.Text=""'清空Text文本框dengjiasu.NumEnd.Text=""dengjiasu.NumH.Text=""dengjiasu.NumStr.Text=area'设定default范围dengjiasu.NumStr.Enabled=Falsedengjiasu.NumEnd.Enabled=TrueIfCountAll.Caption=CountNow.CaptionThen'最后一段曲线dengjiasu.NumEnd.Text="360"'输入时，自动输

4、入dengjiasu.NumEnd.Enabled=False'默认值dengjiasu.NumH.Text=-b1EndIfdengjiasu.Show1Case1'等速运动dengsu.NumStr.Text=""dengsu.NumEnd.Text=""dengsu.NumH.Text=""dengsu.NumStr.Text=areadengsu.NumStr.Enabled=Falsedengsu.NumEnd.Enabled=TrueIfCountAll.Caption=CountNow.CaptionT

5、hendengsu.NumEnd.Text="360"dengsu.NumEnd.Enabled=Falsedengsu.NumH.Text=-b1EndIfdengsu.Show1Case2'正弦加速度运动sinx.NumStr.Text=""sinx.NumEnd.Text=""sinx.NumH.Text=""sinx.NumStr.Text=areasinx.NumStr.Enabled=Falsesinx.NumEnd.Enabled=TrueIfCountAll.Caption=CountNow.Capt

6、ionThensinx.NumEnd.Text="360"sinx.NumEnd.Enabled=Falsesinx.NumH.Text=-b1EndIfsinx.Show1Case3'余弦加速度运动Cosx.NumStr.Text=""Cosx.NumEnd.Text=""Cosx.NumH.Text=""Cosx.NumStr.Text=areaCosx.NumStr.Enabled=FalseCosx.NumEnd.Enabled=TrueIfCountAll.Caption=CountNow.CaptionT

7、henCosx.NumEnd.Text="360"Cosx.NumEnd.Enabled=FalseCosx.NumH.Text=-b1EndIfCosx.Show1Case4'等减速运动dengjiansu.NumStr.Text=""dengjiansu.NumEnd.Text=""dengjiansu.NumH.Text=""dengjiansu.NumStr.Text=areadengjiansu.NumStr.Enabled=Falsedengjiansu.NumEnd.Enabled=TrueIfCoun

8、tAll.Caption=CountNow.CaptionThendengjiansu.NumEnd.Text="360"dengjiansu.NumEnd.Enabled=Falsedengjiansu.NumH.Text=-b1EndIfdengjiansu.Show1EndSelectEndSubPrivateSubCommand1_Cl