ErrorHandler:
End Sub
Private Sub DoCommand(command As String)
ErrorHandler:
End Sub
Private Function DoCommandIEEEBlock(command As String, _
ErrorHandler:
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference
Print #hFile, _
FormatNumber(dblXOrigin + (lngI * dblXIncrement), 9) + _
", " + _
FormatNumber((lngDataValue * dblYIncrement) + dblYOrigin)
Next lngI
' Close output file.
Close hFile
' Close file.
MsgBox "Waveform format BYTE data written to " + _
"c:\scope\data\waveform_data.csv."
Exit Sub
MsgBox "*** Error : " + Error, vbExclamation
End
On Error GoTo ErrorHandler
Call ivprintf(id, command + vbLf)
CheckInstrumentErrors
Exit Sub
MsgBox "*** Error : " + Error, vbExclamation
End
lngBlockSize As Long)
On Error GoTo ErrorHandler
' Send command part.
Call ivprintf(id, command + " ")
' Write definite-length block bytes.
Call ifwrite(id, byteArray(), lngBlockSize, vbNull, retCount)
' retCount is now actual number of bytes written.
DoCommandIEEEBlock = retCount
CheckInstrumentErrors
Exit Function
38
Sample Programs
1125