pubvalue.bas

一个不错的数控源码是vb的

Attribute VB_Name = "PubValue"
'*************************************************************
'工艺框参数
Public cutterWidth As Double
Public swapOneTime As Long
Public swapTwoTimes As Long
Public swapThreeTimes As Long
Public cutOneTime As Long
Public cutTwoTimes As Long
Public processFactorSelect As Long
'************************************
'速度设置窗体
Public CutLineSpeedNode(1) As Long
Public CutLineSpeed(2, 2) As Long
Public CutArcSpeedNode(1) As Long
Public CutArcSpeed(2, 2) As Long
Public WashLineSpeedNode(1) As Long
Public WashLineSpeed(2, 2) As Long
Public UpdownMoveSpeedNode(1) As Long
Public UpdownMoveSpeed(2, 2) As Long
Public FindPointSpeedNode(1) As Long
Public FindPointSpeed(2, 2) As Long
'*************************************
'基本工艺设置窗体
Public ProcessFactor(2, 2) As Long
Public AxesNumber(2) As Long
Public SpaceHight As Double
Public Buttom As Double
Public SwapFactor(1) As Double
Public BackSpace As Long
'*************************************
'DXF和CUT文件分析窗体
Public instructionSquence() As String
'*************************************
'图形显示
Public gFactor As Double
'*************************************************************
'统计框参数
Public FilePath As String
Public ProcessDate As String
Public Processed As Long
Public FinishRate As Double
Public FailingRate As Double
Public AccumulationTime(2) As Long
Public AverageTime(2) As Long
'*************************************************************
'快捷键定义
Public hotKey(10, 2) As String
Public hotKeyName As String