Keysight E4980AL - Page 302

302 Keysight E4980A/AL Precision LCR Meter
Sample Program
Read Measurement Results
9-
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