Agilent Technologies N5183A MXG - Manual (Page 276)

266 Agilent N518xA, E8663B, E44x8C, and E82x7D Signal Generators Programming Guide
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