摘要：文章針對(duì)雷達(dá)批生產(chǎn)中測試自動(dòng)化的迫切需求，提出一種簡明實(shí)用的基于VBA編程環(huán)境、VISA標(biāo)準(zhǔn)庫和SCPI命令的自動(dòng)化程序開發(fā)方法，以矢量網(wǎng)絡(luò)分析儀對(duì)射頻綜合網(wǎng)絡(luò)的測試為實(shí)例，闡述了開發(fā)流程和設(shè)計(jì)思路，使集成調(diào)試人員能夠靈活地根據(jù)被測產(chǎn)品自主完成編程，快速實(shí)現(xiàn)儀器程控、數(shù)據(jù)采集與處理分析、驗(yàn)收測試報(bào)告數(shù)據(jù)的自動(dòng)導(dǎo)入等。結(jié)果表明，使用該方法開發(fā)的測試自動(dòng)化程序具有便利性、實(shí)用性、擴(kuò)展性，大幅提升了測試效率。目前，已在實(shí)際工程中應(yīng)用。

關(guān)鍵詞：VBA；VISA；SCPI；測試自動(dòng)化

中圖分類號(hào)：TP29文獻(xiàn)標(biāo)志碼：A

0 引 言

隨著雷達(dá)技術(shù)的快速發(fā)展，為了提高大數(shù)據(jù)量和大批量產(chǎn)品的測試效率，測試自動(dòng)化系統(tǒng)已經(jīng)廣泛應(yīng)用于批生產(chǎn)［1］。但定制化的測試系統(tǒng)產(chǎn)品覆蓋占比依舊很低，對(duì)非定制對(duì)象不具備兼容性，程序開發(fā)和更新需由專業(yè)軟件設(shè)計(jì)人員進(jìn)行，開發(fā)成本高、周期長。

批生產(chǎn)集成調(diào)試面對(duì)產(chǎn)品不斷更新的同時(shí)，還需保持出廠產(chǎn)品的售后維修支持，產(chǎn)品種類繁多，技術(shù)狀態(tài)迥異，專業(yè)涉及面廣，測試工作量大。使非軟件專業(yè)的集成調(diào)試人員具備自主開發(fā)能力，靈活地針對(duì)測試產(chǎn)品快速實(shí)現(xiàn)測試自動(dòng)化是提高效率的必要手段之一。

本文以矢量網(wǎng)絡(luò)分析儀對(duì)射頻綜合網(wǎng)絡(luò)的測試為實(shí)例，詳細(xì)闡述基于VBA編程環(huán)境、虛擬儀器軟件體系結(jié)構(gòu)（Virtual Instrument Software Architecture，VISA）標(biāo)準(zhǔn)庫和SCPI命令快速完成測試自動(dòng)化程序開發(fā)的方法，實(shí)現(xiàn)儀器程控、數(shù)據(jù)采集與處理分析，并自動(dòng)將數(shù)據(jù)導(dǎo)出至驗(yàn)收測試報(bào)告。軟硬件構(gòu)架及工作流程如圖1所示。

1 開發(fā)環(huán)境設(shè)置

1.1 VBA

VBA（Visual Basic for Applications）是基于VB（Visual Basic for Windows）發(fā)展而來的，與VB一樣是屬于面向?qū)ο蟮木幊陶Z言。在批生產(chǎn)集成調(diào)試中，基于VBA實(shí)現(xiàn)自動(dòng)化開發(fā)有以下優(yōu)點(diǎn)［2］：

（1）不需要單獨(dú)安裝IDE（集成開發(fā)環(huán)境），直接使用嵌套在Excel、Word等Office軟件開發(fā)工具中的VBA編程器進(jìn)行編程；對(duì)上位機(jī)的軟、硬件配置要求也比較低（Windows7及Office2010足以滿足編程需求），可以充分地利用現(xiàn)有計(jì)算機(jī)硬件資源。

（2）VBA的語法結(jié)構(gòu)與VB相似，編程環(huán)境在Office軟件內(nèi)，對(duì)非軟件設(shè)計(jì)專業(yè)的集成調(diào)試人員而言相對(duì)簡單易學(xué)，配合宏錄制功能，能夠在短時(shí)間內(nèi)完成程序編程，開發(fā)周期短。

（3）VBA可以靈活地調(diào)用Office軟件自帶的函數(shù)和圖表功能，直接使用Excel進(jìn)行數(shù)據(jù)的存儲(chǔ)和處理分析，無需安裝額外的數(shù)據(jù)處理軟件。

（4）使用VBA可以方便地在Office軟件之間進(jìn)行數(shù)據(jù)交互，采集到的數(shù)據(jù)經(jīng)過Excel分析處理后可直接導(dǎo)出至Word，生成驗(yàn)收測試報(bào)告。

1.2 VISA

VISA 提供了簡單易用的控制函數(shù)集，具有完備的儀器控制功能與資源管理［3］。通過安裝Agilent/Keysight IO Libraries Suite，在Excel的VBA編輯器菜單欄“工具-引用”選項(xiàng)中，勾選 “VISA-COM Type Library”，即可調(diào)用VISA的函數(shù)庫［4］。

1.3 SCPI

可編程儀器標(biāo)準(zhǔn)命令（Standard Command for Program Instrument，SCPI）是為解決程控儀器標(biāo)準(zhǔn)化而制定的標(biāo)準(zhǔn)程控語言［5］。SCPI分為通用命令和儀器指定命令［6］。通用命令主要用來控制儀器復(fù)位、自檢以及狀態(tài)查詢等，該組命令以“*”開始；儀器指定命令用來進(jìn)行測量、讀取數(shù)據(jù)等操作以及控制儀器的設(shè)置，通過廠家提供的程控手冊(cè)可以查詢、獲取對(duì)應(yīng)儀器的詳細(xì)命令集。

2 軟件設(shè)計(jì)實(shí)現(xiàn)

2.1 程序主界面設(shè)計(jì)

在Excel軟件中使用組合鍵Alt+F11打開VBA編輯界面，在VBAProject中插入用戶窗體，利用工具箱中自帶的框架、文本框、選擇框、命令按鈕等窗體控件，可以快速地完成程序主界面的布局設(shè)計(jì)。

程序主界面如圖2所示，分為顯示器、儀表控制、數(shù)據(jù)采集、數(shù)據(jù)分析、文件處理5個(gè)框架模塊。

顯示器為程序響應(yīng)信息的顯示窗口，如儀表的連接狀態(tài)、打開文件的路徑名稱信息、報(bào)錯(cuò)信息等。

儀表控制為儀器通信連接方式的選擇、測試參數(shù)設(shè)置、窗口設(shè)置以及常用的儀表功能設(shè)置。根據(jù)測試產(chǎn)品的技術(shù)指標(biāo)不同，可以使用分頁進(jìn)行管理。

數(shù)據(jù)采集通過按鈕點(diǎn)擊響應(yīng)，可顯示累計(jì)采集次數(shù)。對(duì)誤操作的采集數(shù)據(jù)，可以通過指定行號(hào)刪除。工作表的首行為采樣頻點(diǎn)，可一鍵實(shí)現(xiàn)隱藏和顯示。

數(shù)據(jù)分析根據(jù)測試產(chǎn)品的實(shí)際需求定制，主要展示關(guān)鍵指標(biāo)的測量和計(jì)算結(jié)果，在工作表中對(duì)指定數(shù)據(jù)進(jìn)行自動(dòng)篩選、定位和標(biāo)記，一鍵生成圖表等。

文件處理完成數(shù)據(jù)的導(dǎo)出、保存和回調(diào)。

主程序保存在xlsm格式的Excel文件內(nèi)，在ThisWorkbook中輸入以下代碼，實(shí)現(xiàn)打開Excel工作簿自動(dòng)彈出程序主界面：

Sub workbook_open（）

UserForm1.Show （0）

End Sub

2.2 儀器連接

為了適應(yīng)新的通信技術(shù)發(fā)展，儀器廠家逐步在推廣LAN接口的儀器，但GPIB接口仍是目前被廣泛使用的儀器程控接口，利用VISA與接口無關(guān)的特性［7］，使用一套程序可以通過這兩種方式與儀器進(jìn)行通信。GPIB接口采用USB-GPIB轉(zhuǎn)換器、LAN口通過網(wǎng)線與主控計(jì)算機(jī)相連，在鏈接地址文本框中修改目標(biāo)儀器的GPIB地址或IP地址就能完成連接，連接成功后在程序主界面顯示器內(nèi)顯示儀器的出廠信息。實(shí)現(xiàn)與儀器連接通信的核心代碼如下：

'聲明VNA（矢網(wǎng)）為VISA的一個(gè)對(duì)象（設(shè)備）

Public VNA As VisaComLib.FormattedIO488

'連接儀器并接收反饋信息

'聲明IOManager為VISA的一個(gè)對(duì)象（資源管理器）

Dim IOManager As VisaComLib.ResourceManager

'連接不成功跳轉(zhuǎn)至錯(cuò)誤提示

On Error GoTo Error1

'建立資源管理器和設(shè)備實(shí)例

