Agilent Technologies Infiniium 90000 Series Programmer's Manual page 1126

38
Sample Programs
End Function
Private Function DoQueryString(query As String) As String
ErrorHandler:
End Function
Private Function DoQueryNumber(query As String) As Double
ErrorHandler:
End Function
Private Function DoQueryNumbers(query As String) As Double()
1126
MsgBox "*** Error : " + Error, vbExclamation
End
Dim actual As Long
On Error GoTo ErrorHandler
Dim strResult As String * 200
Call ivprintf(id, query + vbLf)
Call ivscanf(id, "%200t", strResult)
DoQueryString = strResult
CheckInstrumentErrors
Exit Function
MsgBox "*** Error : " + Error, vbExclamation
End
On Error GoTo ErrorHandler
Dim dblResult As Double
Call ivprintf(id, query + vbLf)
Call ivscanf(id, "%lf" + vbLf, dblResult)
DoQueryNumber = dblResult
CheckInstrumentErrors
Exit Function
MsgBox "*** Error : " + Error, vbExclamation
End
On Error GoTo ErrorHandler
Dim dblResults(10) As Double
Call ivprintf(id, query + vbLf)
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference