📄 demo.frm
字号:
Caption = "实际位置"
Height = 255
Left = 3000
TabIndex = 47
Top = 240
Width = 855
End
Begin VB.Label m_nActPos
BackColor = &H80000013&
Caption = "0"
Height = 375
Index = 3
Left = 2960
TabIndex = 46
Top = 2090
Width = 1000
End
Begin VB.Label m_nActPos
BackColor = &H80000013&
Caption = "0"
Height = 375
Index = 2
Left = 2960
TabIndex = 45
Top = 1610
Width = 1000
End
Begin VB.Label m_nActPos
BackColor = &H80000013&
Caption = "0"
Height = 375
Index = 1
Left = 2960
TabIndex = 44
Top = 1150
Width = 1000
End
Begin VB.Label m_nActPos
BackColor = &H80000013&
Caption = "0"
Height = 375
Index = 0
Left = 2960
TabIndex = 43
Top = 670
Width = 1000
End
Begin VB.Line Line17
X1 = 4000
X2 = 4000
Y1 = 120
Y2 = 2520
End
Begin VB.Label Label13
Caption = "逻辑位置"
Height = 255
Left = 1920
TabIndex = 42
Top = 240
Width = 855
End
Begin VB.Label m_nLogPos
BackColor = &H80000013&
Caption = "0"
Height = 375
Index = 3
Left = 1860
TabIndex = 41
Top = 2090
Width = 1000
End
Begin VB.Label m_nLogPos
BackColor = &H80000013&
Caption = "0"
Height = 375
Index = 2
Left = 1860
TabIndex = 40
Top = 1610
Width = 1000
End
Begin VB.Label m_nLogPos
BackColor = &H80000013&
Caption = "0"
Height = 375
Index = 1
Left = 1860
TabIndex = 39
Top = 1150
Width = 1000
End
Begin VB.Label m_nLogPos
BackColor = &H80000013&
Caption = "0"
Height = 375
Index = 0
Left = 1860
TabIndex = 38
Top = 670
Width = 1000
End
Begin VB.Line Line16
X1 = 2900
X2 = 2900
Y1 = 120
Y2 = 2520
End
Begin VB.Label Label12
Caption = "目标位置"
Height = 255
Left = 840
TabIndex = 37
Top = 240
Width = 855
End
Begin VB.Line Line15
X1 = 1800
X2 = 1800
Y1 = 120
Y2 = 2520
End
Begin VB.Label Label11
Caption = "轴号"
Height = 255
Left = 120
TabIndex = 28
Top = 240
Width = 495
End
Begin VB.Line Line14
X1 = 720
X2 = 720
Y1 = 120
Y2 = 2520
End
Begin VB.Line Line13
X1 = 0
X2 = 8400
Y1 = 2040
Y2 = 2040
End
Begin VB.Line Line12
X1 = 0
X2 = 8400
Y1 = 1560
Y2 = 1560
End
Begin VB.Line Line11
X1 = 0
X2 = 8400
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line10
X1 = 0
X2 = 8400
Y1 = 600
Y2 = 600
End
End
Begin VB.Frame Frame1
Height = 2535
Left = 240
TabIndex = 1
Top = 720
Width = 5175
Begin VB.TextBox m_nRatio
Height = 375
Index = 3
Left = 4060
TabIndex = 25
Text = "5"
Top = 2090
Width = 1000
End
Begin VB.TextBox m_nRatio
Height = 375
Index = 2
Left = 4060
TabIndex = 24
Text = "5"
Top = 1610
Width = 1000
End
Begin VB.TextBox m_nRatio
Height = 375
Index = 1
Left = 4060
TabIndex = 23
Text = "5"
Top = 1150
Width = 1000
End
Begin VB.TextBox m_nRatio
Height = 375
Index = 0
Left = 4060
TabIndex = 22
Text = "5"
Top = 670
Width = 1000
End
Begin VB.TextBox m_nAdd
Height = 375
Index = 3
Left = 2960
TabIndex = 20
Text = "625"
Top = 2090
Width = 1000
End
Begin VB.TextBox m_nAdd
Height = 375
Index = 2
Left = 2960
TabIndex = 19
Text = "625"
Top = 1610
Width = 1000
End
Begin VB.TextBox m_nAdd
Height = 375
Index = 1
Left = 2960
TabIndex = 18
Text = "625"
Top = 1150
Width = 1000
End
Begin VB.TextBox m_nAdd
Height = 375
Index = 0
Left = 2960
TabIndex = 17
Text = "625"
Top = 670
Width = 1000
End
Begin VB.TextBox m_nSpeed
Height = 375
Index = 3
Left = 1860
TabIndex = 15
Text = "200"
Top = 2090
Width = 1000
End
Begin VB.TextBox m_nSpeed
Height = 375
Index = 2
Left = 1860
TabIndex = 14
Text = "200"
Top = 1610
Width = 1000
End
Begin VB.TextBox m_nSpeed
Height = 375
Index = 1
Left = 1860
TabIndex = 13
Text = "200"
Top = 1150
Width = 1000
End
Begin VB.TextBox m_nSpeed
Height = 375
Index = 0
Left = 1860
TabIndex = 12
Text = "200"
Top = 670
Width = 1000
End
Begin VB.TextBox m_nStartV
Height = 375
Index = 3
Left = 760
TabIndex = 10
Text = "100"
Top = 2090
Width = 1000
End
Begin VB.TextBox m_nStartV
Height = 375
Index = 2
Left = 760
TabIndex = 9
Text = "100"
Top = 1610
Width = 1000
End
Begin VB.TextBox m_nStartV
Height = 375
Index = 1
Left = 760
TabIndex = 8
Text = "100"
Top = 1150
Width = 1000
End
Begin VB.TextBox m_nStartV
Height = 375
Index = 0
Left = 760
TabIndex = 7
Text = "100"
Top = 670
Width = 1000
End
Begin VB.Label Label10
Caption = "倍 率"
Height = 255
Left = 4200
TabIndex = 26
Top = 240
Width = 615
End
Begin VB.Label Label9
Caption = "加速度"
Height = 255
Left = 3120
TabIndex = 21
Top = 240
Width = 735
End
Begin VB.Line Line9
X1 = 4000
X2 = 4000
Y1 = 120
Y2 = 2520
End
Begin VB.Label Label8
Caption = "驱动速度"
Height = 255
Left = 1920
TabIndex = 16
Top = 240
Width = 855
End
Begin VB.Line Line8
X1 = 2900
X2 = 2900
Y1 = 120
Y2 = 2520
End
Begin VB.Label Label7
Caption = "初始速度"
Height = 255
Left = 840
TabIndex = 11
Top = 240
Width = 855
End
Begin VB.Line Line4
X1 = 1800
X2 = 1800
Y1 = 120
Y2 = 2640
End
Begin VB.Label Label6
Caption = "W"
Height = 255
Left = 240
TabIndex = 6
Top = 2160
Width = 135
End
Begin VB.Label Label5
Caption = "Z"
Height = 255
Left = 240
TabIndex = 5
Top = 1680
Width = 255
End
Begin VB.Label Label4
Caption = "Y"
Height = 255
Left = 240
TabIndex = 4
Top = 1200
Width = 135
End
Begin VB.Label Label3
Caption = "X"
Height = 255
Index = 0
Left = 240
TabIndex = 3
Top = 720
Width = 135
End
Begin VB.Label Label2
Caption = "轴号"
Height = 255
Left = 120
TabIndex = 2
Top = 240
Width = 495
End
Begin VB.Line Line6
X1 = 720
X2 = 720
Y1 = 120
Y2 = 2640
End
Begin VB.Line Line5
X1 = 0
X2 = 6600
Y1 = 2040
Y2 = 2040
End
Begin VB.Line Line3
X1 = 0
X2 = 6600
Y1 = 1560
Y2 = 1560
End
Begin VB.Line Line2
X1 = 0
X2 = 6600
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line1
X1 = 0
X2 = 6600
Y1 = 600
Y2 = 600
End
End
Begin VB.Label CardVer
BackColor = &H8000000E&
ForeColor = &H80000008&
Height = 400
Left = 6960
TabIndex = 69
Top = 240
Width = 1335
End
Begin VB.Label Label1
Caption = "ADT-8940 示范程序"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -