Keysight E4981A - Page 128

128 Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter
Measurement Applications (Sample Programs)
Reading Measurement Results in ASCII Format Using :READ? Command
9-
'===================================
' Meas Read
'===================================`
ErrorCheck viVPrintf(Agte4981a, "READ?" + vbLf, 0)
Worksheets("Example10").Range("B5").Value = "Waiting for"
Worksheets("Example10").Range("B6").Value = "External Trigger"
ErrorCheck viVScanf(Agte4981a, "%t", Result)
Res = Split(Result, ",")
Worksheets("Example10").Range("B5").Value = Val(Res(1))
Worksheets("Example10").Range("B6").Value = Val(Res(2))
'===================================
' Setup End
'===================================`
Call viClose(defrm)
End
'===================================
' ErrorProc
'===================================`
ErrorHandler:
' Display the error message
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
End
End Sub