Rigol DSG5000 Series, Руководство по программированию

Страница: 129 / 144

5. Click View Code under Developer menu to enter the interface of Microsoft Visual
Basic. Add the following codes and save it.
NOTE
If the Excel file created at Step 2 does not enable the Macros, a prompt message "The
following features cannot be saved in macro-free workbooks" will be displayed. In this case,
please save the file as a macro-enabled file type (filename with a suffix of ".xlsm").
Sub QueryIdn()
Dim viDefRm As Long
Dim viDevice As Long
Dim viErr As Long
Dim cmdStr As String
Dim idnStr As String * 128
Dim ret As Long
'Turn on the device, and the device resource descriptor is in
CELLS(1,2) of SHEET1'
viErr = visa.viOpenDefaultRM(viDefRm)
viErr = visa.viOpen(viDefRm, Sheet1.Cells(1,2), 0, 5000,
viDevice)
‘Send request, read the data, and the return value is in
CELLS(2,2) of SHEET1’
cmdStr = "*IDN?"
viErr = visa.viWrite(viDevice, cmdStr, Len(cmdStr), ret)
viErr = visa.viRead(viDevice, idnStr, 128, ret)
Sheet1.Cells(2,2) = idnStr
‘Turn off the device’
visa.viClose (viDevice)
visa.viClose (viDefRm)
End Sub
6. Add the button control. Click Insert under the Developer menu, and select a
button control under the Form Controls menu item and put it into the Excel cell. At
this time, the Assign Macro dialog box is displayed, Select "Sheet1.QueryIdn" and
click OK.
Programming Examples
Copyright ©RIGOL TECHNOLOGIES CO., LTD. All rights reserved.
121