AnsweredAssumed Answered

Agilent 33500B function gen IQ ARB example program

Question asked by lhornburg

on Sep 13, 2012
Latest reply on Sep 13, 2012 by lhornburg

Like • Show 0 Likes0
Comment • 3

For this example you must have a 33500B with the IQ option installed, this will not run on the 33522A.

VB.net:

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' EXAMPLE DESCRIPTION:
'
' ASCII_IQ_ARB is a sample program that demonstrates how to download an IQ arbitrary waveform
' into instrument volatile memory and play back the same with the configuration below:
' This arb generates a 4000 point pulse waveform on both channels, of which the first 200 points define a
' positive pulse from 0 volts to the maximum defined voltage amplitude.
'
' Wave Shape: Arb
' Amplitude:     2 Volt Peak to Peak
' Offset:          0 Volt
' Output Impedance:     50 Ohm
' Channel1 and Channel2 Output: Enabled
'
' Caution: All un-saved data present in volatile memory will be erased.
' Save information before proceeding to this example program.
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' BUILDING THIS EXAMPLE:
'
' This sample program is intended to be used with Microsoft Visual C# 2005,
' or later, and the VISA COM library.
'
' Sample program execution requires the VISA COM library as a prerequisite,
' which is installed by the Agilent IO Libraries Suite.
' Sample program uses VISA COM 3.0 Type Library as a reference to the
' VISA COM library:
'
' $(VXIPNPPATH)\VisaCom\Primary Interop Assemblies\Ivi.Visa.Interop.dll
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Copyright © 2012 Agilent Technologies Inc. All rights
' reserved.
'
' You have a royalty-free right to use, modify, reproduce and distribute
' the Sample Application Files (and/or any modified version) in any way
' you find useful, provided that you agree that Agilent has no
' warranty, obligations or liability for any Sample Application Files.
'
' Agilent Technologies provides programming examples for illustration only,
' This sample program assumes that you are familiar with the programming
' language being demonstrated and the tools used to create and debug
' procedures. Agilent support engineers can help explain the
' functionality of Agilent software components and associated
' commands, but they will not modify these samples to provide added
' functionality or construct procedures to meet your specific needs.
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Imports System.Text
'Add VISA COM library reference.
Imports Ivi.Visa.Interop