Set IOManager = New VisaComLib.ResourceManager

Set VNA = New VisaComLib.FormattedIO488

'發(fā)送地址碼連接儀器

Set VNA.IO = IOManager.Open（GPIB地址或IP地址）

'詢問儀器信息并將反饋信息顯示在顯示器

VNA.WriteString （\"*IDN？\"）

TextBox1.Text = （\"連接成功！儀表信息如下：\" amp; Chr（10） amp; VNA.ReadString）

Exit Sub

Error1：

'連接不成功提示

TextBox1.Text = （\"連接不成功！請(qǐng)檢查連接方式和儀表地址。\"）

2.3 儀器設(shè)置

根據(jù)實(shí)際測試儀器設(shè)計(jì)相應(yīng)的控制界面，本案例測試儀器為網(wǎng)絡(luò)分析儀，主要進(jìn)行S參數(shù)測量，設(shè)置了4個(gè)窗口WIND1～ WIND4分別顯示軌跡trc1～trc4，顯示格式可以通過下拉選項(xiàng)選擇，測量參數(shù)默認(rèn)分別設(shè)為S21幅度、S21相位、S11輸入駐波和S22輸出駐波。通過以下代碼對(duì)窗口、軌跡、測量格式、功能參數(shù)、起止頻率進(jìn)行設(shè)置：

'窗口設(shè)置

With VNA

'初始化儀器

.WriteString （\"*RST\"）

.WriteString （\"CONF：CHAN1：STAT OFF\"）

'設(shè)置軌跡1測量為S21

.WriteString （\"CALC：PAR：SDEF 'trc1'，'s21'\"）

'讀取下拉列表設(shè)置數(shù)據(jù)格式

.WriteString （\"CALC：FORM\" amp; Space（1） amp; （Combox1.Text））

'打開窗口1

.WriteString （\"DISP：WIND1：STAT ON\"）

'打開軌跡1

.WriteString （\"DISP：WIND1：TRAC：FEED 'trc1'\"）

'讀取文本框數(shù)值設(shè)置比例值

.WriteString （\"DISP：WIND1：TRAC：Y：PDIV \" amp; Str（TextBox16.Text））

End With

'功能設(shè)置

With VNA

'選擇軌跡1

.WriteString （\"CALC：PAR：SEL trc1\"）

'功率電平設(shè)置

.WriteString （\"SOUR：POW\" amp; Space（1） amp; Str（TextBox11.Text） amp; \"dBm\"）

'平滑功能打開

.WriteString （\"CALC：SMO：STAT ON\"）

'平滑值設(shè)置

.WriteString （\"CALC：SMO：APER\" amp; Str（TextBox12.Text））

'掃描點(diǎn)數(shù)量設(shè)置

.WriteString （\"SWE：POIN\" amp; Str（TextBox13.Text））

End With

'頻率設(shè)置

'聲明開始頻率、終止頻率、頻率間隔變量

Dim fstart， fstop， interval As Single

'聲明采集點(diǎn)數(shù)變量

Dim i， points As Integer

'清空工作表

For i = 1 To 4

Sheets（i）.UsedRange.Rows.Clear

Next

'從文本框讀取起止頻率和采集點(diǎn)數(shù)

fstart = TextBox8.Text

fstop = TextBox9.Text

points = TextBox10.Text

'根據(jù)采集點(diǎn)數(shù)計(jì)算間隔

interval = （fstop-fstart） / （points-1）

'在工作表首行自動(dòng)寫入采樣頻點(diǎn)

For i = 1 To points

Sheet1.Cells（1， i） = fstart + interval * （i-1）

Next

'以MHz為單位設(shè)置儀器的起止頻率

With VNA

.WriteString （\"FREQ：STAR\" amp; Str$（TextBox8.Text） amp; \"MHz\"）

.WriteString （\"FREQ：STOP\" amp; Str$（TextBox9.Text） amp; \"MHz\"）

End With

2.4 數(shù)據(jù)采集

通過點(diǎn)擊按鈕觸發(fā)數(shù)據(jù)采集命令，4個(gè)窗口采集到的數(shù)據(jù)直接存儲(chǔ)到工作簿內(nèi)對(duì)應(yīng)的4個(gè)Sheet（工作表）。核心代碼如下：

'數(shù)據(jù)采集

Dim i， points As Integer

'讀取采樣點(diǎn)數(shù)

points = TextBox10.Text

For i = 1 To points

With VNA

'選擇軌跡，打開光標(biāo)

.WriteString （\"CALC：PAR：SEL trc1\"）

.WriteString （\"CALC：MARK1 ON\"）

