Agilent Technologies Infiniium 90000 Series Programmer's Manual page 1074

38
Sample Programs
End Sub
Private Sub DoCommand(command As String)
End Sub
Private Function DoCommandIEEEBlock(command As String, _
End Function
Private Function DoQueryString(query As String) As String
1074
For lngI = 0 To lngNumWords - 1
' Write time value, voltage value.
Print #hFile, _
FormatNumber(dblXOrigin + (lngI * dblXIncrement), 9) + _
", " + _
FormatNumber((wordArray(lngI) * dblYIncrement) + dblYOrigin)
Next lngI
' Close output file.
Close hFile ' Close file.
MsgBox "Waveform format WORD data written to " + _
"c:\scope\data\waveform_data.csv."
err = viVPrintf(vi, command + vbLf, 0)
If (err <> VI_SUCCESS) Then HandleVISAError vi
CheckInstrumentErrors
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
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
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference