Agilent Technologies InfiniiVision 3000 DSO-X 3054A Manual de Serviço descarregar pdf (Página 876)

100

101

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

37 Programming Examples

' Set up output file:

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

' Open file for output.

Open strPath For Output Access Write Lock Write As hFile

' Output waveform data in CSV format.

Dim lngDataValue As Long

Dim lngI As Long

For lngI = 0 To UBound(varQueryResult)

lngDataValue = varQueryResult(lngI)

' Write time value, voltage value.

Print #hFile, _

FormatNumber(dblXOrigin + (lngI * dblXIncrement), 9) + _

", " + _

FormatNumber(((lngDataValue - lngYReference) * _

sngYIncrement) + sngYOrigin)

Next lngI

' Close output file.

Close hFile ' Close file.

MsgBox "Waveform format BYTE data written to"+_

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

Exit Sub

VisaComError:

MsgBox "VISA COM Error:" + vbCrLf + Err.Description

End

End Sub

Private Sub DoCommand(command As String)

On Error GoTo VisaComError

myScope.WriteString command

CheckInstrumentErrors

Exit Sub

VisaComError:

MsgBox "VISA COM Error: " + vbCrLf + CStr(Err.Number) + ", " + _

Err.Source + ","+_

Err.Description, vbExclamation, "VISA COM Error"

End

End Sub

Private Sub DoCommandIEEEBlock(command As String, data As Variant)

On Error GoTo VisaComError

1 2 ... 871 872 873 874 875 876 877 878 879 880 881 ... 969 970

Comentários a estes Manuais

Sem comentários

Agilent Technologies InfiniiVision 3000 DSO-X 3054A Manual de Serviço Página 876

Comentários a estes Manuais

Manuais e produtos relacionados com Medição, teste e controlo Agilent Technologies InfiniiVision 3000 DSO-X 3054A