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.
1669 lines
51 KiB
1669 lines
51 KiB
VERSION 4.00
|
|
Begin VB.Form util9118
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "9118HG Sample Program"
|
|
ClientHeight = 6480
|
|
ClientLeft = 345
|
|
ClientTop = 1515
|
|
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 = 6885
|
|
Left = 285
|
|
LinkTopic = "Form1"
|
|
ScaleHeight = 432
|
|
ScaleMode = 3 'Pixel
|
|
ScaleWidth = 568
|
|
Top = 1170
|
|
Width = 8640
|
|
Begin VB.Frame CardType
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Card Type"
|
|
ForeColor = &H00000000&
|
|
Height = 855
|
|
Left = 6600
|
|
TabIndex = 48
|
|
Top = 5280
|
|
Width = 1575
|
|
Begin VB.ComboBox CardName
|
|
Appearance = 0 'Flat
|
|
ForeColor = &H00000000&
|
|
Height = 315
|
|
Left = 120
|
|
TabIndex = 49
|
|
Text = "CardName"
|
|
Top = 360
|
|
Width = 1335
|
|
End
|
|
End
|
|
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 = 5610
|
|
TabIndex = 47
|
|
Top = 5415
|
|
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 = 6180
|
|
TabIndex = 2
|
|
Top = 3300
|
|
Width = 2055
|
|
Begin VB.ComboBox Gain
|
|
Height = 315
|
|
Left = 300
|
|
TabIndex = 3
|
|
Text = "Gain"
|
|
Top = 315
|
|
Width = 1395
|
|
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 = "vb9118.frx":0000
|
|
Top = 280
|
|
Width = 300
|
|
End
|
|
Begin VB.Image DOP
|
|
Appearance = 0 'Flat
|
|
Height = 300
|
|
Index = 1
|
|
Left = 5160
|
|
Picture = "vb9118.frx":0172
|
|
Top = 280
|
|
Width = 300
|
|
End
|
|
Begin VB.Image DOP
|
|
Appearance = 0 'Flat
|
|
Height = 300
|
|
Index = 3
|
|
Left = 4440
|
|
Picture = "vb9118.frx":02E4
|
|
Top = 280
|
|
Width = 300
|
|
End
|
|
Begin VB.Image DOP
|
|
Appearance = 0 'Flat
|
|
Height = 300
|
|
Index = 2
|
|
Left = 4800
|
|
Picture = "vb9118.frx":0456
|
|
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 = 3
|
|
Left = 4440
|
|
Picture = "vb9118.frx":05C8
|
|
Top = 280
|
|
Width = 300
|
|
End
|
|
Begin VB.Image DI
|
|
Appearance = 0 'Flat
|
|
Height = 300
|
|
Index = 2
|
|
Left = 4800
|
|
Picture = "vb9118.frx":073A
|
|
Top = 280
|
|
Width = 300
|
|
End
|
|
Begin VB.Image DI
|
|
Appearance = 0 'Flat
|
|
Height = 300
|
|
Index = 1
|
|
Left = 5160
|
|
Picture = "vb9118.frx":08AC
|
|
Top = 280
|
|
Width = 300
|
|
End
|
|
Begin VB.Image DI
|
|
Appearance = 0 'Flat
|
|
Height = 300
|
|
Index = 0
|
|
Left = 5520
|
|
Picture = "vb9118.frx":0A1E
|
|
Top = 280
|
|
Width = 300
|
|
End
|
|
End
|
|
Begin VB.Frame DA_Frame
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Analog Output (D/A)"
|
|
ForeColor = &H00FF0000&
|
|
Height = 855
|
|
Left = 6180
|
|
TabIndex = 7
|
|
Top = 4200
|
|
Width = 2055
|
|
Begin VB.ComboBox DA_Wave
|
|
Height = 315
|
|
Left = 240
|
|
TabIndex = 8
|
|
Text = "DA_Wave"
|
|
Top = 360
|
|
Width = 1575
|
|
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 = 10
|
|
Top = 1680
|
|
Width = 1575
|
|
Begin VB.Label Label1
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "15"
|
|
ForeColor = &H80000008&
|
|
Height = 195
|
|
Index = 24
|
|
Left = 780
|
|
TabIndex = 11
|
|
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 = 12
|
|
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 = 13
|
|
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 = 14
|
|
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 = 15
|
|
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 = 16
|
|
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 = 17
|
|
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 = 18
|
|
Top = 240
|
|
Width = 135
|
|
End
|
|
Begin VB.Image Channel
|
|
Appearance = 0 'Flat
|
|
BorderStyle = 1 'Fixed Single
|
|
Height = 210
|
|
Index = 8
|
|
Left = 390
|
|
Picture = "vb9118.frx":0B90
|
|
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 = "vb9118.frx":0CBA
|
|
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 = "vb9118.frx":0DE4
|
|
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 = "vb9118.frx":0F0E
|
|
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 = "vb9118.frx":1038
|
|
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 = "vb9118.frx":1162
|
|
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 = "vb9118.frx":128C
|
|
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 = "vb9118.frx":13B6
|
|
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 = 19
|
|
Top = 360
|
|
Width = 1575
|
|
Begin VB.Image Channel
|
|
Appearance = 0 'Flat
|
|
BorderStyle = 1 'Fixed Single
|
|
Height = 210
|
|
Index = 7
|
|
Left = 1080
|
|
Picture = "vb9118.frx":14E0
|
|
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 = "vb9118.frx":160A
|
|
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 = "vb9118.frx":1734
|
|
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 = "vb9118.frx":185E
|
|
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 = "vb9118.frx":1988
|
|
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 = "vb9118.frx":1AB2
|
|
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 = "vb9118.frx":1BDC
|
|
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 = "vb9118.frx":1D06
|
|
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 = 20
|
|
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 = 21
|
|
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 = 22
|
|
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 = 23
|
|
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 = 24
|
|
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 = 25
|
|
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 = 26
|
|
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 = 27
|
|
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 = 33
|
|
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 = 28
|
|
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 = 42
|
|
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 = 29
|
|
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 = 30
|
|
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 = 31
|
|
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 = 32
|
|
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 = 34
|
|
Top = 450
|
|
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 = 35
|
|
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 = 36
|
|
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 = 37
|
|
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 = 38
|
|
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 = 39
|
|
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 = 40
|
|
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 = 41
|
|
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 = 43
|
|
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 = 44
|
|
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 = 45
|
|
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 = 46
|
|
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 = 3420
|
|
TabIndex = 4
|
|
Top = 5415
|
|
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 = 2520
|
|
TabIndex = 0
|
|
Top = 5415
|
|
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 = 4320
|
|
TabIndex = 1
|
|
Top = 5415
|
|
Width = 795
|
|
End
|
|
Begin VB.Label Label2
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = " 3 2 1 0"
|
|
ForeColor = &H80000008&
|
|
Height = 195
|
|
Left = 240
|
|
TabIndex = 9
|
|
Top = 4080
|
|
Width = 5775
|
|
End
|
|
Begin VB.Image Image0
|
|
Appearance = 0 'Flat
|
|
Height = 300
|
|
Left = 2400
|
|
Picture = "vb9118.frx":1E30
|
|
Top = 5820
|
|
Visible = 0 'False
|
|
Width = 300
|
|
End
|
|
Begin VB.Image Image1
|
|
Appearance = 0 'Flat
|
|
Height = 300
|
|
Left = 2700
|
|
Picture = "vb9118.frx":1FA2
|
|
Top = 5820
|
|
Visible = 0 'False
|
|
Width = 300
|
|
End
|
|
Begin VB.Image ChDn
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 0
|
|
Left = -180
|
|
Picture = "vb9118.frx":2114
|
|
Top = 5760
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChDn
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 1
|
|
Left = 60
|
|
Picture = "vb9118.frx":223E
|
|
Top = 5760
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChDn
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 2
|
|
Left = 300
|
|
Picture = "vb9118.frx":2368
|
|
Top = 5760
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChDn
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 3
|
|
Left = 540
|
|
Picture = "vb9118.frx":2492
|
|
Top = 5760
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChDn
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 4
|
|
Left = 780
|
|
Picture = "vb9118.frx":25BC
|
|
Top = 5760
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChDn
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 5
|
|
Left = 1020
|
|
Picture = "vb9118.frx":26E6
|
|
Top = 5760
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChDn
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 6
|
|
Left = 1260
|
|
Picture = "vb9118.frx":2810
|
|
Top = 5760
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChDn
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 7
|
|
Left = 1500
|
|
Picture = "vb9118.frx":293A
|
|
Top = 5760
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChUp
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 0
|
|
Left = -180
|
|
Picture = "vb9118.frx":2A64
|
|
Top = 5940
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChUp
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 1
|
|
Left = 60
|
|
Picture = "vb9118.frx":2B8E
|
|
Top = 5940
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChUp
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 2
|
|
Left = 300
|
|
Picture = "vb9118.frx":2CB8
|
|
Top = 5940
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChUp
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 3
|
|
Left = 540
|
|
Picture = "vb9118.frx":2DE2
|
|
Top = 5940
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChUp
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 4
|
|
Left = 780
|
|
Picture = "vb9118.frx":2F0C
|
|
Top = 5940
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChUp
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 5
|
|
Left = 1020
|
|
Picture = "vb9118.frx":3036
|
|
Top = 5940
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChUp
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 6
|
|
Left = 1260
|
|
Picture = "vb9118.frx":3160
|
|
Top = 5940
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
Begin VB.Image ChUp
|
|
Appearance = 0 'Flat
|
|
Height = 210
|
|
Index = 7
|
|
Left = 1500
|
|
Picture = "vb9118.frx":328A
|
|
Top = 5940
|
|
Visible = 0 'False
|
|
Width = 270
|
|
End
|
|
End
|
|
Attribute VB_Name = "util9118"
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Dim PrevP(15) As Long
|
|
Dim ChannelOn(15) As Long
|
|
Dim SignalColor(15) As Long
|
|
Dim range_value(8) As Integer
|
|
Dim Active As Long
|
|
Dim NewStart As Long
|
|
Dim status(15) As Long
|
|
Dim angle As Single
|
|
Dim sq As Integer
|
|
Dim gnAddr As Long
|
|
Dim gnIrq As Long
|
|
Dim gnDoValue As Long
|
|
|
|
Const SINE_WAVE = 0
|
|
Const SQUARE_WAVE = 1
|
|
Const Pi = 3.14159
|
|
|
|
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
|
|
|
|
Sub Combo1_Change()
|
|
End Sub
|
|
|
|
Private Sub DOP_Click(Index As Integer)
|
|
Dim i As Integer
|
|
Dim v As Integer, d As Long
|
|
Dim do_data As Integer
|
|
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
|
|
'translate unsigned value to signed integer
|
|
If (gnDoValue > 32767) Then
|
|
do_data = gnDoValue - 65536
|
|
Else
|
|
do_data = gnDoValue
|
|
End If
|
|
'v = W_9118_DO(0, do_data)
|
|
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 result As Integer
|
|
Dim i 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
|
|
result = DO_WritePort(card, 0, gnDoValue)
|
|
|
|
gain.AddItem "+/- 5V"
|
|
gain.AddItem "+/- 0.5V"
|
|
gain.AddItem "+/- 0.05V"
|
|
gain.AddItem "+/- 0.005V"
|
|
gain.AddItem "0 ~ 10V"
|
|
gain.AddItem "0 ~ 1V"
|
|
gain.AddItem "0 ~ 0.1V"
|
|
gain.AddItem "0 ~ 0.01V"
|
|
|
|
CardName.AddItem "9118HG"
|
|
|
|
range_value(0) = 2
|
|
range_value(1) = 7
|
|
range_value(2) = 8
|
|
range_value(3) = 9
|
|
range_value(4) = 15
|
|
range_value(5) = 19
|
|
range_value(6) = 20
|
|
range_value(7) = 21
|
|
|
|
gain.ListIndex = 0
|
|
CardName.ListIndex = 0
|
|
|
|
DA_Wave.AddItem "Sine Wave"
|
|
DA_Wave.AddItem "Square Wave"
|
|
DA_Wave.ListIndex = 0
|
|
|
|
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
|
|
|
|
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 3
|
|
PrevP(i) = -1
|
|
Next
|
|
For i = 0 To 3
|
|
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, d As Integer
|
|
Dim l As Long
|
|
Dim di_data As Long
|
|
Dim p As Integer
|
|
Dim m As Single
|
|
Static vt(15) As Variant
|
|
|
|
' 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
|
|
If range_value(gain.ListIndex) >= 14 Then
|
|
result = AI_9118_Config(0, P9118_AI_UniPolar, 0, 0, 0)
|
|
Else
|
|
result = AI_9118_Config(0, P9118_AI_BiPolar, 0, 0, 0)
|
|
End If
|
|
result = AI_ReadChannel(card, i, range_value(gain.ListIndex), d)
|
|
l = d
|
|
If CardName.ListIndex Then
|
|
If i < 8 Then
|
|
p = (32767 - CSng(l)) / 65535 * (Signal(0).Height / Screen.TwipsPerPixelY - 2)
|
|
If PrevP(i) <> -1 Then Signal(0).Line (4, p)-(8, PrevP(i)), SignalColor(i)
|
|
Else
|
|
p = (32767 - CSng(l)) / 65535 * (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
|
|
Else
|
|
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
|
|
End If
|
|
PrevP(i) = p
|
|
End If
|
|
Next i
|
|
|
|
'Digital Input
|
|
result = DI_ReadPort(card, 0, l)
|
|
di_data = l
|
|
'End If
|
|
For i = 0 To 3
|
|
p = di_data Mod 2
|
|
If p = 0 Then
|
|
DI(i) = Image0
|
|
Else 'p = 1
|
|
DI(i) = Image1
|
|
End If
|
|
di_data = CLng(Fix(di_data / 2))
|
|
Next i
|
|
|
|
'Analog Output
|
|
Select Case DA_Wave.ListIndex
|
|
Case SINE_WAVE:
|
|
m = Sin(angle) / 2
|
|
angle = angle + Pi / 36
|
|
p = CInt(m * 2048 + 2048)
|
|
If p >= 4096 Then p = 4095
|
|
result = AO_WriteChannel(card, 0, p)
|
|
result = AO_WriteChannel(card, 1, p)
|
|
Case SQUARE_WAVE:
|
|
result = AO_WriteChannel(card, 0, sq)
|
|
result = AO_WriteChannel(card, 1, sq)
|
|
If (angle Mod 36) = 0 Then
|
|
If sq = 0 Then sq = 3070 Else sq = 0
|
|
End If
|
|
angle = angle + 1
|
|
End Select
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|