Keysight E4981A - Page 138

138 Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter
Measurement Applications (Sample Programs)
Reading Measurement Signal Level Monitor (IMON & VMON) Results
9-
'===================================
' Measurement
'===================================
While Finish_pros <> "1" ' Loop till processing is finished. *OPC? retruns 1
when processing of all commands is finished.
ErrorCheck viVPrintf(Agte4981a, "*OPC?" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Finish_pros)
Wend
ErrorCheck viVPrintf(Agte4981a, "Data? IMON" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Imon1)
ErrorCheck viVPrintf(Agte4981a, "Data? VMON" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Vmon1)
MsgBox ("Current Monitor Value: " & Val(Imon1) & vbNewLine & "Voltage
Monitor Value: " & Val(Vmon1)), vbInformation
'===================================
' Setup End
'===================================`
Call viClose(defrm)
End
'===================================
' ErrorProc
'===================================`
ErrorHandler:
' Display the error message
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
End
End Sub