📄 test.frm
字号:
VERSION 5.00
Begin VB.Form TestControl
BorderStyle = 3 'Fixed Dialog
Caption = "Prior Test Control"
ClientHeight = 5565
ClientLeft = 150
ClientTop = 720
ClientWidth = 7830
Icon = "Test.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5565
ScaleWidth = 7830
StartUpPosition = 3 'Windows Default
Begin VB.CheckBox chkShutters
Caption = "Shutters Close"
Height = 495
Left = 4440
TabIndex = 42
ToolTipText = "Close shutters during filter move"
Top = 1560
Width = 1215
End
Begin VB.CommandButton btnGoto
Caption = "Goto Abs"
Height = 495
Left = 360
TabIndex = 41
ToolTipText = "Move XYZ to Absolute position"
Top = 720
Width = 495
End
Begin VB.TextBox txtMoving
Alignment = 1 'Right Justify
Height = 285
Left = 2520
TabIndex = 40
Text = "111111"
ToolTipText = "Which axes are moving"
Top = 2160
Width = 765
End
Begin VB.TextBox txtLimits
Alignment = 1 'Right Justify
Height = 285
Left = 840
TabIndex = 38
Text = "111111"
ToolTipText = "Displays axes on limit"
Top = 2160
Width = 765
End
Begin VB.CommandButton BtnFW3
Caption = "Filter Wheel 3"
Height = 495
Left = 4440
TabIndex = 36
ToolTipText = "Filter 3 Controls"
Top = 3480
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton BtnFW2
Caption = "Filter Wheel 2"
Height = 495
Left = 4440
TabIndex = 35
ToolTipText = "Filter 2 Controls"
Top = 2880
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton CmdYFilter
Caption = "Set Y As Filter"
Height = 495
Left = 4440
TabIndex = 34
Top = 2880
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton BtnFW1
Caption = "Filter Wheel 1"
Height = 495
Left = 4440
TabIndex = 30
ToolTipText = "Filter 1 Controls"
Top = 2280
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton BtnShutter
Caption = "Open Shutter C"
Height = 495
Index = 2
Left = 6120
TabIndex = 29
ToolTipText = "Shutter C control"
Top = 3480
Width = 1215
End
Begin VB.CommandButton BtnShutter
Caption = "Open Shutter B"
Height = 495
Index = 1
Left = 6120
TabIndex = 28
ToolTipText = "Shutter B control"
Top = 2880
Width = 1215
End
Begin VB.CommandButton BtnShutter
Caption = "Open Shutter A"
Height = 495
Index = 0
Left = 6120
TabIndex = 27
ToolTipText = "Shutter A control"
Top = 2280
Width = 1215
End
Begin VB.CommandButton BtnGoToZero
Caption = "Go To Zero"
Height = 800
Left = 1080
TabIndex = 26
ToolTipText = "XYZ to zero position"
Top = 3600
Width = 800
End
Begin VB.CommandButton BtnDown
Caption = "Down"
Height = 800
Left = 3000
TabIndex = 25
ToolTipText = "Z down"
Top = 4440
Width = 800
End
Begin VB.CommandButton BtnUp
Caption = "Up"
Height = 800
Left = 3000
TabIndex = 24
ToolTipText = "Z up"
Top = 2760
Width = 800
End
Begin VB.CommandButton BtnPattern
Caption = "Do Pattern"
Height = 800
Left = 4440
TabIndex = 23
ToolTipText = "Raster Pattern"
Top = 4440
Width = 1215
End
Begin VB.CommandButton Zero
Caption = "ZERO"
Height = 300
Index = 2
Left = 2640
TabIndex = 22
ToolTipText = "Set Current Z position to zero"
Top = 1440
Width = 615
End
Begin VB.CommandButton Zero
Caption = "ZERO"
Height = 300
Index = 1
Left = 2640
TabIndex = 21
ToolTipText = "Set Current Y position to zero"
Top = 840
Width = 615
End
Begin VB.CommandButton Zero
Caption = "ZERO"
Height = 315
Index = 0
Left = 2640
TabIndex = 20
ToolTipText = "Set Current X position to zero"
Top = 240
Width = 615
End
Begin VB.CommandButton Stop
BackColor = &H000000FF&
Caption = "Emergency Stop"
Height = 800
Left = 6120
MaskColor = &H80000004&
Style = 1 'Graphical
TabIndex = 19
ToolTipText = "Kills All Axes"
Top = 4440
Width = 1215
End
Begin VB.CommandButton BtnJoyStick
Caption = "JoyStick"
Height = 735
Left = 6120
TabIndex = 18
ToolTipText = "Graphical Joystick"
Top = 1320
Width = 1215
End
Begin VB.TextBox Temperature
Height = 375
Left = 6120
TabIndex = 17
Text = "0癈"
ToolTipText = "Board Temperature"
Top = 720
Width = 615
End
Begin VB.TextBox Volts
Height = 375
Left = 6120
TabIndex = 15
Text = "0 V"
ToolTipText = "Operating Voltage"
Top = 240
Width = 615
End
Begin VB.CommandButton BtnForwardRight
Caption = "Forward Right"
Height = 800
Left = 1920
TabIndex = 13
ToolTipText = "Move relative forward right"
Top = 4440
Width = 800
End
Begin VB.CommandButton BtnForwardLeft
Caption = "Forward Left"
Height = 800
Left = 240
TabIndex = 12
ToolTipText = "Move relative forward left"
Top = 4440
Width = 800
End
Begin VB.CommandButton BtnBackRight
Caption = "Back Right"
Height = 800
Left = 1920
TabIndex = 11
ToolTipText = "Move relative back right"
Top = 2760
Width = 800
End
Begin VB.CommandButton BtnBackLeft
Caption = "Back Left"
Height = 800
Left = 240
TabIndex = 10
ToolTipText = "Move relative back left"
Top = 2760
Width = 800
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 50
Left = 7200
Top = 5040
End
Begin VB.CommandButton BtnRight
Caption = "Right"
Height = 800
Left = 1920
TabIndex = 9
ToolTipText = "Move relative right"
Top = 3600
Width = 800
End
Begin VB.CommandButton BtnForward
Caption = "Forward"
Height = 800
Left = 1080
TabIndex = 8
ToolTipText = "Move relative forward"
Top = 4440
Width = 800
End
Begin VB.CommandButton BtnBack
Caption = "Back"
Height = 800
Left = 1080
TabIndex = 7
ToolTipText = "Move relative back"
Top = 2760
Width = 800
End
Begin VB.CommandButton BtnLeft
Caption = "Left"
Height = 800
Left = 240
TabIndex = 6
ToolTipText = "Move relative left"
Top = 3600
Width = 800
End
Begin VB.TextBox DRO_Z
Height = 300
Left = 1440
TabIndex = 2
Text = "0"
Top = 1440
Width = 1095
End
Begin VB.TextBox DRO_Y
Height = 300
Left = 1440
TabIndex = 1
Text = "0"
Top = 840
Width = 1095
End
Begin VB.TextBox DRO_X
Height = 300
Left = 1440
TabIndex = 0
Text = "0"
Top = 240
Width = 1095
End
Begin VB.Label Label5
Caption = "Moving"
Height = 255
Left = 1920
TabIndex = 39
Top = 2160
Width = 735
End
Begin VB.Label Label4
Caption = "Limits"
Height = 255
Left = 360
TabIndex = 37
Top = 2160
Width = 495
End
Begin VB.Label LblEncZ
Caption = "0"
Height = 255
Left = 1440
TabIndex = 33
Top = 1800
Width = 1815
End
Begin VB.Label LblEncY
Caption = "0"
Height = 255
Left = 1440
TabIndex = 32
Top = 1200
Width = 1815
End
Begin VB.Label LblEncX
Caption = "0"
Height = 255
Left = 1440
TabIndex = 31
Top = 600
Width = 1815
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "Temperature"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4320
TabIndex = 16
Top = 720
Width = 1575
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "Voltage"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4320
TabIndex = 14
Top = 240
Width = 1575
End
Begin VB.Label Label1
Caption = "Z"
Height = 300
Index = 2
Left = 1200
TabIndex = 5
Top = 1440
Width = 255
End
Begin VB.Label Label1
Caption = "Y"
Height = 300
Index = 1
Left = 1200
TabIndex = 4
Top = 840
Width = 255
End
Begin VB.Label Label1
Caption = "X"
Height = 300
Index = 0
Left = 1200
TabIndex = 3
Top = 240
Width = 255
End
Begin VB.Menu MnuDevice
Caption = "Device"
Begin VB.Menu MnuRestoreDefaults
Caption = "Restore Defaults"
End
Begin VB.Menu MnuKeepDevice
Caption = "Keep Device Selection"
Checked = -1 'True
End
End
Begin VB.Menu MnuMotor
Caption = "Motor"
Begin VB.Menu MnuStageCurrent
Caption = "Stage Current"
End
Begin VB.Menu MnuFocusCurrent
Caption = "Focus Current"
End
Begin VB.Menu mnuFocusMicronsPerMotorRev
Caption = "Focus Microns/Motor revolution"
End
Begin VB.Menu MnuFilterCurrent
Caption = "Filter Current"
End
End
Begin VB.Menu MnuSpeed
Caption = "Speed"
Begin VB.Menu MnuStageSpeed
Caption = "Stage Speed"
End
Begin VB.Menu MnuFocusSpeed
Caption = "Focus Speed"
End
Begin VB.Menu MnuFilterSpeed
Caption = "Filter Speed"
End
Begin VB.Menu mnuJoystick
Caption = "-"
End
Begin VB.Menu MnuJoyEnable
Caption = "Joy Stick Enable"
End
Begin VB.Menu MnuJoySpeed
Caption = "Stage Joy Stick Speed"
End
Begin VB.Menu MnuJoyZSpeed
Caption = "Focus Joy Stick Speed"
End
Begin VB.Menu Mnu3
Caption = "-"
End
Begin VB.Menu MnuJoyXRev
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -