Keysight E4980A - Page 296

296 Keysight E4980A/AL Precision LCR Meter
Sample Program
Read Measurement Results
9-
'===================================
ErrorCheck viOpenDefaultRM(defrm)
Call selectLCR(defrm, AgtE4980A/AL)
ErrorCheck viSetAttribute(AgtE4980A/AL, VI_ATTR_TMO_VALUE,
TimeOutTime)
'===================================
' Setup Start
'===================================
ErrorCheck viVPrintf(AgtE4980A/AL, "*RST;*CLS" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "FORM REAL" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "APER LONG,1" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "TRIG:SOUR BUS" + vbLf,
0)
ErrorCheck viVPrintf(AgtE4980A/AL, "COMP ON" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "INIT:CONT OFF" + vbLf,
0)
ErrorCheck viVPrintf(AgtE4980A/AL, "INIT:IMM" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "TRIG:IMM" + vbLf, 0)
'===================================
' Meas Read
'===================================
ErrorCheck viVPrintf(AgtE4980A/AL, ":FETC?" + vbLf, 0)
Call Scpi_read_binary_double_array(AgtE4980A/AL, Res, Nop)
For i = 0 To 3
Cells(13, i + 9).Value = Res(i)
Next i