Rigol MSO1074Z-S 4-channel oscilloscope, Digital Storage oscilloscope, MSO1074Z-S Manuel D’Utilisation

Codes de produits
MSO1074Z-S
Page de 172
RIGOL 
DS1000Z Programming Guide 
3-5
 
Explanation: 
 
If you cannot find VISA Library in the list at the left of the figure above, please follow the method 
below to find it.   
(1)  Make sure that your PC has installed the NI-VISA library. 
(2)  Click Browse… at the right and set the search range to C:\WINDOWS\system32 and the 
filename to visa32.dll, as shown in the figure below.   
 
 
5.  Click View Code in the Developer menu to enter the Microsoft Visual Basic interface. Add the 
following codes and save the file.   
 
Note: If the Excel file created at step 2 does not enable the Macros, at this point, the prompt message 
“The following features cannot be saved in macro-free workbooks”will be displayed. In this situation, 
please save the Excel file as a file using the Macros. 
 
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, 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, 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