frmmain.frm
来自「16 relay output channels and 16 isolated」· FRM 代码 · 共 627 行 · 第 1/2 页
FRM
627 行
VERSION 5.00
Begin VB.Form frmMain
BorderStyle = 4 'Fixed ToolWindow
Caption = "Synchronize Analog Output"
ClientHeight = 4320
ClientLeft = 45
ClientTop = 315
ClientWidth = 7740
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4320
ScaleWidth = 7740
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox TxtOutput
Height = 285
Left = 6240
Locked = -1 'True
TabIndex = 32
Text = "Output Value"
Top = 1200
Width = 1095
End
Begin VB.Timer ScanTimer
Enabled = 0 'False
Interval = 1000
Left = 6585
Top = 2880
End
Begin VB.CommandButton cmdStop
Caption = "&Stop"
Enabled = 0 'False
Height = 390
Left = 6255
TabIndex = 30
Top = 2400
Width = 1095
End
Begin VB.CommandButton cmdRun
Caption = "&Run"
Height = 390
Left = 6255
TabIndex = 29
Top = 1800
Width = 1095
End
Begin VB.CommandButton cmdExit
Caption = "&Exit"
Height = 435
Left = 6075
TabIndex = 28
Top = 3360
Width = 1485
End
Begin VB.Frame frmOutputKind
Caption = "&Kind of Output"
Height = 780
Left = 120
TabIndex = 7
Top = 870
Width = 5835
Begin VB.OptionButton optCurrentOut4
Caption = "&4 - 20 mA Current Out"
Height = 195
Left = 3840
TabIndex = 31
Top = 360
Width = 1830
End
Begin VB.OptionButton optCurrentOut0
Caption = "&0 - 20 mA Current Out"
Height = 195
Left = 1920
TabIndex = 17
Top = 360
Width = 1830
End
Begin VB.OptionButton optVoltageOut
Caption = "0 - 5 V &Voltage Out"
Height = 195
Left = 120
TabIndex = 8
Top = 360
Value = -1 'True
Width = 1860
End
End
Begin VB.Frame frmAOConfigure
Caption = "AO Con&figure"
Height = 2505
Left = 90
TabIndex = 3
Top = 1725
Width = 5805
Begin VB.TextBox txtScanTime
Height = 300
Left = 4050
TabIndex = 27
Text = "1000"
Top = 315
Width = 1125
End
Begin VB.CheckBox chkSyncAOEnable
Caption = "S&ynchronously AO Enable"
Height = 225
Left = 360
TabIndex = 6
Top = 360
Width = 2475
End
Begin VB.Frame frmAsyncAO
Caption = "Async. AO"
Height = 1590
Left = 2985
TabIndex = 5
Top = 720
Width = 2730
Begin VB.OptionButton optAsyncEnable
Caption = "Ch. 7 Enable"
Enabled = 0 'False
Height = 195
Index = 7
Left = 1425
TabIndex = 25
Top = 1200
Width = 1230
End
Begin VB.OptionButton optAsyncEnable
Caption = "Ch. 6 Enable"
Enabled = 0 'False
Height = 195
Index = 6
Left = 1425
TabIndex = 24
Top = 915
Width = 1230
End
Begin VB.OptionButton optAsyncEnable
Caption = "Ch. 5 Enable"
Enabled = 0 'False
Height = 195
Index = 5
Left = 1425
TabIndex = 23
Top = 615
Width = 1230
End
Begin VB.OptionButton optAsyncEnable
Caption = "Ch. 4 Enable"
Enabled = 0 'False
Height = 195
Index = 4
Left = 1425
TabIndex = 22
Top = 330
Width = 1230
End
Begin VB.OptionButton optAsyncEnable
Caption = "Ch. 3 Enable"
Enabled = 0 'False
Height = 195
Index = 3
Left = 120
TabIndex = 21
Top = 1200
Width = 1230
End
Begin VB.OptionButton optAsyncEnable
Caption = "Ch. 2 Enable"
Enabled = 0 'False
Height = 195
Index = 2
Left = 120
TabIndex = 20
Top = 910
Width = 1230
End
Begin VB.OptionButton optAsyncEnable
Caption = "Ch. 1 Enable"
Enabled = 0 'False
Height = 195
Index = 1
Left = 120
TabIndex = 19
Top = 620
Width = 1230
End
Begin VB.OptionButton optAsyncEnable
Caption = "Ch. 0 Enable"
Enabled = 0 'False
Height = 195
Index = 0
Left = 120
TabIndex = 18
Top = 330
Value = -1 'True
Width = 1230
End
End
Begin VB.Frame frmSyncAO
Caption = "Sync. AO"
Height = 1575
Left = 120
TabIndex = 4
Top = 720
Width = 2730
Begin VB.CheckBox chkSyncEnable
Caption = "Ch.7 Enable"
Enabled = 0 'False
Height = 195
Index = 7
Left = 1440
TabIndex = 16
Top = 1170
Width = 1260
End
Begin VB.CheckBox chkSyncEnable
Caption = "Ch.6 Enable"
Enabled = 0 'False
Height = 195
Index = 6
Left = 1440
TabIndex = 15
Top = 885
Width = 1260
End
Begin VB.CheckBox chkSyncEnable
Caption = "Ch.5 Enable"
Enabled = 0 'False
Height = 195
Index = 5
Left = 1440
TabIndex = 14
Top = 615
Width = 1260
End
Begin VB.CheckBox chkSyncEnable
Caption = "Ch.4 Enable"
Enabled = 0 'False
Height = 195
Index = 4
Left = 1440
TabIndex = 13
Top = 330
Width = 1260
End
Begin VB.CheckBox chkSyncEnable
Caption = "Ch.3 Enable"
Enabled = 0 'False
Height = 195
Index = 3
Left = 165
TabIndex = 12
Top = 1170
Width = 1260
End
Begin VB.CheckBox chkSyncEnable
Caption = "Ch.2 Enable"
Enabled = 0 'False
Height = 195
Index = 2
Left = 165
TabIndex = 11
Top = 890
Width = 1260
End
Begin VB.CheckBox chkSyncEnable
Caption = "Ch.1 Enable"
Enabled = 0 'False
Height = 195
Index = 1
Left = 165
TabIndex = 10
Top = 610
Width = 1260
End
Begin VB.CheckBox chkSyncEnable
Caption = "Ch.0 Enable"
Enabled = 0 'False
Height = 195
Index = 0
Left = 165
TabIndex = 9
Top = 330
Width = 1260
End
End
Begin VB.Label Label1
Caption = "Scan &Time : mS"
Height = 195
Left = 3120
TabIndex = 26
Top = 360
Width = 2640
End
End
Begin VB.Frame Frame1
Caption = "Device &Name:"
Height = 735
Left = 90
TabIndex = 0
Top = 45
Width = 7590
Begin VB.CommandButton btnSelectDevice
Caption = "Select &Device"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?