Agilent Technologies E5071C Manual page 1002

k = i \ 2
Cells(k + 6, j + 3).Value = Res(i)
Next i
'
' Read out Measurement Frequency Data in Binary transfer format
Call viVPrintf(vi, ":SENS1:FREQ:DATA?" + vbLf, 0)
Call Scpi_read_binary_double_array(vi, Res, Nop)
'
' Write data in cells of Excel
For i = 0 To Nop - 1
Cells(i + 6, 1) = i + 1
Cells(i + 6, 2).Value = Res(i)
Next i
' Close
Call viClose(vi)
Call viClose(defrm)
End Sub
'===================================
' BinaryAry Read Subroutine
'===================================
Sub Scpi_read_binary_double_array(vi As Long, data() As Double, Nop As Long)
Dim dblArray(10000) As Double
Dim paramsArray(3) As Long
Dim err As Long
Dim i As Long
Dim lf_eoi As String * 1
Nop = UBound(dblArray) - LBound(dblArray) + 1
paramsArray(0) = VarPtr(Nop)
paramsArray(1) = VarPtr(dblArray(0))
err = viVScanf(vi, "%#Zb%1t", paramsArray(0))
If err <> 0 Then MsgBox "Binary Error"
ReDim data(Nop - 1)
For i = 0 To Nop - 1
data(i) = dblArray(i)
Next
Programming
1229