using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

using Ivi.Visa;

using NationalInstruments.Visa;

namespace visa
{
   class Program
   {
      static MessageBasedSession mbSession;
      static string rn;           //Resource Name (идентификатор прибора)
      static string writestr;     //строка для отправки команды (опции -w:, -q:)
      static string readstr;      //строка для приема ответа (опции -r, -q:)
      static bool write, read, query;
      static bool showhelp = false;

      static void parsecmdline (string[] args)
      {
         if ("-?" == args[0])
            showhelp = true;
         else
         {
            foreach (string s in args)
            {
               if ("-r"==s && 2==s.Length)
               {
                  read = true;
               }
               else if ("-i:" == s.Substring(0, 3))
               {
                  rn = s.Substring(3);
               }
               else if ("-w:" == s.Substring(0, 3))
               {
                  writestr = s.Substring(3);
                  write = true;
               }
               else if ("-q:" == s.Substring(0, 3))
               {
                  writestr = s.Substring(3);
                  query = true;
               }
            }
         }
      }

      static void ShowVisaResources()
      {
         Console.WriteLine("Список ресурсов VISA:");
         var rmSession = new ResourceManager();
         //foreach (string s in rmSession.Find("USB?*INSTR"))
         foreach (string s in rmSession.Find("(ASRL|GPIB|TCPIP|USB)?*INSTR"))
         {
            Console.WriteLine(s);
         }
         rmSession.Dispose();
      }

      static void Usage()
      {
         Console.WriteLine("Утилита для управления ресурсами инструментов. Использование:");
         Console.WriteLine("visa.exe -?");
         Console.WriteLine("     подсказка по командной строке");
         Console.WriteLine("visa.exe");
         Console.WriteLine("     вывод списка имен ресурсов VISA");
         Console.WriteLine("visa.exe < -i:ID> < -w:command>");
         Console.WriteLine("     отправка команды в ресурс инструмента по ID");
         Console.WriteLine("visa.exe < -i:ID> < -r>");
         Console.WriteLine("     получение ответа от ресурса инструмента по ID");
         Console.WriteLine("visa.exe < -i:ID> < -q:query>");
         Console.WriteLine("     отправка запроса и получение от ресурса инструмента по ID");
      }

      static string InsertCommonEscapeSequences(string s)
      {
         return s.Replace("\n", "\\n").Replace("\r", "\\r");
      }

      static void Main(string[] args)
      {
         // Сброс начальных параметров:
         rn = "";
         writestr = "";
         readstr = "";
         write = false;
         read = false;
         query = false;
         // Опрос командной строки:
         if (0 == args.Length)
         {
            ShowVisaResources();
            Console.WriteLine("Для выдачи подсказки используйте visa.exe -?");
            return;
         }
         else
         {
            parsecmdline(args);
         }
         // Проверка результатов опроса командной строки:
         if (showhelp)
         {
            Usage();
            return;
         }
         if ("" == rn)
         {
            //Не указан идентификатор прибора.
            Console.WriteLine("Нужно указать ID ресурса (опция -i:)");
            return;
         }
         if ((!write && !read && !query)
           ||(write && query)
           ||(read && query))
         {
            //Неправильно (не совместимо) указан набор опций.
            Console.WriteLine("Ошибка выбора операции (опции -w:, -r, -q:)");
            return;
         }
         var rmSession = new ResourceManager();
         if ("" != writestr)
         {
            mbSession = null;
            try
            {
               mbSession = (MessageBasedSession)rmSession.Open(rn);
               mbSession.RawIO.Write(writestr);
            }
            catch (Exception exp)
            {
               Console.WriteLine(exp.Message);
            }
         }
         if (read || query)
         {
            try
            {
               mbSession = (MessageBasedSession)rmSession.Open(rn);
               readstr = InsertCommonEscapeSequences(mbSession.RawIO.ReadString());
               Console.WriteLine(readstr);
            }
            catch (Exception exp)
            {
               Console.WriteLine(exp.Message);
            }
         }
         if (mbSession != null)
            mbSession.Dispose();
         if (rmSession != null)
            rmSession.Dispose();
      }
   }
}

>visa.exe
Список ресурсов VISA:
USB0::0xF4ED::0xEE3A::NDG080B2150089::INSTR
ASRL1::INSTR
ASRL2::INSTR
ASRL8::INSTR
ASRL10::INSTR
Для выдачи подсказки используйте visa.exe -?

>visa.exe -?
Утилита для управления ресурсами инструментов. Использование:
visa.exe -?
     подсказка по командной строке
visa.exe
     вывод списка имен ресурсов VISA
visa.exe < -i:ID> < -w:command>
     отправка команды в ресурс инструмента по ID
visa.exe < -i:ID> < -r>
     получение ответа от ресурса инструмента по ID
visa.exe < -i:ID> < -q:query>
     отправка запроса и получение от ресурса инструмента по ID

>visa.exe -i:USB0::0xF4ED::0xEE3A::NDG080B2150089::INSTR -q:*IDN?
*IDN *,AKIP-3408-1,NDG080B2150089,1.08.01.08,02-00-00-04-00\n

>visa.exe -i:USB0::0xF4ED::0xEE3A::NDG080B2150089::INSTR -w:"OUTP OFF,LOAD,HZ"

>visa.exe -i:USB0::0xF4ED::0xEE3A::NDG080B2150089::INSTR -w:"OUTP ON"

>visa.exe -i:USB0::0xF4ED::0xEE3A::NDG080B2150089::INSTR -w:"BSWV FRQ,8000.001"

>visa.exe -i:USB0::0xF4ED::0xEE3A::NDG080B2150089::INSTR -w:"BSWV AMP,1.44"

>visa.exe -i:USB0::0xF4ED::0xEE3A::NDG080B2150089::INSTR -q:BSWV?
BSWV WVTP,SINE,FRQ,8000HZ,AMP,1.44V,OFST,0V,PHSE,0\n

>visa.exe -i:USB0::0xF4ED::0xEE3A::NDG080B2150089::INSTR -q:SCFG?
SCFG DEFAULT\n

#include "visa.h"

#pragma comment(lib,"visa32.lib")

int Usbtmc_test()
{
   /* Этот код демонстрирует асинхронную отправку команд чтения и записи       */
   /* в класс USBTMC (USB Test & Measurement Class) инструмента с помощью      */
   /* библиотеки NI-VISA.                                                      */
   /* Пример записывает строку команды "*IDN?\n" во все устройства USBTMC,     */
   /* подключенные к системе, и пытается прочитать ответ.                      */
   /* Здесь используется следующая последовательность действий:                */
   /*    Открытие Resource Manager                                             */
   /*    Открытие VISA Session к инструменту                                   */
   /*    Запись запроса идентификации (Identification Query) функцией viPrintf */
   /*    Попытка чтения ответа функцией viScanf                                */
   /*    Закрытие VISA Session                                                 */
   ViSession defaultRM;
   ViSession instr;
   ViUInt32 numInstrs;
   ViFindList findList;
   ViUInt32 retCount;
   ViUInt32 writeCount;
   ViStatus status;
   char instrResourceString[VI_FIND_BUFLEN];
   unsigned char buffer[100];
   char stringinput[512];
   int i;
   
   /* Сначала мы должны вызвать viOpenDefaultRM, чтобы получить handle

      для Resource Manager. Этот handle будет сохранен в переменную defaultRM. */
   status=viOpenDefaultRM (&defaultRM);
   if (status < VI_SUCCESS)
   {
      printf ("Could not open a session to the VISA Resource Manager!\n");
   return status;
   }
   
   /* Найдем все ресурсы USB TMC VISA в нашей системе, и сохраним количество

      этих ресурсов в переменную numInstrs. */
   status = viFindRsrc (defaultRM, "USB?*INSTR", &findList, &numInstrs, instrResourceString);
   if (status < VI_SUCCESS)
   {
      printf ("An error occurred while finding resources.\nHit enter to continue.");
      fflush(stdin);
      getchar();
      viClose (defaultRM);
      return status;
   }
   /* Теперь откроем сессии VISA ко всем инструментам USB TMC. Мы будем

      использовать handle из viOpenDefaultRM, и мы также должны использовать

      строку, которая будет идентифицировать открываемый инструмент. Эта строка

      называется дескриптором инструмента (instrument descriptor). Её формат

      можно найти в панели функций правым кликом мыши на параметре дескриптора.

      После открытия сессии к устройству мы получим хендл к инструменту,

      который будем использовать позже в функциях VISA. Параметры AccessMode

      и Timeout в этой функции зарезервированы для использования в будущем.

      Этим двум параметрам сейчас дается значение VI_NULL. */
   for (i=0; i < numInstrs; i++)
   {
      if (i > 0)
         viFindNext (findList, instrResourceString);
      status = viOpen (defaultRM, instrResourceString, VI_NULL, VI_NULL, &instr);
      if (status < VI_SUCCESS)
      {
         printf ("Cannot open a session to the device %d.\n", i+1);
         continue;
      }
      /* В этой точке у нас есть открытая сессия к инструменту USB TMC.

         Будем использовать функцию viPrintf для отправки строки "*IDN?\n",

         запрашивая этой командой идентификацию устройства. */
      char * cmmand ="*IDN?\n";
      status = viPrintf (instr, cmmand);
      if (status < VI_SUCCESS)
      {
         printf ("Error writing to the device %d.\n", i+1);
         status = viClose (instr);
         continue;
      }
      
      /* Теперь мы попытаемся прочитать обратно ответ от устройства, которое

         оно должно отправить на запрос идентификации. Для получения данных

         ответа мы будем использовать функцию viScanf. После того, как данные

         ответа прочитаны, они будут отображены. */
      status = viScanf(instr, "%t", buffer);
      if (status < VI_SUCCESS)
         printf ("Error reading a response from the device %d.\n", i+1);
      else
         printf ("\nDevice %d: %s\n", i+1 , buffer);
      status = viClose (instr);
   }
   
   /* Закроем сессию инструмента, используя функцию viClose. Эта операция

      освободит все системные ресурсы, занятые предыдущими вызовами API NI-VISA. */
   status = viClose (defaultRM);
   system("pause");  // пауза, чтобы можно было успеть прочитать сообщение консоли
   return 0;
}

int TCP_IP_Test(char *pIP)
{
   char outputBuffer[VI_FIND_BUFLEN];
   ViSession defaultRM, instr;
   ViStatus status;
   ViUInt32 count;
   ViUInt16 portNo;

   /* Сначала нам нужно открыть менеджер ресурсов по умолчанию. */
   status = viOpenDefaultRM (&defaultRM);
   if (status < VI_SUCCESS)
   {
      printf("Could not open a session to the VISA Resource Manager!\n");
   }
   
   /* Теперь откроем сессию к TCP/IP-устройству */
   char head[256] ="TCPIP0::";
   char tail[] ="::INSTR";
   char resource [256];
   strcat(head,pIP);
   strcat(head,tail);
   status = viOpen (defaultRM, head, VI_LOAD_CONFIG, VI_NULL, &instr);
   if (status < VI_SUCCESS)
   {
      printf ("An error occurred opening the session\n");
      viClose(defaultRM);
   }
   status = viPrintf(instr, "*idn?\n");
   status = viScanf(instr, "%t", outputBuffer);
   if (status < VI_SUCCESS)
   {
      printf("viRead failed with error code: %x \n",status);
      viClose(defaultRM);
   }
   else
      printf ("\ndata read from device: %*s\n", 0,outputBuffer);
   status = viClose (instr);
   status = viClose (defaultRM);
   system("pause");
   return 0;
}

Private Function Usbtmc_test() As Long
   ' Этот код демонстрирует синхронную отправку команд чтения и записи
   ' к класс инструмента тестирования и измерения (USB Test & Measurement
   ' Class, USBTMC) с использованием NI-VISA.
   ' Пример записывает строку "*IDN?\n" во все устройства USBTMC,
   ' подключенные к системе, и пытается прочитать от них ответ функциями
   ' записи и чтения. Основной алгоритм работы приложения:
   ' The general flow of the code is
   '     - Open Resource Manager
   '     - Open VISA Session к Instrument-у
   '     - Write запрос Identification Query с помощью функции viWrite
   '     - Попытка Read ответа (Response) функцией viRead
   ' Close the VISA Session
   Const MAX_CNT = 200
   Dim defaultRM As Long
   Dim instrsesn As Long
   Dim numlnstrs As Long
   Dim findList As Long
   Dim retCount As Long
   Dim writeCount As Long
   Dim status As Long
   Dim instrResourceString As String * VI_FIND_BUFLEN
   Dim Buffer As String * MAX_CNT
   Dim i As Integer

   ' Сначала мы должны вызвать viOpenDefaultRM, чтобы получить хендл Менеджера.
   ' Этот хендл мы сохраним в переменную defaultRM.
   status = viOpenDefaultRM(defaultRM)
   If (status < VI_SUCCESS) Then
      resultTxt.Text = "Could not open a session to the VISA Resource Manager!"
      Usbtmc_test = status
      Exit Function
   End If
   
   ' Найдем все ресурсы USB TMC VISA в нашей системе, и сохраним их количество
   ' в переменной numInstrs.
   status = viFindRsrc(defaultRM, "USB?*INSTR", findList, numlnstrs, instrResourceString)
   If (status < VI_SUCCESS) Then
      resultTxt.Text = "An error occurred while finding resources."
      viClose (defaultRM)
      Usbtmc_test = status
      Exit Function
   End If

   ' Теперь мы откроем сессию VISA ко всем инструментам USB TMC.
   ' Мы должны при этом использовать хендл из переменной viOpenDefaultRM,
   ' и также должны использовать строку, которая показывает, какой
   ' инструмент нужно открыть. Эта строка называется описателем
   ' инструмента (instrument descriptor). Формат этой строки можно найти
   ' на функциональной панели путем правого клика на параметр дескриптора.
   ' После открытия сессии к устройству мы получим хендл к инструменту,
   ' который будем использовать позже в вызовах функций VISA. Параметры
   ' AccessMode и Timeout функции viOpen зарезервированы для будущего
   ' использования, и поэтому должны получать значения VI_NULL.
   For i = 0 To numInstrs
      If (i > 0) Then
         status = viFindNext(findList, instrResourceString)
      End If
      status = viOpen(defaultRM, instrResourceString, VI_NULL, VI_NULL, instrsesn)
      If (status < VI_SUCCESS) Then
         resultTxt.Text = "Cannot open a session to the device " + CStr(i + 1)
         GoTo NextFind
      End If
      ' В этой точке у нас есть открытая сессия к инструменту USB TMC.
      ' Мы будем использовать функцию viWrite для отправки в устройство
      ' строки "*IDN?". Это команда, которая запрашивает идентификацию
      ' у устройства.
      status = viWrite(instrsesn, "*IDN?", 5, retCount)
      If (status < VI_SUCCESS) Then
         resultTxt.Text = "Error writing to the device."
         status = viClose(instrsesn)
         GoTo NextFind
      End If
      ' Теперь мы попытаемся прочитать обратно данные от устройства, которые
      ' оно отправит в ответ на запрос идентификации. Для этой цели будем
      ' использовать функцию viRead. После того, как данные прочитаны, они
      ' будут отображены.
      status = viRead(instrsesn, Buffer, MAX_CNT, retCount)
      If (status < VI_SUCCESS) Then
         resultTxt.Text = "Error reading a response from the device." + CStr(i + 1)
      Else
         resultTxt.Text = "Read from device: " + CStr(i + 1) + " " + Buffer
      End If
      ' Закроем сессию к инструменту с помощью функции viClose.
      status = viClose(instrsesn)
NextFind:
      Next i
   ' Теперь мы закроем сессию к Менеджеру с помощью функции viClose.
   ' Эта операция освободит все системные ресурсы.
   status = viClose(defaultRM)
   Usbtmc_test = 0

End Function

Private Function TCP_IP_Test(ip As String) As Long
   Dim outputBuffer As String * VI_FIND_BUFLEN
   Dim defaultRM As Long
   Dim instrsesn As Long
   Dim status As Long
   Dim count As Long

   ' Сначала нам нужно открыть Менеджер Ресурсов по умолчанию.
   status = viOpenDefaultRM(defaultRM)
   If (status < VI_SUCCESS) Then
      resultTxt.Text = "Could not open a session to the VISA Resource Manager!"
      TCP_IP_Test = status
      Exit Function
   End If

   ' Теперь откроем сессию к TCP/IP-устройству.
   status = viOpen(defaultRM, "TCPIP0::" + ip + "::INSTR", VI_LOAD_CONFIG, VI_NULL, instrsesn)
   If (status < VI_SUCCESS) Then
      resultTxt.Text = "An error occurred opening the session"
      viClose (defaultRM)
      TCP_IP_Test = status
      Exit Function
   End If
   status = viWrite(instrsesn, "*IDN?", 5, count)
   If (status < VI_SUCCESS) Then
      resultTxt.Text = "Error writing to the device."
   End If
   status = viRead(instrsesn, outputBuffer, VI_FIND_BUFLEN, count)
   If (status < VI_SUCCESS) Then
      resultTxt.Text = "Error reading a response from the device." + CStr(i + 1)
   Else
      resultTxt.Text = "read from device:" + outputBuffer
   End If
   status = viClose(instrsesn)
   status = viClose(defaultRM)
   TCP_IP_Test = 0

End Function

Private Sub exitBtn_Click()
   End

End Sub

Private Sub tcpipBtn_Click()
   Dim stat As Long
   stat = TCP_IP_Test(ipTxt.Text)
   If (stat < VI_SUCCESS) Then
      resultTxt.Text = Hex(stat)
   End If

End Sub

Private Sub usbBtn_Click()
   Dim stat As Long
   stat = Usbtmc_test
   If (stat < VI_SUCCESS) Then
      resultTxt.Text = Hex(stat)
   End If

End Sub

function USBTMC_test()

   % Этот код демонстрирует синхронную отправку команд чтения и записи
   % в USB Test & Measurement Class (USBTMC) инструмента, используя NI-VISA.
   % Создайте VISA-USB, подключенный к USB-инструменту.
   vu = visa('ni','USB0::0xF4EC::0xEE38::0123456789::INSTR');

   % Откройте созданный объект VISA.
   fopen(vu);

   % Отправьте строку "*IDN?", запрашивая идентификацию устройства.
   fprintf(vu,'*IDN?');

   % Запрос данных от устройства.
   outputbuffer = fscanf(vu);
   disp(outputbuffer);

   % Закрытие объекта VISA.
   fclose(vu);
   delete(vu);
   clear vu;

end

function TCP_IP_test( IPstr )

   % Демонстрация синхронной отправки команд чтения и записи
   % к TCP/IP-инструменту с помощью NI-VISA.
   % Создание объекта VISA-TCPIP, подключенный к инструменту через
   % сконфигурированный IP-адрес.
   vt = visa('ni',['TCPIP0::',IPstr,'::INSTR']);

   % Открытие созданного объекта VISA.
   fopen(vt);

   % Отправка строки "*IDN?", запрашивающей идентификацию устройства.
   fprintf(vt,'*IDN?');

   % Получение данных от устройства.
   outputbuffer = fscanf(vt);
   disp(outputbuffer);

   %Закрытие объекта VISA.
   fclose(vt);
   delete(vt);
   clear vt;

end