form1.frm
来自「16 relay output channels and 16 isolated」· FRM 代码 · 共 761 行 · 第 1/2 页
FRM
761 行
VERSION 5.00
Begin VB.Form mainfrm
BorderStyle = 1 'Fixed Single
Caption = "Advantech Driver Demo: Digital Input with Interrupt Event and Latch"
ClientHeight = 4665
ClientLeft = 45
ClientTop = 330
ClientWidth = 7155
LinkTopic = "mainfrm"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4665
ScaleWidth = 7155
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton AboutButton
Caption = "&About"
Height = 375
Left = 5760
TabIndex = 28
Top = 240
Width = 1215
End
Begin VB.CommandButton CloseButton
Caption = "&Close"
Height = 375
Left = 5760
TabIndex = 27
Top = 720
Width = 1215
End
Begin VB.CommandButton SelDevButton
Caption = "Select &Device..."
Height = 375
Left = 4080
TabIndex = 26
Top = 240
Width = 1455
End
Begin VB.Frame Frame3
Caption = "Interrupt Event"
Height = 3015
Left = 3720
TabIndex = 8
Top = 1200
Width = 3255
Begin VB.CommandButton DisableCommand
Caption = "&Disable"
Height = 375
Left = 1920
TabIndex = 23
Top = 2520
Width = 975
End
Begin VB.CommandButton EnableCommand
Caption = "&Enable"
Height = 375
Left = 600
TabIndex = 22
Top = 2520
Width = 975
End
Begin VB.TextBox txtIntData
BackColor = &H80000004&
Height = 285
Left = 1920
TabIndex = 20
Top = 1920
Width = 855
End
Begin VB.TextBox txtEventCount
BackColor = &H80000004&
Height = 285
Left = 1440
TabIndex = 17
Top = 1440
Width = 1215
End
Begin VB.TextBox IntChlText
BackColor = &H80000004&
Height = 285
Left = 600
TabIndex = 16
Top = 1920
Width = 375
End
Begin VB.TextBox IntrptCountText
Height = 285
Left = 1560
TabIndex = 14
Text = "1"
Top = 810
Width = 1215
End
Begin VB.OptionButton TimeCriticalOption
Caption = "Time Critical Priority"
Height = 255
Left = 360
TabIndex = 10
Top = 480
Width = 1695
End
Begin VB.OptionButton NormalOption
Caption = "Normal Priority"
Height = 255
Left = 360
TabIndex = 9
Top = 240
Width = 1695
End
Begin VB.Label Label12
Caption = "Interrupt Freq"
Height = 255
Left = 240
TabIndex = 40
Top = 1440
Width = 1095
End
Begin VB.Label Label9
Caption = "Dec"
Height = 255
Left = 2760
TabIndex = 21
Top = 1920
Width = 375
End
Begin VB.Label Label8
Caption = "Latch Data:"
Height = 255
Left = 1080
TabIndex = 19
Top = 1920
Width = 855
End
Begin VB.Label Label7
Caption = "I/S"
Height = 255
Left = 2760
TabIndex = 18
Top = 1440
Width = 375
End
Begin VB.Label Label6
Caption = "Group"
Height = 255
Left = 120
TabIndex = 15
Top = 1920
Width = 495
End
Begin VB.Label Label5
Caption = "Interrupt Count"
Height = 375
Left = 240
TabIndex = 13
Top = 840
Width = 1215
End
End
Begin VB.Frame Frame2
Caption = "Digital Input Scan"
Height = 3015
Left = 240
TabIndex = 1
Top = 1200
Width = 3375
Begin VB.Frame Frame5
Caption = "Port Status"
Height = 855
Left = 120
TabIndex = 31
Top = 1560
Width = 3135
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "0"
Height = 255
Index = 0
Left = 2760
TabIndex = 39
Top = 480
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "1"
Height = 255
Index = 1
Left = 2400
TabIndex = 38
Top = 480
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "2"
Height = 255
Index = 2
Left = 2040
TabIndex = 37
Top = 480
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "3"
Height = 255
Index = 3
Left = 1680
TabIndex = 36
Top = 480
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "4"
Height = 255
Index = 4
Left = 1200
TabIndex = 35
Top = 480
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "5"
Height = 255
Index = 5
Left = 840
TabIndex = 34
Top = 480
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "6"
Height = 255
Index = 6
Left = 480
TabIndex = 33
Top = 480
Width = 255
End
Begin VB.Label labBit
Alignment = 2 'Center
Caption = "7"
Height = 255
Index = 7
Left = 120
TabIndex = 32
Top = 480
Width = 255
End
Begin VB.Image Red_LED
Height = 225
Index = 0
Left = 2760
Picture = "Form1.frx":0000
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Red_LED
Height = 225
Index = 1
Left = 2400
Picture = "Form1.frx":0312
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Red_LED
Height = 225
Index = 2
Left = 2040
Picture = "Form1.frx":0624
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Red_LED
Height = 225
Index = 3
Left = 1680
Picture = "Form1.frx":0936
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Red_LED
Height = 225
Index = 4
Left = 1200
Picture = "Form1.frx":0C48
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Red_LED
Height = 225
Index = 5
Left = 840
Picture = "Form1.frx":0F5A
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Red_LED
Height = 225
Index = 6
Left = 480
Picture = "Form1.frx":126C
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Red_LED
Height = 225
Index = 7
Left = 120
Picture = "Form1.frx":157E
Top = 240
Visible = 0 'False
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 0
Left = 2760
Picture = "Form1.frx":1890
Top = 240
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 1
Left = 2400
Picture = "Form1.frx":1BA2
Top = 240
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 2
Left = 2040
Picture = "Form1.frx":1EB4
Top = 240
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 3
Left = 1680
Picture = "Form1.frx":21C6
Top = 240
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 4
Left = 1200
Picture = "Form1.frx":24D8
Top = 240
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 5
Left = 840
Picture = "Form1.frx":27EA
Top = 240
Width = 225
End
Begin VB.Image Gray_LED
Height = 225
Index = 6
Left = 480
Picture = "Form1.frx":2AFC
Top = 240
Width = 225
End
Begin VB.Image Gray_LED
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?