Keysight Technologies InfiniiVision DSOX1204A User Manual

814 Keysight InfiniiVision DSOX1204A/G Oscilloscopes Programmer's Guide
36 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)

Keysight Technologies InfiniiVision DSOX1204A Specifications

General

Brand	Keysight Technologies
Model	InfiniiVision DSOX1204A
Category	Test Equipment
Language	English