Keysight Technologies E4981A Programming Manual page 127

120 hz/1 khz/1 mhz capacitance meter

Hide thumbs Also See for E4981A:

Table of Contents

Measurement Applications (Sample Programs)

Reading Measurement Results in Binary Format Using *TRG Command

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)