Agilent Technologies InfiniiVision 3000 DSO-X 3054A Servisní příručka stáhnout pdf (Strana 955)

Programming Examples 37

Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide 955

On Error GoTo ErrorHandler

Dim strResult As String * 200

Call ivprintf(id, query + vbLf)

Call ivscanf(id, "%200t", strResult)

DoQueryString = strResult

CheckInstrumentErrors

Exit Function

ErrorHandler:

MsgBox "*** Error :"+Error, vbExclamation

End

End Function

Private Function DoQueryNumber(query As String) As Double

On Error GoTo ErrorHandler

Dim dblResult As Double

Call ivprintf(id, query + vbLf)

Call ivscanf(id, "%lf" + vbLf, dblResult)

DoQueryNumber = dblResult

CheckInstrumentErrors

Exit Function

ErrorHandler:

MsgBox "*** Error :"+Error, vbExclamation

End

End Function

Private Function DoQueryNumbers(query As String) As Double()

On Error GoTo ErrorHandler

Dim dblResults(10) As Double

Call ivprintf(id, query + vbLf)

Call ivscanf(id, "%,10lf" + vbLf, dblResults)

DoQueryNumbers = dblResults

CheckInstrumentErrors

Exit Function

ErrorHandler:

1 2 ... 950 951 952 953 954 955 956 957 958 959 960 ... 969 970

Komentáře k této Příručce

Žádné komentáře