Keysight E4980A User Manual page 279

Sample Program
Set Up Measurement Conditions and LCD Display
0)
vbLf, 0)
vbLf, 0)
vbLf, 0)
vbLf, 0)
vbLf, 0)
vbLf, 0)
vbLf, 0)
vbLf, 0)
Keysight E4980A/AL Precision LCR Meter
ErrorCheck viVPrintf(AgtE4980A/AL, "TRIG:SOUR BUS" + vbLf,
ErrorCheck viVPrintf(AgtE4980A/AL, "AMPL:ALC ON" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "OUTP:DC:ISOL ON" +
ErrorCheck viVPrintf(AgtE4980A/AL, "FUNC:IMP:RANG 1E4" +
ErrorCheck viVPrintf(AgtE4980A/AL, "BIAS:VOLT 5" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "APER LONG,4" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "FUNC:SMON:VAC ON" +
ErrorCheck viVPrintf(AgtE4980A/AL, "FUNC:SMON:IAC ON" +
ErrorCheck viVPrintf(AgtE4980A/AL, "TRIG:DEL 5" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "FUNC:DEV1:MODE ABS" +
ErrorCheck viVPrintf(AgtE4980A/AL, "FUNC:DEV2:MODE ABS" +
ErrorCheck viVPrintf(AgtE4980A/AL, "FUNC:DEV1:REF 10000" +
ErrorCheck viVPrintf(AgtE4980A/AL, "FUNC:DEV2:REF 1" +
Cells(12, 2).Value = "End to set configuration."
'===================================
' Setup End
'===================================
Call viClose(defrm)
End
'===================================
' ErrorProc
'===================================
279