AnsweredAssumed Answered

Agilent 33500A/33500B function gen Pulse example program

Question asked by lhornburg

on Aug 30, 2012
Latest reply on Aug 30, 2012 by lhornburg

Like • Show 0 Likes0
Comment • 2

VB:

'****************************************************************************
    ' Copyright © 2010 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 and procedures used to create
    ' and debug them. 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.
'****************************************************************************

'****************************************************************************
    'This sample program is intended for use with Microsoft Visual studio 6.0
    'and Agilent Visa Object library.
    '
    'Sample program execution requires VISA library installation.
    '
    'Add the libraries listed below in Project\reference menu before executing the
    'sample program:
    'VISA COM 3.0 Type Library, Location: \VisaCom\GlobMgr.dll
    'VISA COM 488.2 Formatted I/O 1.0, Location: \VisaCom\BasFrmIO.dll
    'VISA COM Resource Manager 1.0, Location: \bin\AgtRM.dll
' ****************************************************************************

' """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'This Pulse program enables a simple pulse wave output on channel 1 of a
'33500 Series instrument with signal characteristics given below. A loop
'in the program increases the edge transition time by 10 nsec every 100 msec.

'Wave Shape:            Pulse
'Frequency:             100 KHz
'Amplitude:             2 Volts Peak to Peak
'Offset:                0 Volt
'Edge Transition Time: Variable (10 ns to 100 ns in 10 ns steps every 100 msec)
'Channel1 Output:       Enabled
'
' """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

    Dim io_mgr As VisaComLib.ResourceManager
    Dim mfIo As VisaComLib.FormattedIO488
    Dim i As Integer

    Set io_mgr = New AgilentRMLib.SRMCls
    Set mfIo = New FormattedIO488
    Set mfIo.IO = io_mgr.Open(Text1.Text, NO_LOCK, 2000, "")

    On Error GoTo MyError

    ' This program sets up a waveform by selecting the waveshape
    ' and adjusting the frequency, amplitude, and offset.

    With mfIo

        'Clear and reset instrument
        .WriteString "*CLS"
        .WriteString "*RST"

         Sleep 1000

        'Set function to Pulse.
        .WriteString "SOURCE1:FUNCTION PULSE"

        'Set pulse period (sec) & voltage
        .WriteString "SOURCE1:FUNCTION:PULSE:PERIOD 1E-3"
        .WriteString "SOURCE1:VOLT 5"

        'Set Duty Cycle to 50%
        .WriteString "SOURCE1:FUNCTION:PULSE:DCYCLE 50"

        'Enable output.
        .WriteString "OUTPUT1 ON"

        Sleep 1000

        ' Iterate over different pulse transition durations
        For i = 1 To 10
            .WriteString "SOURCE1:FUNCtion:PULSe:TRANsition " & (i * 10) & "E-9"
            Sleep 100
        Next i

    End With
    Text2.Text = "Pulse output with variable edge time set on Channel1"


Exit Sub

MyError:

    Text2 = Err.Description
    Resume Next

End Sub

Private Sub Form_Load()

    Text2.Text = ""

End Sub

Attachments

Pulse_vb.zip3.0 KB

No one else has this question

Outcomes

lhornburg

Aug 30, 2012 1:46 PM

C:

/****************************************************************************
     '    Copyright © 2010 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.
****************************************************************************/

/****************************************************************************
     'This sample program is intended for use with Microsoft Visual C++ 2005
     'and Agilent Visa Object library.
     '
     'Sample program execution requires VISA library installation.
     '
     'The header file used in the project should be available
     'at the VISA install location, and the user must point to the file
     'if it is not detected automatically. Add the directory containing the
        'header file as and additional dependency for C/C++ project compilation.
     '
     'Add the visa32.lib library reference as and additional dependencies for the linker
     'in this project. This library can be located at \WinNT\lib\msc.
     '
****************************************************************************/

