Rigol DP800 Series 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 DP800 Series Specifications

General

Brand	Rigol
Model	DP800 Series
Category	Power Supply
Language	English