Module Module1

    Const noErrString As String = "+0,""No error""" + vbLf

    Sub Main()

        Try

            AsciiIQArb()

        Catch oExp As Exception

            Console.WriteLine(oExp.Message)

        End Try

        Console.WriteLine("Press [Enter] to exit")
        Console.ReadLine()

    End Sub

    Sub AsciiIQArb()

        Dim strDataCommand As New StringBuilder()
        Dim instAddress As String = "TCPIP0::156.140.113.206::inst0::INSTR"
        Dim oRm As New ResourceManagerClass()
        Dim oFio As New FormattedIO488Class()

        'Open session for instrument.
        oFio.IO = oRm.Open(instAddress, AccessMode.NO_LOCK, 2000, "")
        oFio.IO.Timeout = 10000

        'Query Idendity string and report.
        oFio.WriteString("*IDN?", True)
        Dim strResult As String = oFio.ReadString()

        Console.WriteLine("Instrument Identity String: " + strResult)

        'Clear and reset instrument
        oFio.WriteString("*CLS;*RST;*OPC?", True)
        oFio.ReadString()

        'Clear volatile memory
        oFio.WriteString("SOURce1:DATA:VOLatile:CLEar", True)

        ' Create IQ arb waveform named "TestArb" with 4000 points of 0-1 data
        strDataCommand.Append("SOURce1:DATA:ARB2 TestArb")

        ' Specify IQ arb format
        oFio.WriteString("DATA:ARB2:FORMAT AABB", True)

        'Generating waveforms
        'I
        For I As Double = 1 To 5    ' Set rise time (5 points)
            strDataCommand.Append("," + ((I - 1) / 5).ToString())
        Next I
        For I As Double = 6 To 205 ' Set pulse width (200 points)
            strDataCommand.Append(",1")
        Next I
        For I As Double = 206 To 210    ' Set fall time (5 points)
            strDataCommand.Append("," + ((210 - I) / 5).ToString())
        Next I
        For I As Double = 211 To 4000   ' Set remaining points to zero
            strDataCommand.Append(",0")
        Next I
        'Q
        For I As Double = 1 To 5    ' Set rise time (5 points)
            strDataCommand.Append("," + ((I - 1) / 5).ToString())
        Next I
        For I As Double = 6 To 205 ' Set pulse width (200 points)
            strDataCommand.Append(",1")
        Next I
        For I As Double = 206 To 210    ' Set fall time (5 points)
            strDataCommand.Append("," + ((210 - I) / 5).ToString())
        Next I
        For I As Double = 211 To 4000   ' Set remaining points to zero
            strDataCommand.Append(",0")
        Next I

        'Downloading waveform
        Console.WriteLine("Downloading Waveform...")

        oFio.WriteString(strDataCommand.ToString(), True)
        oFio.WriteString("*OPC?", True)
        oFio.ReadString()

        Console.WriteLine("Download Complete\n")

        'Set desired configuration
        oFio.WriteString("SOURce1:FUNCtion ARB", True) ' turn on arb function
        oFio.WriteString("SOURce1:FUNCtion:ARBitrary TestArb", True) ' set current arb waveform to defined arb pulse
        oFio.WriteString("SOURCE1:VOLT 2", True) ' set max waveform amplitude to 2 Vpp
        oFio.WriteString("SOURCE1:VOLT:OFFSET 0", True) ' set offset to 0 V
        oFio.WriteString("OUTPUT1:LOAD 50", True) ' set output load to 50 ohms
        oFio.WriteString("SOURCE1:FUNCtion:ARB:PER 100E-6", True) ' set waveform period to 100uS

        'Enable Output
        oFio.WriteString("OUTPUT1 ON", True) ' turn on channel 1 output

        'Read Errors
        oFio.WriteString("SYSTEM:ERROR?", True)
        strResult = oFio.ReadString()

        If strResult = noErrString Then
            Console.WriteLine("Output set without any error" + vbLf)
        Else
            Console.WriteLine("Error reported: " + strResult)
        End If

    End Sub

End Module

Attachments

Ascii_IQ_Arb_VBnet.zip9.4 KB

No one else has this question

Outcomes

lhornburg

Sep 13, 2012 1:43 PM

C#:

/****************************************************************************
*
* EXAMPLE DESCRIPTION:
*
* ASCII_IQ_ARB is a sample program that demonstrates how to download an IQ arbitrary waveform
* into instrument volatile memory and play back the same with the configuration below:
* This arb generates a 4000 point pulse waveform on both channels, of which the first 200 points define a
* positive pulse from 0 volts to the maximum defined voltage amplitude.
*
* Wave Shape: Arb
* Amplitude:     2 Volt Peak to Peak
* Offset:          0 Volt
* Output Impedance:     50 Ohm
* Channel1 and Channel2 Output: Enabled
*
* Caution: All un-saved data present in volatile memory will be erased.
* Save information before proceeding to this example program.
*
******************************************************************************
*
* BUILDING THIS EXAMPLE:
*
* This sample program is intended to be used with Microsoft Visual C# 2005,
* or later, and the VISA COM library.
*
* Sample program execution requires the VISA COM library as a prerequisite,
* which is installed by the Agilent IO Libraries Suite.
* Sample program uses VISA COM 3.0 Type Library as a reference to the
* VISA COM library:
*
* $(VXIPNPPATH)\VisaCom\Primary Interop Assemblies\Ivi.Visa.Interop.dll
*
******************************************************************************
*
* Copyright © 2012 Agilent Technologies Inc. All rights
* reserved.
*
* You have a royalty-free right to use, modify, reproduce and distribute
* the Sample Application Files (and/or any modified version) in any way
* you find useful, provided that you agree that Agilent has no
* warranty, obligations or liability for any Sample Application Files.
*
* Agilent Technologies provides programming examples for illustration only,
* This sample program assumes that you are familiar with the programming
* language being demonstrated and the tools used to create and debug
* procedures. Agilent support engineers can help explain the
* functionality of Agilent software components and associated
* commands, but they will not modify these samples to provide added
* functionality or construct procedures to meet your specific needs.
*
*******************************************************************************/

using System;
using System.Collections.Generic;
using System.Text;
//Add VISA COM library reference.
using Ivi.Visa.Interop;

namespace Ascii_IQ_Arb
{
    class Program
    {
        const string noErrString = "+0,\"No error\"\n";

        static void Main(string[] args)
        {
            try
            {
                AsciiIQArb();
            }
            catch (Exception oExp)
            {
                Console.WriteLine(oExp.Message);
            }

            Console.WriteLine("Press [Enter] to exit");
            Console.ReadLine();

        }
        public static void AsciiIQArb()
        {
            StringBuilder strDataCommand = new StringBuilder();
            string instAddress = "TCPIP0::156.140.113.206::inst0::INSTR";
            ResourceManagerClass oRm = new ResourceManagerClass();
            FormattedIO488Class oFio = new FormattedIO488Class();

            //Open session for instrument.
            oFio.IO = (IMessage)oRm.Open(instAddress, AccessMode.NO_LOCK, 2000, "");
            oFio.IO.Timeout = 10000;

            //Query Idendity string and report.
            oFio.WriteString("*IDN?", true);
            string strResult = oFio.ReadString();

            Console.WriteLine("Instrument Identity String: " + strResult);

            //Clear and reset instrument
            oFio.WriteString("*CLS;*RST;*OPC?", true);
            oFio.ReadString();

            //Clear volatile memory
            oFio.WriteString("SOURce1:DATA:VOLatile:CLEar", true);

            // Create IQ arb waveform named "TestArb" with 4000 points of 0-1 data
            strDataCommand.Append("SOURce1:DATA:ARB2 TestArb");

            // Specify IQ arb format
            oFio.WriteString("DATA:ARB2:FORMAT AABB", true);

            //Generating waveforms
            //I
            for (double i = 1; i <= 5; i++)                /* Set rise time (5 points) */
                strDataCommand.Append("," + ((i - 1) / 5).ToString());
            for (double i = 6; i <= 205; i++)              /* Set pulse width (200 points) */
                strDataCommand.Append(",1");
            for (double i = 206; i <= 210; i++)            /* Set fall time (5 points) */
                strDataCommand.Append("," + ((210 - i) / 5).ToString());
            for (double i = 211; i <= 4000; i++)
                strDataCommand.Append(",0");    /* Set remaining points to zero */
            //Q
            for (double i = 1; i <= 5; i++)                /* Set rise time (5 points) */
                strDataCommand.Append("," + ((i - 1) / 5).ToString());
            for (double i = 6; i <= 205; i++)              /* Set pulse width (200 points) */
                strDataCommand.Append(",1");
            for (double i = 206; i <= 210; i++)            /* Set fall time (5 points) */
                strDataCommand.Append("," + ((210 - i) / 5).ToString());
            for (double i = 211; i <= 4000; i++)
                strDataCommand.Append(",0");    /* Set remaining points to zero */

            //Downloading waveform
            Console.WriteLine("Downloading Waveform...");

            oFio.WriteString(strDataCommand.ToString(), true);

            oFio.WriteString("*OPC?", true);
            oFio.ReadString();

            Console.WriteLine("Download Complete\n");

            //Set desired configuration
            oFio.WriteString("SOURce1:FUNCtion ARB", true); // turn on arb function
            oFio.WriteString("SOURce1:FUNCtion:ARBitrary TestArb", true); // set current arb waveform to defined arb pulse
            oFio.WriteString("SOURCE1:VOLT 2", true); // set max waveform amplitude to 2 Vpp
            oFio.WriteString("SOURCE1:VOLT:OFFSET 0", true); // set offset to 0 V
            oFio.WriteString("OUTPUT1:LOAD 50", true); // set output load to 50 ohms
            oFio.WriteString("SOURCE1:FUNCtion:ARB:PER 100E-6", true); // set waveform period to 100uS

            //Enable Output
            oFio.WriteString("OUTPUT1 ON", true); // turn on channel 1 output

            //Read Error's
            oFio.WriteString("SYSTEM:ERROR?", true);
            strResult = oFio.ReadString();

            if (strResult == noErrString)
            {
                Console.WriteLine("Output set without any error\n");
            }
            else
            {
                Console.WriteLine("Error reported: " + strResult);
            }

        }
    }
}

