Agilent Technologies InfiniiVision 5000 Series Programmer's Guide

696 Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Guide
12 Programming Examples
Call ivprintf(id, command + " ")
' Write definite-length block bytes.
Call ifwrite(id, byteArray(), lngBlockSize, vbNull, retCount)
' retCount is now actual number of bytes written.
CheckForInstrumentErrors command
DoCommandIEEEBlock = retCount
Exit Function
ErrorHandler:
MsgBox "*** Error :"+Error, vbExclamation
End
End Function
Private Function DoQueryString(query As String) As String
Dim actual As Long
On Error GoTo ErrorHandler
Dim ret_val As Integer
Dim strResult As String * 200
Call ivprintf(id, query + vbLf)
Call ivscanf(id, "%200t", strResult)
CheckForInstrumentErrors query
DoQueryString = strResult
Exit Function
ErrorHandler:
MsgBox "*** Error :"+Error, vbExclamation
End
End Function
Private Function DoQueryNumber(query As String) As Double
On Error GoTo ErrorHandler
Dim dblResult As Double
Call ivprintf(id, query + vbLf)
Call ivscanf(id, "%lf" + vbLf, dblResult)
CheckForInstrumentErrors query
DoQueryNumber = dblResult
Exit Function
ErrorHandler:
MsgBox "*** Error :"+Error, vbExclamation
End

Agilent Technologies InfiniiVision 5000 Series Specifications

General

Channels	2 or 4
Form Factor	Benchtop
Waveform Update Rate	Up to 1, 000, 000 waveforms per second
Input Impedance	1 MΩ ± 1%
Trigger Types	Edge, Pulse Width, Pattern, CAN, LIN, FlexRay, I2C, SPI, USB
Interface	USB, LAN, GPIB (optional)
Operating Temperature	0 °C to +50 °C