📄 demo.frm
字号:
VERSION 5.00
Begin VB.Form frmMain
Caption = "ADT-8940 DEMO"
ClientHeight = 5985
ClientLeft = 60
ClientTop = 450
ClientWidth = 8880
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000B&
LinkTopic = "Form1"
ScaleHeight = 5985
ScaleWidth = 8880
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame3
Caption = "延时"
Height = 1215
Left = 5520
TabIndex = 80
Top = 1800
Width = 3135
Begin VB.CheckBox m_bDelayStatus
Caption = "延时状态"
Height = 255
Left = 1680
TabIndex = 84
Top = 840
Width = 1215
End
Begin VB.CommandButton CmdDelay
Caption = "开始延时"
Height = 375
Left = 360
TabIndex = 83
Top = 720
Width = 1095
End
Begin VB.TextBox m_nDelayTime
Height = 285
Left = 1680
TabIndex = 81
Text = "0"
Top = 360
Width = 975
End
Begin VB.Label Label21
Caption = "延时时间"
Height = 255
Left = 480
TabIndex = 85
Top = 360
Width = 855
End
Begin VB.Label Label20
Caption = "us"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2760
TabIndex = 82
Top = 360
Width = 255
End
End
Begin VB.Timer Timer1
Interval = 100
Left = 6000
Top = 240
End
Begin VB.CommandButton IOTest
Caption = "IO检测"
Height = 375
Left = 7680
TabIndex = 68
Top = 1320
Width = 975
End
Begin VB.CommandButton BaseparaSet
Caption = "基本参数"
Height = 375
Left = 6600
TabIndex = 67
Top = 1320
Width = 975
End
Begin VB.CommandButton ClearPos
Caption = "位置清零"
Height = 375
Left = 5520
TabIndex = 66
Top = 1320
Width = 975
End
Begin VB.CommandButton Stop
Caption = "停止"
Height = 375
Left = 7680
TabIndex = 65
Top = 840
Width = 975
End
Begin VB.CommandButton InterpMove
Caption = "插补"
Height = 375
Left = 6600
TabIndex = 64
Top = 840
Width = 975
End
Begin VB.CommandButton AxisPmove
Caption = "联动"
Height = 375
Left = 5520
TabIndex = 63
Top = 840
Width = 975
End
Begin VB.Frame Frame2
Height = 2535
Left = 240
TabIndex = 27
Top = 3360
Width = 8415
Begin VB.CheckBox m_bStop1
Caption = "Check1"
Height = 255
Index = 3
Left = 7800
TabIndex = 79
Top = 2160
Width = 255
End
Begin VB.CheckBox m_bStop1
Caption = "Check1"
Height = 255
Index = 2
Left = 7800
TabIndex = 78
Top = 1680
Width = 255
End
Begin VB.CheckBox m_bStop1
Caption = "Check1"
Height = 255
Index = 1
Left = 7800
TabIndex = 77
Top = 1200
Width = 255
End
Begin VB.CheckBox m_bStop1
Caption = "Check1"
Height = 255
Index = 0
Left = 7800
TabIndex = 76
Top = 720
Width = 255
End
Begin VB.CheckBox m_bStop0
Caption = "Check1"
Height = 255
Index = 3
Left = 6960
TabIndex = 74
Top = 2160
Width = 255
End
Begin VB.CheckBox m_bStop0
Caption = "Check1"
Height = 255
Index = 2
Left = 6960
TabIndex = 73
Top = 1680
Width = 255
End
Begin VB.CheckBox m_bStop0
Caption = "Check1"
Height = 255
Index = 1
Left = 6960
TabIndex = 72
Top = 1200
Width = 255
End
Begin VB.CheckBox m_bStop0
Caption = "Check1"
Height = 255
Index = 0
Left = 6960
TabIndex = 71
Top = 720
Width = 255
End
Begin VB.CheckBox m_bNLimit
Height = 255
Index = 3
Left = 6120
TabIndex = 62
Top = 2160
Width = 255
End
Begin VB.CheckBox m_bNLimit
Height = 255
Index = 2
Left = 6120
TabIndex = 61
Top = 1680
Width = 255
End
Begin VB.CheckBox m_bNLimit
Height = 255
Index = 1
Left = 6120
TabIndex = 60
Top = 1200
Width = 255
End
Begin VB.CheckBox m_bNLimit
Height = 255
Index = 0
Left = 6120
TabIndex = 59
Top = 720
Width = 255
End
Begin VB.CheckBox m_bPLimit
Caption = "Check1"
Height = 255
Index = 3
Left = 5400
TabIndex = 57
Top = 2160
Width = 255
End
Begin VB.CheckBox m_bPLimit
Caption = "Check1"
Height = 255
Index = 2
Left = 5400
TabIndex = 56
Top = 1680
Width = 255
End
Begin VB.CheckBox m_bPLimit
Caption = "Check1"
Height = 255
Index = 1
Left = 5400
TabIndex = 55
Top = 1200
Width = 255
End
Begin VB.CheckBox m_bPLimit
Height = 255
Index = 0
Left = 5400
TabIndex = 54
Top = 720
Width = 255
End
Begin VB.TextBox m_nPulse
Height = 375
Index = 3
Left = 760
TabIndex = 36
Text = "10000"
Top = 2090
Width = 1000
End
Begin VB.TextBox m_nPulse
Height = 375
Index = 2
Left = 760
TabIndex = 35
Text = "10000"
Top = 1610
Width = 1000
End
Begin VB.TextBox m_nPulse
Height = 375
Index = 1
Left = 760
TabIndex = 34
Text = "10000"
Top = 1150
Width = 1000
End
Begin VB.TextBox m_nPulse
Height = 375
Index = 0
Left = 760
TabIndex = 33
Text = "10000"
Top = 670
Width = 1000
End
Begin VB.CheckBox m_bW
Caption = "W"
Height = 255
Left = 120
TabIndex = 32
Top = 2160
Width = 495
End
Begin VB.CheckBox m_bZ
Caption = "Z"
Height = 255
Left = 120
TabIndex = 31
Top = 1680
Width = 495
End
Begin VB.CheckBox m_bY
Caption = "Y"
Height = 255
Left = 120
TabIndex = 30
Top = 1200
Width = 495
End
Begin VB.CheckBox m_bX
Caption = "X"
Height = 255
Left = 120
TabIndex = 29
Top = 720
Width = 495
End
Begin VB.Label Label19
Caption = "stop1"
Height = 255
Left = 7680
TabIndex = 75
Top = 240
Width = 495
End
Begin VB.Line Line21
X1 = 7560
X2 = 7560
Y1 = 120
Y2 = 2520
End
Begin VB.Label Label18
Caption = "stop0"
Height = 255
Left = 6840
TabIndex = 70
Top = 240
Width = 615
End
Begin VB.Line Line20
X1 = 6720
X2 = 6720
Y1 = 120
Y2 = 2520
End
Begin VB.Label Label17
Caption = "负限位"
Height = 255
Left = 6000
TabIndex = 58
Top = 240
Width = 615
End
Begin VB.Label Label16
Caption = "正限位"
Height = 255
Left = 5160
TabIndex = 53
Top = 240
Width = 615
End
Begin VB.Line Line19
X1 = 5880
X2 = 5880
Y1 = 120
Y2 = 2520
End
Begin VB.Label Label15
Caption = "运行速度"
Height = 255
Left = 4200
TabIndex = 52
Top = 240
Width = 855
End
Begin VB.Label m_nRunSpeed
BackColor = &H80000013&
Caption = "0"
Height = 375
Index = 3
Left = 4060
TabIndex = 51
Top = 2090
Width = 1000
End
Begin VB.Label m_nRunSpeed
BackColor = &H80000013&
Caption = "0"
Height = 375
Index = 2
Left = 4060
TabIndex = 50
Top = 1610
Width = 1000
End
Begin VB.Label m_nRunSpeed
BackColor = &H80000013&
Caption = "0"
Height = 375
Index = 1
Left = 4060
TabIndex = 49
Top = 1150
Width = 1000
End
Begin VB.Label m_nRunSpeed
BackColor = &H80000013&
Caption = "0"
Height = 375
Index = 0
Left = 4060
TabIndex = 48
Top = 670
Width = 1000
End
Begin VB.Line Line18
X1 = 5100
X2 = 5100
Y1 = 120
Y2 = 2520
End
Begin VB.Label Label14
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -