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.
482 lines
14 KiB
482 lines
14 KiB
4 weeks ago
|
VERSION 5.00
|
||
|
|
Begin VB.Form dma9221
|
||
|
|
Appearance = 0 'Flat
|
||
|
|
BackColor = &H00C0C0C0&
|
||
|
|
Caption = "9221 dma"
|
||
|
|
ClientHeight = 4980
|
||
|
|
ClientLeft = 1380
|
||
|
|
ClientTop = 1740
|
||
|
|
ClientWidth = 7665
|
||
|
|
BeginProperty Font
|
||
|
|
Name = "MS Sans Serif"
|
||
|
|
Size = 8.25
|
||
|
|
Charset = 0
|
||
|
|
Weight = 700
|
||
|
|
Underline = 0 'False
|
||
|
|
Italic = 0 'False
|
||
|
|
Strikethrough = 0 'False
|
||
|
|
EndProperty
|
||
|
|
ForeColor = &H0000FFFF&
|
||
|
|
LinkTopic = "Form1"
|
||
|
|
PaletteMode = 1 'UseZOrder
|
||
|
|
ScaleHeight = 4980
|
||
|
|
ScaleWidth = 7665
|
||
|
|
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 dmaFrame
|
||
|
|
Appearance = 0 'Flat
|
||
|
|
BackColor = &H00C0C0C0&
|
||
|
|
Caption = "dmaerrupt 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 = 4995
|
||
|
|
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 = "dma9221"
|
||
|
|
Attribute VB_GlobalNameSpace = False
|
||
|
|
Attribute VB_Creatable = False
|
||
|
|
Attribute VB_PredeclaredId = True
|
||
|
|
Attribute VB_Exposed = False
|
||
|
|
Dim BufferId As Integer
|
||
|
|
Dim Scandmav As Long
|
||
|
|
Dim Sampdmav As Long
|
||
|
|
Dim gnADChn As Integer
|
||
|
|
Dim gnCount As Integer
|
||
|
|
Dim nSample As Long
|
||
|
|
Dim range_value(4) As Integer
|
||
|
|
Dim gnC1 As Integer
|
||
|
|
Dim gnC2 As Integer
|
||
|
|
Dim gnBuffer(4096) 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_9221_Config(card, 0, 0, 0)
|
||
|
|
Scandmav = 40000 / nSample
|
||
|
|
Sampdmav = Scandmav
|
||
|
|
result = AI_9221_CounterInterval(card, Scandmav, Sampdmav)
|
||
|
|
result = AI_SetTimeOut(card, 10000)
|
||
|
|
result = AI_ContBufferSetup(card, gnBuffer(0), gnCount, BufferId)
|
||
|
|
result = AI_ContReadChannel(card, gnADChn, range_value(cobRange.ListIndex), BufferId, gnCount, 0, SYNCH_OP)
|
||
|
|
ShowData (gnCount)
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Sub btnStop_Click()
|
||
|
|
picScreen.Cls
|
||
|
|
AI_ContBufferReset (card)
|
||
|
|
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 = "5.0"
|
||
|
|
labValue(1).Caption = "2.5"
|
||
|
|
labValue(2).Caption = "0.0"
|
||
|
|
labValue(3).Caption = "-2.5"
|
||
|
|
labValue(4).Caption = "-5.0"
|
||
|
|
Case 1
|
||
|
|
labValue(0).Caption = "1.0"
|
||
|
|
labValue(1).Caption = "0.5"
|
||
|
|
labValue(2).Caption = "0.0"
|
||
|
|
labValue(3).Caption = "-2.5"
|
||
|
|
labValue(4).Caption = "-1.0"
|
||
|
|
Case 2
|
||
|
|
labValue(0).Caption = "0.50"
|
||
|
|
labValue(1).Caption = "0.25"
|
||
|
|
labValue(2).Caption = "0.00"
|
||
|
|
labValue(3).Caption = "-0.25"
|
||
|
|
labValue(4).Caption = "-0.50"
|
||
|
|
Case 3
|
||
|
|
labValue(0).Caption = "0.2"
|
||
|
|
labValue(1).Caption = "0.1"
|
||
|
|
labValue(2).Caption = "0.0"
|
||
|
|
labValue(3).Caption = "-0.1"
|
||
|
|
labValue(4).Caption = "-1.2"
|
||
|
|
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 "+/- 5V"
|
||
|
|
cobRange.AddItem "+/- 1V"
|
||
|
|
cobRange.AddItem "+/- 0.5V"
|
||
|
|
cobRange.AddItem "+/- 0.2V"
|
||
|
|
|
||
|
|
cobRange.ListIndex = 0
|
||
|
|
|
||
|
|
range_value(0) = 2
|
||
|
|
range_value(1) = 10
|
||
|
|
range_value(2) = 7
|
||
|
|
range_value(3) = 25
|
||
|
|
|
||
|
|
cobData.AddItem "1024"
|
||
|
|
cobData.AddItem "2048"
|
||
|
|
cobData.AddItem "4096"
|
||
|
|
|
||
|
|
cobData.ListIndex = 2
|
||
|
|
|
||
|
|
cobSample.AddItem "10"
|
||
|
|
cobSample.AddItem "40"
|
||
|
|
cobSample.AddItem "100"
|
||
|
|
cobSample.AddItem "160"
|
||
|
|
cobSample.AddItem "250"
|
||
|
|
|
||
|
|
cobSample.ListIndex = 4
|
||
|
|
|
||
|
|
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 = gnBuffer(0)
|
||
|
|
x1 = (last * w) / Count
|
||
|
|
y1 = h - ((CLng(data) + 32768) * h / 65535)
|
||
|
|
|
||
|
|
last = last - 1
|
||
|
|
|
||
|
|
While (last > 0)
|
||
|
|
data = gnBuffer(Count - last)
|
||
|
|
x2 = (last * w) / Count
|
||
|
|
y2 = h - ((CLng(data) + 32768) * h / 65535)
|
||
|
|
last = last - 1
|
||
|
|
picScreen.Line (x1, y1)-(x2, y2), &HFFFF&
|
||
|
|
x1 = x2
|
||
|
|
y1 = y2
|
||
|
|
Wend
|
||
|
|
AI_ContBufferReset (card)
|
||
|
|
End Sub
|