seuuung0
/
leak_test
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
리크 테스트 gui
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
4 Commits
1 Branch
0 Tags
14 MiB
Tree: 10a3083a18
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '10a3083a18'
${ noResults }
leak_test/ADLINK/PCIS-DASK/Samples/7296/VB7296/UTIL7296.FRM

1875 lines
57 KiB
Raw Normal View History

리크 테스트 gui
4 weeks ago
VERSION 4.00
Begin VB.Form Util7296
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "PCI-7296 Sample Program"
ClientHeight = 2670
ClientLeft = 930
ClientTop = 1860
ClientWidth = 7710
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 = 3360
Left = 870
LinkTopic = "Form1"
ScaleHeight = 2670
ScaleWidth = 7710
Top = 1230
Width = 7830
Begin VB.Timer Timer1
Interval = 100
Left = 7260
Top = 2400
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 = 2355
Index = 3
Left = 6300
TabIndex = 2
Top = 120
Width = 1275
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 15
Left = 120
Picture = "UTIL7296.frx":0000
Top = 1920
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 14
Left = 330
Picture = "UTIL7296.frx":00E2
Top = 1920
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 13
Left = 570
Picture = "UTIL7296.frx":01C4
Top = 1920
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 12
Left = 780
Picture = "UTIL7296.frx":02A6
Top = 1920
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 11
Left = 120
Picture = "UTIL7296.frx":0388
Top = 1440
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 10
Left = 330
Picture = "UTIL7296.frx":046A
Top = 1440
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 9
Left = 570
Picture = "UTIL7296.frx":054C
Top = 1440
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 8
Left = 780
Picture = "UTIL7296.frx":062E
Top = 1440
Width = 180
End
Begin VB.Image input_cl
Appearance = 0 'Flat
Height = 165
Index = 3
Left = 1035
Picture = "UTIL7296.frx":0710
Top = 1800
Width = 165
End
Begin VB.Image input_cl
Appearance = 0 'Flat
Height = 165
Index = 2
Left = 1035
Picture = "UTIL7296.frx":07EA
Top = 1320
Width = 165
End
Begin VB.Image output_cl
Appearance = 0 'Flat
Height = 165
Index = 3
Left = 1035
Picture = "UTIL7296.frx":08C4
Top = 1995
Width = 165
End
Begin VB.Image output_cl
Appearance = 0 'Flat
Height = 165
Index = 2
Left = 1035
Picture = "UTIL7296.frx":099E
Top = 1515
Width = 165
End
Begin VB.Image output_cl
Appearance = 0 'Flat
Height = 165
Index = 1
Left = 1035
Picture = "UTIL7296.frx":0A78
Top = 1035
Width = 165
End
Begin VB.Image output_cl
Appearance = 0 'Flat
Height = 165
Index = 0
Left = 1035
Picture = "UTIL7296.frx":0B52
Top = 555
Width = 165
End
Begin VB.Image input_cl
Appearance = 0 'Flat
Height = 165
Index = 1
Left = 1035
Picture = "UTIL7296.frx":0C2C
Top = 840
Width = 165
End
Begin VB.Image input_cl
Appearance = 0 'Flat
Height = 165
Index = 0
Left = 1035
Picture = "UTIL7296.frx":0D06
Top = 360
Width = 165
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 7
Left = 120
Picture = "UTIL7296.frx":0DE0
Top = 960
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 6
Left = 330
Picture = "UTIL7296.frx":0EC2
Top = 960
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 5
Left = 540
Picture = "UTIL7296.frx":0FA4
Top = 960
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 4
Left = 750
Picture = "UTIL7296.frx":1086
Top = 960
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 3
Left = 120
Picture = "UTIL7296.frx":1168
Top = 480
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 2
Left = 330
Picture = "UTIL7296.frx":124A
Top = 480
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 1
Left = 540
Picture = "UTIL7296.frx":132C
Top = 480
Width = 180
End
Begin VB.Image bit_cl
Appearance = 0 'Flat
Height = 180
Index = 0
Left = 750
Picture = "UTIL7296.frx":140E
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
Begin VB.Shape Shape_cl
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 2
Left = 60
Top = 1320
Width = 960
End
Begin VB.Shape Shape_cl
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 3
Left = 60
Top = 1800
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 = 2355
Index = 2
Left = 2820
TabIndex = 3
Top = 120
Width = 1275
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 15
Left = 120
Picture = "UTIL7296.frx":14F0
Top = 1920
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 14
Left = 330
Picture = "UTIL7296.frx":15D2
Top = 1920
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 13
Left = 540
Picture = "UTIL7296.frx":16B4
Top = 1920
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 12
Left = 750
Picture = "UTIL7296.frx":1796
Top = 1920
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 11
Left = 120
Picture = "UTIL7296.frx":1878
Top = 1440
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 10
Left = 330
Picture = "UTIL7296.frx":195A
Top = 1440
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 9
Left = 540
Picture = "UTIL7296.frx":1A3C
Top = 1440
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 8
Left = 750
Picture = "UTIL7296.frx":1B1E
Top = 1440
Width = 180
End
Begin VB.Image input_cu
Appearance = 0 'Flat
Height = 165
Index = 3
Left = 1035
Picture = "UTIL7296.frx":1C00
Top = 1800
Width = 165
End
Begin VB.Image input_cu
Appearance = 0 'Flat
Height = 165
Index = 2
Left = 1035
Picture = "UTIL7296.frx":1CDA
Top = 1320
Width = 165
End
Begin VB.Image output_cu
Appearance = 0 'Flat
Height = 165
Index = 3
Left = 1035
Picture = "UTIL7296.frx":1DB4
Top = 1995
Width = 165
End
Begin VB.Image output_cu
Appearance = 0 'Flat
Height = 165
Index = 2
Left = 1035
Picture = "UTIL7296.frx":1E8E
Top = 1515
Width = 165
End
Begin VB.Image output_cu
Appearance = 0 'Flat
Height = 165
Index = 1
Left = 1035
Picture = "UTIL7296.frx":1F68
Top = 1035
Width = 165
End
Begin VB.Image output_cu
Appearance = 0 'Flat
Height = 165
Index = 0
Left = 1035
Picture = "UTIL7296.frx":2042
Top = 555
Width = 165
End
Begin VB.Image input_cu
Appearance = 0 'Flat
Height = 165
Index = 1
Left = 1035
Picture = "UTIL7296.frx":211C
Top = 840
Width = 165
End
Begin VB.Image input_cu
Appearance = 0 'Flat
Height = 165
Index = 0
Left = 1035
Picture = "UTIL7296.frx":21F6
Top = 360
Width = 165
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 7
Left = 120
Picture = "UTIL7296.frx":22D0
Top = 960
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 6
Left = 330
Picture = "UTIL7296.frx":23B2
Top = 960
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 5
Left = 540
Picture = "UTIL7296.frx":2494
Top = 960
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 4
Left = 750
Picture = "UTIL7296.frx":2576
Top = 960
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 3
Left = 120
Picture = "UTIL7296.frx":2658
Top = 480
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 2
Left = 330
Picture = "UTIL7296.frx":273A
Top = 480
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 1
Left = 540
Picture = "UTIL7296.frx":281C
Top = 480
Width = 180
End
Begin VB.Image bit_cu
Appearance = 0 'Flat
Height = 180
Index = 0
Left = 750
Picture = "UTIL7296.frx":28FE
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
Begin VB.Shape Shape_cu
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 2
Left = 60
Top = 1320
Width = 960
End
Begin VB.Shape Shape_cu
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 3
Left = 60
Top = 1800
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 = 2355
Index = 1
Left = 4140
TabIndex = 4
Top = 120
Width = 2115
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 31
Left = 120
Picture = "UTIL7296.frx":29E0
Top = 1920
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 30
Left = 330
Picture = "UTIL7296.frx":2AC2
Top = 1920
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 29
Left = 540
Picture = "UTIL7296.frx":2BA4
Top = 1920
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 28
Left = 750
Picture = "UTIL7296.frx":2C86
Top = 1920
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 27
Left = 960
Picture = "UTIL7296.frx":2D68
Top = 1920
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 26
Left = 1170
Picture = "UTIL7296.frx":2E4A
Top = 1920
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 25
Left = 1380
Picture = "UTIL7296.frx":2F2C
Top = 1920
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 24
Left = 1590
Picture = "UTIL7296.frx":300E
Top = 1920
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 23
Left = 120
Picture = "UTIL7296.frx":30F0
Top = 1440
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 22
Left = 330
Picture = "UTIL7296.frx":31D2
Top = 1440
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 21
Left = 540
Picture = "UTIL7296.frx":32B4
Top = 1440
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 20
Left = 750
Picture = "UTIL7296.frx":3396
Top = 1440
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 19
Left = 960
Picture = "UTIL7296.frx":3478
Top = 1440
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 18
Left = 1170
Picture = "UTIL7296.frx":355A
Top = 1440
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 17
Left = 1380
Picture = "UTIL7296.frx":363C
Top = 1440
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 16
Left = 1590
Picture = "UTIL7296.frx":371E
Top = 1440
Width = 180
End
Begin VB.Image input_b
Appearance = 0 'Flat
Height = 165
Index = 3
Left = 1875
Picture = "UTIL7296.frx":3800
Top = 1800
Width = 165
End
Begin VB.Image input_b
Appearance = 0 'Flat
Height = 165
Index = 2
Left = 1875
Picture = "UTIL7296.frx":38DA
Top = 1320
Width = 165
End
Begin VB.Image output_b
Appearance = 0 'Flat
Height = 165
Index = 3
Left = 1875
Picture = "UTIL7296.frx":39B4
Top = 1995
Width = 165
End
Begin VB.Image output_b
Appearance = 0 'Flat
Height = 165
Index = 2
Left = 1875
Picture = "UTIL7296.frx":3A8E
Top = 1515
Width = 165
End
Begin VB.Image output_b
Appearance = 0 'Flat
Height = 165
Index = 1
Left = 1875
Picture = "UTIL7296.frx":3B68
Top = 1035
Width = 165
End
Begin VB.Image output_b
Appearance = 0 'Flat
Height = 165
Index = 0
Left = 1875
Picture = "UTIL7296.frx":3C42
Top = 555
Width = 165
End
Begin VB.Image input_b
Appearance = 0 'Flat
Height = 165
Index = 1
Left = 1875
Picture = "UTIL7296.frx":3D1C
Top = 840
Width = 165
End
Begin VB.Image input_b
Appearance = 0 'Flat
Height = 165
Index = 0
Left = 1875
Picture = "UTIL7296.frx":3DF6
Top = 360
Width = 165
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 15
Left = 120
Picture = "UTIL7296.frx":3ED0
Top = 960
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 14
Left = 330
Picture = "UTIL7296.frx":3FB2
Top = 960
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 13
Left = 540
Picture = "UTIL7296.frx":4094
Top = 960
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 12
Left = 750
Picture = "UTIL7296.frx":4176
Top = 960
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 11
Left = 960
Picture = "UTIL7296.frx":4258
Top = 960
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 10
Left = 1170
Picture = "UTIL7296.frx":433A
Top = 960
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 9
Left = 1380
Picture = "UTIL7296.frx":441C
Top = 960
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 8
Left = 1590
Picture = "UTIL7296.frx":44FE
Top = 960
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 7
Left = 120
Picture = "UTIL7296.frx":45E0
Top = 480
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 6
Left = 330
Picture = "UTIL7296.frx":46C2
Top = 480
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 5
Left = 540
Picture = "UTIL7296.frx":47A4
Top = 480
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 4
Left = 750
Picture = "UTIL7296.frx":4886
Top = 480
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 3
Left = 960
Picture = "UTIL7296.frx":4968
Top = 480
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 2
Left = 1170
Picture = "UTIL7296.frx":4A4A
Top = 480
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 1
Left = 1380
Picture = "UTIL7296.frx":4B2C
Top = 480
Width = 180
End
Begin VB.Image bit_b
Appearance = 0 'Flat
Height = 180
Index = 0
Left = 1590
Picture = "UTIL7296.frx":4C0E
Top = 480
Width = 180
End
Begin VB.Shape Shape_b
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 0
Left = 60
Top = 360
Width = 1800
End
Begin VB.Shape Shape_b
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 60
Top = 840
Width = 1800
End
Begin VB.Shape Shape_b
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 2
Left = 60
Top = 1320
Width = 1800
End
Begin VB.Shape Shape_b
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 3
Left = 60
Top = 1800
Width = 1800
End
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Port A"
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 = 2355
Index = 0
Left = 660
TabIndex = 0
Top = 120
Width = 2115
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 31
Left = 120
Picture = "UTIL7296.frx":4CF0
Top = 1920
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 30
Left = 330
Picture = "UTIL7296.frx":4DD2
Top = 1920
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 29
Left = 540
Picture = "UTIL7296.frx":4EB4
Top = 1920
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 28
Left = 750
Picture = "UTIL7296.frx":4F96
Top = 1920
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 27
Left = 960
Picture = "UTIL7296.frx":5078
Top = 1920
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 26
Left = 1170
Picture = "UTIL7296.frx":515A
Top = 1920
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 25
Left = 1380
Picture = "UTIL7296.frx":523C
Top = 1920
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 24
Left = 1590
Picture = "UTIL7296.frx":531E
Top = 1920
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 23
Left = 120
Picture = "UTIL7296.frx":5400
Top = 1440
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 22
Left = 330
Picture = "UTIL7296.frx":54E2
Top = 1440
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 21
Left = 540
Picture = "UTIL7296.frx":55C4
Top = 1440
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 20
Left = 750
Picture = "UTIL7296.frx":56A6
Top = 1440
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 19
Left = 960
Picture = "UTIL7296.frx":5788
Top = 1440
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 18
Left = 1170
Picture = "UTIL7296.frx":586A
Top = 1440
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 17
Left = 1380
Picture = "UTIL7296.frx":594C
Top = 1440
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 16
Left = 1590
Picture = "UTIL7296.frx":5A2E
Top = 1440
Width = 180
End
Begin VB.Image input_a
Appearance = 0 'Flat
Height = 165
Index = 3
Left = 1875
Picture = "UTIL7296.frx":5B10
Top = 1800
Width = 165
End
Begin VB.Image input_a
Appearance = 0 'Flat
Height = 165
Index = 2
Left = 1875
Picture = "UTIL7296.frx":5BEA
Top = 1320
Width = 165
End
Begin VB.Image output_a
Appearance = 0 'Flat
Height = 165
Index = 3
Left = 1875
Picture = "UTIL7296.frx":5CC4
Top = 1995
Width = 165
End
Begin VB.Image output_a
Appearance = 0 'Flat
Height = 165
Index = 2
Left = 1875
Picture = "UTIL7296.frx":5D9E
Top = 1515
Width = 165
End
Begin VB.Image output_a
Appearance = 0 'Flat
Height = 165
Index = 1
Left = 1875
Picture = "UTIL7296.frx":5E78
Top = 1035
Width = 165
End
Begin VB.Image output_a
Appearance = 0 'Flat
Height = 165
Index = 0
Left = 1875
Picture = "UTIL7296.frx":5F52
Top = 555
Width = 165
End
Begin VB.Image input_a
Appearance = 0 'Flat
Height = 165
Index = 1
Left = 1875
Picture = "UTIL7296.frx":602C
Top = 840
Width = 165
End
Begin VB.Image input_a
Appearance = 0 'Flat
Height = 165
Index = 0
Left = 1875
Picture = "UTIL7296.frx":6106
Top = 360
Width = 165
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 15
Left = 120
Picture = "UTIL7296.frx":61E0
Top = 960
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 14
Left = 330
Picture = "UTIL7296.frx":62C2
Top = 960
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 13
Left = 540
Picture = "UTIL7296.frx":63A4
Top = 960
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 12
Left = 750
Picture = "UTIL7296.frx":6486
Top = 960
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 11
Left = 960
Picture = "UTIL7296.frx":6568
Top = 960
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 10
Left = 1170
Picture = "UTIL7296.frx":664A
Top = 960
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 9
Left = 1380
Picture = "UTIL7296.frx":672C
Top = 960
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 8
Left = 1590
Picture = "UTIL7296.frx":680E
Top = 960
Width = 180
End
Begin VB.Shape Shape_a
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 1
Left = 60
Top = 840
Width = 1800
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 7
Left = 120
Picture = "UTIL7296.frx":68F0
Top = 480
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 6
Left = 330
Picture = "UTIL7296.frx":69D2
Top = 480
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 5
Left = 540
Picture = "UTIL7296.frx":6AB4
Top = 480
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 4
Left = 750
Picture = "UTIL7296.frx":6B96
Top = 480
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 3
Left = 960
Picture = "UTIL7296.frx":6C78
Top = 480
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 2
Left = 1170
Picture = "UTIL7296.frx":6D5A
Top = 480
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 1
Left = 1380
Picture = "UTIL7296.frx":6E3C
Top = 480
Width = 180
End
Begin VB.Image bit_a
Appearance = 0 'Flat
Height = 180
Index = 0
Left = 1590
Picture = "UTIL7296.frx":6F1E
Top = 480
Width = 180
End
Begin VB.Shape Shape_a
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 0
Left = 60
Top = 360
Width = 1800
End
Begin VB.Shape Shape_a
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 3
Left = 60
Top = 1800
Width = 1800
End
Begin VB.Shape Shape_a
BorderColor = &H00C0C0C0&
FillColor = &H00FF0000&
FillStyle = 0 'Solid
Height = 375
Index = 2
Left = 60
Top = 1320
Width = 1800
End
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Ch4"
ForeColor = &H00FF0000&
Height = 195
Index = 3
Left = 180
TabIndex = 7
Top = 1980
Width = 375
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Ch3"
ForeColor = &H00FF0000&
Height = 195
Index = 2
Left = 180
TabIndex = 6
Top = 1500
Width = 375
End
Begin VB.Image doc_1
Appearance = 0 'Flat
Height = 180
Left = 1380
Picture = "UTIL7296.frx":7000
Top = 4680
Visible = 0 'False
Width = 180
End
Begin VB.Image dic_1
Appearance = 0 'Flat
Height = 180
Left = 1380
Picture = "UTIL7296.frx":70E2
Top = 4500
Visible = 0 'False
Width = 180
End
Begin VB.Image dib_1
Appearance = 0 'Flat
Height = 180
Left = 1080
Picture = "UTIL7296.frx":71C4
Top = 4500
Visible = 0 'False
Width = 180
End
Begin VB.Image dob_1
Appearance = 0 'Flat
Height = 180
Left = 1080
Picture = "UTIL7296.frx":72A6
Top = 4680
Visible = 0 'False
Width = 180
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Ch1"
ForeColor = &H00FF0000&
Height = 195
Index = 0
Left = 180
TabIndex = 1
Top = 570
Width = 375
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Ch2"
ForeColor = &H00FF0000&
Height = 195
Index = 1
Left = 180
TabIndex = 5
Top = 1050
Width = 375
End
Begin VB.Shape Shape3
BackColor = &H00C0C0C0&
FillColor = &H00C0C0C0&
FillStyle = 0 'Solid
Height = 2250
Left = 120
Top = 225
Width = 495
End
Begin VB.Image doa_1
Appearance = 0 'Flat
Height = 180
Left = 780
Picture = "UTIL7296.frx":7388
Top = 4680
Visible = 0 'False
Width = 180
End
Begin VB.Image do_0
Appearance = 0 'Flat
Height = 180
Left = 480
Picture = "UTIL7296.frx":746A
Top = 4680
Visible = 0 'False
Width = 180
End
Begin VB.Image dia_1
Appearance = 0 'Flat
Height = 180
Left = 780
Picture = "UTIL7296.frx":754C
Top = 4500
Visible = 0 'False
Width = 180
End
Begin VB.Image di_0
Appearance = 0 'Flat
Height = 180
Left = 480
Picture = "UTIL7296.frx":762E
Top = 4500
Visible = 0 'False
Width = 180
End
Begin VB.Menu mnuExit
Caption = "E&xit!"
End
End
Attribute VB_Name = "Util7296"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Const INPUT_COLOR = &HFF00FF
Const OUTPUT_COLOR = &HFF0000
Dim value_a(0 To 3) As Long, value_b(0 To 3) As Long, value_cu(0 To 3) As Long, value_cl(0 To 3) As Long
Dim status_a(0 To 3) As Integer, status_b(0 To 3) As Integer, status_cu(0 To 3) As Long, status_cl(0 To 3) As Integer
'Dim hEnts As EventHandles
Private Sub bit_a_Click(Index As Integer)
Dim Channel As Integer
Dim bit As Integer
Dim result As Integer
Channel = Int(Index / 8)
bit = Index Mod 8
If status_a(Channel) = OUTPUT_PORT Then
If (Int((value_a(Channel) / (2 ^ bit))) Mod 2) = 1 Then
bit_a(Index) = do_0
value_a(Channel) = value_a(Channel) - (2 ^ bit)
Else 'bit is 0
bit_a(Index) = doa_1
value_a(Channel) = value_a(Channel) + (2 ^ bit)
End If
result = DO_WritePort(card, Channel * 5 + Channel_P1A, value_a(Channel))
End If
End Sub
Private Sub bit_b_Click(Index As Integer)
Dim Channel As Integer
Dim bit As Integer
Dim result As Integer
Channel = Int(Index / 8)
bit = Index Mod 8
If status_b(Channel) = OUTPUT_PORT Then
If (Int((value_b(Channel) / (2 ^ bit))) Mod 2) = 1 Then
bit_b(Index) = do_0
value_b(Channel) = value_b(Channel) - (2 ^ bit)
Else 'bit is 0
bit_b(Index) = dob_1
value_b(Channel) = value_b(Channel) + (2 ^ bit)
End If
result = DO_WritePort(card, Channel * 5 + Channel_P1B, value_b(Channel))
End If
End Sub
Private Sub bit_cl_Click(Index As Integer)
Dim Channel As Integer
Dim bit As Integer
Dim result As Integer
Channel = Int(Index / 4)
bit = Index Mod 4
If status_cl(Channel) = OUTPUT_PORT Then
If (Int((value_cl(Channel) / (2 ^ bit))) Mod 2) = 1 Then
bit_cl(Index) = do_0
value_cl(Channel) = value_cl(Channel) - (2 ^ bit)
Else 'bit is 0
bit_cl(Index) = doc_1
value_cl(Channel) = value_cl(Channel) + (2 ^ bit)
End If
result = DO_WritePort(card, Channel * 5 + Channel_P1CL, value_cl(Channel))
End If
End Sub
Private Sub bit_cu_Click(Index As Integer)
Dim Channel As Integer
Dim bit As Integer
Dim result As Integer
Channel = Int(Index / 4)
bit = Index Mod 4
If status_cu(Channel) = OUTPUT_PORT Then
If (Int((value_cu(Channel) / (2 ^ bit))) Mod 2) = 1 Then
bit_cu(Index) = do_0
value_cu(Channel) = value_cu(Channel) - (2 ^ bit)
Else 'bit is 0
bit_cu(Index) = doc_1
value_cu(Channel) = value_cu(Channel) + (2 ^ bit)
End If
result = DO_WritePort(card, Channel * 5 + Channel_P1CH, value_cu(Channel))
End If
End Sub
Private Sub Card_Initial()
Dim i As Integer, j As Integer
Dim result As Integer
For i = 0 To 3 'Initial status is Output for all channels
result = DIO_PortConfig(card, i * 5 + Channel_P1A, OUTPUT_PORT)
Shape_a(i).FillColor = OUTPUT_COLOR
status_a(i) = OUTPUT_PORT
For j = 0 To 7
bit_a(i * 8 + j) = doa_1
Next j
value_a(i) = &HFF
result = DO_WritePort(card, i * 5 + Channel_P1A, value_a(i))
result = DIO_PortConfig(card, i * 5 + Channel_P1B, OUTPUT_PORT)
Shape_b(i).FillColor = OUTPUT_COLOR
status_b(i) = OUTPUT_PORT
For j = 0 To 7
bit_b(i * 8 + j) = dob_1
Next j
value_b(i) = &HFF
result = DO_WritePort(card, i * 5 + Channel_P1B, value_b(i))
result = DIO_PortConfig(card, i * 5 + Channel_P1CH, OUTPUT_PORT)
Shape_cu(i).FillColor = OUTPUT_COLOR
status_cu(i) = OUTPUT_PORT
For j = 0 To 3
bit_cu(i * 4 + j) = doc_1
Next j
value_cu(i) = &HF
result = DO_WritePort(card, i * 5 + Channel_P1CH, value_cu(i))
result = DIO_PortConfig(card, i * 5 + Channel_P1CL, OUTPUT_PORT)
Shape_cl(i).FillColor = OUTPUT_COLOR
status_cl(i) = OUTPUT_PORT
For j = 0 To 3
bit_cl(i * 4 + j) = doc_1
Next j
value_cl(i) = &HF
result = DO_WritePort(card, i * 5 + Channel_P1CH, value_cl(i))
Next i
End Sub
Private Sub Form_Load()
Dim result As Integer
SettingForm.Show 1
If card < 0 Then
MsgBox "Register Card Failed"
End
End If
Card_Initial
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim result As Integer
If card >= 0 Then
result = Release_Card(card)
End If
End
End Sub
Private Sub input_a_Click(Index As Integer)
Dim result As Integer
Shape_a(Index).FillColor = INPUT_COLOR
InputAndShow Index, Channel_P1A
status_a(Index) = INPUT_PORT
result = DIO_PortConfig(card, Index * 5 + Channel_P1A, INPUT_PORT)
End Sub
Private Sub input_b_Click(Index As Integer)
Dim result As Integer
Shape_b(Index).FillColor = INPUT_COLOR
InputAndShow Index, Channel_P1B
status_b(Index) = INPUT_PORT
result = DIO_PortConfig(card, Index * 5 + Channel_P1B, INPUT_PORT)
End Sub
Private Sub input_cl_Click(Index As Integer)
Dim result As Integer
Shape_cl(Index).FillColor = INPUT_COLOR
InputAndShow Index, Channel_P1CL
status_cl(Index) = INPUT_PORT
result = DIO_PortConfig(card, Index * 5 + Channel_P1CL, INPUT_PORT)
End Sub
Private Sub input_cu_Click(Index As Integer)
Dim result As Integer
Shape_cu(Index).FillColor = INPUT_COLOR
InputAndShow Index, Channel_P1CH
status_cu(Index) = INPUT_PORT
result = DIO_PortConfig(card, Index * 5 + Channel_P1CH, INPUT_PORT)
End Sub
Private Sub InputAndShow(ByVal Channel As Integer, ByVal Port As Integer)
Dim databyte As Long
Dim result As Integer
Dim i As Integer, k As Integer
Dim p As Integer, q As Integer, r As Integer
result = DI_ReadPort(card, Channel * 5 + Port, databyte)
p = databyte
Select Case Port
Case Channel_P1A
k = Channel * 8
For i = k To k + 7
r = p Mod 2
If r = 0 Then
bit_a(i) = di_0
Else 'r = 1
bit_a(i) = dia_1
End If
p = Int(p / 2)
Next
value_a(Channel) = databyte
Case Channel_P1B
k = Channel * 8
For i = k To k + 7
r = p Mod 2
If r = 0 Then
bit_b(i) = di_0
Else 'r = 1
bit_b(i) = dib_1
End If
p = Int(p / 2)
Next
value_b(Channel) = databyte
Case Channel_P1CH
k = Channel * 4
For i = k To k + 3
r = p Mod 2
If r = 0 Then
bit_cu(i) = di_0
Else 'r = 1
bit_cu(i) = dic_1
End If
p = Int(p / 2)
Next
value_cu(Channel) = databyte
Case Channel_P1CL
k = Channel * 4
For i = k To k + 3
r = p Mod 2
If r = 0 Then
bit_cl(i) = di_0
Else 'r = 1
bit_cl(i) = dic_1
End If
p = Int(p / 2)
Next
value_cl(Channel) = databyte
End Select
End Sub
Private Sub mnuExit_Click()
Dim result As Integer
If card >= 0 Then
result = Release_Card(card)
End If
End
End Sub
Private Sub output_a_Click(Index As Integer)
Dim i As Integer, k As Integer
Shape_a(Index).FillColor = OUTPUT_COLOR
value_a(Index) = &HFF
k = Index * 8
For i = k To k + 7
bit_a(i) = doa_1
Next
k = DIO_PortConfig(card, Index * 5 + Channel_P1A, OUTPUT_PORT)
k = DO_WritePort(card, Index * 5 + Channel_P1A, &HFF)
status_a(Index) = OUTPUT_PORT
End Sub
Private Sub output_b_Click(Index As Integer)
Dim i As Integer, k As Integer
Shape_b(Index).FillColor = OUTPUT_COLOR
value_b(Index) = &HFF
k = Index * 8
For i = k To k + 7
bit_b(i) = dob_1
Next
k = DIO_PortConfig(card, Index * 5 + Channel_P1B, OUTPUT_PORT)
k = DO_WritePort(card, Index * 5 + Channel_P1B, &HFF)
status_b(Index) = OUTPUT_PORT
End Sub
Private Sub output_cl_Click(Index As Integer)
Dim i As Integer, k As Integer
Shape_cl(Index).FillColor = OUTPUT_COLOR
value_cl(Index) = &HF
k = Index * 4
For i = k To k + 3
bit_cl(i) = doc_1
Next
k = DIO_PortConfig(card, Index * 5 + Channel_P1CL, OUTPUT_PORT)
k = DO_WritePort(card, Index * 5 + Channel_P1CL, &HFF)
status_cl(Index) = OUTPUT_PORT
End Sub
Private Sub output_cu_Click(Index As Integer)
Dim i As Integer, k As Integer
Shape_cu(Index).FillColor = OUTPUT_COLOR
value_cu(Index) = &HF
k = Index * 4
For i = k To k + 3
bit_cu(i) = doc_1
Next
k = DIO_PortConfig(card, Index * 5 + Channel_P1CH, OUTPUT_PORT)
k = DO_WritePort(card, Index * 5 + Channel_P1CH, &HFF)
status_cu(Index) = OUTPUT_PORT
End Sub
Private Sub Timer1_Timer()
Dim i As Integer, result As Long
For i = 0 To 3
If status_a(i) = INPUT_PORT Then
InputAndShow i, Channel_P1A
End If
If status_b(i) = INPUT_PORT Then
InputAndShow i, Channel_P1B
End If
If status_cl(i) = INPUT_PORT Then
InputAndShow i, Channel_P1CL
End If
If status_cu(i) = INPUT_PORT Then
InputAndShow i, Channel_P1CH
End If
Next
End Sub