📄 dmc.frm
字号:
Top = 1440
Width = 1095
End
Begin VB.TextBox txtRAxes
Height = 270
Left = 840
TabIndex = 40
Text = "1"
Top = 360
Width = 1095
End
Begin VB.TextBox txtRDis
Height = 270
Left = 840
TabIndex = 39
Text = "5000"
Top = 720
Width = 1095
End
Begin VB.TextBox txtRTimes
Height = 270
Left = 840
TabIndex = 38
Text = "10"
Top = 1080
Width = 1095
End
Begin VB.Label Label8
Caption = "剩余次数"
Height = 255
Left = 120
TabIndex = 152
Top = 1440
Width = 1095
End
Begin VB.Label Label15
Caption = "轴数"
Height = 255
Index = 0
Left = 360
TabIndex = 43
Top = 360
Width = 375
End
Begin VB.Label Label16
Caption = "运动距离"
Height = 255
Left = 120
TabIndex = 42
Top = 720
Width = 1095
End
Begin VB.Label Label17
Caption = "往复次数"
Height = 255
Left = 120
TabIndex = 41
Top = 1080
Width = 1095
End
End
Begin VB.CheckBox chkOShowGraph
Caption = "显示图形窗口"
Height = 255
Left = -74640
TabIndex = 36
Top = 2280
Value = 1 'Checked
Width = 2055
End
Begin VB.CheckBox chkOShowStatus
Caption = "显示状态"
Height = 255
Left = -74640
TabIndex = 35
Top = 2760
Value = 1 'Checked
Width = 2055
End
Begin VB.HScrollBar scrCCurSpeed
Height = 255
Left = -74520
Max = 24000
TabIndex = 34
Top = 960
Width = 3735
End
Begin VB.Frame Frame3
Caption = "起始运动参数"
Height = 2055
Left = -74520
TabIndex = 25
Top = 1680
Width = 2175
Begin VB.TextBox txtCLowSpeed
Height = 270
Left = 840
TabIndex = 29
Text = "1000"
Top = 720
Width = 1095
End
Begin VB.TextBox txtCAxes
Height = 270
Left = 840
TabIndex = 28
Text = "1"
Top = 360
Width = 1095
End
Begin VB.TextBox txtCAccel
Height = 270
Left = 840
TabIndex = 27
Text = "2000"
Top = 1080
Width = 1095
End
Begin VB.TextBox txtCDis
Height = 270
Left = 840
TabIndex = 26
Text = "100000"
Top = 1440
Width = 1095
End
Begin VB.Label labCLowSpeed
Caption = "起始速度"
Height = 255
Left = 120
TabIndex = 33
Top = 720
Width = 1095
End
Begin VB.Label Label15
Caption = "轴号"
Height = 255
Index = 1
Left = 360
TabIndex = 32
Top = 360
Width = 375
End
Begin VB.Label labCAccel
Caption = "加速度"
Height = 255
Left = 240
TabIndex = 31
Top = 1080
Width = 735
End
Begin VB.Label Label12
Caption = "运动距离"
Height = 255
Left = 120
TabIndex = 30
Top = 1440
Width = 1095
End
End
Begin VB.Label Label25
Height = 375
Left = 2160
TabIndex = 188
Top = 2060
Width = 375
End
Begin VB.Line Line1
X1 = 120
X2 = 3720
Y1 = 2520
Y2 = 2520
End
Begin VB.Line Line6
X1 = 720
X2 = 1320
Y1 = 2520
Y2 = 2160
End
Begin VB.Line Line5
X1 = 1440
X2 = 2250
Y1 = 2100
Y2 = 2040
End
Begin VB.Label Label22
Caption = "(0,0)"
Height = 255
Left = 150
TabIndex = 174
Top = 2580
Width = 495
End
Begin VB.Label Label21
Height = 855
Left = 720
TabIndex = 173
Top = 2170
Width = 1695
End
Begin VB.Line Line2
X1 = 705
X2 = 705
Y1 = 720
Y2 = 2685
End
Begin VB.Label Label20
Caption = "(X,Y)"
Height = 255
Left = 1320
TabIndex = 172
Top = 1680
Width = 615
End
Begin VB.Shape Shape1
BackStyle = 1 'Opaque
Height = 135
Left = 1320
Shape = 3 'Circle
Top = 2040
Width = 135
End
Begin VB.Label labAMoveType
BorderStyle = 1 'Fixed Single
Caption = "con_pmove"
Height = 255
Left = 240
TabIndex = 171
Top = 4800
Width = 4335
End
Begin VB.Label Label14
Caption = "说明：以上设置将在下次运动启动时生效，反馈来源将影响“状态显示”栏的“反馈1”到“反馈3”。"
Height = 855
Left = -74760
TabIndex = 135
Top = 4080
Width = 4335
End
Begin VB.Label labECountUnit
Caption = "反馈脉冲计数单位："
Height = 255
Left = -74520
TabIndex = 134
Top = 3000
Width = 1695
End
Begin VB.Label labMMoveType
BorderStyle = 1 'Fixed Single
Caption = "con_pmove"
Height = 255
Left = -74760
TabIndex = 124
Top = 4800
Width = 5415
End
Begin VB.Label labIMoveType
BorderStyle = 1 'Fixed Single
Caption = "con_pmove"
Height = 255
Left = -74880
TabIndex = 123
Top = 4680
Width = 4335
End
Begin VB.Label Label6
Height = 1095
Left = -73950
TabIndex = 122
Top = 2880
Width = 1815
End
Begin VB.Line Line3
X1 = -73950
X2 = -73305
Y1 = 3360
Y2 = 2940
End
Begin VB.Line Line4
X1 = -73260
X2 = -72450
Y1 = 2940
Y2 = 2880
End
Begin VB.Shape Shape2
BackStyle = 1 'Opaque
Height = 135
Left = -73350
Shape = 3 'Circle
Top = 2880
Width = 135
End
Begin VB.Label labOMaxSpeed
Caption = "最大速度："
Height = 255
Left = -74640
TabIndex = 121
Top = 960
Width = 3615
End
Begin VB.Label Label11
Caption = "按设置的起始速度启动该轴的运动后，翻动卷滚条以改变当前速度值，则该轴的运动速度将按照当前速度值实现变速。"
Height = 615
Left = -74520
TabIndex = 120
Top = 3960
Width = 3735
End
Begin VB.Label labCCurSpeed
Caption = "当前速度值："
Height = 255
Left = -74520
TabIndex = 119
Top = 1320
Width = 3735
End
Begin VB.Shape Shape3
Height = 1695
Left = 0
Shape = 3 'Circle
Top = 1200
Width = 2775
End
End
Begin VB.Label Label23
Height = 1095
Left = 1080
TabIndex = 175
Top = 1920
Width = 1815
End
Begin VB.Menu mnuFile
Caption = "文件"
Begin VB.Menu mnuFileExit
Caption = "退出"
End
End
Begin VB.Menu mnuMulti
Caption = "连续加工演示"
Begin VB.Menu mnuMulti1
Caption = "图形1"
End
Begin VB.Menu mnuMulti2
Caption = "图形2"
End
End
Begin VB.Menu mnuFun
Caption = "其他功能"
Begin VB.Menu mnuFunIO
Caption = "IO功能"
End
End
Begin VB.Menu mnuAbout
Caption = "关于"
Begin VB.Menu mnuFunGetInfo
Caption = "设备信息"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'*************************************************************
'常量定义
Const PARAM_FILE = "MPC2810D.dat"
'*************************************************************
'选项卡
Const TAB_INTP = 0 '直线插补
Const TAB_ENCD = 1 '编码器反馈
Const TAB_PMVE = 2 '直线运动
Const TAB_OTHER = 3 '其它选项
Con⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -