本文基于VBA环境介绍如何实现示波器远程图片保存的程序编程，同时还提供编程源代码。

大家好！我是Keysight的应用工程师陈宏毅，今天我跟大家分享下如何基于Excel的VBA环境进行仪表的自动化控制。

基本的仪表控制分为三个步骤：

1、 确保控制接口的物理连接与正确配置

2、 利用Keysight的IO工具找到仪表

3、 编程控制与验证

首先确保网口的物理连接, 这里我们将控制PC与示波器通过网线直接连接, 并且将仪表与PC的地址修改到同一网段，通过是德科技的IO工具, 我们可以验证连接是否成功。

首先打开IO工具, 输入示波器的IP地址，通过下方的IDN查询按钮，验证连接情况，可以看到，连接成功，我们点击OK将连接成功的仪表加入IO软件的仪表列表中，如下图所示，我们可以通过IO工具中的命令交互对话框与仪表进行简单的控制验证，例如我们输入重启命令*RST，可以看到，示波器已经恢复默认设置，我们还可以输入*IDN？查询示波器的序列号，型号等信息。

接下来我们基于VBA环境来进行仪表控制的开发，我们希望程序能够实现仪表的截图保存的功能，首先打开一个空白的Excel表格，通过alt+f11进入VBA的开发环境，如下图，我们通过Tools—>References…在VBA环境中添加VISA的引用，方便我们在当前环境中使用VISA中的IO库。根据IO工具版本的差异，其自带的VISA库版本也会不同，这里我们添加的是VISA COM 5.9 Type Library。

我们定义两个函数，第一个是仪表的连接函数。

我们可以通过IO工具自带的VISACOM help文件来简化我们的开发工作，如下图，可以看到 VISACOM的help文件中有一章专门用来展示了如何通过VB进行仪表的连接(Creating and Using the Basic Formatted I/O Object)，我们直接复制这一段，进行一些小的修改，我们将资源管理对象与消息传递对象拉出来做为全局变量，删除错误跳转语句，将仪表地址作为字符串变量传入。

这段函数完成了仪表的连接与IDN的询问，我们将IDN的返回值拉出来做一个监视，可以看到，变量成功接到了IDN的返回值。

现在我们来定义第二个函数，仪表截图函数。

这个函数的开发，我们来结合官网的示波器编程指南来进行，我们要进行的是仪表的截图，我们在文档中敲入关键字Display，可以看到这里呈现了与显示有关的各种命令。如下图，我们看到，下方有一段仪表截图的示例程序，我们直接将这段代码复制进我们的环境中，将仪表对象改成我们刚才定义的名称，将路径改为我们PC已有的。

定义完之后，我们定义过程调用刚刚定义的两个函数，等待仪表指示操作完成，我们就可以查看刚刚的截图文件了。

如下图，可以看到，在我们定义的路径里多了一个图像文件，里面正是我们示波器的屏幕截图。

具体源代码分享如下，适当修改就可以在您的电脑上实现示波器波形的远程读取。

Public rm As VisaComLib.ResourceManager

Public fmio As New VisaComLib.FormattedIO488

'' connect scope

Public Sub ConnectInstrument(ByVal instrumentAddr As String)

    Dim idn As String

    Set rm = New VisaComLib.ResourceManager '定义资源管理对象,每个资源管理对象对应一台仪表

    Set fmio.IO = rm.Open(instrumentAddr)  '定义接口对象,用来做指令的传递和读取

    fmio.IO.Timeout = 5000 '定义超时时间

    fmio.WriteString "*IDN?" '通过IDN命令查询仪表的名称,序列号等信息

    idn = fmio.ReadString() '回读

    

End Sub

Public Sub Getscreen()

   fmio.IO.Timeout = 20000 '因为图像数据量较大, 所以我们增加IO口的超时时间

   Dim byteData() As Byte

   fmio.WriteString ":DISPlay:DATA? BMP, COLOR" '送入获取图像数据的指令

   byteData = fmio.ReadIEEEBlock(BinaryType_UI1) '通过VISAcom中的ReadIEEEBlock函数读取图像数据

   ' Output display data to a file:

   Dim strPath As String: strPath = "c:\Testscope\screen.bmp"

   

   If Len(Dir(strPath)) Then '判断如果文件存在, 先删除

     Kill strPath

   End If

   Close #1   ' If #1 is open, close it.

   Open strPath For Binary Access Write Lock Write As #1   ' Open file for output. 将文件以二进制写入的形式打开

   Put #1, , byteData   ' Write data. 写入之前获取的二进制图像数据

   Close #1   ' Close file. 关闭

   fmio.IO.Timeout = 5000 '还原超时时间

End Sub

Public Sub exe()

    Call ConnectInstrument("TCPIP0::169.254.150.149::hislip0::INSTR")

    Call Getscreen

End Sub