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.
493 lines
14 KiB
493 lines
14 KiB
VERSION 4.00
|
|
Begin VB.Form int9111
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "9111 INT"
|
|
ClientHeight = 4980
|
|
ClientLeft = 1380
|
|
ClientTop = 1740
|
|
ClientWidth = 7665
|
|
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 = &H0000FFFF&
|
|
Height = 5385
|
|
Left = 1320
|
|
LinkTopic = "Form1"
|
|
ScaleHeight = 4980
|
|
ScaleWidth = 7665
|
|
Top = 1395
|
|
Width = 7785
|
|
Begin VB.CommandButton btnExit
|
|
Appearance = 0 'Flat
|
|
BackColor = &H80000005&
|
|
Caption = "Exit"
|
|
Height = 500
|
|
Left = 3720
|
|
TabIndex = 5
|
|
Top = 4320
|
|
Width = 1000
|
|
End
|
|
Begin VB.CommandButton btnStop
|
|
Appearance = 0 'Flat
|
|
BackColor = &H80000005&
|
|
Caption = "Stop"
|
|
Height = 500
|
|
Left = 2520
|
|
TabIndex = 4
|
|
Top = 4320
|
|
Width = 1000
|
|
End
|
|
Begin VB.CommandButton btnStart
|
|
Appearance = 0 'Flat
|
|
BackColor = &H80000005&
|
|
Caption = "Start"
|
|
Height = 500
|
|
Left = 1320
|
|
TabIndex = 3
|
|
Top = 4320
|
|
Width = 1000
|
|
End
|
|
Begin VB.Frame frmData
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Data Size"
|
|
ForeColor = &H00FF0000&
|
|
Height = 615
|
|
Left = 1920
|
|
TabIndex = 2
|
|
Top = 3500
|
|
Width = 1935
|
|
Begin VB.ComboBox cobData
|
|
Appearance = 0 'Flat
|
|
Height = 315
|
|
Left = 120
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 18
|
|
Top = 240
|
|
Width = 975
|
|
End
|
|
Begin VB.Label labData
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Records"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Left = 1155
|
|
TabIndex = 19
|
|
Top = 255
|
|
Width = 720
|
|
End
|
|
End
|
|
Begin VB.Frame frmSample
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Sampling Rate"
|
|
ForeColor = &H00FF0000&
|
|
Height = 615
|
|
Left = 120
|
|
TabIndex = 1
|
|
Top = 3500
|
|
Width = 1700
|
|
Begin VB.ComboBox cobSample
|
|
Appearance = 0 'Flat
|
|
Height = 315
|
|
Left = 120
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 17
|
|
Top = 240
|
|
Width = 975
|
|
End
|
|
Begin VB.Label Label1
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "KHz"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Left = 1150
|
|
TabIndex = 20
|
|
Top = 260
|
|
Width = 450
|
|
End
|
|
End
|
|
Begin VB.Frame intFrame
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Interrupt Input(A/D)"
|
|
ForeColor = &H00FF0000&
|
|
Height = 3375
|
|
Left = 120
|
|
TabIndex = 0
|
|
Top = 120
|
|
Width = 7455
|
|
Begin VB.Frame frmRange
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Range"
|
|
ForeColor = &H00FF0000&
|
|
Height = 615
|
|
Left = 5880
|
|
TabIndex = 8
|
|
Top = 2640
|
|
Width = 1380
|
|
Begin VB.ComboBox cobRange
|
|
Appearance = 0 'Flat
|
|
Height = 315
|
|
Left = 100
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 16
|
|
Top = 240
|
|
Width = 1200
|
|
End
|
|
End
|
|
Begin VB.Frame frmChannel
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "AD Channel"
|
|
ForeColor = &H00FF0000&
|
|
Height = 1755
|
|
Left = 5880
|
|
TabIndex = 7
|
|
Top = 240
|
|
Width = 1380
|
|
Begin VB.OptionButton optChn
|
|
Caption = "7"
|
|
Height = 315
|
|
Index = 7
|
|
Left = 720
|
|
TabIndex = 28
|
|
Top = 1260
|
|
Width = 435
|
|
End
|
|
Begin VB.OptionButton optChn
|
|
Caption = "6"
|
|
Height = 315
|
|
Index = 6
|
|
Left = 720
|
|
TabIndex = 27
|
|
Top = 960
|
|
Width = 435
|
|
End
|
|
Begin VB.OptionButton optChn
|
|
Caption = "5"
|
|
Height = 315
|
|
Index = 5
|
|
Left = 720
|
|
TabIndex = 26
|
|
Top = 660
|
|
Width = 435
|
|
End
|
|
Begin VB.OptionButton optChn
|
|
Caption = "4"
|
|
Height = 315
|
|
Index = 4
|
|
Left = 720
|
|
TabIndex = 25
|
|
Top = 360
|
|
Width = 435
|
|
End
|
|
Begin VB.OptionButton optChn
|
|
Caption = "3"
|
|
Height = 315
|
|
Index = 3
|
|
Left = 120
|
|
TabIndex = 24
|
|
Top = 1260
|
|
Width = 435
|
|
End
|
|
Begin VB.OptionButton optChn
|
|
Caption = "2"
|
|
Height = 315
|
|
Index = 2
|
|
Left = 120
|
|
TabIndex = 23
|
|
Top = 960
|
|
Width = 435
|
|
End
|
|
Begin VB.OptionButton optChn
|
|
Caption = "1"
|
|
Height = 315
|
|
Index = 1
|
|
Left = 120
|
|
TabIndex = 22
|
|
Top = 660
|
|
Width = 435
|
|
End
|
|
Begin VB.OptionButton optChn
|
|
Caption = "0"
|
|
Height = 315
|
|
Index = 0
|
|
Left = 120
|
|
TabIndex = 21
|
|
Top = 360
|
|
Value = -1 'True
|
|
Width = 435
|
|
End
|
|
End
|
|
Begin VB.PictureBox picScreen
|
|
Appearance = 0 'Flat
|
|
AutoRedraw = -1 'True
|
|
BackColor = &H00000000&
|
|
ForeColor = &H80000008&
|
|
Height = 2700
|
|
Left = 720
|
|
ScaleHeight = 178
|
|
ScaleMode = 3 'Pixel
|
|
ScaleWidth = 331
|
|
TabIndex = 6
|
|
Top = 480
|
|
Width = 5000
|
|
End
|
|
Begin VB.Label labValue
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "-5.00"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Index = 4
|
|
Left = 100
|
|
TabIndex = 15
|
|
Top = 3050
|
|
Width = 600
|
|
End
|
|
Begin VB.Label labValue
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "-2.50"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Index = 3
|
|
Left = 100
|
|
TabIndex = 14
|
|
Top = 2400
|
|
Width = 600
|
|
End
|
|
Begin VB.Label labValue
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "0.00"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Index = 2
|
|
Left = 100
|
|
TabIndex = 13
|
|
Top = 1740
|
|
Width = 600
|
|
End
|
|
Begin VB.Label labValue
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "2.50"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Index = 1
|
|
Left = 100
|
|
TabIndex = 12
|
|
Top = 1070
|
|
Width = 600
|
|
End
|
|
Begin VB.Label labValue
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "5.00"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Index = 0
|
|
Left = 100
|
|
TabIndex = 11
|
|
Top = 420
|
|
Width = 600
|
|
End
|
|
Begin VB.Label labVots
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Vots"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Left = 120
|
|
TabIndex = 10
|
|
Top = 200
|
|
Width = 495
|
|
End
|
|
Begin VB.Label labSignal
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Signals"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 300
|
|
Left = 2800
|
|
TabIndex = 9
|
|
Top = 200
|
|
Width = 780
|
|
End
|
|
End
|
|
End
|
|
Attribute VB_Name = "int9111"
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_Exposed = False
|
|
Dim gnADChn As Integer
|
|
Dim gnCount As Integer
|
|
Dim nSample As Long
|
|
Dim range_value(5) As Integer
|
|
Dim gnC1 As Integer
|
|
Dim gnC2 As Integer
|
|
Dim gnBuffer(8192) As Integer
|
|
|
|
Private Sub btnExit_Click()
|
|
If card >= 0 Then Release_Card (card)
|
|
End
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub btnStart_Click()
|
|
Dim result As Integer
|
|
picScreen.Cls
|
|
result = AI_9111_Config(card, TRIG_INT_PACER, P9111_TRGMOD_POST, 1024)
|
|
result = AI_ContReadChannel(card, gnADChn, range_value(cobRange.ListIndex), gnBuffer(0), gnCount, CSng(nSample * 1000), SYNCH_OP)
|
|
ShowData (gnCount)
|
|
End Sub
|
|
|
|
Private Sub btnStop_Click()
|
|
picScreen.Cls
|
|
|
|
End Sub
|
|
|
|
Private Sub cobData_Click()
|
|
gnCount = Val(Trim$(cobData))
|
|
End Sub
|
|
|
|
|
|
Private Sub cobRange_Click()
|
|
Select Case cobRange.ListIndex
|
|
Case 0
|
|
labValue(0).Caption = "10.0"
|
|
labValue(1).Caption = "5.0"
|
|
labValue(2).Caption = "0.0"
|
|
labValue(3).Caption = "-5.0"
|
|
labValue(4).Caption = "-10.0"
|
|
Case 1
|
|
labValue(0).Caption = "5.0"
|
|
labValue(1).Caption = "2.5"
|
|
labValue(2).Caption = "0.0"
|
|
labValue(3).Caption = "-2.5"
|
|
labValue(4).Caption = "-5.0"
|
|
Case 2
|
|
labValue(0).Caption = "2.50"
|
|
labValue(1).Caption = "2.25"
|
|
labValue(2).Caption = "0.00"
|
|
labValue(3).Caption = "-2.25"
|
|
labValue(4).Caption = "-2.50"
|
|
Case 3
|
|
labValue(0).Caption = "1.250"
|
|
labValue(1).Caption = "0.625"
|
|
labValue(2).Caption = "0.00"
|
|
labValue(3).Caption = "-0.625"
|
|
labValue(4).Caption = "-1.250"
|
|
Case 4
|
|
labValue(0).Caption = "0.6250"
|
|
labValue(1).Caption = "0.3125"
|
|
labValue(2).Caption = "0.0000"
|
|
labValue(3).Caption = "-0.3125"
|
|
labValue(4).Caption = "-0.6250"
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub cobSample_Click()
|
|
nSample = Val(Trim$(cobSample))
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
Dim result As Integer
|
|
|
|
SettingForm.Show 1
|
|
If card < 0 Then
|
|
MsgBox "Register Card Failed"
|
|
End
|
|
End If
|
|
gnC1 = 10
|
|
|
|
cobRange.AddItem "+/- 10V"
|
|
cobRange.AddItem "+/- 5V"
|
|
cobRange.AddItem "+/- 2.5V"
|
|
cobRange.AddItem "+/- 1.25V"
|
|
cobRange.AddItem "+/- 0.625V"
|
|
|
|
cobRange.ListIndex = 0
|
|
|
|
range_value(0) = 1
|
|
range_value(1) = 2
|
|
range_value(2) = 3
|
|
range_value(3) = 4
|
|
range_value(4) = 5
|
|
|
|
cobData.AddItem "1024"
|
|
cobData.AddItem "2048"
|
|
cobData.AddItem "4096"
|
|
cobData.AddItem "6144"
|
|
cobData.AddItem "8192"
|
|
|
|
cobData.ListIndex = 0
|
|
|
|
cobSample.AddItem "10"
|
|
cobSample.AddItem "20"
|
|
cobSample.AddItem "30"
|
|
cobSample.AddItem "40"
|
|
cobSample.AddItem "50"
|
|
|
|
cobSample.ListIndex = 0
|
|
|
|
gnADChn = 0
|
|
|
|
End Sub
|
|
|
|
Private Sub Form_Unload(Cancel As Integer)
|
|
If card >= 0 Then Release_Card (card)
|
|
End Sub
|
|
|
|
|
|
Private Sub optChn_Click(Index As Integer)
|
|
gnADChn = Index
|
|
End Sub
|
|
|
|
Private Sub ShowData(Count As Integer)
|
|
Dim i, last, total As Integer
|
|
Dim x1, y1, x2, y2 As Integer
|
|
Dim w, h, data As Integer
|
|
|
|
last = Count
|
|
w = picScreen.ScaleWidth
|
|
h = picScreen.ScaleHeight
|
|
|
|
data = Fix(gnBuffer(0) / 16)
|
|
x1 = (last * w) / Count
|
|
y1 = CInt((2047 - CLng(data)) * h / 4095)
|
|
last = last - 1
|
|
|
|
While (last > 0)
|
|
data = Fix(gnBuffer(Count - last) / 16)
|
|
x2 = (last * w) / Count
|
|
y2 = CInt((2047 - CLng(data)) * h / 4095)
|
|
last = last - 1
|
|
picScreen.Line (x1, y1)-(x2, y2), &HFFFF&
|
|
x1 = x2
|
|
y1 = y2
|
|
Wend
|
|
End Sub
|
|
|
|
Private Sub Timer1_Timer()
|
|
Dim result As Integer
|
|
Dim nstatus As Integer
|
|
Dim nblock As Integer
|
|
|
|
ShowData (gnCount)
|
|
|
|
End Sub
|
|
|
|
|