Keysight E4980AL - Page 288

288 Keysight E4980A/AL Precision LCR Meter
Sample Program
Detecting End of Measurement
9-
ErrorCheck viVPrintf(AgtE4980A/AL, "TRIG:SOUR BUS" +
vbLf, 0)
ErrorCheck viVPrintf(AgtE4980A/AL, "APER LONG,3" + vbLf,
0)
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" +
vbLf, 0)
'===================================
' 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
'===================================