Keysight E4981A - Page 137

Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter 137
Measurement Applications (Sample Programs)
Reading Measurement Signal Level Monitor (IMON & VMON) Results
Example 9-13 Reading Measurement Signal Level Monitor (IMON & VMON) Results
Sub Example13()
'===================================
' Configuration
'===================================
Dim defrm As Long 'Session to Default Resource Manager
Dim Agte4981a As Long 'Session to instrument
Dim Imon1 As String * 500, Vmon1 As String * 500
Dim Finish_pros As String * 1
Const TimeOutTime = 30000
On Error GoTo ErrorHandler
'===================================
' Open Instrument
'===================================
ErrorCheck viOpenDefaultRM(defrm)
Call SelectMode(defrm, Agte4981a)
ErrorCheck viSetAttribute(Agte4981a, VI_ATTR_TMO_VALUE, TimeOutTime)
'===================================
' Setup Start
'===================================
ErrorCheck viVPrintf(Agte4981a, "SYST:PRES;*CLS" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "INIT:CONT ON" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "TRIG:SOUR BUS" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "STAT:OPER:ENAB 16" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "*SRE 128" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "*CLS" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "TRIG" + vbLf, 0)