Chapter 3 Programming Examples RIGOL
MSO7000/DS7000 Programming Guide 3-5
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 in 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 Macro dialog box is
displayed, select "Sheet1.QueryIdn" and click OK.
To Next Page
Loading...
Need help?
General
