Agilent Technologies Infiniium 90000 Series Programmer's Manual page 1029

VisaComError:
End Function
Private Function DoQueryNumber(query As String) As Variant
VisaComError:
End Function
Private Function DoQueryNumbers(query As String) As Variant()
VisaComError:
End Function
Private Function DoQueryIEEEBlock_UI1(query As String) As Variant
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference
myScope.WriteString query
DoQueryString = myScope.ReadString
CheckInstrumentErrors
Exit Function
MsgBox "VISA COM Error: " + vbCrLf + CStr(Err.Number) + ", " + _
Err.Source + ", " + _
Err.Description, vbExclamation, "VISA COM Error"
End
On Error GoTo VisaComError
myScope.WriteString query
DoQueryNumber = myScope.ReadNumber
CheckInstrumentErrors
Exit Function
MsgBox "VISA COM Error: " + vbCrLf + CStr(Err.Number) + ", " + _
Err.Source + ", " + _
Err.Description, vbExclamation, "VISA COM Error"
End
On Error GoTo VisaComError
Dim strErrors As String
myScope.WriteString query
DoQueryNumbers = myScope.ReadList
CheckInstrumentErrors
Exit Function
MsgBox "VISA COM Error: " + vbCrLf + CStr(Err.Number) + ", " + _
Err.Source + ", " + _
Err.Description, vbExclamation, "VISA COM Error"
End
On Error GoTo VisaComError
38
Sample Programs
1029