VB凸轮轮廓线数控加工程序的设计源代码Word文档下载推荐.docx

VB凸轮轮廓线数控加工程序的设计源代码Word文档下载推荐.docx

《VB凸轮轮廓线数控加工程序的设计源代码Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB凸轮轮廓线数控加工程序的设计源代码Word文档下载推荐.docx（32页珍藏版）》请在冰豆网上搜索。

PublicGaoAsDouble

Publica1AsString,a2AsString,a3AsString

Publicb1AsDouble

PublicsavetimeAsDouble

PubliciAsDouble

FrmView主窗口

Dimj%

PublicbchAsString,zbxAsString,MAsInteger,sdAsString

PrivateSubCmbSlect_Click（）'

选择曲线类型

SelectCaseCmbSlect.ListIndex

Case0'

等加速运动

dengjiasu.NumStr.Text="

"

'

清空Text文本框

dengjiasu.NumEnd.Text="

dengjiasu.NumH.Text="

dengjiasu.NumStr.Text=area'

设定default围

dengjiasu.NumStr.Enabled=False

dengjiasu.NumEnd.Enabled=True

IfCountAll.Caption=CountNow.CaptionThen'

最后一段曲线

dengjiasu.NumEnd.Text="

360"

输入时，自动输入

dengjiasu.NumEnd.Enabled=False'

默认值

dengjiasu.NumH.Text=-b1

EndIf

dengjiasu.Show1

Case1'

等速运动

dengsu.NumStr.Text="

dengsu.NumEnd.Text="

dengsu.NumH.Text="

dengsu.NumStr.Text=area

dengsu.NumStr.Enabled=False

dengsu.NumEnd.Enabled=True

IfCountAll.Caption=CountNow.CaptionThen

dengsu.NumEnd.Text="

dengsu.NumEnd.Enabled=False

dengsu.NumH.Text=-b1

dengsu.Show1

Case2'

正弦加速度运动

sinx.NumStr.Text="

sinx.NumEnd.Text="

sinx.NumH.Text="

sinx.NumStr.Text=area

sinx.NumStr.Enabled=False

sinx.NumEnd.Enabled=True

sinx.NumEnd.Text="

sinx.NumEnd.Enabled=False

sinx.NumH.Text=-b1

sinx.Show1

Case3'

余弦加速度运动

Cosx.NumStr.Text="

Cosx.NumEnd.Text="

Cosx.NumH.Text="

Cosx.NumStr.Text=area

Cosx.NumStr.Enabled=False

Cosx.NumEnd.Enabled=True

Cosx.NumEnd.Text="

Cosx.NumEnd.Enabled=False

Cosx.NumH.Text=-b1

Cosx.Show1

Case4'

等减速运动

dengjiansu.NumStr.Text="

dengjiansu.NumEnd.Text="

dengjiansu.NumH.Text="

dengjiansu.NumStr.Text=area

dengjiansu.NumStr.Enabled=False

dengjiansu.NumEnd.Enabled=True

dengjiansu.NumEnd.Text="

dengjiansu.NumEnd.Enabled=False

dengjiansu.NumH.Text=-b1

dengjiansu.Show1

EndSelect

EndSub

PrivateSubCommand1_Click（）

OnErrorResumeNext

Statici%

DimFileSelect$

i%=i%+1

j%=i%

CommonDialog2.Action=2

CommonDialog2.InitDir="

c:

\"

FileSelect$=CommonDialog2.FileName

PicView1.Picture=PicView1.Image

SavePicturePicView1.Picture,FileSelect$

PrivateSubCommand2_Click（）

OnErrorResumeNext'

推杆运动曲线图导出

Statici%

DimFileSelect$

i%=i%+1

j%=i%

CommonDialog3.Action=2

CommonDialog3.InitDir="

FileSelect$=CommonDialog3.FileName

PicView2.Picture=PicView2.Image

SavePicturePicView2.Picture,FileSelect$

PrivateSubCommand3_Click（）

NCFile_Click

PrivateSubForm_Load（）

area=0

countnum=1

FrmView.Show

frmAbout.Show

frmAbout.Timer1.Interval=250

PrivateSubFrmch_Click（）

Frmliuch.Show

PrivateSubNCFile_Click（）

FrmNC.Show1

PrivateSubNew_Click（）

FrmView.InRadius.Text="

清空Frmin1窗口中文本框的数值

FrmView.InRise1.Text="

FrmView.InNum.Text="

low=0'

数据初始化

b1=0

FrmView.PicView1.Cls'

预览窗口清屏

FrmView.PicView2.Cls

FrmView.PicView2.ScaleLeft=-20'

初始化坐标系

FrmView.PicView2.ScaleTop=18

FrmView.Picture1.Cls

FrmView.InRadius.Enabled=True

FrmView.InRise1.Enabled=True

FrmView.InNum.Enabled=True

FrmView.qued.Enabled=True

FrmView.Label5.Visible=False

FrmView.CountAll.Caption=0

FrmView.CountNow.Caption=0

FrmView.Label18.Caption="

基本参数输入"

FrmView.CmbSlect.Enabled=False

PicView1.Visible=False

PicView2.Visible=False

Picture1.Visible=False

Option6.Value=True

PrivateSubnew1_Click（）

New_Click

PrivateSubOption1_Click（）

zbx="

G90"

PrivateSubOption2_Click（）

G91"

PrivateSubOption3_Click（）

bch="

PrivateSubOption4_Click（）

G41"

PrivateSubOption5_Click（）

G42"

PrivateSubpmian_Click（）

Command1_Click

PrivateSubqued_click（）

Dimc1AsInteger,c2AsInteger,cAsInteger

'

验证基圆半径，升程，曲线段数的输入是否为数字

IfVal（InRadius）<

=0Then

MsgBox（"

不能为空或负值，请重新输入"

）,16

InRadius="

InRadius.SetFocus

ElseIfVal（InRise1）<

InRise1="

InRise1.SetFocus

ElseIfVal（InNum）<

=1Then

这不是凸轮，请输入大于等于2的数"

）,64

InNum="

InNum.SetFocus

ElseIfIsNumeric（InRadius.Text）And_

IsNumeric（InRise1）AndIsNumeric（InNum.Text）Then

FrmView.InRadius.Enabled=False

FrmView.InRise1.Enabled=False

FrmView.InNum.Enabled=False

FrmView.qued.Enabled=False

基本参数输入完毕！

FrmView.CmbSlect.Enab