Sample Program
Read Measurement Results
TimeOutTime)
0)
0)
Keysight E4980A/AL Precision LCR Meter
'===================================
' Open Instrument
'===================================
ErrorCheck viOpenDefaultRM(defrm)
Call selectLCR(defrm, AgtE4980A/AL)
ErrorCheck viSetAttribute(AgtE4980A/AL, VI_ATTR_TMO_VALUE,
'===================================
' Setup Start
'===================================
Nop = 4
ErrorCheck viVPrintf(AgtE4980A/AL, "*RST;*CLS" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "FORM ASC" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "APER LONG,5" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "TRIG:SOUR BUS" + vbLf,
ErrorCheck viVPrintf(AgtE4980A/AL, "COMP ON" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "INIT:CONT OFF" + vbLf,
ErrorCheck viVPrintf(AgtE4980A/AL, "INIT:IMM" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "TRIG:IMM" + vbLf, 0)
'===================================
' Meas Read
'===================================`
ErrorCheck viVPrintf(AgtE4980A/AL, "FETCh?" + vbLf, 0)
ErrorCheck viVScanf(AgtE4980A/AL, "%t", Result)
287