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/9118/VB9118PostTrg/vb9118Pt.Frm

537 lines
15 KiB
Raw Permalink Normal View History

리크 테스트 gui
4 weeks ago
VERSION 4.00
Begin VB.Form Ptrg9118
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "9118 Post Trigger DMA"
ClientHeight = 5460
ClientLeft = 1395
ClientTop = 1680
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 = 5865
Left = 1335
LinkTopic = "Form1"
ScaleHeight = 5460
ScaleWidth = 7665
Top = 1335
Width = 7785
Begin VB.Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Post Count"
ForeColor = &H00FF0000&
Height = 615
Left = 2160
TabIndex = 20
Top = 3840
Width = 2175
Begin VB.TextBox postCount
Height = 285
Left = 120
TabIndex = 22
Text = "1024"
Top = 240
Width = 1095
End
Begin VB.Label labData
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Samples"
ForeColor = &H0000FFFF&
Height = 255
Index = 1
Left = 1320
TabIndex = 21
Top = 240
Width = 735
End
End
Begin VB.CommandButton btnExit
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Exit"
Height = 500
Left = 6240
TabIndex = 4
Top = 4680
Width = 1000
End
Begin VB.CommandButton btnStart
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Start"
Height = 500
Left = 4800
TabIndex = 3
Top = 4680
Width = 1000
End
Begin VB.Frame frmData
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Buffer Size"
ForeColor = &H00FF0000&
Height = 615
Left = 4680
TabIndex = 2
Top = 3840
Width = 1935
Begin VB.ComboBox cobData
Appearance = 0 'Flat
Height = 315
Left = 120
Style = 2 'Dropdown List
TabIndex = 15
Top = 240
Width = 975
End
Begin VB.Label labData
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Samples"
ForeColor = &H0000FFFF&
Height = 255
Index = 0
Left = 1155
TabIndex = 16
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 = 3840
Width = 1700
Begin VB.ComboBox cobSample
Appearance = 0 'Flat
Height = 315
Left = 120
Style = 2 'Dropdown List
TabIndex = 14
Top = 240
Width = 975
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "KHz"
ForeColor = &H0000FFFF&
Height = 255
Left = 1150
TabIndex = 17
Top = 260
Width = 450
End
End
Begin VB.Frame dmaFrame
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "DMA Input(A/D)"
ForeColor = &H00FF0000&
Height = 3375
Left = 120
TabIndex = 0
Top = 120
Width = 7455
Begin VB.Frame Card_Frame
Caption = "Card Number"
ForeColor = &H00FF0000&
Height = 615
Left = 5880
TabIndex = 18
Top = 2520
Width = 1455
Begin VB.ComboBox Card_num
Height = 315
Left = 120
TabIndex = 19
Text = "Number"
Top = 240
Width = 1215
End
End
Begin VB.Frame frmChannel
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "AD Channel"
ForeColor = &H00FF0000&
Height = 1755
Left = 5880
TabIndex = 6
Top = 480
Width = 1380
Begin VB.OptionButton optChn
Caption = "7"
Height = 255
Index = 7
Left = 780
TabIndex = 30
Top = 1260
Width = 435
End
Begin VB.OptionButton optChn
Caption = "6"
Height = 255
Index = 6
Left = 780
TabIndex = 29
Top = 960
Width = 435
End
Begin VB.OptionButton optChn
Caption = "5"
Height = 255
Index = 5
Left = 780
TabIndex = 28
Top = 660
Width = 435
End
Begin VB.OptionButton optChn
Caption = "4"
Height = 255
Index = 4
Left = 780
TabIndex = 27
Top = 360
Width = 435
End
Begin VB.OptionButton optChn
Caption = "3"
Height = 255
Index = 3
Left = 120
TabIndex = 26
Top = 1260
Width = 435
End
Begin VB.OptionButton optChn
Caption = "2"
Height = 255
Index = 2
Left = 120
TabIndex = 25
Top = 960
Width = 435
End
Begin VB.OptionButton optChn
Caption = "1"
Height = 255
Index = 1
Left = 120
TabIndex = 24
Top = 660
Width = 435
End
Begin VB.OptionButton optChn
Caption = "0"
Height = 255
Index = 0
Left = 120
TabIndex = 23
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 = 5
Top = 480
Width = 5000
End
Begin VB.Label labValue
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "-5.00"
ForeColor = &H0000FFFF&
Height = 255
Index = 4
Left = 120
TabIndex = 13
Top = 3045
Width = 600
End
Begin VB.Label labValue
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "-2.50"
ForeColor = &H0000FFFF&
Height = 255
Index = 3
Left = 120
TabIndex = 12
Top = 2400
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 = 120
TabIndex = 11
Top = 1740
Width = 615
End
Begin VB.Label labValue
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "2.50"
ForeColor = &H0000FFFF&
Height = 255
Index = 1
Left = 120
TabIndex = 10
Top = 1065
Width = 615
End
Begin VB.Label labValue
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "5.00"
ForeColor = &H0000FFFF&
Height = 255
Index = 0
Left = 120
TabIndex = 9
Top = 420
Width = 615
End
Begin VB.Label labVots
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Vots"
ForeColor = &H0000FFFF&
Height = 255
Left = 120
TabIndex = 8
Top = 200
Width = 495
End
Begin VB.Label labSignal
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Caption = "Signals"
ForeColor = &H0000FFFF&
Height = 300
Left = 2800
TabIndex = 7
Top = 200
Width = 780
End
End
End
Attribute VB_Name = "Ptrg9118"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Dim gnADChn As Long
Dim gnCount As Long
Dim gnC2 As Long
Dim gnBuffer(4020) As Integer
Dim card As Integer
Dim bus As Integer
Dim slot As Integer
Dim nRate As Long
Dim range As Integer
Dim card_number As Integer
Dim post_cnt As Long
Private Sub btnExit_Click()
If card >= 0 Then Release_Card (card)
End
End Sub
Private Sub btnStart_Click()
Dim result As Integer
Dim half_ready As Byte
Dim access_cnt As Long
Dim fstop As Byte
If card < 0 Then
card_num.Enabled = False
card = Register_Card(PCI_9118DG, card_number)
If card < 0 Then
MsgBox "Register Card Failed"
End
End If
End If
result = AI_9118_Config(card, P9118_AI_BiPolar Or P9118_AI_SingEnded, P9118_AI_DtrgPositive Or P9118_AI_EtrgPositive Or P9118_AI_PostTrgEn, 0, post_cnt)
result = AI_AsyncDblBufferMode(card, 0)
result = AI_ContReadChannel(card, gnADChn, range, gnBuffer(0), gnCount, CSng(nRate * 1000), ASYNCH_OP)
fstop = 0
While fstop = 0
result = AI_AsyncCheck(card, fstop, access_cnt)
Wend
'result = WaitForSingleObject(hEnts.hTraceEnt, 40000)
result = AI_AsyncClear(card, access_cnt)
btnStart.Enabled = True
ShowData (access_cnt)
End Sub
Private Sub card_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub card_num_Click()
card_number = Val(Trim$(card_num))
End Sub
Private Sub cobData_Click()
gnCount = Val(Trim$(cobData))
End Sub
Private Sub cobSample_Click()
nRate = Val(Trim$(cobSample))
End Sub
Private Sub Command1_Click()
End Sub
Private Sub Form_Load()
card_num.AddItem "0"
card_num.AddItem "1"
card_num.AddItem "2"
card_num.AddItem "3"
card_num.AddItem "4"
card_num.AddItem "5"
card_num.AddItem "6"
card_num.AddItem "7"
card_num.AddItem "8"
card_num.AddItem "9"
card_num.AddItem "10"
card_num.AddItem "11"
card_num.AddItem "12"
card_num.AddItem "13"
card_num.AddItem "14"
card_num.AddItem "15"
card_num.ListIndex = 0
cobData.AddItem "500"
cobData.AddItem "1000"
cobData.AddItem "2000"
cobData.AddItem "3000"
cobData.AddItem "4000"
cobData.ListIndex = 0
cobSample.AddItem "10"
cobSample.AddItem "20"
cobSample.AddItem "30"
cobSample.AddItem "40"
cobSample.AddItem "50"
cobSample.AddItem "70"
cobSample.AddItem "90"
cobSample.AddItem "100"
cobSample.ListIndex = 0
gnADChn = 0
card = -1
post_cnt = 1024
'Range values
range = AD_B_5_V
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 As Integer, last As Integer, total As Integer
Dim x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer
Dim w As Long, h As Long, data As Long
picScreen.Cls
last = count
w = picScreen.ScaleWidth
h = picScreen.ScaleHeight
'gnBuffer contains 16-bit data, the 4 LSB is channel#
'VB's integer is signed integer, its range is -32768 to 32767
'We change the range to 0 to 65535
If gnBuffer(0) >= 0 Then
data = gnBuffer(0)
Else
data = gnBuffer(0) + 65536
End If
x1 = (last * w) / count
y1 = h - ((((data And &HFFF0) / 16) * h) / 4096)
last = last - 1
While (last > 0)
If gnBuffer(count - last) >= 0 Then
data = gnBuffer(count - last)
Else
data = gnBuffer(count - last) + 65536
End If
x2 = (last * w) / count
y2 = h - ((((data And &HFFF0) / 16) * h) / 4096)
last = last - 1
picScreen.Line (x1, y1)-(x2, y2), &HFFFF&
x1 = x2
y1 = y2
Wend
End Sub
Private Sub exch_data(count As Integer)
Dim temp As Integer
Dim i As Integer
i = 0
While i < count
If (i Mod 2) = 0 Then
temp = gnBuffer(i)
gnBuffer(i) = gnBuffer(i + 1)
gnBuffer(i + 1) = temp
End If
i = i + 1
Wend
End Sub
Private Sub postCount_Change()
post_cnt = Val(Trim$(postCount))
End Sub