📄 dmc.frm
字号:
TabCaption(6) = "圆弧插补(&A)"
TabPicture(6) = "Dmc.frx":00A8
Tab(6).ControlEnabled= -1 'True
Tab(6).Control(0)= "Shape3"
Tab(6).Control(0).Enabled= 0 'False
Tab(6).Control(1)= "labAMoveType"
Tab(6).Control(1).Enabled= 0 'False
Tab(6).Control(2)= "Shape1"
Tab(6).Control(2).Enabled= 0 'False
Tab(6).Control(3)= "Label20"
Tab(6).Control(3).Enabled= 0 'False
Tab(6).Control(4)= "Line2"
Tab(6).Control(4).Enabled= 0 'False
Tab(6).Control(5)= "Label21"
Tab(6).Control(5).Enabled= 0 'False
Tab(6).Control(6)= "Label22"
Tab(6).Control(6).Enabled= 0 'False
Tab(6).Control(7)= "Line5"
Tab(6).Control(7).Enabled= 0 'False
Tab(6).Control(8)= "Line6"
Tab(6).Control(8).Enabled= 0 'False
Tab(6).Control(9)= "Line1"
Tab(6).Control(9).Enabled= 0 'False
Tab(6).Control(10)= "Label25"
Tab(6).Control(10).Enabled= 0 'False
Tab(6).Control(11)= "Frame5"
Tab(6).Control(11).Enabled= 0 'False
Tab(6).Control(12)= "Frame18"
Tab(6).Control(12).Enabled= 0 'False
Tab(6).Control(13)= "Frame14"
Tab(6).Control(13).Enabled= 0 'False
Tab(6).ControlCount= 14
Begin VB.Frame Frame14
Caption = "速度类型"
Height = 1095
Left = 3960
TabIndex = 185
Top = 3600
Width = 2055
Begin VB.OptionButton optASpeedType
Caption = "常速"
Height = 180
Index = 0
Left = 120
TabIndex = 187
Top = 360
Value = -1 'True
Width = 735
End
Begin VB.OptionButton optASpeedType
Caption = "快速"
Height = 180
Index = 1
Left = 120
TabIndex = 186
Top = 720
Width = 735
End
End
Begin VB.Frame Frame18
Caption = "矢量速度"
Height = 1890
Left = 1680
TabIndex = 176
Top = 2780
Width = 2175
Begin VB.TextBox txtAAccel
Height = 270
Left = 840
TabIndex = 180
Text = "2000"
Top = 1440
Width = 1095
End
Begin VB.TextBox txtAHighSpeed
Height = 270
Left = 840
TabIndex = 179
Text = "5000"
Top = 1080
Width = 1095
End
Begin VB.TextBox txtAConSpeed
Height = 270
Left = 840
TabIndex = 178
Text = "1000"
Top = 360
Width = 1095
End
Begin VB.TextBox txtALowSpeed
Height = 270
Left = 840
TabIndex = 177
Text = "1000"
Top = 720
Width = 1095
End
Begin VB.Label labAConSpeed
Caption = "常速速度"
Height = 255
Left = 120
TabIndex = 184
Top = 360
Width = 1095
End
Begin VB.Label labALowSpeed
Caption = "起始速度"
Height = 255
Left = 120
TabIndex = 183
Top = 720
Width = 1095
End
Begin VB.Label labAAccel
Caption = "加速度"
Height = 255
Left = 240
TabIndex = 182
Top = 1440
Width = 735
End
Begin VB.Label labAHighSpeed
Caption = "最大速度"
Height = 255
Left = 120
TabIndex = 181
Top = 1080
Width = 1215
End
End
Begin VB.Frame Frame5
Caption = "圆弧参数"
Height = 2775
Left = 3960
TabIndex = 158
Top = 720
Width = 2055
Begin VB.TextBox txtACenterY
Height = 270
Left = 1080
TabIndex = 164
Text = "1000"
Top = 1440
Width = 855
End
Begin VB.TextBox txtACenterX
Height = 270
Left = 1080
TabIndex = 163
Text = "0"
Top = 1080
Width = 855
End
Begin VB.TextBox txtAAngle
Height = 270
Left = 1080
TabIndex = 162
Text = "180"
Top = 1800
Width = 855
End
Begin VB.TextBox txtAAxesX
Height = 270
Left = 1065
TabIndex = 161
Text = "1"
Top = 360
Width = 855
End
Begin VB.TextBox txtAAxesY
Height = 270
Left = 1065
TabIndex = 160
Text = "2"
Top = 720
Width = 855
End
Begin VB.TextBox txtARatio
Height = 270
Left = 1080
TabIndex = 159
Text = "1"
Top = 2160
Width = 855
End
Begin VB.Label Label30
Caption = "圆弧中心Y"
Height = 255
Left = 120
TabIndex = 170
Top = 1440
Width = 1095
End
Begin VB.Label Label34
Caption = "圆弧中心X"
Height = 255
Left = 135
TabIndex = 169
Top = 1080
Width = 1095
End
Begin VB.Label Label38
Caption = "运动角度"
Height = 255
Left = 240
TabIndex = 168
Top = 1800
Width = 855
End
Begin VB.Label Label19
Caption = "X轴轴号"
Height = 255
Left = 120
TabIndex = 167
Top = 360
Width = 1095
End
Begin VB.Label Label18
Caption = "Y轴轴号"
Height = 255
Left = 120
TabIndex = 166
Top = 720
Width = 1095
End
Begin VB.Label Label13
Caption = "椭圆比例"
Height = 255
Left = 240
TabIndex = 165
Top = 2160
Width = 855
End
End
Begin VB.Frame Frame2
Caption = "运动类型"
Height = 1095
Left = -72600
TabIndex = 153
Top = 2160
Width = 1335
Begin VB.OptionButton optRMoveType
Caption = "单向运动"
Height = 180
Index = 1
Left = 120
TabIndex = 155
Top = 720
Width = 1095
End
Begin VB.OptionButton optRMoveType
Caption = "往复运动"
Height = 180
Index = 0
Left = 120
TabIndex = 154
Top = 360
Value = -1 'True
Width = 1095
End
End
Begin VB.ComboBox cmbECountUnit
Enabled = 0 'False
Height = 300
ItemData = "Dmc.frx":00C4
Left = -72840
List = "Dmc.frx":00F8
Style = 2 'Dropdown List
TabIndex = 133
Top = 2880
Width = 855
End
Begin VB.Frame Frame17
Caption = "反馈信号模式"
Height = 1575
Left = -72000
TabIndex = 128
Top = 960
Width = 2535
Begin VB.ComboBox cmbEMultiple
Height = 300
ItemData = "Dmc.frx":0133
Left = 1200
List = "Dmc.frx":013D
Style = 2 'Dropdown List
TabIndex = 131
Top = 600
Width = 855
End
Begin VB.OptionButton optEEncoderMode
Caption = "增减脉冲方式"
Height = 255
Index = 1
Left = 360
TabIndex = 130
Top = 1080
Width = 2055
End
Begin VB.OptionButton optEEncoderMode
Caption = "A/B相90度相位差方式"
Height = 255
Index = 0
Left = 360
TabIndex = 129
Top = 360
Value = -1 'True
Width = 2055
End
Begin VB.Label labEMultiple
Caption = "倍频："
Height = 255
Left = 600
TabIndex = 132
Top = 720
Width = 615
End
End
Begin VB.Frame Frame16
Caption = "反馈来源"
Height = 1575
Index = 0
Left = -74280
TabIndex = 125
Top = 960
Width = 1695
Begin VB.OptionButton optEPulseSource
Caption = "外部反馈"
Enabled = 0 'False
Height = 255
Index = 1
Left = 240
TabIndex = 127
Top = 960
Value = -1 'True
Width = 1095
End
Begin VB.OptionButton optEPulseSource
Caption = "输出脉冲"
Enabled = 0 'False
Height = 255
Index = 0
Left = 240
TabIndex = 126
Top = 480
Width = 1095
End
End
Begin VB.Frame Frame1
Caption = "运动参数"
Height = 2415
Left = -74760
TabIndex = 95
Top = 720
Width = 5775
Begin VB.TextBox txtMAxes
Height = 270
Index = 3
Left = 4560
TabIndex = 143
Text = "4"
Top = 480
Visible = 0 'False
Width = 855
End
Begin VB.TextBox txtMLowSpeed
Height = 270
Index = 3
Left = 4560
TabIndex = 142
Text = "2000"
Top = 840
Visible = 0 'False
Width = 855
End
Begin VB.TextBox txtMHighSpeed
Height = 270
Index = 3
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -