Agilent Technologies 2000 X-Series Manual de servicio descargar pdf (Pagina 849)

100

101

Programming Examples 38

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

Next lngI

' 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)

1 2 ... 844 845 846 847 848 849 850 851 852 853 854 ... 929 930

Comentarios a estos manuales

Sin comentarios

Agilent Technologies 2000 X-Series Manual de servicio Pagina 849

Comentarios a estos manuales

Relacionado con productos y manuales para Multímetros Agilent Technologies 2000 X-Series

Prodotti e manuali riguardandi Lettori DVD LG NB3532A