'按工作表首行頻點(diǎn)設(shè)置光標(biāo)頻率

.WriteString （\"CALC：MARK1：X\" amp; Str$（Cells（1， i）） amp; \"MHz\"）

'讀取光標(biāo)數(shù)值

.WriteString （\"CALC：MARK1：Y？\"）

'存儲(chǔ)數(shù)據(jù)到工作表

Sheet1.Cells（times + 1， i） = Format$（VNA.ReadString， \"Fixed\"）

End With

Next

'顯示采集累計(jì)次數(shù)

times = times + 1

TextBox15.Text = times

2.5 數(shù)據(jù)分析

幅相一致性是本案例射頻綜合網(wǎng)絡(luò)的主要技術(shù)指標(biāo)，如圖3所示，使用VBA調(diào)用Excel函數(shù)可以方便地查找出數(shù)據(jù)內(nèi)的最大值、最小值，計(jì)算出起伏值，并以紅藍(lán)顏色字體在工作表中醒目地標(biāo)記出所在位置，配合一鍵生成的折線圖可以輔助調(diào)試人員快速進(jìn)行數(shù)值定位和數(shù)據(jù)分析。核心代碼如下：

'查找最大值、最小值，計(jì)算起伏

TextBox20.Text = WorksheetFunction. Max（Sheet1.UsedRange.Rows.Offset（1， 0））

TextBox21.Text = WorksheetFunction. Min（Sheet1.UsedRange.Rows.Offset（1， 0））

TextBox22.Text = （（TextBox20.Text – TextBox21.Text） / 2）

'通過條件格式規(guī)則查找極值位置并以紅藍(lán)字體標(biāo)記

ActiveSheet.UsedRange.Rows.Offset（1， 0）.Select

Selection.FormatConditions.AddTop10

Selection.FormatConditions _

（Selection.FormatConditions.Count）.SetFirstPriority

With Selection.FormatConditions（1）

.TopBottom = xlTop10Top

.Rank = 1

.Font.Color = RGB（255， 0， 0）

End With

With Selection.FormatConditions（2）

.TopBottom = xlTop10Bottom

.Rank = 1

.Font.Color = RGB（0， 0， 255）

End With

'選擇數(shù)據(jù)區(qū)域，生成折線圖

ActiveSheet.Shapes.AddChart.Select

ActiveChart.SetSourceData Source：= _

ActiveSheet.UsedRange.Rows.Offset（1， 0）

ActiveChart.ChartType = xlLine

2.6 文件處理

VBA將Office軟件中的對(duì)象按層次結(jié)構(gòu)有邏輯地組織在一起，如Excel中的工作簿、工作表、單元格范圍（行、列）等；Word中的文檔、段落、字符、表格等。通過對(duì)這些對(duì)象的操作，VBA可以方便地在Office軟件間進(jìn)行數(shù)據(jù)交互。如圖4所示，需將Excel中測得的幅相數(shù)據(jù)導(dǎo)出至Word驗(yàn)收測試報(bào)告，按層次結(jié)構(gòu)梳理目標(biāo)對(duì)象為Word文檔內(nèi)第2個(gè)表格，從第3行2列至第23行7列范圍；輸出對(duì)象為Excel工作簿sheet1、sheet2工作表前3列第2行至第21行。每列還做了幅相一致性的計(jì)算，用VBA命令將輸入輸出對(duì)象關(guān)聯(lián)，即可實(shí)現(xiàn)數(shù)據(jù)一鍵導(dǎo)出。核心代碼如下：

Dim wordobj， worddoc As Object

Dim i As Integer

Dim amax， amin As Single

'打開目標(biāo)Word文檔

Set wordobj = CreateObject （\"word.application\"）

wordobj.Visible = True

Set worddoc = wordobj.Documents.Open（ThisWorkbook.Path amp; \"＼驗(yàn)收測試報(bào)告.doc\"）

'將Ecxel工作表內(nèi)數(shù)據(jù)導(dǎo)出至Word文檔內(nèi)指定表格位置

For i = 1 To 20 Step 1

With worddoc

.Tables（2）.Cell（i + 2， 2）.Range = Sheet1.Cells（i + 1， 1）.Value

.Tables（2）.Cell（i + 2， 3）.Range = Sheet1.Cells（i + 1， 2）.Value

.Tables（2）.Cell（i + 2， 4）.Range = Sheet1.Cells（i + 1， 3）.Value

.Tables（2）.Cell（i + 2， 5）.Range = Sheet2.Cells（i + 1， 1）.Value

.Tables（2）.Cell（i + 2， 6）.Range = Sheet2.Cells（i + 1， 2）.Value

.Tables（2）.Cell（i + 2， 7）.Range = Sheet2.Cells（i + 1， 3）.Value

End With

Next

'計(jì)算幅相一致性， 導(dǎo)出至Word文檔內(nèi)指定表格位置

amax = WorksheetFunction.Max （Sheet1.Range（\"a2：a21\"））

amin = WorksheetFunction.Min （Sheet1.Range（\"a2：a21\"））

worddoc.Tables（2）.Cell（23， 2）.Range = Format（（amax-amin） / 2， \"fixed\"）

3 應(yīng)用效果

本文案例中矢量網(wǎng)絡(luò)分析儀對(duì)射頻綜合網(wǎng)絡(luò)的測試結(jié)果表明，基于VBA編程環(huán)境的測試自動(dòng)化程序開發(fā)周期短，系統(tǒng)運(yùn)行穩(wěn)定，數(shù)據(jù)采集高效，數(shù)據(jù)處理分析簡便直觀，一份驗(yàn)收測試報(bào)告的數(shù)據(jù)導(dǎo)入，手動(dòng)處理需30 min以上，自動(dòng)化導(dǎo)入縮短至5 s以內(nèi)，大大提高了工作效率，也避免了人為誤差。目前，儀器的程控開發(fā)已擴(kuò)展至頻譜儀、示波器、功率計(jì)、信號(hào)源等，針對(duì)不同被測產(chǎn)品完善數(shù)據(jù)處理模塊，已應(yīng)用于多個(gè)型號(hào)微波組件和頻率源的測試工作。

4 結(jié)語

本文以實(shí)例論證了基于VBA編程環(huán)境實(shí)現(xiàn)測試自動(dòng)化的便利性和實(shí)用性，程序?qū)x器的連接、參數(shù)的設(shè)置、數(shù)據(jù)的采集、數(shù)據(jù)的分析和數(shù)據(jù)的導(dǎo)出幾個(gè)關(guān)鍵功能設(shè)計(jì)為模塊化，參考代碼完整、釋義詳盡、方便移植，通過適當(dāng)?shù)男薷模梢造`活快速地適配應(yīng)用于其他儀器和產(chǎn)品，為雷達(dá)集成調(diào)試中自動(dòng)化開發(fā)提供了一種便捷的設(shè)計(jì)實(shí)現(xiàn)方法。

參考文獻(xiàn)

［1］裴英.雷達(dá)數(shù)字T/R組件自動(dòng)測試系統(tǒng)設(shè)計(jì)［J］.現(xiàn)代雷達(dá)，2013（6）：73-76.

［2］焦萍萍，周顯春.EXCEL中的VBA程序設(shè)計(jì)［J］.電腦知識(shí)與技術(shù)，2016（11）：63-64.

［3］柴松剛，董緒豐，林禾，等.基于VBA的光電探測器RC參數(shù)測試技術(shù)研究［J］.電子技術(shù)，2020（8）：4-7.

［4］馮蕾潔，韓應(yīng)征，王娟.基于動(dòng)態(tài)頻率選擇技術(shù)的射頻自動(dòng)測試系統(tǒng)［J］.制造業(yè)自動(dòng)化，2014（1）：124-131.

［5］徐利，張良國.基于VISA_COM的測量儀器通用測試系統(tǒng)的開發(fā)［J］.計(jì)算機(jī)測量與控制，2015（10）：3297-3300.

［6］劉陽，羅顯志，周楊羅.基于FPGA的IEEE488接口協(xié)議實(shí)現(xiàn)及驅(qū)動(dòng)程序開發(fā)［J］.計(jì)算機(jī)測量與控制，2022（8）：134-141.

［7］林立杰，耿濤，程剛，等.基于VC++6.0的泰克數(shù)字示波器應(yīng)用類設(shè)計(jì)［J］.太赫茲科學(xué)與電子信息學(xué)報(bào)，2016（3）：432-437.

Design and implementation of rapid test automation based on VBA

WangYinyu

（Nanjing Research Institute of Electronic Technology， Nanjing 210039， China）

Abstract：For the urgent need of test automation in radar batch production， this paper presents a concise and practical method of automation program development based on VBA programming environment， VISA standard library and SCPI commands， taking the testing of an RF synthetic network by a vector network analyzer as an example， it helps engineers complete programming flexibly according to the product， rapid implement instrument programming control， data acquisition and processing analysis， automatic import of acceptance test report data，etc. The results show that the testing automation program developed using this method has convenience， practicality and scalability， greatly improving testing efficiency. At present， it has been put into practical engineering applications.

Key words： VBA; VISA; SCPI; test automation