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
Branch: main
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'main'
${ noResults }
leak_test/ADLINK/PCIS-DASK/Samples/9112/VB9112/vb9112.Frm

2172 lines
67 KiB
Raw Permalink Normal View History

리크 테스트 gui
4 weeks ago
VERSION 4.00
Begin VB.Form util9112
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "9112 Sample Program"
ClientHeight = 6390
ClientLeft = 1095
ClientTop = 1650
ClientWidth = 8520
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 = 6795
Left = 1035
LinkTopic = "Form1"
ScaleHeight = 426
ScaleMode = 3 'Pixel
ScaleWidth = 568
Top = 1305
Width = 8640
Begin VB.CommandButton ExitBtn
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Exit"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 6150
TabIndex = 56
Top = 5895
Width = 795
End
Begin VB.Frame Frame3D2
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Range"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 735
Left = 120
TabIndex = 2
Top = 5040
Width = 2055
Begin VB.ComboBox Gain
Appearance = 0 'Flat
Height = 315
Left = 120
Style = 2 'Dropdown List
TabIndex = 3
Top = 320
Width = 1575
End
End
Begin VB.Frame DO_Frame
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Digital Output"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 735
Left = 120
TabIndex = 5
Top = 4260
Width = 5895
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 0
Left = 5520
Picture = "vb9112.frx":0000
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 1
Left = 5160
Picture = "vb9112.frx":0172
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 3
Left = 4440
Picture = "vb9112.frx":02E4
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 2
Left = 4800
Picture = "vb9112.frx":0456
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 4
Left = 4080
Picture = "vb9112.frx":05C8
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 5
Left = 3720
Picture = "vb9112.frx":073A
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 6
Left = 3360
Picture = "vb9112.frx":08AC
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 7
Left = 3000
Picture = "vb9112.frx":0A1E
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 8
Left = 2640
Picture = "vb9112.frx":0B90
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 9
Left = 2280
Picture = "vb9112.frx":0D02
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 10
Left = 1920
Picture = "vb9112.frx":0E74
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 11
Left = 1560
Picture = "vb9112.frx":0FE6
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 12
Left = 1200
Picture = "vb9112.frx":1158
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 13
Left = 840
Picture = "vb9112.frx":12CA
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 14
Left = 480
Picture = "vb9112.frx":143C
Top = 280
Width = 300
End
Begin VB.Image DOP
Appearance = 0 'Flat
Height = 300
Index = 15
Left = 120
Picture = "vb9112.frx":15AE
Top = 280
Width = 300
End
End
Begin VB.Frame DI_Frame
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Digital Input"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 735
Left = 120
TabIndex = 6
Top = 3300
Width = 5895
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 15
Left = 120
Picture = "vb9112.frx":1720
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 14
Left = 480
Picture = "vb9112.frx":1892
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 13
Left = 840
Picture = "vb9112.frx":1A04
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 12
Left = 1200
Picture = "vb9112.frx":1B76
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 11
Left = 1560
Picture = "vb9112.frx":1CE8
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 10
Left = 1920
Picture = "vb9112.frx":1E5A
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 9
Left = 2280
Picture = "vb9112.frx":1FCC
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 8
Left = 2640
Picture = "vb9112.frx":213E
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 7
Left = 3000
Picture = "vb9112.frx":22B0
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 6
Left = 3360
Picture = "vb9112.frx":2422
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 5
Left = 3720
Picture = "vb9112.frx":2594
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 4
Left = 4080
Picture = "vb9112.frx":2706
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 3
Left = 4440
Picture = "vb9112.frx":2878
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 2
Left = 4800
Picture = "vb9112.frx":29EA
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 1
Left = 5160
Picture = "vb9112.frx":2B5C
Top = 280
Width = 300
End
Begin VB.Image DI
Appearance = 0 'Flat
Height = 300
Index = 0
Left = 5520
Picture = "vb9112.frx":2CCE
Top = 280
Width = 300
End
End
Begin VB.Frame DA_Frame
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Analog Output (D/A)"
ForeColor = &H00FF0000&
Height = 2535
Left = 6120
TabIndex = 7
Top = 3270
Width = 2415
Begin VB.ComboBox DA_Wave
Appearance = 0 'Flat
Height = 315
Left = 1080
Style = 2 'Dropdown List
TabIndex = 8
Top = 360
Width = 1215
End
Begin VB.Line pin
BorderColor = &H0000FFFF&
BorderWidth = 2
X1 = 1140
X2 = 1020
Y1 = 1680
Y2 = 1800
End
Begin VB.Label dal
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Channel 0:"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 0
Left = 120
TabIndex = 9
Top = 420
Width = 975
End
Begin VB.Label dal
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Channel 1:"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 1
Left = 120
TabIndex = 10
Top = 780
Width = 975
End
Begin VB.Label mark
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "5"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 5
Left = 1500
TabIndex = 11
Top = 1980
Width = 195
End
Begin VB.Label mark
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "4"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 4
Left = 1620
TabIndex = 12
Top = 1500
Width = 195
End
Begin VB.Label mark
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "3"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 3
Left = 1320
TabIndex = 14
Top = 1080
Width = 195
End
Begin VB.Label mark
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 2
Left = 840
TabIndex = 15
Top = 1080
Width = 195
End
Begin VB.Label mark
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 1
Left = 540
TabIndex = 16
Top = 1500
Width = 195
End
Begin VB.Label mark
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "0"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 0
Left = 660
TabIndex = 17
Top = 1980
Width = 195
End
Begin VB.Label AO_value
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H0000FFFF&
BorderStyle = 1 'Fixed Single
Caption = "0.00"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 900
TabIndex = 18
Top = 2160
Width = 555
End
Begin VB.Image Tuner
Appearance = 0 'Flat
Height = 750
Left = 720
Picture = "vb9112.frx":2E40
Top = 1260
Width = 900
End
End
Begin VB.Frame Channel_Frame
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Channel"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 1335
Index = 1
Left = 6360
TabIndex = 19
Top = 1680
Width = 1575
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "15"
ForeColor = &H80000008&
Height = 195
Index = 24
Left = 780
TabIndex = 20
Top = 960
Width = 240
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "14"
ForeColor = &H80000008&
Height = 195
Index = 25
Left = 780
TabIndex = 21
Top = 720
Width = 240
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "13"
ForeColor = &H80000008&
Height = 195
Index = 26
Left = 780
TabIndex = 22
Top = 480
Width = 240
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "12"
ForeColor = &H80000008&
Height = 195
Index = 27
Left = 780
TabIndex = 23
Top = 240
Width = 240
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "11"
ForeColor = &H80000008&
Height = 195
Index = 28
Left = 120
TabIndex = 24
Top = 960
Width = 240
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "10"
ForeColor = &H80000008&
Height = 195
Index = 29
Left = 120
TabIndex = 25
Top = 720
Width = 240
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "9"
ForeColor = &H80000008&
Height = 195
Index = 30
Left = 210
TabIndex = 26
Top = 480
Width = 135
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "8"
ForeColor = &H80000008&
Height = 195
Index = 31
Left = 210
TabIndex = 27
Top = 240
Width = 135
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 8
Left = 390
Picture = "vb9112.frx":3502
Stretch = -1 'True
Top = 240
Width = 270
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 9
Left = 390
Picture = "vb9112.frx":362C
Stretch = -1 'True
Top = 480
Width = 270
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 10
Left = 390
Picture = "vb9112.frx":3756
Stretch = -1 'True
Top = 720
Width = 270
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 11
Left = 390
Picture = "vb9112.frx":3880
Stretch = -1 'True
Top = 960
Width = 270
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 12
Left = 1050
Picture = "vb9112.frx":39AA
Stretch = -1 'True
Top = 240
Width = 270
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 13
Left = 1050
Picture = "vb9112.frx":3AD4
Stretch = -1 'True
Top = 480
Width = 270
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 14
Left = 1050
Picture = "vb9112.frx":3BFE
Stretch = -1 'True
Top = 720
Width = 270
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 15
Left = 1050
Picture = "vb9112.frx":3D28
Stretch = -1 'True
Top = 960
Width = 270
End
End
Begin VB.Frame Channel_Frame
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Channel"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 1335
Index = 0
Left = 6360
TabIndex = 28
Top = 360
Width = 1575
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 7
Left = 1080
Picture = "vb9112.frx":3E52
Stretch = -1 'True
Top = 960
Width = 270
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 6
Left = 1080
Picture = "vb9112.frx":3F7C
Stretch = -1 'True
Top = 720
Width = 270
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 5
Left = 1080
Picture = "vb9112.frx":40A6
Stretch = -1 'True
Top = 480
Width = 270
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 4
Left = 1080
Picture = "vb9112.frx":41D0
Stretch = -1 'True
Top = 240
Width = 270
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 3
Left = 420
Picture = "vb9112.frx":42FA
Stretch = -1 'True
Top = 960
Width = 270
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 2
Left = 420
Picture = "vb9112.frx":4424
Stretch = -1 'True
Top = 720
Width = 270
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 1
Left = 420
Picture = "vb9112.frx":454E
Stretch = -1 'True
Top = 480
Width = 270
End
Begin VB.Image Channel
Appearance = 0 'Flat
BorderStyle = 1 'Fixed Single
Height = 210
Index = 0
Left = 420
Picture = "vb9112.frx":4678
Stretch = -1 'True
Top = 240
Width = 270
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "0"
ForeColor = &H80000008&
Height = 195
Index = 14
Left = 240
TabIndex = 29
Top = 240
Width = 135
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "1"
ForeColor = &H80000008&
Height = 195
Index = 13
Left = 240
TabIndex = 30
Top = 480
Width = 135
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "2"
ForeColor = &H80000008&
Height = 195
Index = 12
Left = 240
TabIndex = 31
Top = 720
Width = 135
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "3"
ForeColor = &H80000008&
Height = 195
Index = 11
Left = 240
TabIndex = 32
Top = 960
Width = 135
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "4"
ForeColor = &H80000008&
Height = 195
Index = 10
Left = 900
TabIndex = 33
Top = 240
Width = 135
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "5"
ForeColor = &H80000008&
Height = 195
Index = 9
Left = 900
TabIndex = 34
Top = 480
Width = 135
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "6"
ForeColor = &H80000008&
Height = 195
Index = 8
Left = 900
TabIndex = 35
Top = 720
Width = 135
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "7"
ForeColor = &H80000008&
Height = 195
Index = 7
Left = 900
TabIndex = 36
Top = 960
Width = 135
End
End
Begin VB.Frame AD_Frame
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Analog Input (A/D)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 3255
Left = 240
TabIndex = 42
Top = 0
Width = 7935
Begin VB.PictureBox Signal
Appearance = 0 'Flat
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1200
Index = 0
Left = 900
ScaleHeight = 80
ScaleMode = 3 'Pixel
ScaleWidth = 333
TabIndex = 37
Top = 480
Width = 4995
End
Begin VB.PictureBox Signal
Appearance = 0 'Flat
BackColor = &H00000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1200
Index = 1
Left = 900
ScaleHeight = 80
ScaleMode = 3 'Pixel
ScaleWidth = 333
TabIndex = 51
Top = 1800
Width = 4995
End
Begin VB.Line Line1
Index = 4
X1 = 840
X2 = 900
Y1 = 1665
Y2 = 1665
End
Begin VB.Line Line1
Index = 3
X1 = 840
X2 = 900
Y1 = 1380
Y2 = 1380
End
Begin VB.Line Line1
Index = 2
X1 = 840
X2 = 900
Y1 = 1080
Y2 = 1080
End
Begin VB.Line Line1
Index = 1
X1 = 840
X2 = 900
Y1 = 780
Y2 = 780
End
Begin VB.Line Line1
Index = 0
X1 = 840
X2 = 900
Y1 = 480
Y2 = 480
End
Begin VB.Line Line1
Index = 5
X1 = 840
X2 = 900
Y1 = 1800
Y2 = 1800
End
Begin VB.Line Line1
Index = 6
X1 = 840
X2 = 900
Y1 = 2100
Y2 = 2100
End
Begin VB.Line Line1
Index = 7
X1 = 840
X2 = 900
Y1 = 2400
Y2 = 2400
End
Begin VB.Line Line1
Index = 8
X1 = 840
X2 = 900
Y1 = 2700
Y2 = 2700
End
Begin VB.Line Line1
Index = 9
X1 = 840
X2 = 900
Y1 = 2985
Y2 = 2985
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "-5.00"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 6
Left = 345
TabIndex = 38
Top = 1590
Width = 480
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "-2.50"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 5
Left = 345
TabIndex = 39
Top = 1350
Width = 480
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "0.00"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 4
Left = 345
TabIndex = 40
Top = 1050
Width = 480
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "2.50"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 3
Left = 345
TabIndex = 41
Top = 750
Width = 480
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "5.00"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 2
Left = 345
TabIndex = 43
Top = 420
Width = 480
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "V"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 1
Left = 240
TabIndex = 44
Top = 690
Width = 135
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Signals"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 0
Left = 3060
TabIndex = 45
Top = 240
Width = 735
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "O"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 15
Left = 240
TabIndex = 46
Top = 1110
Width = 135
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "L"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 16
Left = 240
TabIndex = 47
Top = 1470
Width = 135
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "T"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 17
Left = 240
TabIndex = 48
Top = 1890
Width = 135
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "S"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 18
Left = 240
TabIndex = 49
Top = 2310
Width = 135
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "5.00"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 19
Left = 345
TabIndex = 50
Top = 1800
Width = 480
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "2.50"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 20
Left = 345
TabIndex = 52
Top = 2070
Width = 480
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "0.00"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 21
Left = 345
TabIndex = 53
Top = 2370
Width = 480
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "-2.50"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 22
Left = 345
TabIndex = 54
Top = 2670
Width = 480
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "-5.00"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Serif"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 23
Left = 345
TabIndex = 55
Top = 2910
Width = 480
End
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 70
Left = 1920
Top = 5760
End
Begin VB.CommandButton StopBtn
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Stop"
Enabled = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3960
TabIndex = 4
Top = 5895
Width = 795
End
Begin VB.CommandButton StartBtn
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Start"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3060
TabIndex = 0
Top = 5895
Width = 795
End
Begin VB.CommandButton PauseBtn
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Pause"
Enabled = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4860
TabIndex = 1
Top = 5895
Width = 795
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0"
ForeColor = &H80000008&
Height = 195
Left = 240
TabIndex = 13
Top = 4080
Width = 5775
End
Begin VB.Image Image0
Appearance = 0 'Flat
Height = 300
Left = 2400
Picture = "vb9112.frx":47A2
Top = 5820
Visible = 0 'False
Width = 300
End
Begin VB.Image Image1
Appearance = 0 'Flat
Height = 300
Left = 2700
Picture = "vb9112.frx":4914
Top = 5820
Visible = 0 'False
Width = 300
End
Begin VB.Image ChDn
Appearance = 0 'Flat
Height = 210
Index = 0
Left = -180
Picture = "vb9112.frx":4A86
Top = 5760
Visible = 0 'False
Width = 270
End
Begin VB.Image ChDn
Appearance = 0 'Flat
Height = 210
Index = 1
Left = 60
Picture = "vb9112.frx":4BB0
Top = 5760
Visible = 0 'False
Width = 270
End
Begin VB.Image ChDn
Appearance = 0 'Flat
Height = 210
Index = 2
Left = 300
Picture = "vb9112.frx":4CDA
Top = 5760
Visible = 0 'False
Width = 270
End
Begin VB.Image ChDn
Appearance = 0 'Flat
Height = 210
Index = 3
Left = 540
Picture = "vb9112.frx":4E04
Top = 5760
Visible = 0 'False
Width = 270
End
Begin VB.Image ChDn
Appearance = 0 'Flat
Height = 210
Index = 4
Left = 780
Picture = "vb9112.frx":4F2E
Top = 5760
Visible = 0 'False
Width = 270
End
Begin VB.Image ChDn
Appearance = 0 'Flat
Height = 210
Index = 5
Left = 1020
Picture = "vb9112.frx":5058
Top = 5760
Visible = 0 'False
Width = 270
End
Begin VB.Image ChDn
Appearance = 0 'Flat
Height = 210
Index = 6
Left = 1260
Picture = "vb9112.frx":5182
Top = 5760
Visible = 0 'False
Width = 270
End
Begin VB.Image ChDn
Appearance = 0 'Flat
Height = 210
Index = 7
Left = 1500
Picture = "vb9112.frx":52AC
Top = 5760
Visible = 0 'False
Width = 270
End
Begin VB.Image ChUp
Appearance = 0 'Flat
Height = 210
Index = 0
Left = -180
Picture = "vb9112.frx":53D6
Top = 5940
Visible = 0 'False
Width = 270
End
Begin VB.Image ChUp
Appearance = 0 'Flat
Height = 210
Index = 1
Left = 60
Picture = "vb9112.frx":5500
Top = 5940
Visible = 0 'False
Width = 270
End
Begin VB.Image ChUp
Appearance = 0 'Flat
Height = 210
Index = 2
Left = 300
Picture = "vb9112.frx":562A
Top = 5940
Visible = 0 'False
Width = 270
End
Begin VB.Image ChUp
Appearance = 0 'Flat
Height = 210
Index = 3
Left = 540
Picture = "vb9112.frx":5754
Top = 5940
Visible = 0 'False
Width = 270
End
Begin VB.Image ChUp
Appearance = 0 'Flat
Height = 210
Index = 4
Left = 780
Picture = "vb9112.frx":587E
Top = 5940
Visible = 0 'False
Width = 270
End
Begin VB.Image ChUp
Appearance = 0 'Flat
Height = 210
Index = 5
Left = 1020
Picture = "vb9112.frx":59A8
Top = 5940
Visible = 0 'False
Width = 270
End
Begin VB.Image ChUp
Appearance = 0 'Flat
Height = 210
Index = 6
Left = 1260
Picture = "vb9112.frx":5AD2
Top = 5940
Visible = 0 'False
Width = 270
End
Begin VB.Image ChUp
Appearance = 0 'Flat
Height = 210
Index = 7
Left = 1500
Picture = "vb9112.frx":5BFC
Top = 5940
Visible = 0 'False
Width = 270
End
End
Attribute VB_Name = "util9112"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim range_value(9) As Integer
Dim PrevP(15) As Long
Dim ChannelOn(15) As Long
Dim SignalColor(15) As Long
Dim Active As Long
Dim NewStart As Long
Dim status(15) As Long
Dim angle As Single
Dim sq As Integer
Dim gnDoValue As Long
Const SINE_WAVE = 0
Const SQUARE_WAVE = 1
'For tuner
Const Pi = 3.14159
Const MaxAngle = 4 '5Pi/4
Const MinAngle = -0.8 '-Pi/4
Dim x0 As Long, y0 As Long
Dim DragOn As Long
Dim l As Long
Dim lb As Single, ub As Single
Private Function ArcCos(p As Single) As Single
If p <= -1 Then
ArcCos = Pi
Exit Function
ElseIf p >= 1 Then
ArcCos = 0
Exit Function
End If
ArcCos = Atn(-p / Sqr(-p * p + 1)) + 1.5708
End Function
Sub Scale_Change(ByVal g As Long)
Select Case g
Case 0
Label1(2).Caption = "5.0"
Label1(3).Caption = "2.5"
Label1(4).Caption = "0.0"
Label1(5).Caption = "-2.5"
Label1(6).Caption = "-5.0"
Case 1
Label1(2).Caption = "2.50"
Label1(3).Caption = "1.25"
Label1(4).Caption = "0.00"
Label1(5).Caption = "-1.25"
Label1(6).Caption = "-2.50"
Case 2
Label1(2).Caption = "1.250"
Label1(3).Caption = "0.625"
Label1(4).Caption = "0.00"
Label1(5).Caption = "-0.625"
Label1(6).Caption = "-1.250"
Case 3
Label1(2).Caption = "0.6250"
Label1(3).Caption = "0.3125"
Label1(4).Caption = "0.0000"
Label1(5).Caption = "-0.3125"
Label1(6).Caption = "-0.6250"
Case 4
Label1(2).Caption = "10"
Label1(3).Caption = "7.5"
Label1(4).Caption = "5.0"
Label1(5).Caption = "2.5"
Label1(6).Caption = "0.0"
Case 5
Label1(2).Caption = "5.00"
Label1(3).Caption = "3.75"
Label1(4).Caption = "2.50"
Label1(5).Caption = "1.25"
Label1(6).Caption = "0.00"
Case 6
Label1(2).Caption = "2.500"
Label1(3).Caption = "1.875"
Label1(4).Caption = "1.250"
Label1(5).Caption = "0.625"
Label1(6).Caption = "0.000"
Case 7
Label1(2).Caption = "1.2500"
Label1(3).Caption = "0.9375"
Label1(4).Caption = "0.6250"
Label1(5).Caption = "0.3125"
Label1(6).Caption = "0.0000"
Case 8
Label1(2).Caption = "10"
Label1(3).Caption = "5.0"
Label1(4).Caption = "0.0"
Label1(5).Caption = "-5.0"
Label1(6).Caption = "-10"
End Select
Label1(19).Caption = Label1(2).Caption
Label1(20).Caption = Label1(3).Caption
Label1(21).Caption = Label1(4).Caption
Label1(22).Caption = Label1(5).Caption
Label1(23).Caption = Label1(6).Caption
End Sub
Private Sub Channel_Click(Index As Integer)
If ChannelOn(Index) Then
If Index < 8 Then
Channel(Index) = ChUp(Index)
Else
Channel(Index) = ChUp(Index - 8)
End If
Else
If Index < 8 Then
Channel(Index) = ChDn(Index)
Else
Channel(Index) = ChDn(Index - 8)
End If
End If
ChannelOn(Index) = Not ChannelOn(Index)
End Sub
Private Sub DOP_Click(Index As Integer)
Dim i As Integer, v As Integer, d As Long
If Active Then
If status(Index) = 1 Then
DOP(Index) = Image0
status(Index) = 0
d = 1
For i = 1 To Index
d = d * 2
Next
gnDoValue = gnDoValue - d
Else
DOP(Index) = Image1
status(Index) = 1
d = 1
For i = 1 To Index
d = d * 2
Next
gnDoValue = gnDoValue + d
End If
v = DO_WritePort(card, 0, gnDoValue)
End If
End Sub
Private Sub ExitBtn_Click()
Dim result As Integer
If card >= 0 Then
result = Release_Card(card)
End If
End
End Sub
Private Sub Form_Load()
Dim i As Long
Dim result As Integer
SettingForm.Show 1
If card < 0 Then
MsgBox "Register card failed."
End
End If
For i = 0 To 15
PrevP(i) = -1
ChannelOn(i) = False
Next
For i = 0 To 15
status(i) = 0
Next
NewStart = True
Active = False
'gnDoValue = 0
gain.AddItem "+/- 5V"
gain.AddItem "+/- 2.5V"
gain.AddItem "+/- 1.25V"
gain.AddItem "+/- 0.625V"
gain.AddItem "0V~10V"
gain.AddItem "0V~5V"
gain.AddItem "0V~2.5V"
gain.AddItem "0V~1.25V"
gain.AddItem "+/- 10V"
range_value(0) = 2
range_value(1) = 3
range_value(2) = 4
range_value(3) = 5
range_value(4) = 15
range_value(5) = 16
range_value(6) = 17
range_value(7) = 18
range_value(8) = 1
gain.ListIndex = 0
DA_Wave.AddItem "Sine Wave"
DA_Wave.AddItem "Square Wave"
SignalColor(0) = &HFFFF&
SignalColor(1) = &H8000&
SignalColor(2) = &HFF0000
SignalColor(3) = &HFF&
SignalColor(4) = &HFFFF00
SignalColor(5) = &HFF00FF
SignalColor(6) = &HFF00&
SignalColor(7) = &HFFFFFF
SignalColor(8) = &HFFFF&
SignalColor(9) = &H8000&
SignalColor(10) = &HFF0000
SignalColor(11) = &HFF&
SignalColor(12) = &HFFFF00
SignalColor(13) = &HFF00FF
SignalColor(14) = &HFF00&
SignalColor(15) = &HFFFFFF
'For tuner
x0 = pin.X1
y0 = pin.Y1
l = Sqr(((pin.X2 - x0) ^ 2) + ((pin.Y2 - y0) ^ 2))
lb = 0
ub = 5
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim result As Integer
If card >= 0 Then
result = Release_Card(card)
End If
End Sub
Private Sub Gain_Click()
Dim result As Long
Scale_Change gain.ListIndex
End Sub
Private Sub PauseBtn_Click()
Timer1.Enabled = False
Active = False
NewStart = False
StartBtn.Enabled = True
PauseBtn.Enabled = False
End Sub
Private Sub StartBtn_Click()
StartBtn.Enabled = False
StopBtn.Enabled = True
PauseBtn.Enabled = True
Active = True
If NewStart Then
Signal(0).Cls
Signal(1).Cls
gnDoValue = 0
angle = 0
sq = 0
End If
Timer1.Enabled = True
End Sub
Private Sub StopBtn_Click()
Dim i As Integer
Timer1.Enabled = False
For i = 0 To 15
PrevP(i) = -1
Next
For i = 0 To 15
status(i) = 0
DOP(i) = Image0
Next
i = DO_WritePort(card, 0, 0)
Active = False
NewStart = True
StartBtn.Enabled = True
StopBtn.Enabled = False
PauseBtn.Enabled = False
End Sub
Private Sub Timer1_Timer()
Dim result As Integer
Dim i As Integer, j As Integer
Dim d As Integer, l As Long
Dim p As Integer
Dim h As Long
Dim m As Single
' Do While Contd
'Analog-Digital Input
result = BitBlt(Signal(0).hDC, 4, 0, Signal(0).Width / Screen.TwipsPerPixelX, Signal(0).Height / Screen.TwipsPerPixelY, Signal(0).hDC, 0, 0, SRCCOPY)
result = BitBlt(Signal(1).hDC, 4, 0, Signal(1).Width / Screen.TwipsPerPixelX, Signal(1).Height / Screen.TwipsPerPixelY, Signal(1).hDC, 0, 0, SRCCOPY)
For i = 0 To 15
If ChannelOn(i) Then
result = AI_ReadChannel(card, i, range_value(gain.ListIndex), d)
l = d
If l < 0 Then
l = l + 65536
End If
l = (l And &HFFF0) / 16
If i < 8 Then
p = (4095 - CSng(l)) / 4095 * (Signal(0).Height / Screen.TwipsPerPixelY - 2)
If PrevP(i) <> -1 Then Signal(0).Line (4, p)-(8, PrevP(i)), SignalColor(i)
Else
p = (4095 - CSng(l)) / 4095 * (Signal(1).Height / Screen.TwipsPerPixelY - 2)
If PrevP(i) <> -1 Then
Signal(1).Line (4, p)-(8, PrevP(i)), SignalColor(i)
End If
End If
PrevP(i) = p
End If
Next i
'Digital Input
result = DI_ReadPort(card, 0, l)
For i = 0 To 15
p = l Mod 2
If p = 0 Then
DI(i) = Image0
Else 'p = 1
DI(i) = Image1
End If
l = CInt(Int(l / 2))
Next i
'Analog Output
Select Case DA_Wave.ListIndex
Case SINE_WAVE:
m = Sin(angle)
angle = angle + Pi / 36
p = CInt(m * 2048 + 2048)
If p >= 4096 Then p = 4095
result = AO_WriteChannel(card, 0, p)
Case SQUARE_WAVE:
result = AO_WriteChannel(card, 0, sq)
If (angle Mod 36) = 0 Then
If sq = 0 Then sq = 4095 Else sq = 0
End If
angle = angle + 1
End Select
End Sub
Private Sub Tuner_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim dx As Long, dy As Long
dx = X + Tuner.Left - pin.X2
dy = Y + Tuner.Top - pin.Y2
If dx > -50 And dx < 50 And dy > -50 And dy < 50 Then
DragOn = True
End If
End Sub
Private Sub Tuner_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim r As Single, p As Single
Dim d As Long
Dim dx As Long, dy As Long
Dim q As Integer, result As Integer
If DragOn Then
dx = X + Tuner.Left - x0
dy = Y + Tuner.Top - y0
d = Sqr(dx ^ 2 + dy ^ 2)
r = ArcCos(CSng(dx / d))
If dy > 0 And dx < 0 Then r = 2 * Pi - r
If dy > 0 And dx >= 0 Then r = -r
If r <= MaxAngle And r >= MinAngle Then
pin.X2 = x0 + CInt(l * dx / d)
pin.Y2 = y0 + CInt(l * dy / d)
p = ub - (ub - lb) * (2 * r + Pi / 2) / (3 * Pi)
If p > ub Then
p = ub
ElseIf p < lb Then
p = lb
End If
AO_value.Caption = Format(p, "#0.00")
q = CInt((p - lb) * 4095 / (ub - lb))
result = AO_WriteChannel(card, 1, q)
End If
End If
End Sub
Private Sub Tuner_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
DragOn = False
End Sub