0
많은 양의 데이터를 가져와야하는 picolog 1012 데이터 로거가 있습니다. 기본 소프트웨어는 사용하기가 정말 좋지 않으며 PicoTech은 Excel에서 데이터를 기록 할 수 있도록 간단한 example script을 제공합니다. 불행히도 두 채널의 데이터 만 기록하고 9 개가 있습니다.vba를 사용하여 picologger를 엑셀 로깅
로깅 간격과 시간을 조정할 수는 있지만 제대로 작동하려면 채널 수를 얻을 수 없습니다.
' Excel Macro for the PicoLog 1000 series
' Pico Technology 2009
Declare Function pl1000OpenUnit Lib "pl1000.dll" (ByRef handle As Integer) As Long
Declare Function pl1000CloseUnit Lib "pl1000.dll" (ByVal handle As Integer) As Long
Declare Function pl1000GetUnitInfo Lib "pl1000.dll" (ByVal handle As Integer, ByVal S As String, ByVal lth As Integer, ByRef requiredSize As Integer, ByVal info As Integer) As Integer
Declare Function pl1000SetTrigger Lib "pl1000.dll" (ByVal handle As Integer, ByVal enabled As Integer, ByVal enable_auto As Integer, ByVal auto_ms As Integer, ByVal channel As Integer, ByVal dir As Integer, ByVal threshold As Integer, ByVal hysterisis As Integer, ByVal delay As Single) As Integer
Declare Function pl1000SetInterval Lib "pl1000.dll" (ByVal handle As Integer, ByRef us_for_block As Long, ByVal ideal_no_of_samples As Long, channels As Integer, ByVal No_of_channels As Integer) As Long
Declare Function pl1000GetValues Lib "pl1000.dll" (ByVal handle As Integer, ByRef values As Integer, ByRef no_of_values As Long, ByRef overflow As Integer, ByRef triggerIndex As Long) As Long
Declare Function pl1000Run Lib "pl1000.dll" (ByVal handle As Integer, ByVal no_of_values As Long, ByVal method As Integer) As Integer
Declare Function pl1000Ready Lib "pl1000.dll" (ByVal handle As Integer, ByRef ready As Integer) As Long
Declare Function pl1000MaxValue Lib "pl1000.dll" (ByVal handle As Integer, ByRef maxValue As Integer) As Long
Dim status As Long
Dim handle As Integer
Dim values(200) As Integer
Dim channels(22) As Integer
Dim nValues As Long
Dim ok As Integer
Dim ready As Integer
Dim requiredSize As Integer
Dim S As String * 255
Public port As Integer
Public product As Integer
Dim maxValue As Integer
Function adc_to_mv(value As Integer) As Integer
adc_to_mv = value/maxValue * 2500
End Function
Sub GetPl1000()
' Open device
status = pl1000OpenUnit(handle)
opened = handle <> 0
If opened Then
'Get the maximum ADC value for this variant
status = pl1000MaxValue(handle, maxValue)
' Get the unit information
Cells(9, "p").value = "Unit opened"
SLegnth = pl1000GetUnitInfo(handle, S, 255, requiredSize, 3)
Cells(10, "P").value = S
SLegnth = pl1000GetUnitInfo(handle, S, 255, requiredSize, 4)
Cells(11, "P").value = S
SLegnth = pl1000GetUnitInfo(handle, S, 255, requiredSize, 1)
Cells(12, "P").value = S
' No Trigger
Call pl1000SetTrigger(handle, False, 0, 0, 0, 0, 0, 0, 0)
' Say that we want to take [W3] readings in [W4] s
' from channels 1 and 2
'Set number of samples to read
Dim samplenum As Integer
samplenum = Worksheets("Sheet1").Range("W3").value 'Reads number of samples from W3
nValues = samplenum
channels(0) = 1
channels(1) = 2
channels(2) = 3
channels(3) = 4
channels(4) = 5
channels(5) = 6
channels(6) = 7
channels(7) = 8
channels(8) = 9
'Set test length
Dim sampleInterval As Long
Dim microsecs_for_block As Long
Dim testlength As Integer
testlength = Worksheets("Sheet1").Range("$w$4").value
microsecs_for_block = testlength * 1000000
status = pl1000SetInterval(handle, microsecs_for_block, nValues, channels(0), 2)''<changing the 2 to a nine really made the data go odd>
status = pl1000Run(handle, nValues, 0)
ready = 0
Do While ready = 0
status = pl1000Ready(handle, ready)
Loop
' Get a block of 100 readings...
' we can call this routine repeatedly
' to get more blocks with the same settings
Dim triggerIndex As Long
Dim overflow As Integer
status = pl1000GetValues(handle, values(0), nValues, overflow, triggerIndex)
' Copy the data into the spreadsheet
For i = 0 To nValues - 1
Cells(i + 4, "A").value = adc_to_mv(values(2 * i))
Cells(i + 4, "B").value = adc_to_mv(values(2 * i + 1)) '''<I am not sure what this command is doing so I have tried simply expanding it into other columns. The sheet does add data into cells C-E but it appears to be duplicate data from A and B>
Cells(i + 4, "C").value = adc_to_mv(values(2 * i + 2))
Cells(i + 4, "D").value = adc_to_mv(values(2 * i + 3))
Cells(i + 4, "E").value = adc_to_mv(values(2 * i + 4))
Next i
' Close the unit when finished to drop the driver
Call pl1000CloseUnit(handle)
Else
MsgBox "Unable to open device", vbCritical
End If
End Sub
아무도 통찰력을 흘릴 수 있습니까?
VBA에 대해 아는 사람이라면 누구든지 해결할 수 있나요, 아니면 picolog 지식이 필요합니까? 분명히 다른 것이 없다면 코드를 제대로 테스트하기 위해 피콜로 거 (picologger)가 필요합니다.