Keysight E4980A - Page 300

300 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)
NofMeas = 5
'===================================
' Setup Start
'===================================
ErrorCheck viVPrintf(AgtE4980A/AL, "*RST;*CLS" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "TRIG:SOUR BUS" + vbLf,
0)
ErrorCheck viVPrintf(AgtE4980A/AL, "COMP ON" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "APER LONG,5" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "FORM REAL" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "MEM:DIM DBUF, " +
CStr(NofMeas) + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "MEM:CLE DBUF" + vbLf,
0)
ErrorCheck viVPrintf(AgtE4980A/AL, "MEM:FILL DBUF" + vbLf,
0)
'
For i = 1 To NofMeas
ErrorCheck viVPrintf(AgtE4980A/AL,
":INIT:IMM;:TRIG:IMM" + vbLf, 0)
Next i
'===================================
' Mem Buf Read
'===================================
ErrorCheck viVPrintf(AgtE4980A/AL, "MEM:READ? DBUF" +
vbLf, 0)