Keysight E4981A - Page 119

Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter 119
Measurement Applications (Sample Programs)
Reading Measurement Results in Binary Format Using *TRG Command
'===================================
' Binary Read
'===================================
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
End Sub