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

100

101

Programming Examples 37

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

' Close output file.

Close hFile ' Close file.

MsgBox "Waveform format BYTE data written to"+_

"c:\scope\data\waveform_data.csv."

End Sub

Private Sub DoCommand(command As String)

err = viVPrintf(vi, command + vbLf, 0)

If (err <> VI_SUCCESS) Then HandleVISAError vi

CheckInstrumentErrors

End Sub

Private Function DoCommandIEEEBlock(command As String, _

lngBlockSize As Long)

retCount = lngBlockSize

Dim strCommandAndLength As String

strCommandAndLength = command + " %#" + _

Format(lngBlockSize) + "b"

err = viVPrintf(vi, strCommandAndLength + vbLf, paramsArray(1))

If (err <> VI_SUCCESS) Then HandleVISAError vi

DoCommandIEEEBlock = retCount

CheckInstrumentErrors

End Function

Private Function DoQueryString(query As String) As String

Dim strResult As String * 200

err = viVPrintf(vi, query + vbLf, 0)

If (err <> VI_SUCCESS) Then HandleVISAError vi

err = viVScanf(vi, "%t", strResult)

If (err <> VI_SUCCESS) Then HandleVISAError vi

DoQueryString = strResult

CheckInstrumentErrors

End Function

Private Function DoQueryNumber(query As String) As Variant

Dim dblResult As Double

err = viVPrintf(vi, query + vbLf, 0)

If (err <> VI_SUCCESS) Then HandleVISAError vi

1 2 ... 908 909 910 911 912 913 914 915 916 917 918 ... 969 970

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

Žádné komentáře

Agilent Technologies InfiniiVision 3000 DSO-X 3054A Servisní příručka Strana 913

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

Související produkty a manuály pro Měření, testování a kontrola Agilent Technologies InfiniiVision 3000 DSO-X 3054A