/*      Pulse is a sample program that enables a simple pulse wave output on channel 1
     of the 33500 Series instrument with the signal characteristics given below.
     A loop in the program increases the edge transition time by 10 nsec every 100 msec

     Wave Shape: Pulse
     Frequency:     100 KHz
     Amplitude:     2 Volt Peak to Peak
     Offset:          0 Volt
     Edge Transition Time:     Variable (10 ns to 100 ns in 10 steps every 100 msec)
     Channel1 Output: Enabled

*/

#include
#include
#include
#include

void main()
{
     ViSession oRm, oMIO;
     char strResult[256] = {0};
     char noErrString[256] = {"+0,\"No error\"\n"};
     char buf[256];
     int i = 1;

     //Mention Visa connection string here.
     char instAdd[] = "TCPIP0::146.223.123.106::inst0::INSTR";

     //Open a resource manager and create a visa session for communication
     viOpenDefaultRM(&oRm);
     viOpen(oRm,instAdd,VI_NULL,VI_NULL,&oMIO);

     //Query Idendity string and report.
     viPrintf(oMIO,"*IDN?\n");
     viScanf(oMIO,"%t",&buf);

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

     //Clear and reset instrument
     viPrintf(oMIO,"*CLS\n");
     viPrintf(oMIO,"*RST\n");

     //Set function to Pulse.
     viPrintf(oMIO,"SOURCE1:FUNCTION PULSE\n");

     //Set pulse period (sec) & voltage
     viPrintf(oMIO,"SOURCE1:FUNCTION:PULSE:PERIOD 1E-3\n");
     viPrintf(oMIO,"SOURCE1:VOLT 5\n");

     //Set Duty Cycle to 50%
     viPrintf(oMIO,"SOURCE1:FUNCTION:PULSE:DCYCLE 50\n");

     //Enable output.
     viPrintf(oMIO,"OUTPUT1 ON\n");

     //iterate over differnt pulse transition duration.
     for(i;i<=10;i++)
     {
          viPrintf(oMIO,"SOURCE1:FUNCtion:PULSe:TRANsition %dE-9\n",i*10);
          sleep(100);
     }

     //Read Error
     viQueryf(oMIO,"SYST:ERR?\n","%t",&strResult);

     if(!(strcmp(strResult,noErrString)))
          {
               printf("Pulse output set without any error\n");
          }
     else
          {
               printf("Error reported: %s",strResult);
          }

     //Exit
     printf("\nPress [Enter] to exit");
     getchar();

     viClose(oRm);
     viClose(oMIO);

}

// Pauses for a specified number of milliseconds. //
sleep( clock_t wait )
{
   clock_t goal;
   goal = wait + clock();
   while( goal > clock() )
      ;
}

Attachments

Pulse_C.zip3.7 KB

Actions

lhornburg

@ lhornburg on Aug 30, 2012 1:48 PM

C#:

/****************************************************************************
    '    Copyright © 2010 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.
'****************************************************************************

'****************************************************************************
    'This sample program is intended to use with Microsoft Visual C# 2005
    'and Agilent Visa Object library.
    '
    'Sample program execution requires VISA library installation as prerequisite.
    '
     'Sample program uses VISA COM 3.0 Type Library as reference to VISA library at below location:
     '\VisaCom\Primary Interop Assemblies\Ivi.Visa.Interop.dll
    'User must point to the file, if not detected automatically.
' ****************************************************************************/

using System;
using System.Collections.Generic;
using System.Text;
using System.Threading;
//Add visa library reference.
using Ivi.Visa.Interop;

/* Pulse is a sample program that enables a simple pulse wave output on channel 1
* of 3352XA instrument with signal characteristics given below.
* A loop in the program increases the edge transition time 10 nsec every 100 msec

    Wave Shape: Pulse
    Frequency:     100 KHz
    Amplitude:     2 Volt Peak to Peak
    Offset:          0 Volt
    Edge Transition Time:     Variable (10 ns to 100 ns in 10 steps every 100 msec)
    Channel1 Output: Enabled
*/

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

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

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

        }
        public static void pulse()
        {
            string instAddress = "TCPIP0::156.140.95.225::inst0::INSTR";
            ResourceManagerClass oRm = new ResourceManagerClass();
            FormattedIO488Class oFio = new FormattedIO488Class();

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

            //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", true);

            //Set function to Pulse.
            oFio.WriteString("SOURCE1:FUNCTION PULSE",true);

            //Set pulse period (sec) & voltage
            oFio.WriteString("SOURCE1:FUNCTION:PULSE:PERIOD 1E-3",true);
            oFio.WriteString("SOURCE1:VOLT 5",true);

            //Set Duty Cycle to 50%
            oFio.WriteString("SOURCE1:FUNCTION:PULSE:DCYCLE 50",true);

            //Enable Output
            oFio.WriteString("OUTPUT1 ON", true);

            for (int i = 1; i <= 10; i++)
            {
                int j = i * 10;
                oFio.WriteString("SOURCE1:FUNCtion:PULSe:TRANsition " + j.ToString() + "E-9" , true);
                Thread.Sleep(100);
            }

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

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

        }

    }
}

Attachments

Pulse_csharp.zip4.3 KB

Actions

2 Replies

lhornburg Aug 30, 2012 1:46 PM
Mark Correct
Correct Answer
C:

/****************************************************************************
     '    Copyright © 2010 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.
****************************************************************************/

/****************************************************************************
     'This sample program is intended for use with Microsoft Visual C++ 2005
     'and Agilent Visa Object library.
     '
     'Sample program execution requires VISA library installation.
     '
     'The header file used in the project should be available
     'at the VISA install location, and the user must point to the file
     'if it is not detected automatically. Add the directory containing the
        'header file as and additional dependency for C/C++ project compilation.
     '
     'Add the visa32.lib library reference as and additional dependencies for the linker
     'in this project. This library can be located at \WinNT\lib\msc.
     '
****************************************************************************/

/*      Pulse is a sample program that enables a simple pulse wave output on channel 1
     of the 33500 Series instrument with the signal characteristics given below.
     A loop in the program increases the edge transition time by 10 nsec every 100 msec

     Wave Shape: Pulse
     Frequency:     100 KHz
     Amplitude:     2 Volt Peak to Peak
     Offset:          0 Volt
     Edge Transition Time:     Variable (10 ns to 100 ns in 10 steps every 100 msec)
     Channel1 Output: Enabled

*/

#include
#include
#include
#include

void main()
{
     ViSession oRm, oMIO;
     char strResult[256] = {0};
     char noErrString[256] = {"+0,\"No error\"\n"};
     char buf[256];
     int i = 1;

     //Mention Visa connection string here.
     char instAdd[] = "TCPIP0::146.223.123.106::inst0::INSTR";

     //Open a resource manager and create a visa session for communication
     viOpenDefaultRM(&oRm);
     viOpen(oRm,instAdd,VI_NULL,VI_NULL,&oMIO);

     //Query Idendity string and report.
     viPrintf(oMIO,"*IDN?\n");
     viScanf(oMIO,"%t",&buf);

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

     //Clear and reset instrument
     viPrintf(oMIO,"*CLS\n");
     viPrintf(oMIO,"*RST\n");

     //Set function to Pulse.
     viPrintf(oMIO,"SOURCE1:FUNCTION PULSE\n");

     //Set pulse period (sec) & voltage
     viPrintf(oMIO,"SOURCE1:FUNCTION:PULSE:PERIOD 1E-3\n");
     viPrintf(oMIO,"SOURCE1:VOLT 5\n");

     //Set Duty Cycle to 50%
     viPrintf(oMIO,"SOURCE1:FUNCTION:PULSE:DCYCLE 50\n");

     //Enable output.
     viPrintf(oMIO,"OUTPUT1 ON\n");

     //iterate over differnt pulse transition duration.
     for(i;i<=10;i++)
     {
          viPrintf(oMIO,"SOURCE1:FUNCtion:PULSe:TRANsition %dE-9\n",i*10);
          sleep(100);
     }

     //Read Error
     viQueryf(oMIO,"SYST:ERR?\n","%t",&strResult);

     if(!(strcmp(strResult,noErrString)))
          {
               printf("Pulse output set without any error\n");
          }
     else
          {
               printf("Error reported: %s",strResult);
          }

     //Exit
     printf("\nPress [Enter] to exit");
     getchar();

     viClose(oRm);
     viClose(oMIO);

}

// Pauses for a specified number of milliseconds. //
sleep( clock_t wait )
{
   clock_t goal;
   goal = wait + clock();
   while( goal > clock() )
      ;
}
Attachments
- Pulse_C.zip3.7 KB
Like • Show 0 Likes0
Actions
- lhornburg @ lhornburg on Aug 30, 2012 1:48 PM
  Mark Correct
  Correct Answer
  C#:
  
  /****************************************************************************
      '    Copyright © 2010 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.
  '****************************************************************************
  
  '****************************************************************************
      'This sample program is intended to use with Microsoft Visual C# 2005
      'and Agilent Visa Object library.
      '
      'Sample program execution requires VISA library installation as prerequisite.
      '
       'Sample program uses VISA COM 3.0 Type Library as reference to VISA library at below location:
       '\VisaCom\Primary Interop Assemblies\Ivi.Visa.Interop.dll
      'User must point to the file, if not detected automatically.
  ' ****************************************************************************/
  
  using System;
  using System.Collections.Generic;
  using System.Text;
  using System.Threading;
  //Add visa library reference.
  using Ivi.Visa.Interop;
  
  /* Pulse is a sample program that enables a simple pulse wave output on channel 1
  * of 3352XA instrument with signal characteristics given below.
  * A loop in the program increases the edge transition time 10 nsec every 100 msec
  
      Wave Shape: Pulse
      Frequency:     100 KHz
      Amplitude:     2 Volt Peak to Peak
      Offset:          0 Volt
      Edge Transition Time:     Variable (10 ns to 100 ns in 10 steps every 100 msec)
      Channel1 Output: Enabled
  */
  
  namespace Pulse
  {
      class Program
      {
          const string noErrString = "+0,\"No error\"\n";
  
          static void Main(string[] args)
          {
              try
              {
                  pulse();
              }
              catch (Exception oExp)
              {
                  Console.WriteLine(oExp.Message);
              }
  
              Console.WriteLine("Press [Enter] to exit");
              Console.ReadLine();
  
          }
          public static void pulse()
          {
              string instAddress = "TCPIP0::156.140.95.225::inst0::INSTR";
              ResourceManagerClass oRm = new ResourceManagerClass();
              FormattedIO488Class oFio = new FormattedIO488Class();
  
              //Open session for instrument.
              oFio.IO = (IMessage)oRm.Open(instAddress, AccessMode.NO_LOCK, 2000, "");
  
              //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", true);
  
              //Set function to Pulse.
              oFio.WriteString("SOURCE1:FUNCTION PULSE",true);
  
              //Set pulse period (sec) & voltage
              oFio.WriteString("SOURCE1:FUNCTION:PULSE:PERIOD 1E-3",true);
              oFio.WriteString("SOURCE1:VOLT 5",true);
  
              //Set Duty Cycle to 50%
              oFio.WriteString("SOURCE1:FUNCTION:PULSE:DCYCLE 50",true);
  
              //Enable Output
              oFio.WriteString("OUTPUT1 ON", true);
  
              for (int i = 1; i <= 10; i++)
              {
                  int j = i * 10;
                  oFio.WriteString("SOURCE1:FUNCtion:PULSe:TRANsition " + j.ToString() + "E-9" , true);
                  Thread.Sleep(100);
              }
  
              //Read Error
              oFio.WriteString("SYSTEM:ERROR?", true);
              strResult = oFio.ReadString();
  
              if (strResult == noErrString)
              {
                  Console.WriteLine("Pulse Output set without any error\n");
              }
              else
              {
                  Console.WriteLine("Error reported: " + strResult);
              }
  
          }
  
      }
  }
  Attachments
  - Pulse_csharp.zip4.3 KB
  Like • Show 0 Likes0
  Actions

Agilent 33500A/33500B function gen Pulse example program

Attachments

Outcomes

Attachments

Attachments

Related Content

Recommended Content