Instructions

Chapter 3 Programming Examples RIGOL
MSO5000 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.