使用VISA编程

• 概述

• 起动VISA

• 连接

• 通信

• 断开

• 样本程序

概述

下图示出对具有VISA的仪器进行控制的流程。当用可视Basic语言（Visual Basic languagee）开发VISA程序时，必须回顾一个特殊的编程注意事项（在下面列出的自述文本文件中）。

有关VISA程序库的利用以及利用带有E5071A宏程序（E5071A VBA）的VISA的编程注意事项的详情，请参考包含在IO程序库光盘（CD-ROM）上的下列文件。

• visa.hlp （VISA程序库的在线帮助）。

• vbreadme.txt （对利用具有VB的VISA程序库的注释）。

使用VISA控制仪器的流程

第1步：起动VISA

样本程序ctrl_ext.vba. 中的90行处理VISA系统起动对话。VISA的viOpenDefaultRM功能对VISA系统进行初始化和起动。viOpenDefaultRM 功能必须在调用其它VISA功能之前执行，而这个功能的参数是起动信息（ctrl_ext.vba中的Defrm）。

语法

viOpenDefaultRM(param)

参数

第2步：连接

130行处理连接对话。VISA的viOpen功能进行与规定仪器的连接。viOpen功能返回某个值，使得VISA功能可以将其应用于规定仪器，这个功能的参数是起动信息（Defrm）、规定仪器的地址信息（ctrl_ext.vba中的“GPIB：：17：：INSTR”）、接入方式（ctrl_ext.vba中的0）、超时（ctrl_ext.vba中的0）和连接信息（ctrl_ext.vba中的Equip）。

语法

viOpen(param1, param2, param3, param4, param5)

参数

第3步. 通信

170行进行通信对话。VISA的viVPrintf功能将程序消息（GPIB命令）发送到规定仪器。这个功能的参数是连接信息（Equip）、程序消息（*EDN?）和待格式化变量（ctrl_ext.vba中的0）。

• 为了输入/输出GPIB命令，主要是利用viVPrintf 功能和viVScanf功能信息，但也可以利用其它VISA功能。欲知详情，请参考visa.hlp （VISA程序库的在线帮助）。

语法

viVPrintf(param1, param2, param3)

参数

210行控制接收对话。VISA的viVScanf 功能接收来自规定仪器的结果，并将其存储在输出变量中。这个功能的参数是连接信息（ctrl_ext.vba中的Equip）、输出变量的格式参数（ctrl_ext.vba中的%t）和输出变量（ctrl_ext.vba中的Prod）。

语法

viVScanf(param1, param2, param3)

参数

第4步： 断开

280行处理断开对话。VISA的 viClose 功能将通信中断并使VISA系统终结，这个功能的参数是起动信息（ctrl_ext.vba中的Defrm）。

语法

viClose(param)

Parameter

样本程序 用来读出外围设备（仪器）产品信息

ctrl_ext.vba 是利用E5071C作为系统控制器时，控制通过USB/GPIB接口电缆连接的仪器的样本程序。这个VBA程序由下列程序模块组成。

• 当您由E5071C VBA来控制外围设备时，利用对仪器提供的GPIB命令经VISA进行通信。相反，当您由E5071C VBA来控制仪器本身时，则利用对仪器提供的COM对象进行通信。

90行到100行

对VISA系统进行初始化和起动，并将起动信息输出到Defrm变量。在这个过程期间，若发生差错，程序便转到错误处理程序（320行到360行）。

130行到140行

建立与经GPIB连接的外部仪器（GPIB地址：17）的连接，并将连接信息输出到Equip变量。在这个过程期间，若发生差错，程序便转到错误处理程序（320行到360行）。

170行到180行

查询利用VISA经USB/GPIB接口电缆连接的外部仪器的产品信息，在这个过程期间，若发生差错，程序便转到错误处理程序（320行到360行）。

210行到250行

通过VISA对产品信息进行检索，并将产品信息输出到Prod变量。在消息框中显示读出结果。在这个过程期间，若发生差错，程序便转到错误处理程序（320行到360行）。

280行

中断通信并使VISA系统终结。

320行到360行

若VISA功能发生差错，将显示错误的细节并使程序终结。

读出产品信息（ctrl_ext.vba）

10| Sub Main()

20|

30| Dim status As Long 'VISA function status return code

40| Dim Defrm As Long 'Session to Default Resource Manager

50| Dim Equip As Long 'Session to instrument

60| Dim Prod As String * 100 'String to receive the result

70|

80| ' Initializes the VISA system.

90| status = viOpenDefaultRM(Defrm)

100| If (status <> VI_SUCCESS) Then GoTo VisaErrorHandler

110|

120| ' Opens the session to the specified instrument.

130| status = viOpen(Defrm, "GPIB0::17::INSTR", 0, 0, Equip)

140| If (status <> VI_SUCCESS) Then GoTo VisaErrorHandler

150|

160| ' Asks for the instrument's product information.

170| status = viVPrintf(Equip, "*IDN?" & Chr$(10), 0)

180| If (status <> VI_SUCCESS) Then GoTo VisaErrorHandler

190|

200| ' Reads the result.

210| status = viVScanf(Equip, "%t", Prod)

220| If (status <> VI_SUCCESS) Then GoTo VisaErrorHandler

230|

240| ' Displays the result.

250| MsgBox Prod

260|

270| ' Closes the resource manager session (which closes everything)

280| Call viClose(Defrm)

290|

300| GoTo Prog_end

310|

320| VisaErrorHandler:

330| Dim VisaErr As String * 200

340| Call viStatusDesc(Defrm, status, VisaErr)

350| MsgBox "Error : " & VisaErr, vbExclamation

360| Exit Sub

370|

380| Prog_end:

390|

400| End Sub