fstartup.frm
来自「16 relay output channels and 16 isolated」· FRM 代码 · 共 671 行 · 第 1/2 页
FRM
671 行
VERSION 5.00
Begin VB.Form mainfrm
BorderStyle = 1 'Fixed Single
Caption = "Advantech Driver Demo: Digital Input with Interrupt Event"
ClientHeight = 4470
ClientLeft = 45
ClientTop = 330
ClientWidth = 8550
LinkTopic = "mainfrm"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4470
ScaleWidth = 8550
StartUpPosition = 2 'CenterScreen
Begin VB.ComboBox cmbDIPort
Height = 315
Left = 1080
TabIndex = 40
Text = "0"
Top = 1200
Width = 975
End
Begin VB.Timer ScanTimer
Left = 5400
Top = 1080
End
Begin VB.TextBox txtScanTime
Height = 285
Left = 3360
TabIndex = 36
Text = "500"
Top = 1245
Width = 855
End
Begin VB.Frame grpConfig
Caption = "Functions"
Height = 2640
Left = 120
TabIndex = 9
Top = 1680
Width = 5055
Begin VB.Frame Frame6
Caption = "Pattern Match"
Height = 1065
Left = 105
TabIndex = 19
Top = 210
Width = 4845
Begin VB.TextBox txtPA0Mask
Height = 285
Left = 1260
TabIndex = 24
Text = "00"
Top = 210
Width = 435
End
Begin VB.TextBox txtPA0Value
Height = 330
Left = 2940
TabIndex = 23
Text = "00"
Top = 210
Width = 435
End
Begin VB.TextBox txtPA4Mask
Height = 285
Left = 1260
TabIndex = 22
Text = "00"
Top = 630
Width = 435
End
Begin VB.TextBox txtPA4Value
Height = 330
Left = 2940
TabIndex = 21
Text = "00"
Top = 630
Width = 435
End
Begin VB.CommandButton cmdPatternMatch
Caption = "Setting..."
Height = 330
Left = 3570
TabIndex = 20
Top = 525
Width = 1065
End
Begin VB.Label Label14
Caption = "PA0 Mask"
Height = 225
Index = 0
Left = 315
TabIndex = 28
Top = 315
Width = 960
End
Begin VB.Label Label13
Caption = "PA0 Value"
Height = 225
Left = 1995
TabIndex = 27
Top = 315
Width = 960
End
Begin VB.Label Label12
Caption = "PA4 Mask"
Height = 225
Left = 315
TabIndex = 26
Top = 735
Width = 750
End
Begin VB.Label Label8
Caption = "PA4 Value"
Height = 225
Left = 1995
TabIndex = 25
Top = 735
Width = 855
End
End
Begin VB.Frame Frame5
Caption = "Status Change"
Height = 645
Left = 105
TabIndex = 13
Top = 1260
Width = 4845
Begin VB.TextBox txtPB0Mask
Height = 285
Left = 1260
TabIndex = 16
Text = "00"
Top = 210
Width = 435
End
Begin VB.TextBox txtPB4Mask
Height = 285
Left = 2940
TabIndex = 15
Text = "00"
Top = 210
Width = 435
End
Begin VB.CommandButton cmdStatusChange
Caption = "Setting..."
Height = 330
Left = 3570
TabIndex = 14
Top = 210
Width = 1065
End
Begin VB.Label Label9
Caption = "PB 0"
Height = 225
Left = 315
TabIndex = 18
Top = 280
Width = 645
End
Begin VB.Label Label6
Caption = "PB 4"
Height = 225
Left = 1995
TabIndex = 17
Top = 280
Width = 750
End
End
Begin VB.Frame Frame4
Caption = " INT of Port C group"
Height = 645
Left = 105
TabIndex = 10
Top = 1890
Width = 4845
Begin VB.OptionButton radPCEnable
Caption = "Enable"
Height = 225
Left = 945
TabIndex = 12
Top = 210
Width = 1065
End
Begin VB.OptionButton radPCDisable
Caption = "Disable"
Height = 225
Left = 2625
TabIndex = 11
Top = 210
Value = -1 'True
Width = 1065
End
End
End
Begin VB.CommandButton AboutButton
Caption = "&About"
Height = 375
Left = 6720
TabIndex = 8
Top = 360
Width = 1215
End
Begin VB.CommandButton CloseButton
Caption = "&Close"
Height = 375
Left = 6720
TabIndex = 7
Top = 960
Width = 1215
End
Begin VB.CommandButton SelDevButton
Caption = "Select &Device..."
Height = 375
Left = 4920
TabIndex = 6
Top = 360
Width = 1455
End
Begin VB.Frame Frame3
Caption = "Interrupt Event"
Height = 2655
Left = 5400
TabIndex = 1
Top = 1680
Width = 3015
Begin VB.TextBox txtPMCount
Height = 330
Left = 1815
TabIndex = 32
Top = 360
Width = 960
End
Begin VB.TextBox txtSCCount
Height = 330
Left = 1815
TabIndex = 31
Top = 780
Width = 960
End
Begin VB.TextBox txtINTCount
Height = 330
Left = 1815
TabIndex = 30
Top = 1200
Width = 960
End
Begin VB.TextBox txtData
Height = 330
Left = 1815
TabIndex = 29
Top = 1620
Width = 960
End
Begin VB.CommandButton DisableCommand
Caption = "S&top"
Height = 375
Left = 1800
TabIndex = 4
Top = 2160
Width = 975
End
Begin VB.CommandButton EnableCommand
Caption = "&Start"
Height = 375
Left = 360
TabIndex = 3
Top = 2160
Width = 975
End
Begin VB.Label Label15
Caption = "Status Change Count:"
Height = 225
Left = 240
TabIndex = 35
Top = 840
Width = 1590
End
Begin VB.Label Label7
Caption = "INT Count: "
Height = 330
Left = 240
TabIndex = 34
Top = 1260
Width = 1380
End
Begin VB.Label Label17
Caption = "Pattern Match Count:"
Height = 225
Left = 240
TabIndex = 33
Top = 465
Width = 1590
End
Begin VB.Label Label5
Caption = "Data"
Height = 375
Left = 240
TabIndex = 2
Top = 1560
Width = 1215
End
End
Begin VB.Frame Frame1
Caption = "Device Selection"
Height = 975
Left = 240
TabIndex = 0
Top = 120
Width = 4335
Begin VB.TextBox txtDevice
BackColor = &H80000004&
Height = 375
Left = 240
TabIndex = 5
Top = 360
Width = 3855
End
End
Begin VB.Label Label2
Caption = "Port:"
Height = 225
Left = 480
TabIndex = 39
Top = 1305
Width = 600
End
Begin VB.Label Label3
Caption = "Scan Time:"
Height = 225
Left = 2460
TabIndex = 38
Top = 1305
Width = 855
End
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?