Attachments

Ascii_IQ_Arb_csharp.zip5.1 KB

Actions

lhornburg

@ lhornburg on Sep 13, 2012 1:45 PM

C++:

/****************************************************************************
*
* EXAMPLE DESCRIPTION:
*
* ASCII_IQ_ARB is a sample program that demonstrates how to download an IQ arbitrary waveform
* into instrument volatile memory and play back the same with the configuration below:
* This arb generates a 4000 point pulse waveform on both channels, of which the first 200 points define a
* positive pulse from 0 volts to the maximum defined voltage amplitude.
*
* Wave Shape: Arb
* Amplitude:     2 Volt Peak to Peak
* Offset:          0 Volt
* Output Impedance:     50 Ohm
* Channel1 and Channel2 Output: Enabled
*
* Caution: All un-saved data present in volatile memory will be erased.
* Save information before proceeding to this example program.
*
******************************************************************************
*
* BUILDING THIS EXAMPLE:
*
* This sample program is intended to be used with Microsoft Visual C# 2005,
* or later, and the VISA library.
*
* Sample program execution requires the VISA library as a prerequisite,
* which is installed by the Agilent IO Libraries Suite.
*
* visa.h is located at:
* $(VXIPNPPATH)\winnt\include
*
* visa32.lib/visa64.lib is located at:
* 32-bit
* $(VXIPNPPATH)\winnt\lib\msc
* 64-bit
* $(VXIPNPPATH)\winnt\lib_x64\msc
*
******************************************************************************
*
* Copyright © 2012 Agilent Technologies Inc. All rights
* reserved.
*
* You have a royalty-free right to use, modify, reproduce and distribute
* the Sample Application Files (and/or any modified version) in any way
* you find useful, provided that you agree that Agilent has no
* warranty, obligations or liability for any Sample Application Files.
*
* Agilent Technologies provides programming examples for illustration only,
* This sample program assumes that you are familiar with the programming
* language being demonstrated and the tools used to create and debug
* procedures. Agilent support engineers can help explain the
* functionality of Agilent software components and associated
* commands, but they will not modify these samples to provide added
* functionality or construct procedures to meet your specific needs.
*
*******************************************************************************/

#include "stdafx.h"
#include "string.h"
#include "visa.h"

static void AsciiIQArb();

int _tmain(int argc, _TCHAR* argv[])
{
     AsciiIQArb();


     char buffer[100];
    printf("Press [Enter] to exit\n");
     scanf("%c", buffer);

     return 0;
}

