📄 util7248.frm
字号:
VERSION 4.00
Begin VB.Form uti48dio
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "PCI-7248 Sample Program"
ClientHeight = 1890
ClientLeft = 120
ClientTop = 2370
ClientWidth = 7680
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 2580
Left = 60
LinkTopic = "Form1"
ScaleHeight = 1890
ScaleWidth = 7680
Top = 1740
Width = 7800
Begin VB.Timer Timer1
Interval = 100
Left = 7080
Top = 1680
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Port C (Lower)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1455
Index = 3
Left = 6300
TabIndex = 2
Top = 120
Width = 1275
Begin VB.Image output_cl
Appearance = 0 'Flat
Height = 165
Index = 1
Left = 1035
Picture = "UTIL7248.frx":0000
Top = 1035
Width = 165
End
Begin VB.Image output_cl
Appearance = 0 'Flat
Height = 165
Index = 0
Left = 1035
Picture = "UTIL7248.frx":00DA
Top = 555
Width = 165
End
Begin VB.Image input_cl
Appearance = 0 'Flat
Height = 165
Index = 1
Left = 1035
Picture = "UTIL7248.frx":01B4
Top = 840
Width = 165
End
Begin VB.Image input_cl
Appearance = 0 'Flat
Height = 165
Index = 0
Left = 1035
Picture = "UTIL7248.frx":028E
Top = 360
Width = 165
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 7
Left = 120
Picture = "UTIL7248.frx":0368
Top = 960
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 6
Left = 330
Picture = "UTIL7248.frx":044A
Top = 960
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 5
Left = 540
Picture = "UTIL7248.frx":052C
Top = 960
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 4
Left = 750
Picture = "UTIL7248.frx":060E
Top = 960
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 3
Left = 120
Picture = "UTIL7248.frx":06F0
Top = 480
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 2
Left = 330
Picture = "UTIL7248.frx":07D2
Top = 480
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 1
Left = 540
Picture = "UTIL7248.frx":08B4
Top = 480
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 0
Left = 750
Picture = "UTIL7248.frx":0996
Top = 480
Width = 180
End
Begin VB.Shape Shape_cl
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 60
Top = 840
Width = 960
End
Begin VB.Shape Shape_cl
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 0
Left = 60
Top = 360
Width = 960
End
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Port C (Upper)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1455
Index = 2
Left = 2820
TabIndex = 3
Top = 120
Width = 1275
Begin VB.Image output_cu
Appearance = 0 'Flat
Height = 165
Index = 1
Left = 1035
Picture = "UTIL7248.frx":0A78
Top = 1035
Width = 165
End
Begin VB.Image output_cu
Appearance = 0 'Flat
Height = 165
Index = 0
Left = 1035
Picture = "UTIL7248.frx":0B52
Top = 555
Width = 165
End
Begin VB.Image input_cu
Appearance = 0 'Flat
Height = 165
Index = 1
Left = 1035
Picture = "UTIL7248.frx":0C2C
Top = 840
Width = 165
End
Begin VB.Image input_cu
Appearance = 0 'Flat
Height = 165
Index = 0
Left = 1035
Picture = "UTIL7248.frx":0D06
Top = 360
Width = 165
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 7
Left = 120
Picture = "UTIL7248.frx":0DE0
Top = 960
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 6
Left = 330
Picture = "UTIL7248.frx":0EC2
Top = 960
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 5
Left = 540
Picture = "UTIL7248.frx":0FA4
Top = 960
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 4
Left = 750
Picture = "UTIL7248.frx":1086
Top = 960
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 3
Left = 120
Picture = "UTIL7248.frx":1168
Top = 480
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 2
Left = 330
Picture = "UTIL7248.frx":124A
Top = 480
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 1
Left = 540
Picture = "UTIL7248.frx":132C
Top = 480
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 0
Left = 750
Picture = "UTIL7248.frx":140E
Top = 480
Width = 180
End
Begin VB.Shape Shape_cu
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 0
Left = 60
Top = 360
Width = 960
End
Begin VB.Shape Shape_cu
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 60
Top = 840
Width = 960
End
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Port B"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1455
Index = 1
Left = 4140
TabIndex = 4
Top = 120
Width = 2115
Begin VB.Image output_b
Appearance = 0 'Flat
Height = 165
Index = 1
Left = 1875
Picture = "UTIL7248.frx":14F0
Top = 1035
Width = 165
End
Begin VB.Image output_b
Appearance = 0 'Flat
Height = 165
Index = 0
Left = 1875
Picture = "UTIL7248.frx":15CA
Top = 555
Width = 165
End
Begin VB.Image input_b
Appearance = 0 'Flat
Height = 165
Index = 1
Left = 1875
Picture = "UTIL7248.frx":16A4
Top = 840
Width = 165
End
Begin VB.Image input_b
Appearance = 0 'Flat
Height = 165
Index = 0
Left = 1875
Picture = "UTIL7248.frx":177E
Top = 360
Width = 165
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 15
Left = 120
Picture = "UTIL7248.frx":1858
Top = 960
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 14
Left = 330
Picture = "UTIL7248.frx":193A
Top = 960
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 13
Left = 540
Picture = "UTIL7248.frx":1A1C
Top = 960
Width = 180
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -