Keysight E4980A User Manual page 284

Sample Program
Detecting End of Measurement
vbLf, 0)
0)
vbLf, 0)
284
ErrorCheck viVPrintf(AgtE4980A/AL, "TRIG:SOUR BUS" +
ErrorCheck viVPrintf(AgtE4980A/AL, "APER LONG,3" + vbLf,
ErrorCheck viVPrintf(AgtE4980A/AL, "ABOR;INIT" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "TRIG:IMM" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "*SRE 128" + vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "STAT:OPER:ENAB 16" +
'===================================
' STB Check
'===================================
Do
ErrorCheck viReadSTB(AgtE4980A/AL, StbStatus)
Range("B12").Value = StbStatus
Loop Until StbStatus = 192
ErrorCheck viVPrintf(AgtE4980A/AL, "*CLS" + vbLf, 0)
ErrorCheck viReadSTB(AgtE4980A/AL, StbStatus)
Range("D12").Value = StbStatus
'===================================
' Setup End
'===================================
Call viClose(defrm)
End
'===================================
Keysight E4980A/AL Precision LCR Meter