static void AsciiIQArb()
{
     const char noErrString[] = "+0,\"No error\"\n";

     char* strDataCommand = new char[20000];
     strDataCommand[0] = '\0';

     char tBuffer[100];
     tBuffer[0] = '\0';

     ViRsrc instAddress = "TCPIP0::156.140.113.206::inst0::INSTR";
     ViSession rm = 0,
          vi = 0;

     //Open session for instrument.
     viOpenDefaultRM(&rm);
     viOpen(rm, instAddress, 0, 0, &vi);
     viSetAttribute(vi, VI_ATTR_TMO_VALUE, 10000);

     //Query Identity string and report.
     viPrintf(vi, "*IDN?\n");
     viScanf(vi, "%t", tBuffer);

     printf("Instrument Identity String: %s\n", tBuffer);

     //Clear and reset instrument
     viPrintf(vi, "*CLS;*RST\n");
     viPrintf(vi, "*OPC?\n");
    viScanf(vi, "%t", tBuffer);

     //Clear volatile memory
     viPrintf(vi, "SOURce1:DATA:VOLatile:CLEar\n");

     // Create IQ arb waveform named "TestArb" with 4000 points of 0-1 data
     sprintf(strDataCommand, "%s", "SOURce1:DATA:ARB2 TestArb");

     // Specify IQ arb format
     viPrintf(vi, "DATA:ARB2:FORMAT AABB\n");

     //Generating waveforms
     //I
     for (double i = 1; i <= 5; i++)                /* Set rise time (5 points) */
     {
          sprintf(tBuffer, ",%.1f", ((i - 1) / 5));
          strcat(strDataCommand, tBuffer);
     }
     for (double i = 6; i <= 205; i++)              /* Set pulse width (200 points) */
          strcat(strDataCommand, ",1");
     for (double i = 206; i <= 210; i++)            /* Set fall time (5 points) */
     {
          sprintf(tBuffer, ",%.1f", ((210 - i) / 5));
          strcat(strDataCommand, tBuffer);
     }
     for (double i = 211; i <= 4000; i++)
          strcat(strDataCommand, ",0");    /* Set remaining points to zero */
     //Q
     for (double i = 1; i <= 5; i++)                /* Set rise time (5 points) */
     {
          sprintf(tBuffer, ",%.1f", ((i - 1) / 5));
          strcat(strDataCommand, tBuffer);
     }
     for (double i = 6; i <= 205; i++)              /* Set pulse width (200 points) */
          strcat(strDataCommand, ",1");
     for (double i = 206; i <= 210; i++)            /* Set fall time (5 points) */
     {
          sprintf(tBuffer, ",%.1f", ((210 - i) / 5));
          strcat(strDataCommand, tBuffer);
     }
     for (double i = 211; i <= 4000; i++)
          strcat(strDataCommand, ",0");    /* Set remaining points to zero */

     //Downloading
     printf("Downloading Waveform...\n");

     viPrintf(vi, "%s\n", strDataCommand);

     viPrintf(vi, "*OPC?\n");
    viScanf(vi, "%t", tBuffer);

     printf("Download Complete\n");

     //Set desired configuration
     viPrintf(vi, "SOURce1:FUNCtion ARB\n"); // turn on arb function
     viPrintf(vi, "SOURce1:FUNCtion:ARBitrary TestArb\n"); // set current arb waveform to defined arb pulse
     viPrintf(vi, "SOURCE1:VOLT 2\n"); // set max waveform amplitude to 2 Vpp
     viPrintf(vi, "SOURCE1:VOLT:OFFSET 0\n"); // set offset to 0 V
     viPrintf(vi, "OUTPUT1:LOAD 50\n"); // set output load to 50 ohms
     viPrintf(vi, "SOURCE1:FUNCtion:ARB:PER 100E-6\n"); // set waveform period to 100uS

     //Enable Output
     viPrintf(vi, "OUTPUT1 ON\n"); // turn on channel 1 output

     //Read Error/s
     viPrintf(vi, "SYSTEM:ERROR?\n");
     viScanf(vi, "%t", tBuffer);

     if (strcmp(tBuffer, noErrString) == 0)
     {
          printf("Output set without any error\n");
     }
     else
     {
          printf("Error reported: %s\n", tBuffer);
     }

     delete strDataCommand;

     return;
}

Attachments

Ascii_IQ_Arb_CPP.zip5.8 KB

Actions

lhornburg

Sep 13, 2012 1:46 PM

MATLAB:

%{
ASCII_IQ_ARB is a sample program that demonstrates how to download an IQ arbitrary waveform
* into instrument volatile memory and play back the same with the configuration below:
* This arb generates a 4000 point pulse waveform on both channels, of which the first 200 points define a
* positive pulse from 0 volts to the maximum defined voltage amplitude.

Wave Shape: Arb
Amplitude:     2 Volt Peak to Peak
Offset:          0 Volt
Output Impedance:     50 Ohm
Channel1 and Channel2 Output: Enabled

Caution: All un-saved data present in volatile memory will be erased.
Save information before proceeding to this example program.
%}

% clears all variables, closes all open files

clear all; close all; clc;

%opens and creates a visa session for communication with function generator

fgen = visa('AGILENT','TCPIP0::156.140.93.139::inst0::INSTR');
set (fgen,'OutputBufferSize',65536);
fopen(fgen);

%Query Idendity string and report
fprintf (fgen, '*IDN?');
idn = fscanf (fgen);
fprintf (idn)
fprintf ('\n\n')

