Agilent Technologies 2000 X-Series Manuel de service télécharger pdf (Page 897)

Programming Examples 38

Agilent InfiniiVision 2000 X-Series Oscilloscopes Programmer's Guide 897

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 ... 892 893 894 895 896 897 898 899 900 901 902 ... 929 930

Commentaires sur ces manuels

Pas de commentaire