Agilent Technologies 2000 X-Series Manual de Serviço descarregar pdf (Página 806)

100

101

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

38 Programming Examples

Debug.Print "Number of data values:"+_

CStr(UBound(varQueryResult) + 1)

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

1 2 ... 801 802 803 804 805 806 807 808 809 810 811 ... 929 930

Comentários a estes Manuais

Sem comentários

Agilent Technologies 2000 X-Series Manual de Serviço Página 806

Comentários a estes Manuais

Manuais e produtos relacionados com Multímetros Agilent Technologies 2000 X-Series