Keysight E4981A - Page 112

112 Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter
Measurement Applications (Sample Programs)
Detecting the Completion of Measurement using SRQ
9-
ErrorCheck viVPrintf(Agte4981a, "INIT:CONT OFF" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "ABOR;INIT" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "TRIG:IMM" + vbLf, 0)
'===================================
' STB Check
'===================================
Do
ErrorCheck viReadSTB(Agte4981a, StbStatus)
Worksheets("Example5").Range("B5").Value = StbStatus
Loop Until StbStatus = 192
Worksheets("Example5").Range("B6").Value = "Measurement Done"
ErrorCheck viVPrintf(Agte4981a, "*CLS" + vbLf, 0)
'===================================
' Setup End
'===================================
Call viClose(defrm)
End
'===================================
' ErrorProc
'===================================
ErrorHandler:
' Display the error message
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
End
End Sub