Agilent Technologies N5181A/82A, N5183A MXG, E8663B manual 266

Creating and Downloading Waveform Files

Programming Examples

Private Sub Download_File()

'The following four lines declare IO objects and instantiate them. Dim rm As VisaComLib.ResourceManager

Set rm = New AgilentRMLib.SRMCls

Dim SigGen As VisaComLib.FormattedIO488 Set SigGen = New VisaComLib.FormattedIO488

'NOTE: Use the IP address of your signal generator in the rm.Open declaration Set SigGen.IO = rm.Open("TCPIP0::000.000.000.000")

Dim data As Byte

Dim iq_data() As Byte

Dim FileHandle As Integer

Dim numPoints As Integer

Dim index As Integer

Dim Header As String

Dim response As String

Dim hiByte As String

Dim loByte As String

Dim strFilename As String

strFilename = "C:\IQ_DataVB" ‘File Name and location on PC

'Data will be saved to the signal generator’s NVWFM ‘/USER/WAVEFORM/IQ_DataVB directory.

FileHandle = FreeFile()
On Error GoTo errorhandler
With SigGen	'Set up the signal generator to accept a download
.IO.Timeout = 5000	'Timeout 50 seconds
.WriteString "*RST"	'Reset the signal generator.
End With
numPoints = (FileLen(strFilename))		'Get number of bytes in the file: 800 bytes
ReDim iq_data(0 To numPoints - 1)		'Dimension the iq_data array to the
		'size of the IQ_DataVB file: 800 bytes
Open strFilename For Binary	Access Read As #FileHandle 'Open the file for binary read
On Error GoTo file_error
For index = 0 To (numPoints	- 1)	'Write the IQ_DataVB data to the iq_data array

266 Agilent N518xA, E8663B, E44x8C, and E82x7D Signal Generators Programming Guide