Rigol DP832 Programming Guide

Chapter 4 Programming Demos RIGOL
DP800 Programming Guide 4-13
Dim nmatches As Long
Dim matches As String * 200
' Acquire the usb resource of visa
Call viOpenDefaultRM(defrm)
Call viFindRsrc(defrm, "USB?*", list, nmatches, matches)
' Turn on the device
Call viOpen(defrm, matches, 0, 0, vi)
' Send command to query the CH1 status
Call viVPrintf(vi, ":OUTP? CH1" + Chr$(10), 0)
' Acquire the status of CH1
Call viVScanf(vi, "%t", strRes)
If strRes = "ON" Then
' Send the setting command
Call viVPrintf(vi, ":OUTP CH1,OFF" + Chr$(10), 0)
Label1(0).ForeColor = &H808080 'Gray
Else
Call viVPrintf(vi, ":OUTP CH1,ON" + Chr$(10), 0)
Label1(0).ForeColor = &HFFFF& 'Yellow
End If
' Turn off the resource
Call viClose(vi)
Call viClose(defrm)
6 Running results
1) Click CH1 to enable CH1 and the control above CH1 turns yellow;
2) Click CH2 to enable CH2 and the control above CH2 turns blue;
3) Click CH3 to enable CH3 and the control above CH3 turns rosy.
The running results are as shown in the figure below.

Rigol DP832 Specifications

General

Number of Outputs	3
Output Voltage Range CH1/CH2	0-30V
Output Voltage Range CH3	0-5V
Output Current Range CH1/CH2	0-3A
Output Current Range CH3	0-3A
Total Power	195 W
Power per Channel CH1/CH2	90 W
Power per Channel CH3	15 W
Voltage Resolution	1 mV
Current Resolution	1 mA
Interfaces	USB, RS232
Display	3.5 inch TFT LCD