%Clear and reset instrument
fprintf (fgen, '*RST');
fprintf (fgen, '*CLS');

%Clear volatile memory
     fprintf(fgen,'SOURce1:DATA:VOLatile:CLEar');
    %{
     Create arb waveform named 'TestArb' with 4000 points of 0-1 data for
     each channel
    %}
     fprintf('Generating Waveform\n\n')

    rise1=[];
     for i = 1:1:5        % Set rise time (5 points) */
          z = (i-1)/5;
        y = num2str(z);
        s1 = sprintf(', %s', y);
        rise1 = [rise1 s1];
    end

    width1=[];
     for i= 6:1:206      % Set pulse width (200 points) */
        y = num2str(1);
        s2 = sprintf(', %s', y);
        width1 = [width1 s2];
    end

    fall1=[];
     for i = 206:1:210    % Set fall time (5 points) */
          z= (210 - i)/5;
        y = num2str(z);
        s3 = sprintf(', %s', y);
        fall1 = [fall1 s3];
    end

    low1=[];
     for i = 211:1:4000   % Set remaining points to zero */
          y = num2str(0);
        s4 = sprintf(', %s', y);
        low1 = [low1 s4];
    end

    rise2=[];
     for i = 1:1:5        % Set rise time (5 points) */
          z = (i-1)/5;
        y = num2str(z);
        s1 = sprintf(', %s', y);
        rise2 = [rise2 s1];
    end

    width2=[];
     for i= 6:1:206      % Set pulse width (200 points) */
        y = num2str(1);
        s2 = sprintf(', %s', y);
        width2 = [width2 s2];
    end

    fall2=[];
     for i = 206:1:210    % Set fall time (5 points) */
          z= (210 - i)/5;
        y = num2str(z);
        s3 = sprintf(', %s', y);
        fall2 = [fall2 s3];
    end

    low2=[];
     for i = 211:1:4000   % Set remaining points to zero */
          y = num2str(0);
        s4 = sprintf(', %s', y);
        low2 = [low2 s4];
    end

    %combine all of the strings
    s = [rise1 width1 fall1 low1 rise2 width2 fall1 low2];

    % combine string of data with scpi command
     arbstring =sprintf('SOURce1:DATA:ARB2 TestArb %s', s);


     %Send Command to set the desired configuration
     fprintf('Downloading Waveform...\n\n')
    fprintf(fgen,'DATA:ARB2:FORMAT AABB');
     fprintf(fgen, arbstring);
    %make instrument wait for data to download before moving on to next
    %command set
     fprintf(fgen, '*WAI');
     fprintf('Download Complete\n\n')

     %Set desired configuration.
    fprintf(fgen,'SOURce1:FUNCtion ARB'); % turn on arb function
    fprintf(fgen,'SOURce1:FUNCtion:ARBitrary TestArb'); % set current arb waveform to defined arb pulse
    fprintf(fgen,'SOURCE1:VOLT 2'); % set max waveform amplitude to 2 Vpp
    fprintf(fgen,'SOURCE1:VOLT:OFFSET 0'); % set offset to 0 V
    fprintf(fgen,'OUTPUT1:LOAD 50'); % set output load to 50 ohms
    fprintf(fgen,'SOURCE1:FUNCtion:ARB:PER 100E-6'); % set waveform period to 100uS



    %Enable Output
    fprintf(fgen,'OUTPUT1 ON'); % turn on channel 1 output

% Read Error
fprintf(fgen, 'SYST:ERR?');
errorstr = fscanf (fgen);

% error checking
if strncmp (errorstr, '+0,"No error"',13)
   errorcheck = 'Arbitrary waveform generated without any error \n';
   fprintf (errorcheck)
else
   errorcheck = ['Error reported: ', errorstr];
   fprintf (errorcheck)
end

%closes the visa session with the function generator
fclose(fgen);

Attachments

ascii_iq_arb_matlab.zip1.6 KB

Actions

Agilent 33500B function gen IQ ARB example program

Attachments

Outcomes

Attachments

Attachments

Attachments

Related Content

Recommended Content