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.
698 lines
20 KiB
698 lines
20 KiB
VERSION 4.00
|
|
Begin VB.Form dma9812
|
|
Appearance = 0 'Flat
|
|
AutoRedraw = -1 'True
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "9812 DMA"
|
|
ClientHeight = 6390
|
|
ClientLeft = 1020
|
|
ClientTop = 1650
|
|
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 = 7080
|
|
Left = 960
|
|
LinkTopic = "Form1"
|
|
ScaleHeight = 6390
|
|
ScaleWidth = 7665
|
|
Top = 1020
|
|
Width = 7785
|
|
Begin VB.Frame Frame3
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Post Trigger Count"
|
|
ForeColor = &H00FF0000&
|
|
Height = 615
|
|
Left = 120
|
|
TabIndex = 28
|
|
Top = 5160
|
|
Width = 2055
|
|
Begin VB.TextBox txtPostCount
|
|
Alignment = 1 'Right Justify
|
|
Height = 285
|
|
Left = 180
|
|
TabIndex = 29
|
|
Text = "500"
|
|
Top = 240
|
|
Width = 975
|
|
End
|
|
End
|
|
Begin VB.Frame Frame2
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Channel Count"
|
|
ForeColor = &H00FF0000&
|
|
Height = 615
|
|
Left = 120
|
|
TabIndex = 25
|
|
Top = 4500
|
|
Width = 2055
|
|
Begin VB.ComboBox cobChn
|
|
Appearance = 0 'Flat
|
|
Height = 315
|
|
Left = 180
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 26
|
|
Top = 240
|
|
Width = 855
|
|
End
|
|
Begin VB.Label Label8
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "channels"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Left = 1080
|
|
TabIndex = 27
|
|
Top = 300
|
|
Width = 795
|
|
End
|
|
End
|
|
Begin VB.Frame Frame1
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Trigger"
|
|
ForeColor = &H00FF0000&
|
|
Height = 1935
|
|
Left = 2280
|
|
TabIndex = 17
|
|
Top = 3840
|
|
Width = 2535
|
|
Begin VB.ComboBox cobTrigLevel
|
|
Appearance = 0 'Flat
|
|
Height = 315
|
|
Left = 900
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 36
|
|
Top = 1500
|
|
Width = 975
|
|
End
|
|
Begin VB.ComboBox cobTrigPol
|
|
Appearance = 0 'Flat
|
|
Height = 315
|
|
Left = 900
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 22
|
|
Top = 1080
|
|
Width = 1515
|
|
End
|
|
Begin VB.ComboBox cobTrigSrc
|
|
Appearance = 0 'Flat
|
|
Height = 315
|
|
Left = 900
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 19
|
|
Top = 660
|
|
Width = 1515
|
|
End
|
|
Begin VB.ComboBox cobTrigMode
|
|
Appearance = 0 'Flat
|
|
Height = 315
|
|
Left = 900
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 18
|
|
Top = 240
|
|
Width = 1515
|
|
End
|
|
Begin VB.Label Label7
|
|
Caption = "Level:"
|
|
Height = 195
|
|
Left = 120
|
|
TabIndex = 24
|
|
Top = 1560
|
|
Width = 735
|
|
End
|
|
Begin VB.Label Label6
|
|
Caption = "Polarity:"
|
|
Height = 195
|
|
Left = 120
|
|
TabIndex = 23
|
|
Top = 1140
|
|
Width = 735
|
|
End
|
|
Begin VB.Label Label5
|
|
Caption = "Source:"
|
|
Height = 195
|
|
Left = 120
|
|
TabIndex = 21
|
|
Top = 720
|
|
Width = 735
|
|
End
|
|
Begin VB.Label Label4
|
|
Caption = "Mode:"
|
|
Height = 195
|
|
Left = 120
|
|
TabIndex = 20
|
|
Top = 300
|
|
Width = 675
|
|
End
|
|
End
|
|
Begin VB.CommandButton btnStart
|
|
Appearance = 0 'Flat
|
|
BackColor = &H80000005&
|
|
Caption = "Start"
|
|
Height = 375
|
|
Left = 3240
|
|
TabIndex = 3
|
|
Top = 5940
|
|
Width = 1005
|
|
End
|
|
Begin VB.Frame frmData
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Data Size (in samples)"
|
|
ForeColor = &H00FF0000&
|
|
Height = 615
|
|
Left = 120
|
|
TabIndex = 2
|
|
Top = 3840
|
|
Width = 2055
|
|
Begin VB.ComboBox cobDataSize
|
|
Appearance = 0 'Flat
|
|
Height = 315
|
|
Left = 180
|
|
TabIndex = 12
|
|
Text = "cobDataSize"
|
|
Top = 240
|
|
Width = 1395
|
|
End
|
|
End
|
|
Begin VB.Frame frmSample
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Clock"
|
|
ForeColor = &H00FF0000&
|
|
Height = 1095
|
|
Left = 4920
|
|
TabIndex = 1
|
|
Top = 3840
|
|
Width = 2595
|
|
Begin VB.ComboBox cobClkSrc
|
|
Appearance = 0 'Flat
|
|
Height = 315
|
|
Left = 900
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 16
|
|
Top = 240
|
|
Width = 1515
|
|
End
|
|
Begin VB.ComboBox cobRate
|
|
Appearance = 0 'Flat
|
|
Height = 315
|
|
Left = 900
|
|
Style = 2 'Dropdown List
|
|
TabIndex = 11
|
|
Top = 660
|
|
Width = 975
|
|
End
|
|
Begin VB.Label Label3
|
|
Caption = "Source:"
|
|
Height = 195
|
|
Left = 180
|
|
TabIndex = 15
|
|
Top = 300
|
|
Width = 675
|
|
End
|
|
Begin VB.Label Label2
|
|
Caption = "Rate:"
|
|
Height = 195
|
|
Left = 180
|
|
TabIndex = 14
|
|
Top = 720
|
|
Width = 495
|
|
End
|
|
Begin VB.Label Label1
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "MHz"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Left = 1980
|
|
TabIndex = 13
|
|
Top = 735
|
|
Width = 450
|
|
End
|
|
End
|
|
Begin VB.Frame dmaFrame
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "DMA Input(A/D)"
|
|
ForeColor = &H00FF0000&
|
|
Height = 3735
|
|
Left = 120
|
|
TabIndex = 0
|
|
Top = 60
|
|
Width = 7395
|
|
Begin VB.HScrollBar scrollView
|
|
Height = 255
|
|
LargeChange = 10
|
|
Left = 720
|
|
TabIndex = 37
|
|
Top = 3360
|
|
Width = 5655
|
|
End
|
|
Begin VB.PictureBox picScreen
|
|
Appearance = 0 'Flat
|
|
AutoRedraw = -1 'True
|
|
BackColor = &H00000000&
|
|
ForeColor = &H80000008&
|
|
Height = 2595
|
|
Left = 720
|
|
ScaleHeight = 171
|
|
ScaleMode = 3 'Pixel
|
|
ScaleWidth = 375
|
|
TabIndex = 4
|
|
Top = 480
|
|
Width = 5655
|
|
End
|
|
Begin VB.Image TriggerPos
|
|
Height = 120
|
|
Left = 6300
|
|
Picture = "9812DMA.frx":0000
|
|
Top = 330
|
|
Visible = 0 'False
|
|
Width = 120
|
|
End
|
|
Begin VB.Label Label10
|
|
Caption = "3"
|
|
Height = 195
|
|
Index = 3
|
|
Left = 6840
|
|
TabIndex = 35
|
|
Top = 1800
|
|
Width = 195
|
|
End
|
|
Begin VB.Label Label10
|
|
Caption = "2"
|
|
Height = 195
|
|
Index = 2
|
|
Left = 6840
|
|
TabIndex = 34
|
|
Top = 1380
|
|
Width = 195
|
|
End
|
|
Begin VB.Label Label10
|
|
Caption = "1"
|
|
Height = 195
|
|
Index = 1
|
|
Left = 6840
|
|
TabIndex = 33
|
|
Top = 960
|
|
Width = 195
|
|
End
|
|
Begin VB.Label Label10
|
|
Caption = "0"
|
|
Height = 195
|
|
Index = 0
|
|
Left = 6840
|
|
TabIndex = 32
|
|
Top = 540
|
|
Width = 195
|
|
End
|
|
Begin VB.Shape shpColor
|
|
BackColor = &H00008000&
|
|
BackStyle = 1 'Opaque
|
|
Height = 255
|
|
Index = 3
|
|
Left = 6600
|
|
Top = 1740
|
|
Width = 195
|
|
End
|
|
Begin VB.Shape shpColor
|
|
BackColor = &H000000FF&
|
|
BackStyle = 1 'Opaque
|
|
Height = 255
|
|
Index = 2
|
|
Left = 6600
|
|
Top = 1320
|
|
Width = 195
|
|
End
|
|
Begin VB.Shape shpColor
|
|
BackColor = &H00FF0000&
|
|
BackStyle = 1 'Opaque
|
|
Height = 255
|
|
Index = 1
|
|
Left = 6600
|
|
Top = 900
|
|
Width = 195
|
|
End
|
|
Begin VB.Shape shpColor
|
|
BackColor = &H0000FFFF&
|
|
BackStyle = 1 'Opaque
|
|
BorderColor = &H00000000&
|
|
Height = 255
|
|
Index = 0
|
|
Left = 6600
|
|
Top = 480
|
|
Width = 195
|
|
End
|
|
Begin VB.Label lblLeft
|
|
Caption = "0"
|
|
Height = 195
|
|
Left = 660
|
|
TabIndex = 31
|
|
Top = 3120
|
|
Width = 795
|
|
End
|
|
Begin VB.Label lblRight
|
|
Alignment = 1 'Right Justify
|
|
Caption = "0"
|
|
Height = 195
|
|
Left = 5520
|
|
TabIndex = 30
|
|
Top = 3120
|
|
Width = 915
|
|
End
|
|
Begin VB.Label labValue
|
|
Alignment = 1 'Right Justify
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "-1.00"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Index = 4
|
|
Left = 45
|
|
TabIndex = 10
|
|
Top = 2940
|
|
Width = 600
|
|
End
|
|
Begin VB.Label labValue
|
|
Alignment = 1 'Right Justify
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "-0.50"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Index = 3
|
|
Left = 45
|
|
TabIndex = 9
|
|
Top = 2280
|
|
Width = 600
|
|
End
|
|
Begin VB.Label labValue
|
|
Alignment = 1 'Right Justify
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "0.00"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Index = 2
|
|
Left = 45
|
|
TabIndex = 8
|
|
Top = 1680
|
|
Width = 600
|
|
End
|
|
Begin VB.Label labValue
|
|
Alignment = 1 'Right Justify
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "0.50"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Index = 1
|
|
Left = 45
|
|
TabIndex = 7
|
|
Top = 1020
|
|
Width = 600
|
|
End
|
|
Begin VB.Label labValue
|
|
Alignment = 1 'Right Justify
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "1.00"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Index = 0
|
|
Left = 45
|
|
TabIndex = 6
|
|
Top = 420
|
|
Width = 600
|
|
End
|
|
Begin VB.Label labVots
|
|
Appearance = 0 'Flat
|
|
BackColor = &H00C0C0C0&
|
|
Caption = "Volt"
|
|
ForeColor = &H0000FFFF&
|
|
Height = 255
|
|
Left = 180
|
|
TabIndex = 5
|
|
Top = 195
|
|
Width = 435
|
|
End
|
|
End
|
|
Begin VB.Label txtXfer
|
|
Alignment = 1 'Right Justify
|
|
ForeColor = &H00C00000&
|
|
Height = 255
|
|
Left = 4860
|
|
TabIndex = 38
|
|
Top = 6000
|
|
Width = 2595
|
|
End
|
|
Begin VB.Menu mnuExit
|
|
Caption = "E&xit!"
|
|
End
|
|
End
|
|
Attribute VB_Name = "dma9812"
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_Exposed = False
|
|
Const DISP_COUNT = 1000
|
|
Dim gnADChn As Long
|
|
Dim gnCount As Long
|
|
Dim gnClkDiv As Integer
|
|
Dim trigLevel As Integer
|
|
Dim count1 As Long
|
|
Dim ch_cnt As Integer
|
|
Dim gnBuffer(81920) As Integer
|
|
Dim dma_size As Long
|
|
Dim range As Integer
|
|
|
|
Private Sub btnStart_Click()
|
|
Dim result As Long
|
|
Dim status As Byte
|
|
Dim i As Long, k As Long
|
|
|
|
dma_size = CLng(cobDataSize.Text)
|
|
sample_rate = (40 * 1000000) / gnClkDiv
|
|
ch_cnt = CLng(cobChn.Text)
|
|
range = AD_B_1_V
|
|
btnStart.Enabled = False
|
|
result = AI_9812_Config(card, CLng(cobTrigMode.ListIndex), CLng(cobTrigSrc.ListIndex) * 8, CLng(cobTrigPol.ListIndex) * 64, P9812_AD2_GT_PCI Or (CLng(cobClkSrc.ListIndex) * 256), CLng(cobTrigLevel.Text), CInt(txtPostCount.Text))
|
|
status = 0
|
|
result = AI_ContScanChannels(card, ch_cnt - 1, range, gnBuffer(0), dma_size, sample_rate, ASYNCH_OP)
|
|
|
|
While status = 0
|
|
result = AI_AsyncCheck(card, status, count1)
|
|
Wend
|
|
result = AI_AsyncClear(card, count1)
|
|
txtXfer.Caption = "Total xfer: " & CStr(count1)
|
|
scrollView.Value = 0
|
|
scrollView.Max = Fix((count1 - 1) / DISP_COUNT)
|
|
ShowData 0, Min(count1, DISP_COUNT)
|
|
btnStart.Enabled = True
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub cobRate_Click()
|
|
gnClkDiv = CInt(CSng(40) / Val(cobRate.Text))
|
|
End Sub
|
|
|
|
|
|
Private Sub cobTrigLevel_Click()
|
|
DrawTrigLevel trigLevel, CInt(cobTrigLevel.Text)
|
|
trigLevel = CInt(cobTrigLevel.Text)
|
|
End Sub
|
|
|
|
|
|
Private Sub Form_Load()
|
|
Dim result As Long
|
|
Dim i As Integer
|
|
|
|
SettingForm.Show 1
|
|
If card < 0 Then
|
|
MsgBox "Register card failed."
|
|
End
|
|
End If
|
|
|
|
cobDataSize.AddItem "2000"
|
|
cobDataSize.AddItem "4000"
|
|
cobDataSize.AddItem "8000"
|
|
cobDataSize.AddItem "20000"
|
|
cobDataSize.AddItem "40000"
|
|
cobDataSize.AddItem "80000"
|
|
cobDataSize.ListIndex = 0
|
|
|
|
cobChn.AddItem "1"
|
|
cobChn.AddItem "2"
|
|
cobChn.AddItem "4"
|
|
cobChn.ListIndex = 0
|
|
|
|
txtPostCount.Text = 500
|
|
|
|
cobTrigMode.AddItem "Soft-Trigger"
|
|
cobTrigMode.AddItem "Post-Trigger"
|
|
cobTrigMode.AddItem "Pre-Trigger"
|
|
cobTrigMode.AddItem "Delay-Trigger"
|
|
cobTrigMode.AddItem "Middle-Trigger"
|
|
cobTrigMode.ListIndex = 0
|
|
|
|
cobTrigSrc.AddItem "Channel-0"
|
|
cobTrigSrc.AddItem "Channel-1"
|
|
cobTrigSrc.AddItem "Channel-2"
|
|
cobTrigSrc.AddItem "Channel-3"
|
|
cobTrigSrc.AddItem "Digital"
|
|
cobTrigSrc.ListIndex = 0
|
|
|
|
cobTrigPol.AddItem "Positive"
|
|
cobTrigPol.AddItem "Negative"
|
|
cobTrigPol.ListIndex = 0
|
|
|
|
For i = 0 To 31
|
|
cobTrigLevel.AddItem i * 8
|
|
Next
|
|
cobTrigLevel.AddItem 255
|
|
trigLevel = -1
|
|
cobTrigLevel.ListIndex = 16 '128, 0V
|
|
trigLevel = 128
|
|
|
|
cobClkSrc.AddItem "Internal"
|
|
cobClkSrc.AddItem "Ext Sin"
|
|
cobClkSrc.AddItem "Ext Square"
|
|
cobClkSrc.ListIndex = 0
|
|
|
|
cobRate.AddItem "0.5"
|
|
cobRate.AddItem "1"
|
|
cobRate.AddItem "2"
|
|
cobRate.AddItem "5"
|
|
cobRate.AddItem "10"
|
|
cobRate.AddItem "20"
|
|
cobRate.ListIndex = 5
|
|
gnClkDiv = 2
|
|
|
|
dma_size = 0
|
|
End Sub
|
|
|
|
|
|
Private Sub ShowData(ByVal startidx As Long, ByVal acq_count As Long)
|
|
Dim i As Long, k As Long, n As Long
|
|
Dim w As Long, h As Long
|
|
Dim X As Long, Y As Long
|
|
Dim last_x(3) As Long, last_y(3) As Long
|
|
Dim samp As Integer, trig_pos As Long
|
|
picScreen.Cls
|
|
DrawTrigLevel -1, trigLevel
|
|
lblLeft.Caption = CStr(CLng(scrollView.Value) * DISP_COUNT)
|
|
lblRight.Caption = CStr(CLng(lblLeft) + DISP_COUNT - 1)
|
|
w = picScreen.ScaleWidth
|
|
h = picScreen.ScaleHeight
|
|
|
|
For i = 0 To 3
|
|
last_x(i) = -1
|
|
last_y(i) = -1
|
|
Next
|
|
For i = 0 To acq_count - 1
|
|
k = i Mod ch_cnt
|
|
n = (startidx + i) Mod count1
|
|
X = (i * w) / (DISP_COUNT - 1)
|
|
samp = gnBuffer(n)
|
|
If card_type = PCI_9812 Then
|
|
samp = samp / 16
|
|
Y = h * (2047 - samp) / 4096
|
|
Else 'PCI9810
|
|
samp = samp / 64
|
|
Y = h * (511 - samp) / 1024
|
|
End If
|
|
If last_y(k) <> -1 Then
|
|
picScreen.Line (last_x(k), last_y(k))-(X, Y), shpColor(k).BackColor
|
|
End If
|
|
last_x(k) = X
|
|
last_y(k) = Y
|
|
Next
|
|
'Set trigger position
|
|
Select Case cobTrigMode.ListIndex
|
|
Case P9812_TRGMOD_POST
|
|
trig_pos = 0
|
|
Case P9812_TRGMOD_PRE
|
|
trig_pos = count1 - 1
|
|
Case P9812_TRGMOD_DELAY
|
|
trig_pos = -1
|
|
Case P9812_TRGMOD_MIDL
|
|
trig_pos = count1 - CLng(txtPostCount.Text) * CLng(cobChn.Text)
|
|
End Select
|
|
If CLng(lblLeft) <= trig_pos And CLng(lblRight) >= trig_pos Then
|
|
TriggerPos.Visible = True
|
|
TriggerPos.Left = (picScreen.Left - 60) + ((trig_pos - CLng(lblLeft)) * w * Screen.TwipsPerPixelX) / (DISP_COUNT - 1)
|
|
Else
|
|
TriggerPos.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Form_Unload(Cancel As Integer)
|
|
Dim result As Long
|
|
'If memID >= 0 Then
|
|
' result = W_9812_Free_DMA_Mem(memID)
|
|
If card >= 0 Then
|
|
Release_Card (card)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub mnuExit_Click()
|
|
If card >= 0 Then Release_Card (card)
|
|
End
|
|
End Sub
|
|
|
|
Private Sub scrollView_Change()
|
|
Dim idx As Long
|
|
idx = CLng(scrollView.Value) * DISP_COUNT
|
|
ShowData idx Mod count1, Min(count1 - idx, DISP_COUNT)
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Private Sub DrawTrigLevel(ByVal old_level As Integer, ByVal level As Integer)
|
|
Dim w As Long, h As Long
|
|
Dim Y As Long
|
|
|
|
w = picScreen.ScaleWidth
|
|
h = picScreen.ScaleHeight
|
|
If old_level <> -1 Then
|
|
Y = h * (255 - old_level) / 255
|
|
picScreen.Line (0, Y)-(w, Y), &H0
|
|
End If
|
|
Y = h * (255 - level) / 255
|
|
picScreen.Line (0, Y)-(w, Y), &H909090
|
|
End Sub
|
|
|
|
Private Function Min(ByVal v1 As Long, ByVal v2 As Long) As Long
|
|
If v1 < v2 Then
|
|
Min = v1
|
|
Else
|
|
Min = v2
|
|
End If
|
|
End Function
|
|
|
|
|